You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
450 lines
8.6 KiB
450 lines
8.6 KiB
using System; |
|
using System.Collections; |
|
using System.Collections.Generic; |
|
using System.Collections.Specialized; |
|
using System.Linq; |
|
using System.Text; |
|
using ICSharpCode.NRefactory.VB.Ast; |
|
using ICSharpCode.NRefactory.VB.Parser; |
|
using ASTAttribute = ICSharpCode.NRefactory.VB.Ast.Attribute; |
|
using Roles = ICSharpCode.NRefactory.VB.AstNode.Roles; |
|
|
|
COMPILER VB |
|
|
|
#region AUTOGENERATED TOKENS SECTION |
|
TOKENS |
|
/* ----- terminal classes ----- */ |
|
/* EOF is 0 */ |
|
EOL |
|
ident |
|
LiteralString |
|
LiteralCharacter |
|
LiteralInteger |
|
LiteralDouble |
|
LiteralSingle |
|
LiteralDecimal |
|
LiteralDate |
|
XmlOpenTag // < |
|
XmlCloseTag // > |
|
XmlStartInlineVB // <%= |
|
XmlEndInlineVB // %> |
|
XmlCloseTagEmptyElement // /> |
|
XmlOpenEndTag // </ |
|
XmlContent // ... |
|
XmlComment // <!-- ... --> |
|
XmlCData // <![CDATA[...]]> |
|
XmlProcessingInstruction |
|
|
|
/* ----- special character ----- */ |
|
"=" |
|
":" |
|
"," |
|
"&" |
|
"/" |
|
"\\" |
|
"." |
|
"..." |
|
".@" |
|
"!" |
|
"-" |
|
"+" |
|
"^" |
|
"?" |
|
"*" |
|
"{" |
|
"}" |
|
"(" |
|
")" |
|
">" |
|
"<" |
|
"<>" |
|
">=" |
|
"<=" |
|
"<<" |
|
">>" |
|
"+=" |
|
"^=" |
|
"-=" |
|
"*=" |
|
"/=" |
|
"\\=" |
|
"<<=" |
|
">>=" |
|
"&=" |
|
":=" |
|
|
|
/* ----- keywords ----- */ |
|
"AddHandler" |
|
"AddressOf" |
|
"Aggregate" |
|
"Alias" |
|
"And" |
|
"AndAlso" |
|
"Ansi" |
|
"As" |
|
"Ascending" |
|
"Assembly" |
|
"Auto" |
|
"Binary" |
|
"Boolean" |
|
"ByRef" |
|
"By" |
|
"Byte" |
|
"ByVal" |
|
"Call" |
|
"Case" |
|
"Catch" |
|
"CBool" |
|
"CByte" |
|
"CChar" |
|
"CDate" |
|
"CDbl" |
|
"CDec" |
|
"Char" |
|
"CInt" |
|
"Class" |
|
"CLng" |
|
"CObj" |
|
"Compare" |
|
"Const" |
|
"Continue" |
|
"CSByte" |
|
"CShort" |
|
"CSng" |
|
"CStr" |
|
"CType" |
|
"CUInt" |
|
"CULng" |
|
"CUShort" |
|
"Custom" |
|
"Date" |
|
"Decimal" |
|
"Declare" |
|
"Default" |
|
"Delegate" |
|
"Descending" |
|
"Dim" |
|
"DirectCast" |
|
"Distinct" |
|
"Do" |
|
"Double" |
|
"Each" |
|
"Else" |
|
"ElseIf" |
|
"End" |
|
"EndIf" |
|
"Enum" |
|
"Equals" |
|
"Erase" |
|
"Error" |
|
"Event" |
|
"Exit" |
|
"Explicit" |
|
"False" |
|
"Finally" |
|
"For" |
|
"Friend" |
|
"From" |
|
"Function" |
|
"Get" |
|
"GetType" |
|
"Global" |
|
"GoSub" |
|
"GoTo" |
|
"Group" |
|
"Handles" |
|
"If" |
|
"Implements" |
|
"Imports" |
|
"In" |
|
"Infer" |
|
"Inherits" |
|
"Integer" |
|
"Interface" |
|
"Into" |
|
"Is" |
|
"IsNot" |
|
"Join" |
|
"Key" |
|
"Let" |
|
"Lib" |
|
"Like" |
|
"Long" |
|
"Loop" |
|
"Me" |
|
"Mod" |
|
"Module" |
|
"MustInherit" |
|
"MustOverride" |
|
"MyBase" |
|
"MyClass" |
|
"Namespace" |
|
"Narrowing" |
|
"New" |
|
"Next" |
|
"Not" |
|
"Nothing" |
|
"NotInheritable" |
|
"NotOverridable" |
|
"Object" |
|
"Of" |
|
"Off" |
|
"On" |
|
"Operator" |
|
"Option" |
|
"Optional" |
|
"Or" |
|
"Order" |
|
"OrElse" |
|
"Out" |
|
"Overloads" |
|
"Overridable" |
|
"Overrides" |
|
"ParamArray" |
|
"Partial" |
|
"Preserve" |
|
"Private" |
|
"Property" |
|
"Protected" |
|
"Public" |
|
"RaiseEvent" |
|
"ReadOnly" |
|
"ReDim" |
|
"Rem" |
|
"RemoveHandler" |
|
"Resume" |
|
"Return" |
|
"SByte" |
|
"Select" |
|
"Set" |
|
"Shadows" |
|
"Shared" |
|
"Short" |
|
"Single" |
|
"Skip" |
|
"Static" |
|
"Step" |
|
"Stop" |
|
"Strict" |
|
"String" |
|
"Structure" |
|
"Sub" |
|
"SyncLock" |
|
"Take" |
|
"Text" |
|
"Then" |
|
"Throw" |
|
"To" |
|
"True" |
|
"Try" |
|
"TryCast" |
|
"TypeOf" |
|
"UInteger" |
|
"ULong" |
|
"Unicode" |
|
"Until" |
|
"UShort" |
|
"Using" |
|
"Variant" |
|
"Wend" |
|
"When" |
|
"Where" |
|
"While" |
|
"Widening" |
|
"With" |
|
"WithEvents" |
|
"WriteOnly" |
|
"Xor" |
|
"GetXmlNamespace" |
|
#endregion |
|
|
|
PRODUCTIONS |
|
|
|
#region General |
|
|
|
VB = |
|
(. |
|
compilationUnit = new CompilationUnit(); |
|
NodeStart(compilationUnit); |
|
Get(); |
|
.) |
|
{ StatementTerminator } |
|
{ OptionStatement<CompilationUnit.MemberRole> { StatementTerminator } } |
|
/* { ImportsStatement<CompilationUnit.MemberRole> { StatementTerminator } } |
|
{ IF (IsGlobalAttrTarget()) GlobalAttributeSection { StatementTerminator } } |
|
{ NamespaceMemberDecl { StatementTerminator } } */ |
|
. |
|
|
|
StatementTerminator = SYNC ( EOL<Roles.StatementTerminator> | ":"<Roles.StatementTerminator> ) . |
|
|
|
/* IdentifierOrKeyword<out string identifier> = ANY (. identifier = t.val; .) . |
|
|
|
// This production handles pseudo keywords that are needed in the grammar |
|
Identifier = |
|
IdentifierForFieldDeclaration |
|
| "Custom" |
|
. |
|
|
|
IdentifierForFieldDeclaration = |
|
ident |
|
| "Aggregate" |
|
| "Ansi" |
|
| "Ascending" |
|
| "Assembly" |
|
| "Auto" |
|
| "Binary" |
|
| "By" |
|
| "Compare" |
|
| "Descending" |
|
| "Distinct" |
|
| "Equals" |
|
| "Explicit" |
|
| "From" |
|
| "Group" |
|
| "Infer" |
|
| "Into" |
|
| "Join" |
|
| "Key" |
|
| "Off" |
|
| "Order" |
|
| "Out" |
|
| "Preserve" |
|
| "Skip" |
|
| "Take" |
|
| "Text" |
|
| "Unicode" |
|
| "Until" |
|
| "Where" |
|
. |
|
|
|
TypeName<out AstType type> = |
|
(. type = null; .) |
|
. |
|
|
|
PrimitiveTypeName<out string type> |
|
(. type = String.Empty; .) = |
|
"Boolean" (. type = "System.Boolean"; .) |
|
| "Date" (. type = "System.DateTime"; .) |
|
| "Char" (. type = "System.Char"; .) |
|
| "String" (. type = "System.String"; .) |
|
| "Decimal" (. type = "System.Decimal"; .) |
|
| "Byte" (. type = "System.Byte"; .) |
|
| "Short" (. type = "System.Int16"; .) |
|
| "Integer" (. type = "System.Int32"; .) |
|
| "Long" (. type = "System.Int64"; .) |
|
| "Single" (. type = "System.Single"; .) |
|
| "Double" (. type = "System.Double"; .) |
|
| "UInteger" (. type = "System.UInt32"; .) |
|
| "ULong" (. type = "System.UInt64"; .) |
|
| "UShort" (. type = "System.UInt16"; .) |
|
| "SByte" (. type = "System.SByte"; .) |
|
. |
|
|
|
ParameterModifier<ParamModifierList m> = |
|
"ByVal" (. m.Add(ParameterModifiers.In); .) |
|
| "ByRef" (. m.Add(ParameterModifiers.Ref); .) |
|
| "Optional" (. m.Add(ParameterModifiers.Optional); .) |
|
| "ParamArray" (. m.Add(ParameterModifiers.Params); .) |
|
. |
|
|
|
TypeModifier<ModifierList m> = |
|
"Public" (. m.Add(Modifiers.Public, t.Location); .) |
|
| "Protected" (. m.Add(Modifiers.Protected, t.Location); .) |
|
| "Friend" (. m.Add(Modifiers.Internal, t.Location); .) |
|
| "Private" (. m.Add(Modifiers.Private, t.Location); .) |
|
| "Shared" (. m.Add(Modifiers.Static, t.Location); .) |
|
| "Shadows" (. m.Add(Modifiers.New, t.Location); .) |
|
| "MustInherit" (. m.Add(Modifiers.Abstract, t.Location); .) |
|
| "NotInheritable" (. m.Add(Modifiers.Sealed, t.Location); .) |
|
| "Partial" (. m.Add(Modifiers.Partial, t.Location); .) |
|
. |
|
|
|
MemberModifier<ModifierList m> = |
|
"MustInherit" (.m.Add(Modifiers.Abstract, t.Location);.) |
|
| "Default" (.m.Add(Modifiers.Default, t.Location);.) |
|
| "Friend" (.m.Add(Modifiers.Internal, t.Location);.) |
|
| "Shadows" (.m.Add(Modifiers.New, t.Location);.) |
|
| "Overrides" (.m.Add(Modifiers.Override, t.Location);.) |
|
| "MustOverride" (.m.Add(Modifiers.Abstract, t.Location);.) |
|
| "Private" (.m.Add(Modifiers.Private, t.Location);.) |
|
| "Protected" (.m.Add(Modifiers.Protected, t.Location);.) |
|
| "Public" (.m.Add(Modifiers.Public, t.Location);.) |
|
| "NotInheritable" (.m.Add(Modifiers.Sealed, t.Location);.) |
|
| "NotOverridable" (.m.Add(Modifiers.Sealed, t.Location);.) |
|
| "Shared" (.m.Add(Modifiers.Static, t.Location);.) |
|
| "Overridable" (.m.Add(Modifiers.Virtual, t.Location);.) |
|
| "Overloads" (.m.Add(Modifiers.Overloads, t.Location);.) |
|
| "ReadOnly" (.m.Add(Modifiers.ReadOnly, t.Location);.) |
|
| "WriteOnly" (.m.Add(Modifiers.WriteOnly, t.Location);.) |
|
| "WithEvents" (.m.Add(Modifiers.WithEvents, t.Location);.) |
|
| "Dim" (.m.Add(Modifiers.Dim, t.Location);.) |
|
| "Partial" (.m.Add(Modifiers.Partial, t.Location);.) |
|
. |
|
|
|
PropertyAccessorAccessModifier<out Modifiers m> = |
|
(. m = Modifiers.None; .) |
|
{ |
|
"Public" (. m |= Modifiers.Public; .) |
|
| "Protected" (. m |= Modifiers.Protected; .) |
|
| "Friend" (. m |= Modifiers.Internal; .) |
|
| "Private" (. m |= Modifiers.Private; .) |
|
} |
|
. |
|
*/ |
|
|
|
#endregion |
|
|
|
#region Global |
|
|
|
#region OptionStatement |
|
|
|
OptionStatement<auto> = |
|
"Option"<Roles.Keyword> ( |
|
"Explicit"<Ast.OptionStatement.OptionTypeRole> (. result.OptionType = OptionType.Explicit; .) [ OnOff<result> ] |
|
| "Strict"<Ast.OptionStatement.OptionTypeRole> (. result.OptionType = OptionType.Strict; .) [ OnOff<result> ] |
|
| "Infer"<Ast.OptionStatement.OptionTypeRole> (. result.OptionType = OptionType.Infer; .) [ OnOff<result> ] |
|
| "Compare"<Ast.OptionStatement.OptionTypeRole> (. result.OptionType = OptionType.Compare; .) BinaryText<result> |
|
) StatementTerminator |
|
. |
|
|
|
OnOff<OptionStatement os> = |
|
"On"<Ast.OptionStatement.OptionValueRole> (. os.OptionValue = OptionValue.On; .) |
|
| "Off"<Ast.OptionStatement.OptionValueRole> (. os.OptionValue = OptionValue.Off; .) |
|
. |
|
|
|
BinaryText<OptionStatement os> = |
|
"Text"<Ast.OptionStatement.OptionValueRole> (. os.OptionValue = OptionValue.Text; .) |
|
| "Binary"<Ast.OptionStatement.OptionValueRole> (. os.OptionValue = OptionValue.Binary; .) |
|
. |
|
|
|
#endregion |
|
|
|
#region ImportsStatement |
|
/* |
|
ImportsStatement<auto> = |
|
"Imports"<Roles.Keyword> ImportsClause { "," ImportsClause } StatementTerminator |
|
. |
|
|
|
ImportsClause = |
|
AliasImportsClause<Ast.ImportsStatement.ImportsClauseRole> | |
|
MemberImportsClause<Ast.ImportsStatement.ImportsClauseRole> | |
|
XmlNamespaceImportsClause<Ast.ImportsStatement.ImportsClauseRole> . |
|
|
|
AliasImportsClause<auto> = |
|
// Type characters are not allowed in identifiers here |
|
Identifier (. result.Name = t.val; .) "=" TypeName<out alias> (. result.Alias = alias; .) |
|
. |
|
|
|
MemberImportsClause<auto> = |
|
TypeName<out member> (. result.Member = member; .) |
|
. |
|
|
|
XmlNamespaceImportsClause<auto> = |
|
XmlOpenTag<Roles.XmlOpenTag> ident<Roles.XmlIdentifier> "="<Roles.Assign> LiteralString<Roles.XmlLiteralString> XmlCloseTag<Roles.XmlCloseTag> |
|
. |
|
*/ |
|
#endregion |
|
|
|
#endregion |
|
|
|
END VB .
|
|
|