added VB specific Parameter expression context

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/branches/vbnet@6127 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

src/Libraries/NRefactory/Project/Src/Lexer/VBNet/Block.cs

@@ -19,6 +19,7 @@ namespace ICSharpCode.NRefactory.Parser.VB
 		ObjectCreation,
 		Type,
 		Member,
+		Parameter,
 		IdentifierExpected,
 		Body,
 		Xml,

src/Libraries/NRefactory/Project/Src/Lexer/VBNet/ExpressionFinder.atg

@@ -1,11 +1,6 @@
 using System;
 using System.Collections;
 using System.Collections.Generic;
-using System.Collections.Specialized;
-using System.Text;
-using ICSharpCode.NRefactory.Ast;
-using ICSharpCode.NRefactory.Parser.VB;
-using ASTAttribute = ICSharpCode.NRefactory.Ast.Attribute;
 
 PUSHCOMPILER WITH EXPECTEDSETS ExpressionFinder
 
@@ -405,7 +400,12 @@ ParameterList =
 .
 
 Parameter =
-	{ AttributeBlock } { ParameterModifier } (. PushContext(Context.IdentifierExpected, la, t); .) Identifier (. PopContext(); .) [ (. PushContext(Context.Type, la, t); .) "As" TypeName (. PopContext(); .) ] [ "=" Expression ] 
+	(. PushContext(Context.Parameter, la, t); .)
+	{ AttributeBlock } { ParameterModifier }
+	(. PushContext(Context.IdentifierExpected, la, t); .) Identifier (. PopContext(); .)
+	[ (. PushContext(Context.Type, la, t); .) "As" TypeName (. PopContext(); .) ]
+	[ "=" Expression ]
+	(. PopContext(); .)
 .
 
 StatementTerminatorAndBlock =

src/Main/Base/Test/VBExpressionFinderTests.cs

@@ -1,7 +1,7 @@
 // <file>
 //     <copyright see="prj:///doc/copyright.txt"/>
 //     <license see="prj:///doc/license.txt"/>
-//     <owner name="Daniel Grunwald" email="daniel@danielgrunwald.de"/>
+//     <owner name="Siegfried Pammer" email="siegfriedpammer@gmail.com" />
 //     <version>$Revision$</version>
 // </file>
 
@@ -123,6 +123,14 @@ End Class
 		{
 			Find(program1, "		", 1, "", ExpressionContext.Global);
 		}
+		
+		[Test, Ignore]
+		public void FindParameterStart()
+		{
+			Find(@"Module Program
+	Private Function CreateFolder(
+End Module", "(", 1, "", ExpressionContext.Parameter);
+		}
 		#endregion
 		
 		#region Context Tests

src/Main/ICSharpCode.SharpDevelop.Dom/Project/Src/ExpressionContext.cs

@@ -120,6 +120,12 @@ namespace ICSharpCode.SharpDevelop.Dom
 		public readonly static ExpressionContext ObjectInitializer = new DefaultExpressionContext("ObjectInitializer");
 		#endregion
 		
+		#region VB specific contexts (public static fields) * MOVE TO ANOTHER CLASS *
+		/// <summary>The context expects a new parameter declaration</summary>
+		/// <example>Function Test(*expr*, *expr*, ...)</example>
+		public static readonly ExpressionContext Parameter = new DefaultExpressionContext("Parameter");
+		#endregion
+		
 		#region Default contexts (public static fields)
 		/// <summary>Default/unknown context</summary>
 		public readonly static ExpressionContext Default = new DefaultExpressionContext("Default");

src/Main/ICSharpCode.SharpDevelop.Dom/Project/Src/VBNet/VBNetExpressionFinder.cs

@@ -145,6 +145,8 @@ namespace ICSharpCode.SharpDevelop.Dom.VBNet
 					return ExpressionContext.Importable;
 				case Context.ObjectCreation:
 					return ExpressionContext.ObjectCreation;
+				case Context.Parameter:
+					return ExpressionContext.Parameter;
 			}
 			
 			return ExpressionContext.Default;