diff --git a/src/Libraries/NRefactory/ICSharpCode.NRefactory/Utils/GraphVizGraph.cs b/src/Libraries/NRefactory/ICSharpCode.NRefactory/Utils/GraphVizGraph.cs index 77953349a9..880a4c2dfd 100644 --- a/src/Libraries/NRefactory/ICSharpCode.NRefactory/Utils/GraphVizGraph.cs +++ b/src/Libraries/NRefactory/ICSharpCode.NRefactory/Utils/GraphVizGraph.cs @@ -22,7 +22,6 @@ using System.Diagnostics; using System.Globalization; using System.IO; using System.Text.RegularExpressions; -using System.Threading; namespace ICSharpCode.NRefactory.Utils { @@ -67,11 +66,8 @@ namespace ICSharpCode.NRefactory.Utils name = name.Replace(c, '-'); string fileName = name != null ? Path.Combine(Path.GetTempPath(), name) : Path.GetTempFileName(); Save(fileName + ".gv"); - new Thread(new ThreadStart( - delegate { - Process.Start("dot", "\"" + fileName + ".gv\" -Tpng -o \"" + fileName + ".png\"").WaitForExit(); - Process.Start(fileName + ".png"); - })).Start(); + Process.Start("dot", "\"" + fileName + ".gv\" -Tpng -o \"" + fileName + ".png\"").WaitForExit(); + Process.Start(fileName + ".png"); } static string Escape(string text) diff --git a/src/Libraries/NRefactory/Project/Src/Lexer/AbstractLexer.cs b/src/Libraries/NRefactory/Project/Src/Lexer/AbstractLexer.cs deleted file mode 100644 index 688c7e95f6..0000000000 --- a/src/Libraries/NRefactory/Project/Src/Lexer/AbstractLexer.cs +++ /dev/null @@ -1,386 +0,0 @@ -// Copyright (c) AlphaSierraPapa for the SharpDevelop Team (for details please see \doc\copyright.txt) -// This code is distributed under the GNU LGPL (for details please see \doc\license.txt) - -using System; -using System.Collections; -using System.Collections.Generic; -using System.IO; -using System.Text; - -namespace ICSharpCode.NRefactory.Parser -{ - /// - /// This is the base class for the C# and VB.NET lexer - /// - [System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1708:IdentifiersShouldDifferByMoreThanCase")] - internal abstract class AbstractLexer : ILexer - { - LATextReader reader; - int col = 1; - int line = 1; - - protected Errors errors = new Errors(); - - protected Token lastToken = null; - protected Token curToken = null; - protected Token peekToken = null; - - string[] specialCommentTags = null; - protected Hashtable specialCommentHash = null; - List tagComments = new List(); - protected StringBuilder sb = new StringBuilder(); - protected SpecialTracker specialTracker = new SpecialTracker(); - - // used for the original value of strings (with escape sequences). - protected StringBuilder originalValue = new StringBuilder(); - - public bool SkipAllComments { get; set; } - public bool EvaluateConditionalCompilation { get; set; } - public virtual IDictionary ConditionalCompilationSymbols { - get { throw new NotSupportedException(); } - } - - protected static IEnumerable GetSymbols (string symbols) - { - if (!string.IsNullOrEmpty(symbols)) { - foreach (string symbol in symbols.Split (';', ' ', '\t')) { - string s = symbol.Trim (); - if (s.Length == 0) - continue; - yield return s; - } - } - } - - public virtual void SetConditionalCompilationSymbols (string symbols) - { - throw new NotSupportedException (); - } - - protected int Line { - get { - return line; - } - } - protected int Col { - get { - return col; - } - } - - protected bool recordRead = false; - protected StringBuilder recordedText = new StringBuilder (); - - protected int ReaderRead() - { - int val = reader.Read(); - if (recordRead && val >= 0) - recordedText.Append ((char)val); - if ((val == '\r' && reader.Peek() != '\n') || val == '\n') { - ++line; - col = 1; - LineBreak(); - } else if (val >= 0) { - col++; - } - return val; - } - - protected int ReaderPeek() - { - return reader.Peek(); - } - - protected int ReaderPeek(int step) - { - return reader.Peek(step); - } - - protected void ReaderSkip(int steps) - { - for (int i = 0; i < steps; i++) { - ReaderRead(); - } - } - - protected string ReaderPeekString(int length) - { - StringBuilder builder = new StringBuilder(); - - for (int i = 0; i < length; i++) { - int peek = ReaderPeek(i); - if (peek != -1) - builder.Append((char)peek); - } - - return builder.ToString(); - } - - public void SetInitialLocation(Location location) - { - if (lastToken != null || curToken != null || peekToken != null) - throw new InvalidOperationException(); - this.line = location.Line; - this.col = location.Column; - } - - public Errors Errors { - get { - return errors; - } - } - - /// - /// Returns the comments that had been read and containing tag key words. - /// - public List TagComments { - get { - return tagComments; - } - } - - public SpecialTracker SpecialTracker { - get { - return specialTracker; - } - } - - /// - /// Special comment tags are tags like TODO, HACK or UNDONE which are read by the lexer and stored in . - /// - public string[] SpecialCommentTags { - get { - return specialCommentTags; - } - set { - specialCommentTags = value; - specialCommentHash = null; - if (specialCommentTags != null && specialCommentTags.Length > 0) { - specialCommentHash = new Hashtable(); - foreach (string str in specialCommentTags) { - specialCommentHash.Add(str, null); - } - } - } - } - - /// - /// The current Token. - /// - public Token Token { - get { -// Console.WriteLine("Call to Token"); - return lastToken; - } - } - - /// - /// The next Token (The after call) . - /// - public Token LookAhead { - get { -// Console.WriteLine("Call to LookAhead"); - return curToken; - } - } - - /// - /// Constructor for the abstract lexer class. - /// - protected AbstractLexer(TextReader reader) - { - this.reader = new LATextReader(reader); - } - - protected AbstractLexer(TextReader reader, LexerMemento state) - : this(reader) - { - SetInitialLocation(new Location(state.Column, state.Line)); - lastToken = new Token(state.PrevTokenKind, 0, 0); - } - - #region System.IDisposable interface implementation - public virtual void Dispose() - { - reader.Close(); - reader = null; - errors = null; - lastToken = curToken = peekToken = null; - specialCommentHash = null; - tagComments = null; - sb = originalValue = null; - } - #endregion - - /// - /// Must be called before a peek operation. - /// - public void StartPeek() - { - peekToken = curToken; - } - - /// - /// Gives back the next token. A second call to Peek() gives the next token after the last call for Peek() and so on. - /// - /// An object. - public Token Peek() - { -// Console.WriteLine("Call to Peek"); - if (peekToken.next == null) { - peekToken.next = Next(); - } - peekToken = peekToken.next; - return peekToken; - } - - /// - /// Reads the next token and gives it back. - /// - /// An object. - public virtual Token NextToken() - { - if (curToken == null) { - curToken = Next(); - //Console.WriteLine(ICSharpCode.NRefactory.Parser.CSharp.Tokens.GetTokenString(curToken.kind) + " -- " + curToken.val + "(" + curToken.kind + ")"); - return curToken; - } - - lastToken = curToken; - - if (curToken.next == null) { - curToken.next = Next(); - } - - curToken = curToken.next; - //Console.WriteLine(ICSharpCode.NRefactory.Parser.CSharp.Tokens.GetTokenString(curToken.kind) + " -- " + curToken.val + "(" + curToken.kind + ")"); - return curToken; - } - - protected abstract Token Next(); - - protected static bool IsIdentifierPart(int ch) - { - if (ch == 95) return true; // 95 = '_' - if (ch == -1) return false; - return char.IsLetterOrDigit((char)ch); // accept unicode letters - } - - protected static bool IsHex(char digit) - { - return Char.IsDigit(digit) || ('A' <= digit && digit <= 'F') || ('a' <= digit && digit <= 'f'); - } - - protected int GetHexNumber(char digit) - { - if (Char.IsDigit(digit)) { - return digit - '0'; - } - if ('A' <= digit && digit <= 'F') { - return digit - 'A' + 0xA; - } - if ('a' <= digit && digit <= 'f') { - return digit - 'a' + 0xA; - } - errors.Error(line, col, "Invalid hex number '" + digit + "'"); - return 0; - } - protected Location lastLineEnd = new Location (1, 1); - protected Location curLineEnd = new Location (1, 1); - protected void LineBreak () - { - lastLineEnd = curLineEnd; - curLineEnd = new Location (col - 1, line); - } - protected bool HandleLineEnd(char ch) - { - // Handle MS-DOS or MacOS line ends. - if (ch == '\r') { - if (reader.Peek() == '\n') { // MS-DOS line end '\r\n' - ReaderRead(); // LineBreak (); called by ReaderRead (); - return true; - } else { // assume MacOS line end which is '\r' - LineBreak (); - return true; - } - } - if (ch == '\n') { - LineBreak (); - return true; - } - return false; - } - - protected void SkipToEndOfLine() - { - int nextChar; - while ((nextChar = reader.Read()) != -1) { - if (nextChar == '\r') { - if (reader.Peek() == '\n') - reader.Read(); - nextChar = '\n'; - } - if (nextChar == '\n') { - ++line; - col = 1; - break; - } - } - } - - protected string ReadToEndOfLine() - { - sb.Length = 0; - int nextChar; - while ((nextChar = reader.Read()) != -1) { - char ch = (char)nextChar; - - if (nextChar == '\r') { - if (reader.Peek() == '\n') - reader.Read(); - nextChar = '\n'; - } - // Return read string, if EOL is reached - if (nextChar == '\n') { - ++line; - col = 1; - return sb.ToString(); - } - - sb.Append(ch); - } - - // Got EOF before EOL - string retStr = sb.ToString(); - col += retStr.Length; - return retStr; - } - - /// - /// Skips to the end of the current code block. - /// For this, the lexer must have read the next token AFTER the token opening the - /// block (so that Lexer.Token is the block-opening token, not Lexer.LookAhead). - /// After the call, Lexer.LookAhead will be the block-closing token. - /// - public abstract void SkipCurrentBlock(int targetToken); - - public event EventHandler SavepointReached; - - protected virtual void OnSavepointReached(SavepointEventArgs e) - { - if (SavepointReached != null) { - SavepointReached(this, e); - } - } - - public virtual LexerMemento Export() - { - throw new NotSupportedException(); - } - - public virtual void SetInitialContext(SnippetType context) - { - throw new NotSupportedException(); - } - } -} diff --git a/src/Libraries/NRefactory/Project/Src/Parser/VBNet/Parser.cs b/src/Libraries/NRefactory/Project/Src/Parser/VBNet/Parser.cs deleted file mode 100644 index 6fd33cca4f..0000000000 --- a/src/Libraries/NRefactory/Project/Src/Parser/VBNet/Parser.cs +++ /dev/null @@ -1,8149 +0,0 @@ - -#line 1 "VBNET.ATG" -using System.Collections; -using System.Collections.Generic; -using System.Collections.Specialized; -using System.Linq; -using System.Text; -using ICSharpCode.NRefactory.Ast; -using ICSharpCode.NRefactory.Parser.VB; -using ASTAttribute = ICSharpCode.NRefactory.Ast.Attribute; -/* - Parser.frame file for NRefactory. - */ -using System; -using System.Reflection; - -namespace ICSharpCode.NRefactory.Parser.VB { - - - -partial class Parser : AbstractParser -{ - const int maxT = 238; - - const bool T = true; - const bool x = false; - - -#line 13 "VBNET.ATG" - - -/* - -*/ - - void VBNET() { - -#line 263 "VBNET.ATG" - lexer.NextToken(); // get the first token - compilationUnit = new CompilationUnit(); - BlockStart(compilationUnit); - - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - while (la.kind == 173) { - OptionStmt(); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - while (la.kind == 137) { - ImportsStmt(); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - while ( -#line 271 "VBNET.ATG" -IsGlobalAttrTarget()) { - GlobalAttributeSection(); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - while (StartOf(1)) { - NamespaceMemberDecl(); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - Expect(0); - } - - void EndOfStmt() { - while (!(la.kind == 0 || la.kind == 1 || la.kind == 21)) {SynErr(239); lexer.NextToken(); } - if (la.kind == 1) { - lexer.NextToken(); - } else if (la.kind == 21) { - lexer.NextToken(); - } else SynErr(240); - } - - void OptionStmt() { - -#line 276 "VBNET.ATG" - INode node = null; bool val = true; - Expect(173); - -#line 277 "VBNET.ATG" - Location startPos = t.Location; - if (la.kind == 121) { - lexer.NextToken(); - if (la.kind == 170 || la.kind == 171) { - OptionValue( -#line 279 "VBNET.ATG" -ref val); - } - -#line 280 "VBNET.ATG" - node = new OptionDeclaration(OptionType.Explicit, val); - } else if (la.kind == 207) { - lexer.NextToken(); - if (la.kind == 170 || la.kind == 171) { - OptionValue( -#line 282 "VBNET.ATG" -ref val); - } - -#line 283 "VBNET.ATG" - node = new OptionDeclaration(OptionType.Strict, val); - } else if (la.kind == 87) { - lexer.NextToken(); - if (la.kind == 67) { - lexer.NextToken(); - -#line 285 "VBNET.ATG" - node = new OptionDeclaration(OptionType.CompareBinary, val); - } else if (la.kind == 213) { - lexer.NextToken(); - -#line 286 "VBNET.ATG" - node = new OptionDeclaration(OptionType.CompareText, val); - } else SynErr(241); - } else if (la.kind == 139) { - lexer.NextToken(); - if (la.kind == 170 || la.kind == 171) { - OptionValue( -#line 289 "VBNET.ATG" -ref val); - } - -#line 290 "VBNET.ATG" - node = new OptionDeclaration(OptionType.Infer, val); - } else SynErr(242); - EndOfStmt(); - -#line 294 "VBNET.ATG" - if (node != null) { - node.StartLocation = startPos; - node.EndLocation = t.Location; - AddChild(node); - } - - } - - void ImportsStmt() { - -#line 315 "VBNET.ATG" - List usings = new List(); - - Expect(137); - -#line 319 "VBNET.ATG" - Location startPos = t.Location; - Using u; - - ImportClause( -#line 322 "VBNET.ATG" -out u); - -#line 322 "VBNET.ATG" - if (u != null) { usings.Add(u); } - while (la.kind == 22) { - lexer.NextToken(); - ImportClause( -#line 324 "VBNET.ATG" -out u); - -#line 324 "VBNET.ATG" - if (u != null) { usings.Add(u); } - } - EndOfStmt(); - -#line 328 "VBNET.ATG" - UsingDeclaration usingDeclaration = new UsingDeclaration(usings); - usingDeclaration.StartLocation = startPos; - usingDeclaration.EndLocation = t.Location; - AddChild(usingDeclaration); - - } - - void GlobalAttributeSection() { - Expect(40); - -#line 2826 "VBNET.ATG" - Location startPos = t.Location; - if (la.kind == 65) { - lexer.NextToken(); - } else if (la.kind == 155) { - lexer.NextToken(); - } else SynErr(243); - -#line 2828 "VBNET.ATG" - string attributeTarget = t.val != null ? t.val.ToLower(System.Globalization.CultureInfo.InvariantCulture) : null; - List attributes = new List(); - ASTAttribute attribute; - - Expect(21); - Attribute( -#line 2832 "VBNET.ATG" -out attribute); - -#line 2832 "VBNET.ATG" - attributes.Add(attribute); - while ( -#line 2833 "VBNET.ATG" -NotFinalComma()) { - if (la.kind == 22) { - lexer.NextToken(); - if (la.kind == 65) { - lexer.NextToken(); - } else if (la.kind == 155) { - lexer.NextToken(); - } else SynErr(244); - Expect(21); - } - Attribute( -#line 2833 "VBNET.ATG" -out attribute); - -#line 2833 "VBNET.ATG" - attributes.Add(attribute); - } - if (la.kind == 22) { - lexer.NextToken(); - } - Expect(39); - EndOfStmt(); - -#line 2838 "VBNET.ATG" - AttributeSection section = new AttributeSection { - AttributeTarget = attributeTarget, - Attributes = attributes, - StartLocation = startPos, - EndLocation = t.EndLocation - }; - AddChild(section); - - } - - void NamespaceMemberDecl() { - -#line 361 "VBNET.ATG" - ModifierList m = new ModifierList(); - AttributeSection section; - List attributes = new List(); - string qualident; - - if (la.kind == 160) { - lexer.NextToken(); - -#line 368 "VBNET.ATG" - Location startPos = t.Location; - - Qualident( -#line 370 "VBNET.ATG" -out qualident); - -#line 372 "VBNET.ATG" - INode node = new NamespaceDeclaration(qualident); - node.StartLocation = startPos; - AddChild(node); - BlockStart(node); - - EndOfStmt(); - NamespaceBody(); - -#line 380 "VBNET.ATG" - node.EndLocation = t.Location; - BlockEnd(); - - } else if (StartOf(2)) { - while (la.kind == 40) { - AttributeSection( -#line 384 "VBNET.ATG" -out section); - -#line 384 "VBNET.ATG" - attributes.Add(section); - } - while (StartOf(3)) { - TypeModifier( -#line 385 "VBNET.ATG" -m); - } - NonModuleDeclaration( -#line 385 "VBNET.ATG" -m, attributes); - } else SynErr(245); - } - - void OptionValue( -#line 302 "VBNET.ATG" -ref bool val) { - if (la.kind == 171) { - lexer.NextToken(); - -#line 304 "VBNET.ATG" - val = true; - } else if (la.kind == 170) { - lexer.NextToken(); - -#line 306 "VBNET.ATG" - val = false; - } else SynErr(246); - } - - void ImportClause( -#line 335 "VBNET.ATG" -out Using u) { - -#line 337 "VBNET.ATG" - string qualident = null; - TypeReference aliasedType = null; - u = null; - - if (StartOf(4)) { - Qualident( -#line 342 "VBNET.ATG" -out qualident); - if (la.kind == 20) { - lexer.NextToken(); - TypeName( -#line 343 "VBNET.ATG" -out aliasedType); - } - -#line 345 "VBNET.ATG" - if (qualident != null && qualident.Length > 0) { - if (aliasedType != null) { - u = new Using(qualident, aliasedType); - } else { - u = new Using(qualident); - } - } - - } else if (la.kind == 10) { - -#line 353 "VBNET.ATG" - string prefix = null; - lexer.NextToken(); - Identifier(); - -#line 354 "VBNET.ATG" - prefix = t.val; - Expect(20); - Expect(3); - -#line 354 "VBNET.ATG" - u = new Using(t.literalValue as string, prefix); - Expect(11); - } else SynErr(247); - } - - void Qualident( -#line 3626 "VBNET.ATG" -out string qualident) { - -#line 3628 "VBNET.ATG" - string name; - qualidentBuilder.Length = 0; - - Identifier(); - -#line 3632 "VBNET.ATG" - qualidentBuilder.Append(t.val); - while ( -#line 3633 "VBNET.ATG" -DotAndIdentOrKw()) { - Expect(26); - IdentifierOrKeyword( -#line 3633 "VBNET.ATG" -out name); - -#line 3633 "VBNET.ATG" - qualidentBuilder.Append('.'); qualidentBuilder.Append(name); - } - -#line 3635 "VBNET.ATG" - qualident = qualidentBuilder.ToString(); - } - - void TypeName( -#line 2697 "VBNET.ATG" -out TypeReference typeref) { - -#line 2698 "VBNET.ATG" - ArrayList rank = null; Location startLocation = la.Location; - NonArrayTypeName( -#line 2700 "VBNET.ATG" -out typeref, false); - ArrayTypeModifiers( -#line 2701 "VBNET.ATG" -out rank); - -#line 2703 "VBNET.ATG" - if (typeref != null) { - if (rank != null) { - typeref.RankSpecifier = (int[])rank.ToArray(typeof(int)); - } - typeref.StartLocation = startLocation; - typeref.EndLocation = t.EndLocation; - } - - } - - void Identifier() { - if (StartOf(5)) { - IdentifierForFieldDeclaration(); - } else if (la.kind == 98) { - lexer.NextToken(); - } else SynErr(248); - } - - void NamespaceBody() { - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - while (StartOf(1)) { - NamespaceMemberDecl(); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - Expect(113); - Expect(160); - EndOfStmt(); - } - - void AttributeSection( -#line 2904 "VBNET.ATG" -out AttributeSection section) { - -#line 2906 "VBNET.ATG" - string attributeTarget = ""; - List attributes = new List(); - ASTAttribute attribute; - Location startLocation = la.Location; - - Expect(40); - if ( -#line 2912 "VBNET.ATG" -IsLocalAttrTarget()) { - if (la.kind == 119) { - lexer.NextToken(); - -#line 2913 "VBNET.ATG" - attributeTarget = "event"; - } else if (la.kind == 195) { - lexer.NextToken(); - -#line 2914 "VBNET.ATG" - attributeTarget = "return"; - } else { - Identifier(); - -#line 2917 "VBNET.ATG" - string val = t.val.ToLower(System.Globalization.CultureInfo.InvariantCulture); - if (val != "field" || val != "method" || - val != "module" || val != "param" || - val != "property" || val != "type") - Error("attribute target specifier (event, return, field," + - "method, module, param, property, or type) expected"); - attributeTarget = t.val; - - } - Expect(21); - } - Attribute( -#line 2927 "VBNET.ATG" -out attribute); - -#line 2927 "VBNET.ATG" - attributes.Add(attribute); - while ( -#line 2928 "VBNET.ATG" -NotFinalComma()) { - Expect(22); - Attribute( -#line 2928 "VBNET.ATG" -out attribute); - -#line 2928 "VBNET.ATG" - attributes.Add(attribute); - } - if (la.kind == 22) { - lexer.NextToken(); - } - Expect(39); - -#line 2932 "VBNET.ATG" - section = new AttributeSection { - AttributeTarget = attributeTarget, - Attributes = attributes, - StartLocation = startLocation, - EndLocation = t.EndLocation - }; - - } - - void TypeModifier( -#line 3711 "VBNET.ATG" -ModifierList m) { - switch (la.kind) { - case 188: { - lexer.NextToken(); - -#line 3712 "VBNET.ATG" - m.Add(Modifiers.Public, t.Location); - break; - } - case 187: { - lexer.NextToken(); - -#line 3713 "VBNET.ATG" - m.Add(Modifiers.Protected, t.Location); - break; - } - case 125: { - lexer.NextToken(); - -#line 3714 "VBNET.ATG" - m.Add(Modifiers.Internal, t.Location); - break; - } - case 185: { - lexer.NextToken(); - -#line 3715 "VBNET.ATG" - m.Add(Modifiers.Private, t.Location); - break; - } - case 200: { - lexer.NextToken(); - -#line 3716 "VBNET.ATG" - m.Add(Modifiers.Static, t.Location); - break; - } - case 199: { - lexer.NextToken(); - -#line 3717 "VBNET.ATG" - m.Add(Modifiers.New, t.Location); - break; - } - case 156: { - lexer.NextToken(); - -#line 3718 "VBNET.ATG" - m.Add(Modifiers.Abstract, t.Location); - break; - } - case 166: { - lexer.NextToken(); - -#line 3719 "VBNET.ATG" - m.Add(Modifiers.Sealed, t.Location); - break; - } - case 183: { - lexer.NextToken(); - -#line 3720 "VBNET.ATG" - m.Add(Modifiers.Partial, t.Location); - break; - } - default: SynErr(249); break; - } - } - - void NonModuleDeclaration( -#line 455 "VBNET.ATG" -ModifierList m, List attributes) { - -#line 457 "VBNET.ATG" - TypeReference typeRef = null; - List baseInterfaces = null; - - switch (la.kind) { - case 84: { - -#line 460 "VBNET.ATG" - m.Check(Modifiers.Classes); - lexer.NextToken(); - -#line 463 "VBNET.ATG" - TypeDeclaration newType = new TypeDeclaration(m.Modifier, attributes); - newType.StartLocation = t.Location; - AddChild(newType); - BlockStart(newType); - - newType.Type = ClassType.Class; - - Identifier(); - -#line 470 "VBNET.ATG" - newType.Name = t.val; - TypeParameterList( -#line 471 "VBNET.ATG" -newType.Templates); - EndOfStmt(); - -#line 473 "VBNET.ATG" - newType.BodyStartLocation = t.Location; - if (la.kind == 140) { - ClassBaseType( -#line 474 "VBNET.ATG" -out typeRef); - -#line 474 "VBNET.ATG" - SafeAdd(newType, newType.BaseTypes, typeRef); - } - while (la.kind == 136) { - TypeImplementsClause( -#line 475 "VBNET.ATG" -out baseInterfaces); - -#line 475 "VBNET.ATG" - newType.BaseTypes.AddRange(baseInterfaces); - } - ClassBody( -#line 476 "VBNET.ATG" -newType); - Expect(113); - Expect(84); - -#line 477 "VBNET.ATG" - newType.EndLocation = t.EndLocation; - EndOfStmt(); - -#line 480 "VBNET.ATG" - BlockEnd(); - - break; - } - case 155: { - lexer.NextToken(); - -#line 484 "VBNET.ATG" - m.Check(Modifiers.VBModules); - TypeDeclaration newType = new TypeDeclaration(m.Modifier, attributes); - AddChild(newType); - BlockStart(newType); - newType.StartLocation = m.GetDeclarationLocation(t.Location); - newType.Type = ClassType.Module; - - Identifier(); - -#line 491 "VBNET.ATG" - newType.Name = t.val; - EndOfStmt(); - -#line 493 "VBNET.ATG" - newType.BodyStartLocation = t.Location; - ModuleBody( -#line 494 "VBNET.ATG" -newType); - -#line 496 "VBNET.ATG" - BlockEnd(); - - break; - } - case 209: { - lexer.NextToken(); - -#line 500 "VBNET.ATG" - m.Check(Modifiers.VBStructures); - TypeDeclaration newType = new TypeDeclaration(m.Modifier, attributes); - AddChild(newType); - BlockStart(newType); - newType.StartLocation = m.GetDeclarationLocation(t.Location); - newType.Type = ClassType.Struct; - - Identifier(); - -#line 507 "VBNET.ATG" - newType.Name = t.val; - TypeParameterList( -#line 508 "VBNET.ATG" -newType.Templates); - EndOfStmt(); - -#line 510 "VBNET.ATG" - newType.BodyStartLocation = t.Location; - while (la.kind == 136) { - TypeImplementsClause( -#line 511 "VBNET.ATG" -out baseInterfaces); - -#line 511 "VBNET.ATG" - newType.BaseTypes.AddRange(baseInterfaces); - } - StructureBody( -#line 512 "VBNET.ATG" -newType); - -#line 514 "VBNET.ATG" - BlockEnd(); - - break; - } - case 115: { - lexer.NextToken(); - -#line 519 "VBNET.ATG" - m.Check(Modifiers.VBEnums); - TypeDeclaration newType = new TypeDeclaration(m.Modifier, attributes); - newType.StartLocation = m.GetDeclarationLocation(t.Location); - AddChild(newType); - BlockStart(newType); - - newType.Type = ClassType.Enum; - - Identifier(); - -#line 527 "VBNET.ATG" - newType.Name = t.val; - if (la.kind == 63) { - lexer.NextToken(); - NonArrayTypeName( -#line 528 "VBNET.ATG" -out typeRef, false); - -#line 528 "VBNET.ATG" - SafeAdd(newType, newType.BaseTypes, typeRef); - } - EndOfStmt(); - -#line 530 "VBNET.ATG" - newType.BodyStartLocation = t.Location; - EnumBody( -#line 531 "VBNET.ATG" -newType); - -#line 533 "VBNET.ATG" - BlockEnd(); - - break; - } - case 142: { - lexer.NextToken(); - -#line 538 "VBNET.ATG" - m.Check(Modifiers.VBInterfacs); - TypeDeclaration newType = new TypeDeclaration(m.Modifier, attributes); - newType.StartLocation = m.GetDeclarationLocation(t.Location); - AddChild(newType); - BlockStart(newType); - newType.Type = ClassType.Interface; - - Identifier(); - -#line 545 "VBNET.ATG" - newType.Name = t.val; - TypeParameterList( -#line 546 "VBNET.ATG" -newType.Templates); - EndOfStmt(); - -#line 548 "VBNET.ATG" - newType.BodyStartLocation = t.Location; - while (la.kind == 140) { - InterfaceBase( -#line 549 "VBNET.ATG" -out baseInterfaces); - -#line 549 "VBNET.ATG" - newType.BaseTypes.AddRange(baseInterfaces); - } - InterfaceBody( -#line 550 "VBNET.ATG" -newType); - -#line 552 "VBNET.ATG" - BlockEnd(); - - break; - } - case 103: { - lexer.NextToken(); - -#line 557 "VBNET.ATG" - m.Check(Modifiers.VBDelegates); - DelegateDeclaration delegateDeclr = new DelegateDeclaration(m.Modifier, attributes); - delegateDeclr.ReturnType = new TypeReference("System.Void", true); - delegateDeclr.StartLocation = m.GetDeclarationLocation(t.Location); - List p = new List(); - - if (la.kind == 210) { - lexer.NextToken(); - Identifier(); - -#line 564 "VBNET.ATG" - delegateDeclr.Name = t.val; - TypeParameterList( -#line 565 "VBNET.ATG" -delegateDeclr.Templates); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 566 "VBNET.ATG" -p); - } - Expect(38); - -#line 566 "VBNET.ATG" - delegateDeclr.Parameters = p; - } - } else if (la.kind == 127) { - lexer.NextToken(); - Identifier(); - -#line 568 "VBNET.ATG" - delegateDeclr.Name = t.val; - TypeParameterList( -#line 569 "VBNET.ATG" -delegateDeclr.Templates); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 570 "VBNET.ATG" -p); - } - Expect(38); - -#line 570 "VBNET.ATG" - delegateDeclr.Parameters = p; - } - if (la.kind == 63) { - lexer.NextToken(); - -#line 571 "VBNET.ATG" - TypeReference type; - TypeName( -#line 571 "VBNET.ATG" -out type); - -#line 571 "VBNET.ATG" - delegateDeclr.ReturnType = type; - } - } else SynErr(250); - -#line 573 "VBNET.ATG" - delegateDeclr.EndLocation = t.EndLocation; - EndOfStmt(); - -#line 576 "VBNET.ATG" - AddChild(delegateDeclr); - - break; - } - default: SynErr(251); break; - } - } - - void TypeParameterList( -#line 389 "VBNET.ATG" -List templates) { - -#line 391 "VBNET.ATG" - TemplateDefinition template; - - if ( -#line 395 "VBNET.ATG" -la.kind == Tokens.OpenParenthesis && Peek(1).kind == Tokens.Of) { - lexer.NextToken(); - Expect(169); - TypeParameter( -#line 396 "VBNET.ATG" -out template); - -#line 398 "VBNET.ATG" - if (template != null) templates.Add(template); - - while (la.kind == 22) { - lexer.NextToken(); - TypeParameter( -#line 401 "VBNET.ATG" -out template); - -#line 403 "VBNET.ATG" - if (template != null) templates.Add(template); - - } - Expect(38); - } - } - - void TypeParameter( -#line 411 "VBNET.ATG" -out TemplateDefinition template) { - -#line 412 "VBNET.ATG" - VarianceModifier modifier = VarianceModifier.Invariant; Location startLocation = la.Location; - if (la.kind == 138 || la.kind == 178) { - if (la.kind == 138) { - lexer.NextToken(); - -#line 415 "VBNET.ATG" - modifier = VarianceModifier.Contravariant; - } else { - lexer.NextToken(); - -#line 415 "VBNET.ATG" - modifier = VarianceModifier.Covariant; - } - } - Identifier(); - -#line 415 "VBNET.ATG" - template = new TemplateDefinition(t.val, null) { VarianceModifier = modifier }; - if (la.kind == 63) { - TypeParameterConstraints( -#line 416 "VBNET.ATG" -template); - } - -#line 419 "VBNET.ATG" - if (template != null) { - template.StartLocation = startLocation; - template.EndLocation = t.EndLocation; - } - - } - - void TypeParameterConstraints( -#line 427 "VBNET.ATG" -TemplateDefinition template) { - -#line 429 "VBNET.ATG" - TypeReference constraint; - - Expect(63); - if (la.kind == 35) { - lexer.NextToken(); - TypeParameterConstraint( -#line 435 "VBNET.ATG" -out constraint); - -#line 435 "VBNET.ATG" - if (constraint != null) { template.Bases.Add(constraint); } - while (la.kind == 22) { - lexer.NextToken(); - TypeParameterConstraint( -#line 438 "VBNET.ATG" -out constraint); - -#line 438 "VBNET.ATG" - if (constraint != null) { template.Bases.Add(constraint); } - } - Expect(36); - } else if (StartOf(7)) { - TypeParameterConstraint( -#line 441 "VBNET.ATG" -out constraint); - -#line 441 "VBNET.ATG" - if (constraint != null) { template.Bases.Add(constraint); } - } else SynErr(252); - } - - void TypeParameterConstraint( -#line 445 "VBNET.ATG" -out TypeReference constraint) { - -#line 446 "VBNET.ATG" - constraint = null; Location startLocation = la.Location; - if (la.kind == 84) { - lexer.NextToken(); - -#line 448 "VBNET.ATG" - constraint = TypeReference.ClassConstraint; - } else if (la.kind == 209) { - lexer.NextToken(); - -#line 449 "VBNET.ATG" - constraint = TypeReference.StructConstraint; - } else if (la.kind == 162) { - lexer.NextToken(); - -#line 450 "VBNET.ATG" - constraint = TypeReference.NewConstraint; - } else if (StartOf(8)) { - TypeName( -#line 451 "VBNET.ATG" -out constraint); - } else SynErr(253); - } - - void ClassBaseType( -#line 797 "VBNET.ATG" -out TypeReference typeRef) { - -#line 799 "VBNET.ATG" - typeRef = null; - - Expect(140); - TypeName( -#line 802 "VBNET.ATG" -out typeRef); - EndOfStmt(); - } - - void TypeImplementsClause( -#line 1620 "VBNET.ATG" -out List baseInterfaces) { - -#line 1622 "VBNET.ATG" - baseInterfaces = new List(); - TypeReference type = null; - - Expect(136); - TypeName( -#line 1625 "VBNET.ATG" -out type); - -#line 1627 "VBNET.ATG" - if (type != null) baseInterfaces.Add(type); - - while (la.kind == 22) { - lexer.NextToken(); - TypeName( -#line 1630 "VBNET.ATG" -out type); - -#line 1631 "VBNET.ATG" - if (type != null) baseInterfaces.Add(type); - } - EndOfStmt(); - } - - void ClassBody( -#line 590 "VBNET.ATG" -TypeDeclaration newType) { - -#line 591 "VBNET.ATG" - AttributeSection section; - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - while (StartOf(9)) { - -#line 594 "VBNET.ATG" - List attributes = new List(); - ModifierList m = new ModifierList(); - - while (la.kind == 40) { - AttributeSection( -#line 597 "VBNET.ATG" -out section); - -#line 597 "VBNET.ATG" - attributes.Add(section); - } - while (StartOf(10)) { - MemberModifier( -#line 598 "VBNET.ATG" -m); - } - ClassMemberDecl( -#line 599 "VBNET.ATG" -m, attributes); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - } - - void ModuleBody( -#line 621 "VBNET.ATG" -TypeDeclaration newType) { - -#line 622 "VBNET.ATG" - AttributeSection section; - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - while (StartOf(9)) { - -#line 625 "VBNET.ATG" - List attributes = new List(); - ModifierList m = new ModifierList(); - - while (la.kind == 40) { - AttributeSection( -#line 628 "VBNET.ATG" -out section); - -#line 628 "VBNET.ATG" - attributes.Add(section); - } - while (StartOf(10)) { - MemberModifier( -#line 629 "VBNET.ATG" -m); - } - ClassMemberDecl( -#line 630 "VBNET.ATG" -m, attributes); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - Expect(113); - Expect(155); - -#line 633 "VBNET.ATG" - newType.EndLocation = t.EndLocation; - EndOfStmt(); - } - - void StructureBody( -#line 604 "VBNET.ATG" -TypeDeclaration newType) { - -#line 605 "VBNET.ATG" - AttributeSection section; - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - while (StartOf(9)) { - -#line 608 "VBNET.ATG" - List attributes = new List(); - ModifierList m = new ModifierList(); - - while (la.kind == 40) { - AttributeSection( -#line 611 "VBNET.ATG" -out section); - -#line 611 "VBNET.ATG" - attributes.Add(section); - } - while (StartOf(10)) { - MemberModifier( -#line 612 "VBNET.ATG" -m); - } - StructureMemberDecl( -#line 613 "VBNET.ATG" -m, attributes); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - Expect(113); - Expect(209); - -#line 616 "VBNET.ATG" - newType.EndLocation = t.EndLocation; - EndOfStmt(); - } - - void NonArrayTypeName( -#line 2725 "VBNET.ATG" -out TypeReference typeref, bool canBeUnbound) { - -#line 2727 "VBNET.ATG" - string name; - typeref = null; - bool isGlobal = false; - - if (StartOf(11)) { - if (la.kind == 130) { - lexer.NextToken(); - Expect(26); - -#line 2732 "VBNET.ATG" - isGlobal = true; - } - QualIdentAndTypeArguments( -#line 2733 "VBNET.ATG" -out typeref, canBeUnbound); - -#line 2734 "VBNET.ATG" - typeref.IsGlobal = isGlobal; - while (la.kind == 26) { - lexer.NextToken(); - -#line 2735 "VBNET.ATG" - TypeReference nestedTypeRef; - QualIdentAndTypeArguments( -#line 2736 "VBNET.ATG" -out nestedTypeRef, canBeUnbound); - -#line 2737 "VBNET.ATG" - typeref = new InnerClassTypeReference(typeref, nestedTypeRef.Type, nestedTypeRef.GenericTypes); - } - } else if (la.kind == 168) { - lexer.NextToken(); - -#line 2740 "VBNET.ATG" - typeref = new TypeReference("System.Object", true); - if (la.kind == 33) { - lexer.NextToken(); - -#line 2744 "VBNET.ATG" - List typeArguments = new List(1); - if (typeref != null) typeArguments.Add(typeref); - typeref = new TypeReference("System.Nullable", typeArguments) { IsKeyword = true }; - - } - } else if (StartOf(12)) { - PrimitiveTypeName( -#line 2750 "VBNET.ATG" -out name); - -#line 2750 "VBNET.ATG" - typeref = new TypeReference(name, true); - if (la.kind == 33) { - lexer.NextToken(); - -#line 2754 "VBNET.ATG" - List typeArguments = new List(1); - if (typeref != null) typeArguments.Add(typeref); - typeref = new TypeReference("System.Nullable", typeArguments) { IsKeyword = true }; - - } - } else SynErr(254); - } - - void EnumBody( -#line 637 "VBNET.ATG" -TypeDeclaration newType) { - -#line 638 "VBNET.ATG" - FieldDeclaration f; - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - while (StartOf(13)) { - EnumMemberDecl( -#line 641 "VBNET.ATG" -out f); - -#line 643 "VBNET.ATG" - AddChild(f); - - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - Expect(113); - Expect(115); - -#line 647 "VBNET.ATG" - newType.EndLocation = t.EndLocation; - EndOfStmt(); - } - - void InterfaceBase( -#line 1605 "VBNET.ATG" -out List bases) { - -#line 1607 "VBNET.ATG" - TypeReference type; - bases = new List(); - - Expect(140); - TypeName( -#line 1611 "VBNET.ATG" -out type); - -#line 1611 "VBNET.ATG" - if (type != null) bases.Add(type); - while (la.kind == 22) { - lexer.NextToken(); - TypeName( -#line 1614 "VBNET.ATG" -out type); - -#line 1614 "VBNET.ATG" - if (type != null) bases.Add(type); - } - EndOfStmt(); - } - - void InterfaceBody( -#line 651 "VBNET.ATG" -TypeDeclaration newType) { - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - while (StartOf(14)) { - InterfaceMemberDecl(); - while (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - } - Expect(113); - Expect(142); - -#line 657 "VBNET.ATG" - newType.EndLocation = t.EndLocation; - EndOfStmt(); - } - - void FormalParameterList( -#line 2942 "VBNET.ATG" -List parameter) { - -#line 2943 "VBNET.ATG" - ParameterDeclarationExpression p; - FormalParameter( -#line 2945 "VBNET.ATG" -out p); - -#line 2945 "VBNET.ATG" - if (p != null) parameter.Add(p); - while (la.kind == 22) { - lexer.NextToken(); - FormalParameter( -#line 2947 "VBNET.ATG" -out p); - -#line 2947 "VBNET.ATG" - if (p != null) parameter.Add(p); - } - } - - void MemberModifier( -#line 3723 "VBNET.ATG" -ModifierList m) { - switch (la.kind) { - case 156: { - lexer.NextToken(); - -#line 3724 "VBNET.ATG" - m.Add(Modifiers.Abstract, t.Location); - break; - } - case 102: { - lexer.NextToken(); - -#line 3725 "VBNET.ATG" - m.Add(Modifiers.Default, t.Location); - break; - } - case 125: { - lexer.NextToken(); - -#line 3726 "VBNET.ATG" - m.Add(Modifiers.Internal, t.Location); - break; - } - case 199: { - lexer.NextToken(); - -#line 3727 "VBNET.ATG" - m.Add(Modifiers.New, t.Location); - break; - } - case 181: { - lexer.NextToken(); - -#line 3728 "VBNET.ATG" - m.Add(Modifiers.Override, t.Location); - break; - } - case 157: { - lexer.NextToken(); - -#line 3729 "VBNET.ATG" - m.Add(Modifiers.Abstract, t.Location); - break; - } - case 185: { - lexer.NextToken(); - -#line 3730 "VBNET.ATG" - m.Add(Modifiers.Private, t.Location); - break; - } - case 187: { - lexer.NextToken(); - -#line 3731 "VBNET.ATG" - m.Add(Modifiers.Protected, t.Location); - break; - } - case 188: { - lexer.NextToken(); - -#line 3732 "VBNET.ATG" - m.Add(Modifiers.Public, t.Location); - break; - } - case 166: { - lexer.NextToken(); - -#line 3733 "VBNET.ATG" - m.Add(Modifiers.Sealed, t.Location); - break; - } - case 167: { - lexer.NextToken(); - -#line 3734 "VBNET.ATG" - m.Add(Modifiers.Sealed, t.Location); - break; - } - case 200: { - lexer.NextToken(); - -#line 3735 "VBNET.ATG" - m.Add(Modifiers.Static, t.Location); - break; - } - case 180: { - lexer.NextToken(); - -#line 3736 "VBNET.ATG" - m.Add(Modifiers.Virtual, t.Location); - break; - } - case 179: { - lexer.NextToken(); - -#line 3737 "VBNET.ATG" - m.Add(Modifiers.Overloads, t.Location); - break; - } - case 190: { - lexer.NextToken(); - -#line 3738 "VBNET.ATG" - m.Add(Modifiers.ReadOnly, t.Location); - break; - } - case 235: { - lexer.NextToken(); - -#line 3739 "VBNET.ATG" - m.Add(Modifiers.WriteOnly, t.Location); - break; - } - case 234: { - lexer.NextToken(); - -#line 3740 "VBNET.ATG" - m.Add(Modifiers.WithEvents, t.Location); - break; - } - case 105: { - lexer.NextToken(); - -#line 3741 "VBNET.ATG" - m.Add(Modifiers.Dim, t.Location); - break; - } - case 183: { - lexer.NextToken(); - -#line 3742 "VBNET.ATG" - m.Add(Modifiers.Partial, t.Location); - break; - } - default: SynErr(255); break; - } - } - - void ClassMemberDecl( -#line 793 "VBNET.ATG" -ModifierList m, List attributes) { - StructureMemberDecl( -#line 794 "VBNET.ATG" -m, attributes); - } - - void StructureMemberDecl( -#line 807 "VBNET.ATG" -ModifierList m, List attributes) { - -#line 809 "VBNET.ATG" - TypeReference type = null; - List p = new List(); - Statement stmt = null; - List variableDeclarators = new List(); - List templates = new List(); - - switch (la.kind) { - case 84: case 103: case 115: case 142: case 155: case 209: { - NonModuleDeclaration( -#line 816 "VBNET.ATG" -m, attributes); - break; - } - case 210: { - lexer.NextToken(); - -#line 820 "VBNET.ATG" - Location startPos = t.Location; - - if (StartOf(4)) { - -#line 824 "VBNET.ATG" - string name = String.Empty; - MethodDeclaration methodDeclaration; List handlesClause = null; - List implementsClause = null; - - Identifier(); - -#line 830 "VBNET.ATG" - name = t.val; - m.Check(Modifiers.VBMethods); - - TypeParameterList( -#line 833 "VBNET.ATG" -templates); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 834 "VBNET.ATG" -p); - } - Expect(38); - } - if (la.kind == 134 || la.kind == 136) { - if (la.kind == 136) { - ImplementsClause( -#line 837 "VBNET.ATG" -out implementsClause); - } else { - HandlesClause( -#line 839 "VBNET.ATG" -out handlesClause); - } - } - -#line 842 "VBNET.ATG" - Location endLocation = t.EndLocation; - if ( -#line 845 "VBNET.ATG" -IsMustOverride(m)) { - EndOfStmt(); - -#line 848 "VBNET.ATG" - methodDeclaration = new MethodDeclaration { - Name = name, Modifier = m.Modifier, Parameters = p, Attributes = attributes, - StartLocation = m.GetDeclarationLocation(startPos), EndLocation = endLocation, - TypeReference = new TypeReference("System.Void", true), - Templates = templates, - HandlesClause = handlesClause, - InterfaceImplementations = implementsClause - }; - AddChild(methodDeclaration); - - } else if (la.kind == 1) { - lexer.NextToken(); - -#line 861 "VBNET.ATG" - methodDeclaration = new MethodDeclaration { - Name = name, Modifier = m.Modifier, Parameters = p, Attributes = attributes, - StartLocation = m.GetDeclarationLocation(startPos), EndLocation = endLocation, - TypeReference = new TypeReference("System.Void", true), - Templates = templates, - HandlesClause = handlesClause, - InterfaceImplementations = implementsClause - }; - AddChild(methodDeclaration); - - -#line 872 "VBNET.ATG" - if (ParseMethodBodies) { - Block( -#line 873 "VBNET.ATG" -out stmt); - Expect(113); - Expect(210); - -#line 875 "VBNET.ATG" - } else { - // don't parse method body - lexer.SkipCurrentBlock(Tokens.Sub); stmt = new BlockStatement(); - } - - -#line 881 "VBNET.ATG" - methodDeclaration.Body = (BlockStatement)stmt; - -#line 882 "VBNET.ATG" - methodDeclaration.Body.EndLocation = t.EndLocation; - EndOfStmt(); - } else SynErr(256); - } else if (la.kind == 162) { - lexer.NextToken(); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 886 "VBNET.ATG" -p); - } - Expect(38); - } - -#line 887 "VBNET.ATG" - m.Check(Modifiers.Constructors); - -#line 888 "VBNET.ATG" - Location constructorEndLocation = t.EndLocation; - Expect(1); - -#line 891 "VBNET.ATG" - if (ParseMethodBodies) { - Block( -#line 892 "VBNET.ATG" -out stmt); - Expect(113); - Expect(210); - -#line 894 "VBNET.ATG" - } else { - // don't parse method body - lexer.SkipCurrentBlock(Tokens.Sub); stmt = new BlockStatement(); - } - - -#line 900 "VBNET.ATG" - Location endLocation = t.EndLocation; - EndOfStmt(); - -#line 903 "VBNET.ATG" - ConstructorDeclaration cd = new ConstructorDeclaration("New", m.Modifier, p, attributes); - cd.StartLocation = m.GetDeclarationLocation(startPos); - cd.EndLocation = constructorEndLocation; - cd.Body = (BlockStatement)stmt; - cd.Body.EndLocation = endLocation; - AddChild(cd); - - } else SynErr(257); - break; - } - case 127: { - lexer.NextToken(); - -#line 915 "VBNET.ATG" - m.Check(Modifiers.VBMethods); - string name = String.Empty; - Location startPos = t.Location; - MethodDeclaration methodDeclaration;List handlesClause = null; - List implementsClause = null; - AttributeSection returnTypeAttributeSection = null; - - Identifier(); - -#line 922 "VBNET.ATG" - name = t.val; - TypeParameterList( -#line 923 "VBNET.ATG" -templates); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 924 "VBNET.ATG" -p); - } - Expect(38); - } - if (la.kind == 63) { - lexer.NextToken(); - while (la.kind == 40) { - AttributeSection( -#line 926 "VBNET.ATG" -out returnTypeAttributeSection); - -#line 928 "VBNET.ATG" - if (returnTypeAttributeSection != null) { - returnTypeAttributeSection.AttributeTarget = "return"; - attributes.Add(returnTypeAttributeSection); - } - - } - TypeName( -#line 934 "VBNET.ATG" -out type); - } - -#line 936 "VBNET.ATG" - if(type == null) { - type = new TypeReference("System.Object", true); - } - - if (la.kind == 134 || la.kind == 136) { - if (la.kind == 136) { - ImplementsClause( -#line 942 "VBNET.ATG" -out implementsClause); - } else { - HandlesClause( -#line 944 "VBNET.ATG" -out handlesClause); - } - } - -#line 947 "VBNET.ATG" - Location endLocation = t.EndLocation; - if ( -#line 950 "VBNET.ATG" -IsMustOverride(m)) { - EndOfStmt(); - -#line 953 "VBNET.ATG" - methodDeclaration = new MethodDeclaration { - Name = name, Modifier = m.Modifier, TypeReference = type, - Parameters = p, Attributes = attributes, - StartLocation = m.GetDeclarationLocation(startPos), - EndLocation = endLocation, - HandlesClause = handlesClause, - Templates = templates, - InterfaceImplementations = implementsClause - }; - - AddChild(methodDeclaration); - - } else if (la.kind == 1) { - lexer.NextToken(); - -#line 968 "VBNET.ATG" - methodDeclaration = new MethodDeclaration { - Name = name, Modifier = m.Modifier, TypeReference = type, - Parameters = p, Attributes = attributes, - StartLocation = m.GetDeclarationLocation(startPos), - EndLocation = endLocation, - Templates = templates, - HandlesClause = handlesClause, - InterfaceImplementations = implementsClause - }; - - AddChild(methodDeclaration); - - if (ParseMethodBodies) { - Block( -#line 981 "VBNET.ATG" -out stmt); - Expect(113); - Expect(127); - -#line 983 "VBNET.ATG" - } else { - // don't parse method body - lexer.SkipCurrentBlock(Tokens.Function); stmt = new BlockStatement(); - } - methodDeclaration.Body = (BlockStatement)stmt; - methodDeclaration.Body.StartLocation = methodDeclaration.EndLocation; - methodDeclaration.Body.EndLocation = t.EndLocation; - - EndOfStmt(); - } else SynErr(258); - break; - } - case 101: { - lexer.NextToken(); - -#line 997 "VBNET.ATG" - m.Check(Modifiers.VBExternalMethods); - Location startPos = t.Location; - CharsetModifier charsetModifer = CharsetModifier.None; - string library = String.Empty; - string alias = null; - string name = String.Empty; - - if (StartOf(15)) { - Charset( -#line 1004 "VBNET.ATG" -out charsetModifer); - } - if (la.kind == 210) { - lexer.NextToken(); - Identifier(); - -#line 1007 "VBNET.ATG" - name = t.val; - Expect(149); - Expect(3); - -#line 1008 "VBNET.ATG" - library = t.literalValue as string; - if (la.kind == 59) { - lexer.NextToken(); - Expect(3); - -#line 1009 "VBNET.ATG" - alias = t.literalValue as string; - } - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1010 "VBNET.ATG" -p); - } - Expect(38); - } - EndOfStmt(); - -#line 1013 "VBNET.ATG" - DeclareDeclaration declareDeclaration = new DeclareDeclaration(name, m.Modifier, null, p, attributes, library, alias, charsetModifer); - declareDeclaration.StartLocation = m.GetDeclarationLocation(startPos); - declareDeclaration.EndLocation = t.EndLocation; - AddChild(declareDeclaration); - - } else if (la.kind == 127) { - lexer.NextToken(); - Identifier(); - -#line 1020 "VBNET.ATG" - name = t.val; - Expect(149); - Expect(3); - -#line 1021 "VBNET.ATG" - library = t.literalValue as string; - if (la.kind == 59) { - lexer.NextToken(); - Expect(3); - -#line 1022 "VBNET.ATG" - alias = t.literalValue as string; - } - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1023 "VBNET.ATG" -p); - } - Expect(38); - } - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 1024 "VBNET.ATG" -out type); - } - EndOfStmt(); - -#line 1027 "VBNET.ATG" - DeclareDeclaration declareDeclaration = new DeclareDeclaration(name, m.Modifier, type, p, attributes, library, alias, charsetModifer); - declareDeclaration.StartLocation = m.GetDeclarationLocation(startPos); - declareDeclaration.EndLocation = t.EndLocation; - AddChild(declareDeclaration); - - } else SynErr(259); - break; - } - case 119: { - lexer.NextToken(); - -#line 1037 "VBNET.ATG" - m.Check(Modifiers.VBEvents); - Location startPos = t.Location; - EventDeclaration eventDeclaration; - string name = String.Empty; - List implementsClause = null; - - Identifier(); - -#line 1043 "VBNET.ATG" - name= t.val; - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 1045 "VBNET.ATG" -out type); - } else if (StartOf(16)) { - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1047 "VBNET.ATG" -p); - } - Expect(38); - } - } else SynErr(260); - if (la.kind == 136) { - ImplementsClause( -#line 1049 "VBNET.ATG" -out implementsClause); - } - -#line 1051 "VBNET.ATG" - eventDeclaration = new EventDeclaration { - Name = name, TypeReference = type, Modifier = m.Modifier, - Parameters = p, Attributes = attributes, InterfaceImplementations = implementsClause, - StartLocation = m.GetDeclarationLocation(startPos), - EndLocation = t.EndLocation - }; - AddChild(eventDeclaration); - - EndOfStmt(); - break; - } - case 2: case 58: case 62: case 64: case 65: case 66: case 67: case 70: case 87: case 104: case 107: case 116: case 121: case 126: case 133: case 139: case 143: case 146: case 147: case 170: case 176: case 178: case 184: case 203: case 212: case 213: case 223: case 224: case 230: { - -#line 1062 "VBNET.ATG" - m.Check(Modifiers.Fields); - FieldDeclaration fd = new FieldDeclaration(attributes, null, m.Modifier); - - IdentifierForFieldDeclaration(); - -#line 1065 "VBNET.ATG" - string name = t.val; - -#line 1066 "VBNET.ATG" - fd.StartLocation = m.GetDeclarationLocation(t.Location); - VariableDeclaratorPartAfterIdentifier( -#line 1068 "VBNET.ATG" -variableDeclarators, name); - while (la.kind == 22) { - lexer.NextToken(); - VariableDeclarator( -#line 1069 "VBNET.ATG" -variableDeclarators); - } - EndOfStmt(); - -#line 1072 "VBNET.ATG" - fd.EndLocation = t.EndLocation; - fd.Fields = variableDeclarators; - AddChild(fd); - - break; - } - case 88: { - -#line 1077 "VBNET.ATG" - m.Check(Modifiers.Fields); - lexer.NextToken(); - -#line 1078 "VBNET.ATG" - m.Add(Modifiers.Const, t.Location); - -#line 1080 "VBNET.ATG" - FieldDeclaration fd = new FieldDeclaration(attributes, type, m.Modifier); - fd.StartLocation = m.GetDeclarationLocation(t.Location); - List constantDeclarators = new List(); - - ConstantDeclarator( -#line 1084 "VBNET.ATG" -constantDeclarators); - while (la.kind == 22) { - lexer.NextToken(); - ConstantDeclarator( -#line 1085 "VBNET.ATG" -constantDeclarators); - } - -#line 1087 "VBNET.ATG" - fd.Fields = constantDeclarators; - fd.EndLocation = t.Location; - - EndOfStmt(); - -#line 1092 "VBNET.ATG" - fd.EndLocation = t.EndLocation; - AddChild(fd); - - break; - } - case 186: { - lexer.NextToken(); - -#line 1098 "VBNET.ATG" - m.Check(Modifiers.VBProperties); - Location startPos = t.Location; - List implementsClause = null; - AttributeSection returnTypeAttributeSection = null; - Expression initializer = null; - - Identifier(); - -#line 1104 "VBNET.ATG" - string propertyName = t.val; - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1105 "VBNET.ATG" -p); - } - Expect(38); - } - if (la.kind == 63) { - lexer.NextToken(); - while (la.kind == 40) { - AttributeSection( -#line 1108 "VBNET.ATG" -out returnTypeAttributeSection); - -#line 1110 "VBNET.ATG" - if (returnTypeAttributeSection != null) { - returnTypeAttributeSection.AttributeTarget = "return"; - attributes.Add(returnTypeAttributeSection); - } - - } - if ( -#line 1117 "VBNET.ATG" -IsNewExpression()) { - ObjectCreateExpression( -#line 1117 "VBNET.ATG" -out initializer); - -#line 1119 "VBNET.ATG" - if (initializer is ObjectCreateExpression) { - type = ((ObjectCreateExpression)initializer).CreateType.Clone(); - } else { - type = ((ArrayCreateExpression)initializer).CreateType.Clone(); - } - - } else if (StartOf(8)) { - TypeName( -#line 1126 "VBNET.ATG" -out type); - } else SynErr(261); - } - if (la.kind == 20) { - lexer.NextToken(); - Expr( -#line 1129 "VBNET.ATG" -out initializer); - } - if (la.kind == 136) { - ImplementsClause( -#line 1130 "VBNET.ATG" -out implementsClause); - } - EndOfStmt(); - if ( -#line 1134 "VBNET.ATG" -IsMustOverride(m) || IsAutomaticProperty()) { - -#line 1136 "VBNET.ATG" - PropertyDeclaration pDecl = new PropertyDeclaration(propertyName, type, m.Modifier, attributes); - pDecl.StartLocation = m.GetDeclarationLocation(startPos); - pDecl.EndLocation = t.Location; - pDecl.TypeReference = type; - pDecl.InterfaceImplementations = implementsClause; - pDecl.Parameters = p; - if (initializer != null) - pDecl.Initializer = initializer; - AddChild(pDecl); - - } else if (StartOf(17)) { - -#line 1148 "VBNET.ATG" - PropertyDeclaration pDecl = new PropertyDeclaration(propertyName, type, m.Modifier, attributes); - pDecl.StartLocation = m.GetDeclarationLocation(startPos); - pDecl.EndLocation = t.Location; - pDecl.BodyStart = t.Location; - pDecl.TypeReference = type; - pDecl.InterfaceImplementations = implementsClause; - pDecl.Parameters = p; - PropertyGetRegion getRegion; - PropertySetRegion setRegion; - - AccessorDecls( -#line 1158 "VBNET.ATG" -out getRegion, out setRegion); - Expect(113); - Expect(186); - EndOfStmt(); - -#line 1162 "VBNET.ATG" - pDecl.GetRegion = getRegion; - pDecl.SetRegion = setRegion; - pDecl.BodyEnd = t.Location; // t = EndOfStmt; not "Property" - AddChild(pDecl); - - } else SynErr(262); - break; - } - case 98: { - lexer.NextToken(); - -#line 1169 "VBNET.ATG" - Location startPos = t.Location; - Expect(119); - -#line 1171 "VBNET.ATG" - m.Check(Modifiers.VBCustomEvents); - EventAddRemoveRegion eventAccessorDeclaration; - EventAddRegion addHandlerAccessorDeclaration = null; - EventRemoveRegion removeHandlerAccessorDeclaration = null; - EventRaiseRegion raiseEventAccessorDeclaration = null; - List implementsClause = null; - - Identifier(); - -#line 1178 "VBNET.ATG" - string customEventName = t.val; - Expect(63); - TypeName( -#line 1179 "VBNET.ATG" -out type); - if (la.kind == 136) { - ImplementsClause( -#line 1180 "VBNET.ATG" -out implementsClause); - } - EndOfStmt(); - while (StartOf(18)) { - EventAccessorDeclaration( -#line 1183 "VBNET.ATG" -out eventAccessorDeclaration); - -#line 1185 "VBNET.ATG" - if(eventAccessorDeclaration is EventAddRegion) - { - addHandlerAccessorDeclaration = (EventAddRegion)eventAccessorDeclaration; - } - else if(eventAccessorDeclaration is EventRemoveRegion) - { - removeHandlerAccessorDeclaration = (EventRemoveRegion)eventAccessorDeclaration; - } - else if(eventAccessorDeclaration is EventRaiseRegion) - { - raiseEventAccessorDeclaration = (EventRaiseRegion)eventAccessorDeclaration; - } - - } - Expect(113); - Expect(119); - EndOfStmt(); - -#line 1201 "VBNET.ATG" - if(addHandlerAccessorDeclaration == null) - { - Error("Need to provide AddHandler accessor."); - } - - if(removeHandlerAccessorDeclaration == null) - { - Error("Need to provide RemoveHandler accessor."); - } - - if(raiseEventAccessorDeclaration == null) - { - Error("Need to provide RaiseEvent accessor."); - } - - EventDeclaration decl = new EventDeclaration { - TypeReference = type, Name = customEventName, Modifier = m.Modifier, - Attributes = attributes, - StartLocation = m.GetDeclarationLocation(startPos), - EndLocation = t.EndLocation, - AddRegion = addHandlerAccessorDeclaration, - RemoveRegion = removeHandlerAccessorDeclaration, - RaiseRegion = raiseEventAccessorDeclaration - }; - AddChild(decl); - - break; - } - case 161: case 172: case 232: { - -#line 1227 "VBNET.ATG" - ConversionType opConversionType = ConversionType.None; - if (la.kind == 161 || la.kind == 232) { - if (la.kind == 232) { - lexer.NextToken(); - -#line 1228 "VBNET.ATG" - opConversionType = ConversionType.Implicit; - } else { - lexer.NextToken(); - -#line 1229 "VBNET.ATG" - opConversionType = ConversionType.Explicit; - } - } - Expect(172); - -#line 1232 "VBNET.ATG" - m.Check(Modifiers.VBOperators); - Location startPos = t.Location; - TypeReference returnType = NullTypeReference.Instance; - TypeReference operandType = NullTypeReference.Instance; - OverloadableOperatorType operatorType; - AttributeSection section; - ParameterDeclarationExpression param; - List parameters = new List(); - - OverloadableOperator( -#line 1241 "VBNET.ATG" -out operatorType); - Expect(37); - FormalParameter( -#line 1243 "VBNET.ATG" -out param); - -#line 1244 "VBNET.ATG" - if (param != null) parameters.Add(param); - if (la.kind == 22) { - lexer.NextToken(); - FormalParameter( -#line 1246 "VBNET.ATG" -out param); - -#line 1247 "VBNET.ATG" - if (param != null) parameters.Add(param); - } - Expect(38); - -#line 1250 "VBNET.ATG" - Location endPos = t.EndLocation; - if (la.kind == 63) { - lexer.NextToken(); - while (la.kind == 40) { - AttributeSection( -#line 1251 "VBNET.ATG" -out section); - -#line 1252 "VBNET.ATG" - if (section != null) { - section.AttributeTarget = "return"; - attributes.Add(section); - } - } - TypeName( -#line 1256 "VBNET.ATG" -out returnType); - -#line 1256 "VBNET.ATG" - endPos = t.EndLocation; - } - Expect(1); - Block( -#line 1258 "VBNET.ATG" -out stmt); - Expect(113); - Expect(172); - EndOfStmt(); - -#line 1260 "VBNET.ATG" - OperatorDeclaration operatorDeclaration = new OperatorDeclaration { - Modifier = m.Modifier, - Attributes = attributes, - Parameters = parameters, - TypeReference = returnType, - OverloadableOperator = operatorType, - Name = GetReflectionNameForOperator(operatorType, opConversionType), - ConversionType = opConversionType, - Body = (BlockStatement)stmt, - StartLocation = m.GetDeclarationLocation(startPos), - EndLocation = endPos - }; - operatorDeclaration.Body.StartLocation = startPos; - operatorDeclaration.Body.EndLocation = t.Location; - AddChild(operatorDeclaration); - - break; - } - default: SynErr(263); break; - } - } - - void EnumMemberDecl( -#line 774 "VBNET.ATG" -out FieldDeclaration f) { - -#line 776 "VBNET.ATG" - Expression expr = null;List attributes = new List(); - AttributeSection section = null; - VariableDeclaration varDecl = null; - - while (la.kind == 40) { - AttributeSection( -#line 780 "VBNET.ATG" -out section); - -#line 780 "VBNET.ATG" - attributes.Add(section); - } - Identifier(); - -#line 783 "VBNET.ATG" - f = new FieldDeclaration(attributes); - varDecl = new VariableDeclaration(t.val); - f.Fields.Add(varDecl); - f.StartLocation = varDecl.StartLocation = t.Location; - - if (la.kind == 20) { - lexer.NextToken(); - Expr( -#line 788 "VBNET.ATG" -out expr); - -#line 788 "VBNET.ATG" - varDecl.Initializer = expr; - } - -#line 789 "VBNET.ATG" - f.EndLocation = varDecl.EndLocation = t.EndLocation; - EndOfStmt(); - } - - void InterfaceMemberDecl() { - -#line 665 "VBNET.ATG" - TypeReference type =null; - List p = new List(); - List templates = new List(); - AttributeSection section, returnTypeAttributeSection = null; - ModifierList mod = new ModifierList(); - List attributes = new List(); - string name; - - if (StartOf(19)) { - while (la.kind == 40) { - AttributeSection( -#line 673 "VBNET.ATG" -out section); - -#line 673 "VBNET.ATG" - attributes.Add(section); - } - while (StartOf(10)) { - MemberModifier( -#line 676 "VBNET.ATG" -mod); - } - if (la.kind == 119) { - lexer.NextToken(); - -#line 680 "VBNET.ATG" - mod.Check(Modifiers.VBInterfaceEvents); - Location startLocation = t.Location; - - Identifier(); - -#line 683 "VBNET.ATG" - name = t.val; - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 684 "VBNET.ATG" -p); - } - Expect(38); - } - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 685 "VBNET.ATG" -out type); - } - EndOfStmt(); - -#line 688 "VBNET.ATG" - EventDeclaration ed = new EventDeclaration { - Name = name, TypeReference = type, Modifier = mod.Modifier, - Parameters = p, Attributes = attributes, - StartLocation = startLocation, EndLocation = t.EndLocation - }; - AddChild(ed); - - } else if (la.kind == 210) { - lexer.NextToken(); - -#line 698 "VBNET.ATG" - Location startLocation = t.Location; - mod.Check(Modifiers.VBInterfaceMethods); - - Identifier(); - -#line 701 "VBNET.ATG" - name = t.val; - TypeParameterList( -#line 702 "VBNET.ATG" -templates); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 703 "VBNET.ATG" -p); - } - Expect(38); - } - EndOfStmt(); - -#line 706 "VBNET.ATG" - MethodDeclaration md = new MethodDeclaration { - Name = name, - Modifier = mod.Modifier, - Parameters = p, - Attributes = attributes, - TypeReference = new TypeReference("System.Void", true), - StartLocation = startLocation, - EndLocation = t.EndLocation, - Templates = templates - }; - AddChild(md); - - } else if (la.kind == 127) { - lexer.NextToken(); - -#line 721 "VBNET.ATG" - mod.Check(Modifiers.VBInterfaceMethods); - Location startLocation = t.Location; - - Identifier(); - -#line 724 "VBNET.ATG" - name = t.val; - TypeParameterList( -#line 725 "VBNET.ATG" -templates); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 726 "VBNET.ATG" -p); - } - Expect(38); - } - if (la.kind == 63) { - lexer.NextToken(); - while (la.kind == 40) { - AttributeSection( -#line 727 "VBNET.ATG" -out returnTypeAttributeSection); - } - TypeName( -#line 727 "VBNET.ATG" -out type); - } - -#line 729 "VBNET.ATG" - if(type == null) { - type = new TypeReference("System.Object", true); - } - MethodDeclaration md = new MethodDeclaration { - Name = name, Modifier = mod.Modifier, - TypeReference = type, Parameters = p, Attributes = attributes - }; - if (returnTypeAttributeSection != null) { - returnTypeAttributeSection.AttributeTarget = "return"; - md.Attributes.Add(returnTypeAttributeSection); - } - md.StartLocation = startLocation; - md.EndLocation = t.EndLocation; - md.Templates = templates; - AddChild(md); - - EndOfStmt(); - } else if (la.kind == 186) { - lexer.NextToken(); - -#line 749 "VBNET.ATG" - Location startLocation = t.Location; - mod.Check(Modifiers.VBInterfaceProperties); - - Identifier(); - -#line 752 "VBNET.ATG" - name = t.val; - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 753 "VBNET.ATG" -p); - } - Expect(38); - } - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 754 "VBNET.ATG" -out type); - } - -#line 756 "VBNET.ATG" - if(type == null) { - type = new TypeReference("System.Object", true); - } - - EndOfStmt(); - -#line 762 "VBNET.ATG" - PropertyDeclaration pd = new PropertyDeclaration(name, type, mod.Modifier, attributes); - pd.Parameters = p; - pd.EndLocation = t.EndLocation; - pd.StartLocation = startLocation; - AddChild(pd); - - } else SynErr(264); - } else if (StartOf(20)) { - NonModuleDeclaration( -#line 770 "VBNET.ATG" -mod, attributes); - } else SynErr(265); - } - - void Expr( -#line 1664 "VBNET.ATG" -out Expression expr) { - -#line 1665 "VBNET.ATG" - expr = null; Location startLocation = la.Location; - if ( -#line 1668 "VBNET.ATG" -IsQueryExpression() ) { - QueryExpr( -#line 1669 "VBNET.ATG" -out expr); - } else if (la.kind == 127 || la.kind == 210) { - LambdaExpr( -#line 1670 "VBNET.ATG" -out expr); - } else if (StartOf(21)) { - DisjunctionExpr( -#line 1671 "VBNET.ATG" -out expr); - } else SynErr(266); - -#line 1674 "VBNET.ATG" - if (expr != null) { - expr.StartLocation = startLocation; - expr.EndLocation = t.EndLocation; - } - - } - - void ImplementsClause( -#line 1637 "VBNET.ATG" -out List baseInterfaces) { - -#line 1639 "VBNET.ATG" - baseInterfaces = new List(); - TypeReference type = null; - string memberName = null; - - Expect(136); - NonArrayTypeName( -#line 1644 "VBNET.ATG" -out type, false); - -#line 1645 "VBNET.ATG" - if (type != null) memberName = TypeReference.StripLastIdentifierFromType(ref type); - -#line 1646 "VBNET.ATG" - baseInterfaces.Add(new InterfaceImplementation(type, memberName)); - while (la.kind == 22) { - lexer.NextToken(); - NonArrayTypeName( -#line 1648 "VBNET.ATG" -out type, false); - -#line 1649 "VBNET.ATG" - if (type != null) memberName = TypeReference.StripLastIdentifierFromType(ref type); - -#line 1650 "VBNET.ATG" - baseInterfaces.Add(new InterfaceImplementation(type, memberName)); - } - } - - void HandlesClause( -#line 1595 "VBNET.ATG" -out List handlesClause) { - -#line 1597 "VBNET.ATG" - handlesClause = new List(); - string name; - - Expect(134); - EventMemberSpecifier( -#line 1600 "VBNET.ATG" -out name); - -#line 1600 "VBNET.ATG" - if (name != null) handlesClause.Add(name); - while (la.kind == 22) { - lexer.NextToken(); - EventMemberSpecifier( -#line 1601 "VBNET.ATG" -out name); - -#line 1601 "VBNET.ATG" - if (name != null) handlesClause.Add(name); - } - } - - void Block( -#line 2990 "VBNET.ATG" -out Statement stmt) { - -#line 2993 "VBNET.ATG" - BlockStatement blockStmt = new BlockStatement(); - /* in snippet parsing mode, t might be null */ - if (t != null) blockStmt.StartLocation = t.EndLocation; - BlockStart(blockStmt); - - while (StartOf(22) || -#line 2999 "VBNET.ATG" -IsEndStmtAhead()) { - if ( -#line 2999 "VBNET.ATG" -IsEndStmtAhead()) { - -#line 3000 "VBNET.ATG" - Token first = la; - Expect(113); - EndOfStmt(); - -#line 3003 "VBNET.ATG" - AddChild(new EndStatement() { - StartLocation = first.Location, - EndLocation = first.EndLocation } - ); - - } else { - Statement(); - EndOfStmt(); - } - } - -#line 3012 "VBNET.ATG" - stmt = blockStmt; - if (t != null) blockStmt.EndLocation = t.EndLocation; - BlockEnd(); - - } - - void Charset( -#line 1587 "VBNET.ATG" -out CharsetModifier charsetModifier) { - -#line 1588 "VBNET.ATG" - charsetModifier = CharsetModifier.None; - if (la.kind == 127 || la.kind == 210) { - } else if (la.kind == 62) { - lexer.NextToken(); - -#line 1589 "VBNET.ATG" - charsetModifier = CharsetModifier.Ansi; - } else if (la.kind == 66) { - lexer.NextToken(); - -#line 1590 "VBNET.ATG" - charsetModifier = CharsetModifier.Auto; - } else if (la.kind == 223) { - lexer.NextToken(); - -#line 1591 "VBNET.ATG" - charsetModifier = CharsetModifier.Unicode; - } else SynErr(267); - } - - void IdentifierForFieldDeclaration() { - switch (la.kind) { - case 2: { - lexer.NextToken(); - break; - } - case 58: { - lexer.NextToken(); - break; - } - case 62: { - lexer.NextToken(); - break; - } - case 64: { - lexer.NextToken(); - break; - } - case 65: { - lexer.NextToken(); - break; - } - case 66: { - lexer.NextToken(); - break; - } - case 67: { - lexer.NextToken(); - break; - } - case 70: { - lexer.NextToken(); - break; - } - case 87: { - lexer.NextToken(); - break; - } - case 104: { - lexer.NextToken(); - break; - } - case 107: { - lexer.NextToken(); - break; - } - case 116: { - lexer.NextToken(); - break; - } - case 121: { - lexer.NextToken(); - break; - } - case 126: { - lexer.NextToken(); - break; - } - case 133: { - lexer.NextToken(); - break; - } - case 139: { - lexer.NextToken(); - break; - } - case 143: { - lexer.NextToken(); - break; - } - case 146: { - lexer.NextToken(); - break; - } - case 147: { - lexer.NextToken(); - break; - } - case 170: { - lexer.NextToken(); - break; - } - case 176: { - lexer.NextToken(); - break; - } - case 178: { - lexer.NextToken(); - break; - } - case 184: { - lexer.NextToken(); - break; - } - case 203: { - lexer.NextToken(); - break; - } - case 212: { - lexer.NextToken(); - break; - } - case 213: { - lexer.NextToken(); - break; - } - case 223: { - lexer.NextToken(); - break; - } - case 224: { - lexer.NextToken(); - break; - } - case 230: { - lexer.NextToken(); - break; - } - default: SynErr(268); break; - } - } - - void VariableDeclaratorPartAfterIdentifier( -#line 1466 "VBNET.ATG" -List fieldDeclaration, string name) { - -#line 1468 "VBNET.ATG" - Expression expr = null; - TypeReference type = null; - ArrayList rank = null; - List dimension = null; - Location startLocation = t.Location; - - if ( -#line 1474 "VBNET.ATG" -IsSize() && !IsDims()) { - ArrayInitializationModifier( -#line 1474 "VBNET.ATG" -out dimension); - } - if ( -#line 1475 "VBNET.ATG" -IsDims()) { - ArrayNameModifier( -#line 1475 "VBNET.ATG" -out rank); - } - if ( -#line 1477 "VBNET.ATG" -IsObjectCreation()) { - Expect(63); - ObjectCreateExpression( -#line 1477 "VBNET.ATG" -out expr); - -#line 1479 "VBNET.ATG" - if (expr is ObjectCreateExpression) { - type = ((ObjectCreateExpression)expr).CreateType.Clone(); - } else { - type = ((ArrayCreateExpression)expr).CreateType.Clone(); - } - - } else if (StartOf(23)) { - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 1486 "VBNET.ATG" -out type); - -#line 1488 "VBNET.ATG" - if (type != null) { - for (int i = fieldDeclaration.Count - 1; i >= 0; i--) { - VariableDeclaration vd = fieldDeclaration[i]; - if (vd.TypeReference.Type.Length > 0) break; - TypeReference newType = type.Clone(); - newType.RankSpecifier = vd.TypeReference.RankSpecifier; - vd.TypeReference = newType; - } - } - - } - -#line 1500 "VBNET.ATG" - if (type == null && (dimension != null || rank != null)) { - type = new TypeReference(""); - } - if (dimension != null) { - if(type.RankSpecifier != null) { - Error("array rank only allowed one time"); - } else { - if (rank == null) { - type.RankSpecifier = new int[] { dimension.Count - 1 }; - } else { - rank.Insert(0, dimension.Count - 1); - type.RankSpecifier = (int[])rank.ToArray(typeof(int)); - } - expr = new ArrayCreateExpression(type.Clone(), dimension); - } - } else if (rank != null) { - if(type.RankSpecifier != null) { - Error("array rank only allowed one time"); - } else { - type.RankSpecifier = (int[])rank.ToArray(typeof(int)); - } - } - - if (la.kind == 20) { - lexer.NextToken(); - Expr( -#line 1523 "VBNET.ATG" -out expr); - } - } else SynErr(269); - -#line 1526 "VBNET.ATG" - VariableDeclaration varDecl = new VariableDeclaration(name, expr, type); - varDecl.StartLocation = startLocation; - varDecl.EndLocation = t.Location; - fieldDeclaration.Add(varDecl); - - } - - void VariableDeclarator( -#line 1460 "VBNET.ATG" -List fieldDeclaration) { - Identifier(); - -#line 1462 "VBNET.ATG" - string name = t.val; - VariableDeclaratorPartAfterIdentifier( -#line 1463 "VBNET.ATG" -fieldDeclaration, name); - } - - void ConstantDeclarator( -#line 1441 "VBNET.ATG" -List constantDeclaration) { - -#line 1443 "VBNET.ATG" - Expression expr = null; - TypeReference type = null; - string name = String.Empty; - Location location; - - Identifier(); - -#line 1448 "VBNET.ATG" - name = t.val; location = t.Location; - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 1449 "VBNET.ATG" -out type); - } - Expect(20); - Expr( -#line 1450 "VBNET.ATG" -out expr); - -#line 1452 "VBNET.ATG" - VariableDeclaration f = new VariableDeclaration(name, expr); - f.TypeReference = type; - f.StartLocation = location; - constantDeclaration.Add(f); - - } - - void ObjectCreateExpression( -#line 2126 "VBNET.ATG" -out Expression oce) { - -#line 2128 "VBNET.ATG" - TypeReference type = null; - CollectionInitializerExpression initializer = null; - List arguments = null; - ArrayList dimensions = null; - oce = null; - Location startLocation = la.Location; - bool canBeNormal; bool canBeReDim; - - Expect(162); - if (StartOf(8)) { - NonArrayTypeName( -#line 2137 "VBNET.ATG" -out type, false); - if (la.kind == 37) { - lexer.NextToken(); - NormalOrReDimArgumentList( -#line 2138 "VBNET.ATG" -out arguments, out canBeNormal, out canBeReDim); - Expect(38); - if (la.kind == 35 || -#line 2139 "VBNET.ATG" -la.kind == Tokens.OpenParenthesis) { - if ( -#line 2139 "VBNET.ATG" -la.kind == Tokens.OpenParenthesis) { - ArrayTypeModifiers( -#line 2140 "VBNET.ATG" -out dimensions); - CollectionInitializer( -#line 2141 "VBNET.ATG" -out initializer); - } else { - CollectionInitializer( -#line 2142 "VBNET.ATG" -out initializer); - } - } - -#line 2144 "VBNET.ATG" - if (canBeReDim && !canBeNormal && initializer == null) initializer = new CollectionInitializerExpression(); - } - } - -#line 2148 "VBNET.ATG" - if (initializer == null) { - oce = new ObjectCreateExpression(type, arguments); - } else { - if (dimensions == null) dimensions = new ArrayList(); - dimensions.Insert(0, (arguments == null) ? 0 : Math.Max(arguments.Count - 1, 0)); - type.RankSpecifier = (int[])dimensions.ToArray(typeof(int)); - ArrayCreateExpression ace = new ArrayCreateExpression(type, initializer); - ace.Arguments = arguments; - oce = ace; - } - - if (la.kind == 126 || la.kind == 233) { - if (la.kind == 233) { - -#line 2163 "VBNET.ATG" - MemberInitializerExpression memberInitializer = null; - Expression anonymousMember = null; - - lexer.NextToken(); - -#line 2168 "VBNET.ATG" - CollectionInitializerExpression memberInitializers = new CollectionInitializerExpression(); - memberInitializers.StartLocation = la.Location; - - Expect(35); - if (la.kind == 26 || la.kind == 147) { - MemberInitializer( -#line 2173 "VBNET.ATG" -out memberInitializer); - -#line 2174 "VBNET.ATG" - memberInitializers.CreateExpressions.Add(memberInitializer); - } else if (StartOf(24)) { - Expr( -#line 2175 "VBNET.ATG" -out anonymousMember); - -#line 2176 "VBNET.ATG" - memberInitializers.CreateExpressions.Add(anonymousMember); - } else SynErr(270); - while (la.kind == 22) { - lexer.NextToken(); - if (la.kind == 26 || la.kind == 147) { - MemberInitializer( -#line 2180 "VBNET.ATG" -out memberInitializer); - -#line 2181 "VBNET.ATG" - memberInitializers.CreateExpressions.Add(memberInitializer); - } else if (StartOf(24)) { - Expr( -#line 2182 "VBNET.ATG" -out anonymousMember); - -#line 2183 "VBNET.ATG" - memberInitializers.CreateExpressions.Add(anonymousMember); - } else SynErr(271); - } - Expect(36); - -#line 2188 "VBNET.ATG" - memberInitializers.EndLocation = t.Location; - if(oce is ObjectCreateExpression) - { - ((ObjectCreateExpression)oce).ObjectInitializer = memberInitializers; - } - - } else { - lexer.NextToken(); - CollectionInitializer( -#line 2198 "VBNET.ATG" -out initializer); - -#line 2200 "VBNET.ATG" - if(oce is ObjectCreateExpression) - ((ObjectCreateExpression)oce).ObjectInitializer = initializer; - - } - } - -#line 2206 "VBNET.ATG" - if (oce != null) { - oce.StartLocation = startLocation; - oce.EndLocation = t.EndLocation; - } - - } - - void AccessorDecls( -#line 1375 "VBNET.ATG" -out PropertyGetRegion getBlock, out PropertySetRegion setBlock) { - -#line 1377 "VBNET.ATG" - List attributes = new List(); - AttributeSection section; - getBlock = null; - setBlock = null; - - while (la.kind == 40) { - AttributeSection( -#line 1382 "VBNET.ATG" -out section); - -#line 1382 "VBNET.ATG" - attributes.Add(section); - } - if (StartOf(25)) { - GetAccessorDecl( -#line 1384 "VBNET.ATG" -out getBlock, attributes); - if (StartOf(26)) { - -#line 1386 "VBNET.ATG" - attributes = new List(); - while (la.kind == 40) { - AttributeSection( -#line 1387 "VBNET.ATG" -out section); - -#line 1387 "VBNET.ATG" - attributes.Add(section); - } - SetAccessorDecl( -#line 1388 "VBNET.ATG" -out setBlock, attributes); - } - } else if (StartOf(27)) { - SetAccessorDecl( -#line 1391 "VBNET.ATG" -out setBlock, attributes); - if (StartOf(28)) { - -#line 1393 "VBNET.ATG" - attributes = new List(); - while (la.kind == 40) { - AttributeSection( -#line 1394 "VBNET.ATG" -out section); - -#line 1394 "VBNET.ATG" - attributes.Add(section); - } - GetAccessorDecl( -#line 1395 "VBNET.ATG" -out getBlock, attributes); - } - } else SynErr(272); - } - - void EventAccessorDeclaration( -#line 1338 "VBNET.ATG" -out EventAddRemoveRegion eventAccessorDeclaration) { - -#line 1340 "VBNET.ATG" - Statement stmt = null; - List p = new List(); - AttributeSection section; - List attributes = new List(); - eventAccessorDeclaration = null; - - while (la.kind == 40) { - AttributeSection( -#line 1346 "VBNET.ATG" -out section); - -#line 1346 "VBNET.ATG" - attributes.Add(section); - } - if (la.kind == 56) { - lexer.NextToken(); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1348 "VBNET.ATG" -p); - } - Expect(38); - } - Expect(1); - Block( -#line 1349 "VBNET.ATG" -out stmt); - Expect(113); - Expect(56); - EndOfStmt(); - -#line 1351 "VBNET.ATG" - eventAccessorDeclaration = new EventAddRegion(attributes); - eventAccessorDeclaration.Block = (BlockStatement)stmt; - eventAccessorDeclaration.Parameters = p; - - } else if (la.kind == 193) { - lexer.NextToken(); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1356 "VBNET.ATG" -p); - } - Expect(38); - } - Expect(1); - Block( -#line 1357 "VBNET.ATG" -out stmt); - Expect(113); - Expect(193); - EndOfStmt(); - -#line 1359 "VBNET.ATG" - eventAccessorDeclaration = new EventRemoveRegion(attributes); - eventAccessorDeclaration.Block = (BlockStatement)stmt; - eventAccessorDeclaration.Parameters = p; - - } else if (la.kind == 189) { - lexer.NextToken(); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1364 "VBNET.ATG" -p); - } - Expect(38); - } - Expect(1); - Block( -#line 1365 "VBNET.ATG" -out stmt); - Expect(113); - Expect(189); - EndOfStmt(); - -#line 1367 "VBNET.ATG" - eventAccessorDeclaration = new EventRaiseRegion(attributes); - eventAccessorDeclaration.Block = (BlockStatement)stmt; - eventAccessorDeclaration.Parameters = p; - - } else SynErr(273); - } - - void OverloadableOperator( -#line 1278 "VBNET.ATG" -out OverloadableOperatorType operatorType) { - -#line 1279 "VBNET.ATG" - operatorType = OverloadableOperatorType.None; - switch (la.kind) { - case 31: { - lexer.NextToken(); - -#line 1281 "VBNET.ATG" - operatorType = OverloadableOperatorType.Add; - break; - } - case 30: { - lexer.NextToken(); - -#line 1283 "VBNET.ATG" - operatorType = OverloadableOperatorType.Subtract; - break; - } - case 34: { - lexer.NextToken(); - -#line 1285 "VBNET.ATG" - operatorType = OverloadableOperatorType.Multiply; - break; - } - case 24: { - lexer.NextToken(); - -#line 1287 "VBNET.ATG" - operatorType = OverloadableOperatorType.Divide; - break; - } - case 25: { - lexer.NextToken(); - -#line 1289 "VBNET.ATG" - operatorType = OverloadableOperatorType.DivideInteger; - break; - } - case 23: { - lexer.NextToken(); - -#line 1291 "VBNET.ATG" - operatorType = OverloadableOperatorType.Concat; - break; - } - case 150: { - lexer.NextToken(); - -#line 1293 "VBNET.ATG" - operatorType = OverloadableOperatorType.Like; - break; - } - case 154: { - lexer.NextToken(); - -#line 1295 "VBNET.ATG" - operatorType = OverloadableOperatorType.Modulus; - break; - } - case 60: { - lexer.NextToken(); - -#line 1297 "VBNET.ATG" - operatorType = OverloadableOperatorType.BitwiseAnd; - break; - } - case 175: { - lexer.NextToken(); - -#line 1299 "VBNET.ATG" - operatorType = OverloadableOperatorType.BitwiseOr; - break; - } - case 236: { - lexer.NextToken(); - -#line 1301 "VBNET.ATG" - operatorType = OverloadableOperatorType.ExclusiveOr; - break; - } - case 164: { - lexer.NextToken(); - -#line 1303 "VBNET.ATG" - operatorType = OverloadableOperatorType.BitNot; - break; - } - case 32: { - lexer.NextToken(); - -#line 1305 "VBNET.ATG" - operatorType = OverloadableOperatorType.Power; - break; - } - case 44: { - lexer.NextToken(); - -#line 1307 "VBNET.ATG" - operatorType = OverloadableOperatorType.ShiftLeft; - break; - } - case 45: { - lexer.NextToken(); - -#line 1309 "VBNET.ATG" - operatorType = OverloadableOperatorType.ShiftRight; - break; - } - case 20: { - lexer.NextToken(); - -#line 1311 "VBNET.ATG" - operatorType = OverloadableOperatorType.Equality; - break; - } - case 41: { - lexer.NextToken(); - -#line 1313 "VBNET.ATG" - operatorType = OverloadableOperatorType.InEquality; - break; - } - case 40: { - lexer.NextToken(); - -#line 1315 "VBNET.ATG" - operatorType = OverloadableOperatorType.LessThan; - break; - } - case 43: { - lexer.NextToken(); - -#line 1317 "VBNET.ATG" - operatorType = OverloadableOperatorType.LessThanOrEqual; - break; - } - case 39: { - lexer.NextToken(); - -#line 1319 "VBNET.ATG" - operatorType = OverloadableOperatorType.GreaterThan; - break; - } - case 42: { - lexer.NextToken(); - -#line 1321 "VBNET.ATG" - operatorType = OverloadableOperatorType.GreaterThanOrEqual; - break; - } - case 94: { - lexer.NextToken(); - -#line 1323 "VBNET.ATG" - operatorType = OverloadableOperatorType.CType; - break; - } - case 2: case 58: case 62: case 64: case 65: case 66: case 67: case 70: case 87: case 98: case 104: case 107: case 116: case 121: case 126: case 133: case 139: case 143: case 146: case 147: case 170: case 176: case 178: case 184: case 203: case 212: case 213: case 223: case 224: case 230: { - Identifier(); - -#line 1327 "VBNET.ATG" - string opName = t.val; - if (string.Equals(opName, "istrue", StringComparison.InvariantCultureIgnoreCase)) { - operatorType = OverloadableOperatorType.IsTrue; - } else if (string.Equals(opName, "isfalse", StringComparison.InvariantCultureIgnoreCase)) { - operatorType = OverloadableOperatorType.IsFalse; - } else { - Error("Invalid operator. Possible operators are '+', '-', 'Not', 'IsTrue', 'IsFalse'."); - } - - break; - } - default: SynErr(274); break; - } - } - - void FormalParameter( -#line 2951 "VBNET.ATG" -out ParameterDeclarationExpression p) { - -#line 2953 "VBNET.ATG" - AttributeSection section; - List attributes = new List(); - TypeReference type = null; - ParamModifierList mod = new ParamModifierList(this); - Expression expr = null; - p = null; - ArrayList arrayModifiers = null; - Location startLocation = la.Location; - - while (la.kind == 40) { - AttributeSection( -#line 2963 "VBNET.ATG" -out section); - -#line 2963 "VBNET.ATG" - attributes.Add(section); - } - while (StartOf(29)) { - ParameterModifier( -#line 2964 "VBNET.ATG" -mod); - } - Identifier(); - -#line 2965 "VBNET.ATG" - string parameterName = t.val; - if ( -#line 2966 "VBNET.ATG" -IsDims()) { - ArrayTypeModifiers( -#line 2966 "VBNET.ATG" -out arrayModifiers); - } - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 2967 "VBNET.ATG" -out type); - } - -#line 2969 "VBNET.ATG" - if(type != null) { - if (arrayModifiers != null) { - if (type.RankSpecifier != null) { - Error("array rank only allowed one time"); - } else { - type.RankSpecifier = (int[])arrayModifiers.ToArray(typeof(int)); - } - } - } - - if (la.kind == 20) { - lexer.NextToken(); - Expr( -#line 2979 "VBNET.ATG" -out expr); - } - -#line 2981 "VBNET.ATG" - mod.Check(); - p = new ParameterDeclarationExpression(type, parameterName, mod.Modifier, expr); - p.Attributes = attributes; - p.StartLocation = startLocation; - p.EndLocation = t.EndLocation; - - } - - void GetAccessorDecl( -#line 1401 "VBNET.ATG" -out PropertyGetRegion getBlock, List attributes) { - -#line 1402 "VBNET.ATG" - Statement stmt = null; Modifiers m; - PropertyAccessorAccessModifier( -#line 1404 "VBNET.ATG" -out m); - Expect(128); - -#line 1406 "VBNET.ATG" - Location startLocation = t.Location; - Expect(1); - Block( -#line 1408 "VBNET.ATG" -out stmt); - -#line 1409 "VBNET.ATG" - getBlock = new PropertyGetRegion((BlockStatement)stmt, attributes); - Expect(113); - Expect(128); - -#line 1411 "VBNET.ATG" - getBlock.Modifier = m; - -#line 1412 "VBNET.ATG" - getBlock.StartLocation = startLocation; getBlock.EndLocation = t.EndLocation; - EndOfStmt(); - } - - void SetAccessorDecl( -#line 1417 "VBNET.ATG" -out PropertySetRegion setBlock, List attributes) { - -#line 1419 "VBNET.ATG" - Statement stmt = null; - List p = new List(); - Modifiers m; - - PropertyAccessorAccessModifier( -#line 1424 "VBNET.ATG" -out m); - Expect(198); - -#line 1426 "VBNET.ATG" - Location startLocation = t.Location; - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 1427 "VBNET.ATG" -p); - } - Expect(38); - } - Expect(1); - Block( -#line 1429 "VBNET.ATG" -out stmt); - -#line 1431 "VBNET.ATG" - setBlock = new PropertySetRegion((BlockStatement)stmt, attributes); - setBlock.Modifier = m; - setBlock.Parameters = p; - - Expect(113); - Expect(198); - -#line 1436 "VBNET.ATG" - setBlock.StartLocation = startLocation; setBlock.EndLocation = t.EndLocation; - EndOfStmt(); - } - - void PropertyAccessorAccessModifier( -#line 3745 "VBNET.ATG" -out Modifiers m) { - -#line 3746 "VBNET.ATG" - m = Modifiers.None; - while (StartOf(30)) { - if (la.kind == 188) { - lexer.NextToken(); - -#line 3748 "VBNET.ATG" - m |= Modifiers.Public; - } else if (la.kind == 187) { - lexer.NextToken(); - -#line 3749 "VBNET.ATG" - m |= Modifiers.Protected; - } else if (la.kind == 125) { - lexer.NextToken(); - -#line 3750 "VBNET.ATG" - m |= Modifiers.Internal; - } else { - lexer.NextToken(); - -#line 3751 "VBNET.ATG" - m |= Modifiers.Private; - } - } - } - - void ArrayInitializationModifier( -#line 1534 "VBNET.ATG" -out List arrayModifiers) { - -#line 1536 "VBNET.ATG" - arrayModifiers = null; - - Expect(37); - InitializationRankList( -#line 1538 "VBNET.ATG" -out arrayModifiers); - Expect(38); - } - - void ArrayNameModifier( -#line 2778 "VBNET.ATG" -out ArrayList arrayModifiers) { - -#line 2780 "VBNET.ATG" - arrayModifiers = null; - - ArrayTypeModifiers( -#line 2782 "VBNET.ATG" -out arrayModifiers); - } - - void InitializationRankList( -#line 1542 "VBNET.ATG" -out List rank) { - -#line 1544 "VBNET.ATG" - rank = new List(); - Expression expr = null; - - Expr( -#line 1547 "VBNET.ATG" -out expr); - if (la.kind == 216) { - lexer.NextToken(); - -#line 1548 "VBNET.ATG" - EnsureIsZero(expr); - Expr( -#line 1549 "VBNET.ATG" -out expr); - } - -#line 1551 "VBNET.ATG" - if (expr != null) { rank.Add(expr); } - while (la.kind == 22) { - lexer.NextToken(); - Expr( -#line 1553 "VBNET.ATG" -out expr); - if (la.kind == 216) { - lexer.NextToken(); - -#line 1554 "VBNET.ATG" - EnsureIsZero(expr); - Expr( -#line 1555 "VBNET.ATG" -out expr); - } - -#line 1557 "VBNET.ATG" - if (expr != null) { rank.Add(expr); } - } - } - - void CollectionInitializer( -#line 1562 "VBNET.ATG" -out CollectionInitializerExpression outExpr) { - -#line 1564 "VBNET.ATG" - Expression expr = null; - CollectionInitializerExpression initializer = new CollectionInitializerExpression(); - Location startLocation = la.Location; - - Expect(35); - if (StartOf(24)) { - Expr( -#line 1570 "VBNET.ATG" -out expr); - -#line 1572 "VBNET.ATG" - if (expr != null) { initializer.CreateExpressions.Add(expr); } - - while ( -#line 1575 "VBNET.ATG" -NotFinalComma()) { - Expect(22); - Expr( -#line 1575 "VBNET.ATG" -out expr); - -#line 1576 "VBNET.ATG" - if (expr != null) { initializer.CreateExpressions.Add(expr); } - } - } - Expect(36); - -#line 1581 "VBNET.ATG" - outExpr = initializer; - outExpr.StartLocation = startLocation; - outExpr.EndLocation = t.EndLocation; - - } - - void EventMemberSpecifier( -#line 1654 "VBNET.ATG" -out string name) { - -#line 1655 "VBNET.ATG" - string eventName; - if (StartOf(4)) { - Identifier(); - } else if (la.kind == 158) { - lexer.NextToken(); - } else if (la.kind == 153) { - lexer.NextToken(); - } else SynErr(275); - -#line 1658 "VBNET.ATG" - name = t.val; - Expect(26); - IdentifierOrKeyword( -#line 1660 "VBNET.ATG" -out eventName); - -#line 1661 "VBNET.ATG" - name = name + "." + eventName; - } - - void IdentifierOrKeyword( -#line 3678 "VBNET.ATG" -out string name) { - lexer.NextToken(); - -#line 3680 "VBNET.ATG" - name = t.val; - } - - void QueryExpr( -#line 2299 "VBNET.ATG" -out Expression expr) { - -#line 2301 "VBNET.ATG" - QueryExpressionVB qexpr = new QueryExpressionVB(); - qexpr.StartLocation = la.Location; - expr = qexpr; - - FromOrAggregateQueryOperator( -#line 2305 "VBNET.ATG" -qexpr.Clauses); - while (StartOf(31)) { - QueryOperator( -#line 2306 "VBNET.ATG" -qexpr.Clauses); - } - -#line 2308 "VBNET.ATG" - qexpr.EndLocation = t.EndLocation; - - } - - void LambdaExpr( -#line 2213 "VBNET.ATG" -out Expression expr) { - -#line 2215 "VBNET.ATG" - LambdaExpression lambda = null; - - if (la.kind == 210) { - SubLambdaExpression( -#line 2217 "VBNET.ATG" -out lambda); - } else if (la.kind == 127) { - FunctionLambdaExpression( -#line 2218 "VBNET.ATG" -out lambda); - } else SynErr(276); - -#line 2219 "VBNET.ATG" - expr = lambda; - } - - void DisjunctionExpr( -#line 1963 "VBNET.ATG" -out Expression outExpr) { - -#line 1965 "VBNET.ATG" - Expression expr; - BinaryOperatorType op = BinaryOperatorType.None; - Location startLocation = la.Location; - - ConjunctionExpr( -#line 1969 "VBNET.ATG" -out outExpr); - while (la.kind == 175 || la.kind == 177 || la.kind == 236) { - if (la.kind == 175) { - lexer.NextToken(); - -#line 1972 "VBNET.ATG" - op = BinaryOperatorType.BitwiseOr; - } else if (la.kind == 177) { - lexer.NextToken(); - -#line 1973 "VBNET.ATG" - op = BinaryOperatorType.LogicalOr; - } else { - lexer.NextToken(); - -#line 1974 "VBNET.ATG" - op = BinaryOperatorType.ExclusiveOr; - } - ConjunctionExpr( -#line 1976 "VBNET.ATG" -out expr); - -#line 1976 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, op, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void AssignmentOperator( -#line 1681 "VBNET.ATG" -out AssignmentOperatorType op) { - -#line 1682 "VBNET.ATG" - op = AssignmentOperatorType.None; - switch (la.kind) { - case 20: { - lexer.NextToken(); - -#line 1683 "VBNET.ATG" - op = AssignmentOperatorType.Assign; - break; - } - case 54: { - lexer.NextToken(); - -#line 1684 "VBNET.ATG" - op = AssignmentOperatorType.ConcatString; - break; - } - case 46: { - lexer.NextToken(); - -#line 1685 "VBNET.ATG" - op = AssignmentOperatorType.Add; - break; - } - case 48: { - lexer.NextToken(); - -#line 1686 "VBNET.ATG" - op = AssignmentOperatorType.Subtract; - break; - } - case 49: { - lexer.NextToken(); - -#line 1687 "VBNET.ATG" - op = AssignmentOperatorType.Multiply; - break; - } - case 50: { - lexer.NextToken(); - -#line 1688 "VBNET.ATG" - op = AssignmentOperatorType.Divide; - break; - } - case 51: { - lexer.NextToken(); - -#line 1689 "VBNET.ATG" - op = AssignmentOperatorType.DivideInteger; - break; - } - case 47: { - lexer.NextToken(); - -#line 1690 "VBNET.ATG" - op = AssignmentOperatorType.Power; - break; - } - case 52: { - lexer.NextToken(); - -#line 1691 "VBNET.ATG" - op = AssignmentOperatorType.ShiftLeft; - break; - } - case 53: { - lexer.NextToken(); - -#line 1692 "VBNET.ATG" - op = AssignmentOperatorType.ShiftRight; - break; - } - default: SynErr(277); break; - } - } - - void SimpleExpr( -#line 1696 "VBNET.ATG" -out Expression pexpr) { - -#line 1697 "VBNET.ATG" - string name; Location startLocation = la.Location; - SimpleNonInvocationExpression( -#line 1700 "VBNET.ATG" -out pexpr); - while (StartOf(32)) { - if (la.kind == 26) { - lexer.NextToken(); - if (la.kind == 10) { - lexer.NextToken(); - IdentifierOrKeyword( -#line 1703 "VBNET.ATG" -out name); - Expect(11); - -#line 1704 "VBNET.ATG" - pexpr = new XmlMemberAccessExpression(pexpr, XmlAxisType.Element, name, true); - } else if (StartOf(33)) { - IdentifierOrKeyword( -#line 1705 "VBNET.ATG" -out name); - -#line 1706 "VBNET.ATG" - pexpr = new MemberReferenceExpression(pexpr, name) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } else SynErr(278); - if ( -#line 1708 "VBNET.ATG" -la.kind == Tokens.OpenParenthesis && Peek(1).kind == Tokens.Of) { - lexer.NextToken(); - Expect(169); - TypeArgumentList( -#line 1709 "VBNET.ATG" -((MemberReferenceExpression)pexpr).TypeArguments); - Expect(38); - } - } else if (la.kind == 29) { - lexer.NextToken(); - IdentifierOrKeyword( -#line 1711 "VBNET.ATG" -out name); - -#line 1711 "VBNET.ATG" - pexpr = new BinaryOperatorExpression(pexpr, BinaryOperatorType.DictionaryAccess, new PrimitiveExpression(name, name) { StartLocation = t.Location, EndLocation = t.EndLocation }); - } else if (la.kind == 27 || la.kind == 28) { - -#line 1712 "VBNET.ATG" - XmlAxisType type = XmlAxisType.Attribute; bool isXmlName = false; - if (la.kind == 28) { - lexer.NextToken(); - } else if (la.kind == 27) { - lexer.NextToken(); - -#line 1713 "VBNET.ATG" - type = XmlAxisType.Descendents; - } else SynErr(279); - if (la.kind == 10) { - lexer.NextToken(); - -#line 1713 "VBNET.ATG" - isXmlName = true; - } - IdentifierOrKeyword( -#line 1713 "VBNET.ATG" -out name); - if (la.kind == 11) { - lexer.NextToken(); - } - -#line 1714 "VBNET.ATG" - pexpr = new XmlMemberAccessExpression(pexpr, type, name, isXmlName); - } else { - InvocationExpression( -#line 1715 "VBNET.ATG" -ref pexpr); - } - } - -#line 1719 "VBNET.ATG" - if (pexpr != null) { - pexpr.StartLocation = startLocation; - pexpr.EndLocation = t.EndLocation; - } - - } - - void SimpleNonInvocationExpression( -#line 1726 "VBNET.ATG" -out Expression pexpr) { - -#line 1728 "VBNET.ATG" - Expression expr; - CollectionInitializerExpression cie; - TypeReference type = null; - string name = String.Empty; - Location startLocation = la.Location; - pexpr = null; - - if (StartOf(34)) { - switch (la.kind) { - case 3: { - lexer.NextToken(); - -#line 1738 "VBNET.ATG" - pexpr = new PrimitiveExpression(t.literalValue, t.val) { LiteralFormat = t.literalFormat }; - break; - } - case 4: { - lexer.NextToken(); - -#line 1739 "VBNET.ATG" - pexpr = new PrimitiveExpression(t.literalValue, t.val) { LiteralFormat = t.literalFormat }; - break; - } - case 7: { - lexer.NextToken(); - -#line 1740 "VBNET.ATG" - pexpr = new PrimitiveExpression(t.literalValue, t.val) { LiteralFormat = t.literalFormat }; - break; - } - case 6: { - lexer.NextToken(); - -#line 1741 "VBNET.ATG" - pexpr = new PrimitiveExpression(t.literalValue, t.val) { LiteralFormat = t.literalFormat }; - break; - } - case 5: { - lexer.NextToken(); - -#line 1742 "VBNET.ATG" - pexpr = new PrimitiveExpression(t.literalValue, t.val) { LiteralFormat = t.literalFormat }; - break; - } - case 9: { - lexer.NextToken(); - -#line 1743 "VBNET.ATG" - pexpr = new PrimitiveExpression(t.literalValue, t.val) { LiteralFormat = t.literalFormat }; - break; - } - case 8: { - lexer.NextToken(); - -#line 1744 "VBNET.ATG" - pexpr = new PrimitiveExpression(t.literalValue, t.val) { LiteralFormat = t.literalFormat }; - break; - } - case 217: { - lexer.NextToken(); - -#line 1746 "VBNET.ATG" - pexpr = new PrimitiveExpression(true, "true"); - break; - } - case 122: { - lexer.NextToken(); - -#line 1747 "VBNET.ATG" - pexpr = new PrimitiveExpression(false, "false"); - break; - } - case 165: { - lexer.NextToken(); - -#line 1748 "VBNET.ATG" - pexpr = new PrimitiveExpression(null, "null"); - break; - } - case 37: { - lexer.NextToken(); - Expr( -#line 1749 "VBNET.ATG" -out expr); - Expect(38); - -#line 1749 "VBNET.ATG" - pexpr = new ParenthesizedExpression(expr); - break; - } - case 2: case 58: case 62: case 64: case 65: case 66: case 67: case 70: case 87: case 98: case 104: case 107: case 116: case 121: case 126: case 133: case 139: case 143: case 146: case 147: case 170: case 176: case 178: case 184: case 203: case 212: case 213: case 223: case 224: case 230: { - Identifier(); - -#line 1751 "VBNET.ATG" - pexpr = new IdentifierExpression(t.val); - pexpr.StartLocation = t.Location; pexpr.EndLocation = t.EndLocation; - - if ( -#line 1754 "VBNET.ATG" -la.kind == Tokens.OpenParenthesis && Peek(1).kind == Tokens.Of) { - lexer.NextToken(); - Expect(169); - TypeArgumentList( -#line 1755 "VBNET.ATG" -((IdentifierExpression)pexpr).TypeArguments); - Expect(38); - } - break; - } - case 68: case 71: case 82: case 99: case 100: case 109: case 141: case 151: case 168: case 196: case 201: case 202: case 208: case 221: case 222: case 225: { - -#line 1757 "VBNET.ATG" - string val = String.Empty; - if (StartOf(12)) { - PrimitiveTypeName( -#line 1758 "VBNET.ATG" -out val); - } else if (la.kind == 168) { - lexer.NextToken(); - -#line 1758 "VBNET.ATG" - val = "System.Object"; - } else SynErr(280); - -#line 1759 "VBNET.ATG" - pexpr = new TypeReferenceExpression(new TypeReference(val, true)); - break; - } - case 153: { - lexer.NextToken(); - -#line 1760 "VBNET.ATG" - pexpr = new ThisReferenceExpression(); - break; - } - case 158: case 159: { - -#line 1761 "VBNET.ATG" - Expression retExpr = null; - if (la.kind == 158) { - lexer.NextToken(); - -#line 1762 "VBNET.ATG" - retExpr = new BaseReferenceExpression() { StartLocation = t.Location, EndLocation = t.EndLocation }; - } else if (la.kind == 159) { - lexer.NextToken(); - -#line 1763 "VBNET.ATG" - retExpr = new ClassReferenceExpression() { StartLocation = t.Location, EndLocation = t.EndLocation }; - } else SynErr(281); - Expect(26); - IdentifierOrKeyword( -#line 1765 "VBNET.ATG" -out name); - -#line 1765 "VBNET.ATG" - pexpr = new MemberReferenceExpression(retExpr, name) { StartLocation = startLocation, EndLocation = t.EndLocation }; - break; - } - case 130: { - lexer.NextToken(); - Expect(26); - Identifier(); - -#line 1767 "VBNET.ATG" - type = new TypeReference(t.val ?? ""); - -#line 1769 "VBNET.ATG" - type.IsGlobal = true; - -#line 1770 "VBNET.ATG" - pexpr = new TypeReferenceExpression(type); - break; - } - case 162: { - ObjectCreateExpression( -#line 1771 "VBNET.ATG" -out expr); - -#line 1771 "VBNET.ATG" - pexpr = expr; - break; - } - case 35: { - CollectionInitializer( -#line 1772 "VBNET.ATG" -out cie); - -#line 1772 "VBNET.ATG" - pexpr = cie; - break; - } - case 94: case 106: case 219: { - -#line 1774 "VBNET.ATG" - CastType castType = CastType.Cast; - if (la.kind == 106) { - lexer.NextToken(); - } else if (la.kind == 94) { - lexer.NextToken(); - -#line 1776 "VBNET.ATG" - castType = CastType.Conversion; - } else if (la.kind == 219) { - lexer.NextToken(); - -#line 1777 "VBNET.ATG" - castType = CastType.TryCast; - } else SynErr(282); - Expect(37); - Expr( -#line 1779 "VBNET.ATG" -out expr); - Expect(22); - TypeName( -#line 1779 "VBNET.ATG" -out type); - Expect(38); - -#line 1780 "VBNET.ATG" - pexpr = new CastExpression(type, expr, castType); - break; - } - case 76: case 77: case 78: case 79: case 80: case 81: case 83: case 85: case 86: case 90: case 91: case 92: case 93: case 95: case 96: case 97: { - CastTarget( -#line 1781 "VBNET.ATG" -out type); - Expect(37); - Expr( -#line 1781 "VBNET.ATG" -out expr); - Expect(38); - -#line 1781 "VBNET.ATG" - pexpr = new CastExpression(type, expr, CastType.PrimitiveConversion); - break; - } - case 57: { - lexer.NextToken(); - Expr( -#line 1782 "VBNET.ATG" -out expr); - -#line 1782 "VBNET.ATG" - pexpr = new AddressOfExpression(expr); - break; - } - case 129: { - lexer.NextToken(); - Expect(37); - GetTypeTypeName( -#line 1783 "VBNET.ATG" -out type); - Expect(38); - -#line 1783 "VBNET.ATG" - pexpr = new TypeOfExpression(type); - break; - } - case 220: { - lexer.NextToken(); - SimpleExpr( -#line 1784 "VBNET.ATG" -out expr); - Expect(144); - TypeName( -#line 1784 "VBNET.ATG" -out type); - -#line 1784 "VBNET.ATG" - pexpr = new TypeOfIsExpression(expr, type); - break; - } - case 135: { - ConditionalExpression( -#line 1785 "VBNET.ATG" -out pexpr); - break; - } - case 10: case 16: case 17: case 18: case 19: { - XmlLiteralExpression( -#line 1786 "VBNET.ATG" -out pexpr); - break; - } - } - } else if (StartOf(35)) { - if (la.kind == 26) { - lexer.NextToken(); - if (la.kind == 10) { - lexer.NextToken(); - IdentifierOrKeyword( -#line 1792 "VBNET.ATG" -out name); - Expect(11); - -#line 1793 "VBNET.ATG" - pexpr = new XmlMemberAccessExpression(null, XmlAxisType.Element, name, true) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } else if (StartOf(33)) { - IdentifierOrKeyword( -#line 1794 "VBNET.ATG" -out name); - -#line 1795 "VBNET.ATG" - pexpr = new MemberReferenceExpression(null, name) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } else SynErr(283); - } else if (la.kind == 29) { - lexer.NextToken(); - IdentifierOrKeyword( -#line 1797 "VBNET.ATG" -out name); - -#line 1797 "VBNET.ATG" - pexpr = new BinaryOperatorExpression(null, BinaryOperatorType.DictionaryAccess, new PrimitiveExpression(name, name) { StartLocation = t.Location, EndLocation = t.EndLocation }); - } else { - -#line 1798 "VBNET.ATG" - XmlAxisType axisType = XmlAxisType.Element; bool isXmlIdentifier = false; - if (la.kind == 27) { - lexer.NextToken(); - -#line 1799 "VBNET.ATG" - axisType = XmlAxisType.Descendents; - } else if (la.kind == 28) { - lexer.NextToken(); - -#line 1799 "VBNET.ATG" - axisType = XmlAxisType.Attribute; - } else SynErr(284); - if (la.kind == 10) { - lexer.NextToken(); - -#line 1800 "VBNET.ATG" - isXmlIdentifier = true; - } - IdentifierOrKeyword( -#line 1800 "VBNET.ATG" -out name); - if (la.kind == 11) { - lexer.NextToken(); - } - -#line 1801 "VBNET.ATG" - pexpr = new XmlMemberAccessExpression(null, axisType, name, isXmlIdentifier); - } - } else SynErr(285); - -#line 1806 "VBNET.ATG" - if (pexpr != null) { - pexpr.StartLocation = startLocation; - pexpr.EndLocation = t.EndLocation; - } - - } - - void TypeArgumentList( -#line 2814 "VBNET.ATG" -List typeArguments) { - -#line 2816 "VBNET.ATG" - TypeReference typeref; - - TypeName( -#line 2818 "VBNET.ATG" -out typeref); - -#line 2818 "VBNET.ATG" - if (typeref != null) typeArguments.Add(typeref); - while (la.kind == 22) { - lexer.NextToken(); - TypeName( -#line 2821 "VBNET.ATG" -out typeref); - -#line 2821 "VBNET.ATG" - if (typeref != null) typeArguments.Add(typeref); - } - } - - void InvocationExpression( -#line 1927 "VBNET.ATG" -ref Expression pexpr) { - -#line 1928 "VBNET.ATG" - List parameters = null; - Expect(37); - -#line 1930 "VBNET.ATG" - Location start = t.Location; - ArgumentList( -#line 1931 "VBNET.ATG" -out parameters); - Expect(38); - -#line 1934 "VBNET.ATG" - pexpr = new InvocationExpression(pexpr, parameters); - - -#line 1936 "VBNET.ATG" - pexpr.StartLocation = start; pexpr.EndLocation = t.Location; - } - - void PrimitiveTypeName( -#line 3685 "VBNET.ATG" -out string type) { - -#line 3686 "VBNET.ATG" - type = String.Empty; - switch (la.kind) { - case 68: { - lexer.NextToken(); - -#line 3687 "VBNET.ATG" - type = "System.Boolean"; - break; - } - case 99: { - lexer.NextToken(); - -#line 3688 "VBNET.ATG" - type = "System.DateTime"; - break; - } - case 82: { - lexer.NextToken(); - -#line 3689 "VBNET.ATG" - type = "System.Char"; - break; - } - case 208: { - lexer.NextToken(); - -#line 3690 "VBNET.ATG" - type = "System.String"; - break; - } - case 100: { - lexer.NextToken(); - -#line 3691 "VBNET.ATG" - type = "System.Decimal"; - break; - } - case 71: { - lexer.NextToken(); - -#line 3692 "VBNET.ATG" - type = "System.Byte"; - break; - } - case 201: { - lexer.NextToken(); - -#line 3693 "VBNET.ATG" - type = "System.Int16"; - break; - } - case 141: { - lexer.NextToken(); - -#line 3694 "VBNET.ATG" - type = "System.Int32"; - break; - } - case 151: { - lexer.NextToken(); - -#line 3695 "VBNET.ATG" - type = "System.Int64"; - break; - } - case 202: { - lexer.NextToken(); - -#line 3696 "VBNET.ATG" - type = "System.Single"; - break; - } - case 109: { - lexer.NextToken(); - -#line 3697 "VBNET.ATG" - type = "System.Double"; - break; - } - case 221: { - lexer.NextToken(); - -#line 3698 "VBNET.ATG" - type = "System.UInt32"; - break; - } - case 222: { - lexer.NextToken(); - -#line 3699 "VBNET.ATG" - type = "System.UInt64"; - break; - } - case 225: { - lexer.NextToken(); - -#line 3700 "VBNET.ATG" - type = "System.UInt16"; - break; - } - case 196: { - lexer.NextToken(); - -#line 3701 "VBNET.ATG" - type = "System.SByte"; - break; - } - default: SynErr(286); break; - } - } - - void CastTarget( -#line 1941 "VBNET.ATG" -out TypeReference type) { - -#line 1943 "VBNET.ATG" - type = null; - - switch (la.kind) { - case 76: { - lexer.NextToken(); - -#line 1945 "VBNET.ATG" - type = new TypeReference("System.Boolean", true); - break; - } - case 77: { - lexer.NextToken(); - -#line 1946 "VBNET.ATG" - type = new TypeReference("System.Byte", true); - break; - } - case 90: { - lexer.NextToken(); - -#line 1947 "VBNET.ATG" - type = new TypeReference("System.SByte", true); - break; - } - case 78: { - lexer.NextToken(); - -#line 1948 "VBNET.ATG" - type = new TypeReference("System.Char", true); - break; - } - case 79: { - lexer.NextToken(); - -#line 1949 "VBNET.ATG" - type = new TypeReference("System.DateTime", true); - break; - } - case 81: { - lexer.NextToken(); - -#line 1950 "VBNET.ATG" - type = new TypeReference("System.Decimal", true); - break; - } - case 80: { - lexer.NextToken(); - -#line 1951 "VBNET.ATG" - type = new TypeReference("System.Double", true); - break; - } - case 91: { - lexer.NextToken(); - -#line 1952 "VBNET.ATG" - type = new TypeReference("System.Int16", true); - break; - } - case 83: { - lexer.NextToken(); - -#line 1953 "VBNET.ATG" - type = new TypeReference("System.Int32", true); - break; - } - case 85: { - lexer.NextToken(); - -#line 1954 "VBNET.ATG" - type = new TypeReference("System.Int64", true); - break; - } - case 97: { - lexer.NextToken(); - -#line 1955 "VBNET.ATG" - type = new TypeReference("System.UInt16", true); - break; - } - case 95: { - lexer.NextToken(); - -#line 1956 "VBNET.ATG" - type = new TypeReference("System.UInt32", true); - break; - } - case 96: { - lexer.NextToken(); - -#line 1957 "VBNET.ATG" - type = new TypeReference("System.UInt64", true); - break; - } - case 86: { - lexer.NextToken(); - -#line 1958 "VBNET.ATG" - type = new TypeReference("System.Object", true); - break; - } - case 92: { - lexer.NextToken(); - -#line 1959 "VBNET.ATG" - type = new TypeReference("System.Single", true); - break; - } - case 93: { - lexer.NextToken(); - -#line 1960 "VBNET.ATG" - type = new TypeReference("System.String", true); - break; - } - default: SynErr(287); break; - } - } - - void GetTypeTypeName( -#line 2713 "VBNET.ATG" -out TypeReference typeref) { - -#line 2714 "VBNET.ATG" - ArrayList rank = null; - NonArrayTypeName( -#line 2716 "VBNET.ATG" -out typeref, true); - ArrayTypeModifiers( -#line 2717 "VBNET.ATG" -out rank); - -#line 2718 "VBNET.ATG" - if (rank != null && typeref != null) { - typeref.RankSpecifier = (int[])rank.ToArray(typeof(int)); - } - - } - - void ConditionalExpression( -#line 1893 "VBNET.ATG" -out Expression expr) { - -#line 1895 "VBNET.ATG" - ConditionalExpression conditionalExpression = new ConditionalExpression(); - BinaryOperatorExpression binaryOperatorExpression = new BinaryOperatorExpression(); - conditionalExpression.StartLocation = binaryOperatorExpression.StartLocation = la.Location; - - Expression condition = null; - Expression trueExpr = null; - Expression falseExpr = null; - - Expect(135); - Expect(37); - Expr( -#line 1904 "VBNET.ATG" -out condition); - Expect(22); - Expr( -#line 1904 "VBNET.ATG" -out trueExpr); - if (la.kind == 22) { - lexer.NextToken(); - Expr( -#line 1904 "VBNET.ATG" -out falseExpr); - } - Expect(38); - -#line 1906 "VBNET.ATG" - if(falseExpr != null) - { - conditionalExpression.Condition = condition; - conditionalExpression.TrueExpression = trueExpr; - conditionalExpression.FalseExpression = falseExpr; - conditionalExpression.EndLocation = t.EndLocation; - - expr = conditionalExpression; - } - else - { - binaryOperatorExpression.Left = condition; - binaryOperatorExpression.Right = trueExpr; - binaryOperatorExpression.Op = BinaryOperatorType.NullCoalescing; - binaryOperatorExpression.EndLocation = t.EndLocation; - - expr = binaryOperatorExpression; - } - - } - - void XmlLiteralExpression( -#line 1813 "VBNET.ATG" -out Expression pexpr) { - -#line 1815 "VBNET.ATG" - List exprs = new List(); - XmlExpression currentExpression = null; - - if (StartOf(36)) { - XmlContentExpression( -#line 1820 "VBNET.ATG" -exprs); - while (StartOf(36)) { - XmlContentExpression( -#line 1820 "VBNET.ATG" -exprs); - } - if (la.kind == 10) { - XmlElement( -#line 1820 "VBNET.ATG" -out currentExpression); - -#line 1820 "VBNET.ATG" - exprs.Add(currentExpression); - while (StartOf(36)) { - XmlContentExpression( -#line 1820 "VBNET.ATG" -exprs); - } - } - } else if (la.kind == 10) { - XmlElement( -#line 1822 "VBNET.ATG" -out currentExpression); - -#line 1822 "VBNET.ATG" - exprs.Add(currentExpression); - while (StartOf(36)) { - XmlContentExpression( -#line 1822 "VBNET.ATG" -exprs); - } - } else SynErr(288); - -#line 1825 "VBNET.ATG" - if (exprs.Count > 1) { - pexpr = new XmlDocumentExpression() { Expressions = exprs }; - } else { - pexpr = exprs[0]; - } - - } - - void XmlContentExpression( -#line 1833 "VBNET.ATG" -List exprs) { - -#line 1834 "VBNET.ATG" - XmlContentExpression expr = null; - if (la.kind == 16) { - lexer.NextToken(); - -#line 1836 "VBNET.ATG" - expr = new XmlContentExpression(t.val, XmlContentType.Text); - } else if (la.kind == 18) { - lexer.NextToken(); - -#line 1837 "VBNET.ATG" - expr = new XmlContentExpression(t.val, XmlContentType.CData); - } else if (la.kind == 17) { - lexer.NextToken(); - -#line 1838 "VBNET.ATG" - expr = new XmlContentExpression(t.val, XmlContentType.Comment); - } else if (la.kind == 19) { - lexer.NextToken(); - -#line 1839 "VBNET.ATG" - expr = new XmlContentExpression(t.val, XmlContentType.ProcessingInstruction); - } else SynErr(289); - -#line 1842 "VBNET.ATG" - expr.StartLocation = t.Location; - expr.EndLocation = t.EndLocation; - exprs.Add(expr); - - } - - void XmlElement( -#line 1868 "VBNET.ATG" -out XmlExpression expr) { - -#line 1869 "VBNET.ATG" - XmlElementExpression el = new XmlElementExpression(); - Expect(10); - -#line 1872 "VBNET.ATG" - el.StartLocation = t.Location; - if (la.kind == 12) { - lexer.NextToken(); - -#line 1873 "VBNET.ATG" - Expression innerExpression; - Expr( -#line 1873 "VBNET.ATG" -out innerExpression); - Expect(13); - -#line 1874 "VBNET.ATG" - el.NameExpression = new XmlEmbeddedExpression() { InlineVBExpression = innerExpression }; - } else if (StartOf(4)) { - Identifier(); - -#line 1875 "VBNET.ATG" - el.XmlName = t.val; - } else SynErr(290); - while (StartOf(37)) { - XmlAttribute( -#line 1875 "VBNET.ATG" -el.Attributes); - } - if (la.kind == 14) { - lexer.NextToken(); - -#line 1876 "VBNET.ATG" - el.EndLocation = t.EndLocation; - } else if (la.kind == 11) { - lexer.NextToken(); - while (StartOf(38)) { - -#line 1876 "VBNET.ATG" - XmlExpression child; - XmlNestedContent( -#line 1876 "VBNET.ATG" -out child); - -#line 1876 "VBNET.ATG" - el.Children.Add(child); - } - Expect(15); - while (StartOf(39)) { - lexer.NextToken(); - } - Expect(11); - -#line 1876 "VBNET.ATG" - el.EndLocation = t.EndLocation; - } else SynErr(291); - -#line 1878 "VBNET.ATG" - expr = el; - } - - void XmlNestedContent( -#line 1848 "VBNET.ATG" -out XmlExpression expr) { - -#line 1849 "VBNET.ATG" - XmlExpression tmpExpr = null; Location start = la.Location; - switch (la.kind) { - case 16: { - lexer.NextToken(); - -#line 1852 "VBNET.ATG" - tmpExpr = new XmlContentExpression(t.val, XmlContentType.Text); - break; - } - case 18: { - lexer.NextToken(); - -#line 1853 "VBNET.ATG" - tmpExpr = new XmlContentExpression(t.val, XmlContentType.CData); - break; - } - case 17: { - lexer.NextToken(); - -#line 1854 "VBNET.ATG" - tmpExpr = new XmlContentExpression(t.val, XmlContentType.Comment); - break; - } - case 19: { - lexer.NextToken(); - -#line 1855 "VBNET.ATG" - tmpExpr = new XmlContentExpression(t.val, XmlContentType.ProcessingInstruction); - break; - } - case 12: { - lexer.NextToken(); - -#line 1856 "VBNET.ATG" - Expression innerExpression; - Expr( -#line 1856 "VBNET.ATG" -out innerExpression); - Expect(13); - -#line 1856 "VBNET.ATG" - tmpExpr = new XmlEmbeddedExpression() { InlineVBExpression = innerExpression }; - break; - } - case 10: { - XmlElement( -#line 1857 "VBNET.ATG" -out tmpExpr); - break; - } - default: SynErr(292); break; - } - -#line 1860 "VBNET.ATG" - if (tmpExpr.StartLocation.IsEmpty) - tmpExpr.StartLocation = start; - if (tmpExpr.EndLocation.IsEmpty) - tmpExpr.EndLocation = t.EndLocation; - expr = tmpExpr; - - } - - void XmlAttribute( -#line 1881 "VBNET.ATG" -List attrs) { - -#line 1882 "VBNET.ATG" - Location start = la.Location; - if (StartOf(4)) { - Identifier(); - -#line 1884 "VBNET.ATG" - string name = t.val; - Expect(20); - -#line 1885 "VBNET.ATG" - string literalValue = null; Expression expressionValue = null; bool useDoubleQuotes = false; - if (la.kind == 3) { - lexer.NextToken(); - -#line 1886 "VBNET.ATG" - literalValue = t.literalValue.ToString(); useDoubleQuotes = t.val[0] == '"'; - } else if (la.kind == 12) { - lexer.NextToken(); - Expr( -#line 1886 "VBNET.ATG" -out expressionValue); - Expect(13); - } else SynErr(293); - -#line 1887 "VBNET.ATG" - attrs.Add(new XmlAttributeExpression() { Name = name, ExpressionValue = expressionValue, LiteralValue = literalValue, UseDoubleQuotes = useDoubleQuotes, StartLocation = start, EndLocation = t.EndLocation }); - } else if (la.kind == 12) { - lexer.NextToken(); - -#line 1889 "VBNET.ATG" - Expression innerExpression; - Expr( -#line 1889 "VBNET.ATG" -out innerExpression); - Expect(13); - -#line 1890 "VBNET.ATG" - attrs.Add(new XmlEmbeddedExpression() { InlineVBExpression = innerExpression, StartLocation = start, EndLocation = t.EndLocation }); - } else SynErr(294); - } - - void ArgumentList( -#line 2642 "VBNET.ATG" -out List arguments) { - -#line 2644 "VBNET.ATG" - arguments = new List(); - Expression expr = null; - - if (StartOf(24)) { - Argument( -#line 2647 "VBNET.ATG" -out expr); - } - while (la.kind == 22) { - lexer.NextToken(); - -#line 2648 "VBNET.ATG" - arguments.Add(expr ?? Expression.Null); expr = null; - if (StartOf(24)) { - Argument( -#line 2649 "VBNET.ATG" -out expr); - } - -#line 2650 "VBNET.ATG" - if (expr == null) expr = Expression.Null; - } - -#line 2652 "VBNET.ATG" - if (expr != null) arguments.Add(expr); - } - - void ConjunctionExpr( -#line 1980 "VBNET.ATG" -out Expression outExpr) { - -#line 1982 "VBNET.ATG" - Expression expr; - BinaryOperatorType op = BinaryOperatorType.None; - Location startLocation = la.Location; - - NotExpr( -#line 1986 "VBNET.ATG" -out outExpr); - while (la.kind == 60 || la.kind == 61) { - if (la.kind == 60) { - lexer.NextToken(); - -#line 1989 "VBNET.ATG" - op = BinaryOperatorType.BitwiseAnd; - } else { - lexer.NextToken(); - -#line 1990 "VBNET.ATG" - op = BinaryOperatorType.LogicalAnd; - } - NotExpr( -#line 1992 "VBNET.ATG" -out expr); - -#line 1992 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, op, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void NotExpr( -#line 1996 "VBNET.ATG" -out Expression outExpr) { - -#line 1997 "VBNET.ATG" - UnaryOperatorType uop = UnaryOperatorType.None; - while (la.kind == 164) { - lexer.NextToken(); - -#line 1998 "VBNET.ATG" - uop = UnaryOperatorType.Not; - } - ComparisonExpr( -#line 1999 "VBNET.ATG" -out outExpr); - -#line 2000 "VBNET.ATG" - if (uop != UnaryOperatorType.None) - outExpr = new UnaryOperatorExpression(outExpr, uop); - - } - - void ComparisonExpr( -#line 2005 "VBNET.ATG" -out Expression outExpr) { - -#line 2007 "VBNET.ATG" - Expression expr; - BinaryOperatorType op = BinaryOperatorType.None; - Location startLocation = la.Location; - - ShiftExpr( -#line 2011 "VBNET.ATG" -out outExpr); - while (StartOf(40)) { - switch (la.kind) { - case 40: { - lexer.NextToken(); - -#line 2014 "VBNET.ATG" - op = BinaryOperatorType.LessThan; - break; - } - case 39: { - lexer.NextToken(); - -#line 2015 "VBNET.ATG" - op = BinaryOperatorType.GreaterThan; - break; - } - case 43: { - lexer.NextToken(); - -#line 2016 "VBNET.ATG" - op = BinaryOperatorType.LessThanOrEqual; - break; - } - case 42: { - lexer.NextToken(); - -#line 2017 "VBNET.ATG" - op = BinaryOperatorType.GreaterThanOrEqual; - break; - } - case 41: { - lexer.NextToken(); - -#line 2018 "VBNET.ATG" - op = BinaryOperatorType.InEquality; - break; - } - case 20: { - lexer.NextToken(); - -#line 2019 "VBNET.ATG" - op = BinaryOperatorType.Equality; - break; - } - case 150: { - lexer.NextToken(); - -#line 2020 "VBNET.ATG" - op = BinaryOperatorType.Like; - break; - } - case 144: { - lexer.NextToken(); - -#line 2021 "VBNET.ATG" - op = BinaryOperatorType.ReferenceEquality; - break; - } - case 145: { - lexer.NextToken(); - -#line 2022 "VBNET.ATG" - op = BinaryOperatorType.ReferenceInequality; - break; - } - } - if (StartOf(41)) { - ShiftExpr( -#line 2025 "VBNET.ATG" -out expr); - -#line 2025 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, op, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } else if (la.kind == 164) { - -#line 2026 "VBNET.ATG" - Location startLocation2 = la.Location; - lexer.NextToken(); - ShiftExpr( -#line 2028 "VBNET.ATG" -out expr); - -#line 2028 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, op, new UnaryOperatorExpression(expr, UnaryOperatorType.Not) { StartLocation = startLocation2, EndLocation = t.EndLocation }) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } else SynErr(295); - } - } - - void ShiftExpr( -#line 2033 "VBNET.ATG" -out Expression outExpr) { - -#line 2035 "VBNET.ATG" - Expression expr; - BinaryOperatorType op = BinaryOperatorType.None; - Location startLocation = la.Location; - - ConcatenationExpr( -#line 2039 "VBNET.ATG" -out outExpr); - while (la.kind == 44 || la.kind == 45) { - if (la.kind == 44) { - lexer.NextToken(); - -#line 2042 "VBNET.ATG" - op = BinaryOperatorType.ShiftLeft; - } else { - lexer.NextToken(); - -#line 2043 "VBNET.ATG" - op = BinaryOperatorType.ShiftRight; - } - ConcatenationExpr( -#line 2045 "VBNET.ATG" -out expr); - -#line 2045 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, op, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void ConcatenationExpr( -#line 2049 "VBNET.ATG" -out Expression outExpr) { - -#line 2050 "VBNET.ATG" - Expression expr; Location startLocation = la.Location; - AdditiveExpr( -#line 2052 "VBNET.ATG" -out outExpr); - while (la.kind == 23) { - lexer.NextToken(); - AdditiveExpr( -#line 2052 "VBNET.ATG" -out expr); - -#line 2052 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, BinaryOperatorType.Concat, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void AdditiveExpr( -#line 2055 "VBNET.ATG" -out Expression outExpr) { - -#line 2057 "VBNET.ATG" - Expression expr; - BinaryOperatorType op = BinaryOperatorType.None; - Location startLocation = la.Location; - - ModuloExpr( -#line 2061 "VBNET.ATG" -out outExpr); - while (la.kind == 30 || la.kind == 31) { - if (la.kind == 31) { - lexer.NextToken(); - -#line 2064 "VBNET.ATG" - op = BinaryOperatorType.Add; - } else { - lexer.NextToken(); - -#line 2065 "VBNET.ATG" - op = BinaryOperatorType.Subtract; - } - ModuloExpr( -#line 2067 "VBNET.ATG" -out expr); - -#line 2067 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, op, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void ModuloExpr( -#line 2071 "VBNET.ATG" -out Expression outExpr) { - -#line 2072 "VBNET.ATG" - Expression expr; Location startLocation = la.Location; - IntegerDivisionExpr( -#line 2074 "VBNET.ATG" -out outExpr); - while (la.kind == 154) { - lexer.NextToken(); - IntegerDivisionExpr( -#line 2074 "VBNET.ATG" -out expr); - -#line 2074 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, BinaryOperatorType.Modulus, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void IntegerDivisionExpr( -#line 2077 "VBNET.ATG" -out Expression outExpr) { - -#line 2078 "VBNET.ATG" - Expression expr; Location startLocation = la.Location; - MultiplicativeExpr( -#line 2080 "VBNET.ATG" -out outExpr); - while (la.kind == 25) { - lexer.NextToken(); - MultiplicativeExpr( -#line 2080 "VBNET.ATG" -out expr); - -#line 2080 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, BinaryOperatorType.DivideInteger, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void MultiplicativeExpr( -#line 2083 "VBNET.ATG" -out Expression outExpr) { - -#line 2085 "VBNET.ATG" - Expression expr; - BinaryOperatorType op = BinaryOperatorType.None; - Location startLocation = la.Location; - - UnaryExpr( -#line 2089 "VBNET.ATG" -out outExpr); - while (la.kind == 24 || la.kind == 34) { - if (la.kind == 34) { - lexer.NextToken(); - -#line 2092 "VBNET.ATG" - op = BinaryOperatorType.Multiply; - } else { - lexer.NextToken(); - -#line 2093 "VBNET.ATG" - op = BinaryOperatorType.Divide; - } - UnaryExpr( -#line 2095 "VBNET.ATG" -out expr); - -#line 2095 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, op, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void UnaryExpr( -#line 2099 "VBNET.ATG" -out Expression uExpr) { - -#line 2101 "VBNET.ATG" - Expression expr; - UnaryOperatorType uop = UnaryOperatorType.None; - Location startLocation = la.Location; - bool isUOp = false; - - while (la.kind == 30 || la.kind == 31 || la.kind == 34) { - if (la.kind == 31) { - lexer.NextToken(); - -#line 2106 "VBNET.ATG" - uop = UnaryOperatorType.Plus; isUOp = true; - } else if (la.kind == 30) { - lexer.NextToken(); - -#line 2107 "VBNET.ATG" - uop = UnaryOperatorType.Minus; isUOp = true; - } else { - lexer.NextToken(); - -#line 2108 "VBNET.ATG" - uop = UnaryOperatorType.Dereference; isUOp = true; - } - } - ExponentiationExpr( -#line 2110 "VBNET.ATG" -out expr); - -#line 2112 "VBNET.ATG" - if (isUOp) { - uExpr = new UnaryOperatorExpression(expr, uop) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } else { - uExpr = expr; - } - - } - - void ExponentiationExpr( -#line 2120 "VBNET.ATG" -out Expression outExpr) { - -#line 2121 "VBNET.ATG" - Expression expr; Location startLocation = la.Location; - SimpleExpr( -#line 2123 "VBNET.ATG" -out outExpr); - while (la.kind == 32) { - lexer.NextToken(); - SimpleExpr( -#line 2123 "VBNET.ATG" -out expr); - -#line 2123 "VBNET.ATG" - outExpr = new BinaryOperatorExpression(outExpr, BinaryOperatorType.Power, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } - } - - void NormalOrReDimArgumentList( -#line 2656 "VBNET.ATG" -out List arguments, out bool canBeNormal, out bool canBeRedim) { - -#line 2658 "VBNET.ATG" - arguments = new List(); - canBeNormal = true; canBeRedim = !IsNamedAssign(); - Expression expr = null; - - if (StartOf(24)) { - Argument( -#line 2663 "VBNET.ATG" -out expr); - if (la.kind == 216) { - lexer.NextToken(); - -#line 2664 "VBNET.ATG" - EnsureIsZero(expr); canBeNormal = false; - Expr( -#line 2665 "VBNET.ATG" -out expr); - } - } - while (la.kind == 22) { - lexer.NextToken(); - -#line 2668 "VBNET.ATG" - if (expr == null) canBeRedim = false; - -#line 2669 "VBNET.ATG" - arguments.Add(expr ?? Expression.Null); expr = null; - -#line 2670 "VBNET.ATG" - canBeRedim &= !IsNamedAssign(); - if (StartOf(24)) { - Argument( -#line 2671 "VBNET.ATG" -out expr); - if (la.kind == 216) { - lexer.NextToken(); - -#line 2672 "VBNET.ATG" - EnsureIsZero(expr); canBeNormal = false; - Expr( -#line 2673 "VBNET.ATG" -out expr); - } - } - -#line 2675 "VBNET.ATG" - if (expr == null) { canBeRedim = false; expr = Expression.Null; } - } - -#line 2677 "VBNET.ATG" - if (expr != null) arguments.Add(expr); else canBeRedim = false; - } - - void ArrayTypeModifiers( -#line 2787 "VBNET.ATG" -out ArrayList arrayModifiers) { - -#line 2789 "VBNET.ATG" - arrayModifiers = new ArrayList(); - int i = 0; - - while ( -#line 2792 "VBNET.ATG" -IsDims()) { - Expect(37); - if (la.kind == 22 || la.kind == 38) { - RankList( -#line 2794 "VBNET.ATG" -out i); - } - -#line 2796 "VBNET.ATG" - arrayModifiers.Add(i); - - Expect(38); - } - -#line 2801 "VBNET.ATG" - if(arrayModifiers.Count == 0) { - arrayModifiers = null; - } - - } - - void MemberInitializer( -#line 2623 "VBNET.ATG" -out MemberInitializerExpression memberInitializer) { - -#line 2625 "VBNET.ATG" - memberInitializer = new MemberInitializerExpression(); - memberInitializer.StartLocation = la.Location; - Expression initExpr = null; - bool isKey = false; - string name = null; - - if (la.kind == 147) { - lexer.NextToken(); - -#line 2631 "VBNET.ATG" - isKey = true; - } - Expect(26); - IdentifierOrKeyword( -#line 2632 "VBNET.ATG" -out name); - Expect(20); - Expr( -#line 2632 "VBNET.ATG" -out initExpr); - -#line 2634 "VBNET.ATG" - memberInitializer.Name = name; - memberInitializer.Expression = initExpr; - memberInitializer.IsKey = isKey; - memberInitializer.EndLocation = t.EndLocation; - - } - - void SubLambdaExpression( -#line 2222 "VBNET.ATG" -out LambdaExpression lambda) { - -#line 2224 "VBNET.ATG" - lambda = new LambdaExpression(); - lambda.ReturnType = new TypeReference("System.Void", true); - Expression inner = null; - Statement statement = null; - lambda.StartLocation = la.Location; - - Expect(210); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 2231 "VBNET.ATG" -lambda.Parameters); - } - Expect(38); - } - if (StartOf(42)) { - if (StartOf(24)) { - Expr( -#line 2234 "VBNET.ATG" -out inner); - -#line 2236 "VBNET.ATG" - lambda.ExpressionBody = inner; - lambda.EndLocation = t.EndLocation; // la.Location? - lambda.ExtendedEndLocation = la.Location; - - } else { - EmbeddedStatement( -#line 2241 "VBNET.ATG" -out statement); - -#line 2243 "VBNET.ATG" - lambda.StatementBody = statement; - lambda.EndLocation = t.EndLocation; - lambda.ExtendedEndLocation = la.Location; - - } - } else if (la.kind == 1) { - lexer.NextToken(); - Block( -#line 2250 "VBNET.ATG" -out statement); - Expect(113); - Expect(210); - -#line 2253 "VBNET.ATG" - lambda.StatementBody = statement; - lambda.EndLocation = t.EndLocation; - lambda.ExtendedEndLocation = la.Location; - - } else SynErr(296); - } - - void FunctionLambdaExpression( -#line 2260 "VBNET.ATG" -out LambdaExpression lambda) { - -#line 2262 "VBNET.ATG" - lambda = new LambdaExpression(); - TypeReference typeRef = null; - Expression inner = null; - Statement statement = null; - lambda.StartLocation = la.Location; - - Expect(127); - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(6)) { - FormalParameterList( -#line 2269 "VBNET.ATG" -lambda.Parameters); - } - Expect(38); - } - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 2270 "VBNET.ATG" -out typeRef); - -#line 2270 "VBNET.ATG" - lambda.ReturnType = typeRef; - } - if (StartOf(42)) { - if (StartOf(24)) { - Expr( -#line 2273 "VBNET.ATG" -out inner); - -#line 2275 "VBNET.ATG" - lambda.ExpressionBody = inner; - lambda.EndLocation = t.EndLocation; - lambda.ExtendedEndLocation = la.Location; - - } else { - EmbeddedStatement( -#line 2280 "VBNET.ATG" -out statement); - -#line 2282 "VBNET.ATG" - lambda.StatementBody = statement; - lambda.EndLocation = t.EndLocation; - lambda.ExtendedEndLocation = la.Location; - - } - } else if (la.kind == 1) { - lexer.NextToken(); - Block( -#line 2289 "VBNET.ATG" -out statement); - Expect(113); - Expect(127); - -#line 2292 "VBNET.ATG" - lambda.StatementBody = statement; - lambda.EndLocation = t.EndLocation; - lambda.ExtendedEndLocation = la.Location; - - } else SynErr(297); - } - - void EmbeddedStatement( -#line 3073 "VBNET.ATG" -out Statement statement) { - -#line 3075 "VBNET.ATG" - Statement embeddedStatement = null; - statement = null; - Expression expr = null; - string name = String.Empty; - List p = null; - Location startLocation = la.Location; - - if (la.kind == 120) { - lexer.NextToken(); - -#line 3083 "VBNET.ATG" - ExitType exitType = ExitType.None; - switch (la.kind) { - case 210: { - lexer.NextToken(); - -#line 3085 "VBNET.ATG" - exitType = ExitType.Sub; - break; - } - case 127: { - lexer.NextToken(); - -#line 3087 "VBNET.ATG" - exitType = ExitType.Function; - break; - } - case 186: { - lexer.NextToken(); - -#line 3089 "VBNET.ATG" - exitType = ExitType.Property; - break; - } - case 108: { - lexer.NextToken(); - -#line 3091 "VBNET.ATG" - exitType = ExitType.Do; - break; - } - case 124: { - lexer.NextToken(); - -#line 3093 "VBNET.ATG" - exitType = ExitType.For; - break; - } - case 218: { - lexer.NextToken(); - -#line 3095 "VBNET.ATG" - exitType = ExitType.Try; - break; - } - case 231: { - lexer.NextToken(); - -#line 3097 "VBNET.ATG" - exitType = ExitType.While; - break; - } - case 197: { - lexer.NextToken(); - -#line 3099 "VBNET.ATG" - exitType = ExitType.Select; - break; - } - default: SynErr(298); break; - } - -#line 3101 "VBNET.ATG" - statement = new ExitStatement(exitType); - } else if (la.kind == 218) { - TryStatement( -#line 3102 "VBNET.ATG" -out statement); - } else if (la.kind == 89) { - lexer.NextToken(); - -#line 3103 "VBNET.ATG" - ContinueType continueType = ContinueType.None; - if (la.kind == 108 || la.kind == 124 || la.kind == 231) { - if (la.kind == 108) { - lexer.NextToken(); - -#line 3103 "VBNET.ATG" - continueType = ContinueType.Do; - } else if (la.kind == 124) { - lexer.NextToken(); - -#line 3103 "VBNET.ATG" - continueType = ContinueType.For; - } else { - lexer.NextToken(); - -#line 3103 "VBNET.ATG" - continueType = ContinueType.While; - } - } - -#line 3103 "VBNET.ATG" - statement = new ContinueStatement(continueType); - } else if (la.kind == 215) { - lexer.NextToken(); - if (StartOf(24)) { - Expr( -#line 3105 "VBNET.ATG" -out expr); - } - -#line 3105 "VBNET.ATG" - statement = new ThrowStatement(expr); - } else if (la.kind == 195) { - lexer.NextToken(); - if (StartOf(24)) { - Expr( -#line 3107 "VBNET.ATG" -out expr); - } - -#line 3107 "VBNET.ATG" - statement = new ReturnStatement(expr); - } else if (la.kind == 211) { - lexer.NextToken(); - Expr( -#line 3109 "VBNET.ATG" -out expr); - EndOfStmt(); - Block( -#line 3109 "VBNET.ATG" -out embeddedStatement); - Expect(113); - Expect(211); - -#line 3110 "VBNET.ATG" - statement = new LockStatement(expr, embeddedStatement); - } else if (la.kind == 189) { - lexer.NextToken(); - Identifier(); - -#line 3112 "VBNET.ATG" - name = t.val; - if (la.kind == 37) { - lexer.NextToken(); - if (StartOf(43)) { - ArgumentList( -#line 3113 "VBNET.ATG" -out p); - } - Expect(38); - } - -#line 3115 "VBNET.ATG" - statement = new RaiseEventStatement(name, p); - - } else if (la.kind == 233) { - WithStatement( -#line 3118 "VBNET.ATG" -out statement); - } else if (la.kind == 56) { - lexer.NextToken(); - -#line 3120 "VBNET.ATG" - Expression handlerExpr = null; - Expr( -#line 3121 "VBNET.ATG" -out expr); - Expect(22); - Expr( -#line 3121 "VBNET.ATG" -out handlerExpr); - -#line 3123 "VBNET.ATG" - statement = new AddHandlerStatement(expr, handlerExpr); - - } else if (la.kind == 193) { - lexer.NextToken(); - -#line 3126 "VBNET.ATG" - Expression handlerExpr = null; - Expr( -#line 3127 "VBNET.ATG" -out expr); - Expect(22); - Expr( -#line 3127 "VBNET.ATG" -out handlerExpr); - -#line 3129 "VBNET.ATG" - statement = new RemoveHandlerStatement(expr, handlerExpr); - - } else if (la.kind == 231) { - lexer.NextToken(); - Expr( -#line 3132 "VBNET.ATG" -out expr); - EndOfStmt(); - Block( -#line 3133 "VBNET.ATG" -out embeddedStatement); - Expect(113); - Expect(231); - -#line 3135 "VBNET.ATG" - statement = new DoLoopStatement(expr, embeddedStatement, ConditionType.While, ConditionPosition.Start); - - } else if (la.kind == 108) { - lexer.NextToken(); - -#line 3140 "VBNET.ATG" - ConditionType conditionType = ConditionType.None; - - if (la.kind == 224 || la.kind == 231) { - WhileOrUntil( -#line 3143 "VBNET.ATG" -out conditionType); - Expr( -#line 3143 "VBNET.ATG" -out expr); - EndOfStmt(); - Block( -#line 3144 "VBNET.ATG" -out embeddedStatement); - Expect(152); - -#line 3147 "VBNET.ATG" - statement = new DoLoopStatement(expr, - embeddedStatement, - conditionType == ConditionType.While ? ConditionType.DoWhile : conditionType, - ConditionPosition.Start); - - } else if (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - Block( -#line 3154 "VBNET.ATG" -out embeddedStatement); - Expect(152); - if (la.kind == 224 || la.kind == 231) { - WhileOrUntil( -#line 3155 "VBNET.ATG" -out conditionType); - Expr( -#line 3155 "VBNET.ATG" -out expr); - } - -#line 3157 "VBNET.ATG" - statement = new DoLoopStatement(expr, embeddedStatement, conditionType, ConditionPosition.End); - - } else SynErr(299); - } else if (la.kind == 124) { - lexer.NextToken(); - -#line 3162 "VBNET.ATG" - Expression group = null; - TypeReference typeReference; - string typeName; - - if (la.kind == 110) { - lexer.NextToken(); - LoopControlVariable( -#line 3168 "VBNET.ATG" -out typeReference, out typeName); - Expect(138); - Expr( -#line 3169 "VBNET.ATG" -out group); - EndOfStmt(); - Block( -#line 3170 "VBNET.ATG" -out embeddedStatement); - Expect(163); - if (StartOf(24)) { - Expr( -#line 3171 "VBNET.ATG" -out expr); - } - -#line 3173 "VBNET.ATG" - statement = new ForeachStatement(typeReference, - typeName, - group, - embeddedStatement, - expr); - statement.StartLocation = startLocation; - statement.EndLocation = t.EndLocation; - - - } else if (StartOf(44)) { - -#line 3184 "VBNET.ATG" - Expression start = null; - Expression end = null; - Expression step = null; - Expression variableExpr = null; - Expression nextExpr = null; - List nextExpressions = null; - - if ( -#line 3191 "VBNET.ATG" -IsLoopVariableDeclaration()) { - LoopControlVariable( -#line 3192 "VBNET.ATG" -out typeReference, out typeName); - } else { - -#line 3194 "VBNET.ATG" - typeReference = null; typeName = null; - SimpleExpr( -#line 3195 "VBNET.ATG" -out variableExpr); - } - Expect(20); - Expr( -#line 3197 "VBNET.ATG" -out start); - Expect(216); - Expr( -#line 3197 "VBNET.ATG" -out end); - if (la.kind == 205) { - lexer.NextToken(); - Expr( -#line 3197 "VBNET.ATG" -out step); - } - EndOfStmt(); - Block( -#line 3198 "VBNET.ATG" -out embeddedStatement); - Expect(163); - if (StartOf(24)) { - Expr( -#line 3201 "VBNET.ATG" -out nextExpr); - -#line 3203 "VBNET.ATG" - nextExpressions = new List(); - nextExpressions.Add(nextExpr); - - while (la.kind == 22) { - lexer.NextToken(); - Expr( -#line 3206 "VBNET.ATG" -out nextExpr); - -#line 3206 "VBNET.ATG" - nextExpressions.Add(nextExpr); - } - } - -#line 3209 "VBNET.ATG" - statement = new ForNextStatement { - TypeReference = typeReference, - VariableName = typeName, - LoopVariableExpression = variableExpr, - Start = start, - End = end, - Step = step, - EmbeddedStatement = embeddedStatement, - NextExpressions = nextExpressions - }; - - } else SynErr(300); - } else if (la.kind == 118) { - lexer.NextToken(); - Expr( -#line 3222 "VBNET.ATG" -out expr); - -#line 3222 "VBNET.ATG" - statement = new ErrorStatement(expr); - } else if (la.kind == 191) { - lexer.NextToken(); - -#line 3224 "VBNET.ATG" - bool isPreserve = false; - if (la.kind == 184) { - lexer.NextToken(); - -#line 3224 "VBNET.ATG" - isPreserve = true; - } - ReDimClause( -#line 3225 "VBNET.ATG" -out expr); - -#line 3227 "VBNET.ATG" - ReDimStatement reDimStatement = new ReDimStatement(isPreserve); - statement = reDimStatement; - SafeAdd(reDimStatement, reDimStatement.ReDimClauses, expr as InvocationExpression); - - while (la.kind == 22) { - lexer.NextToken(); - ReDimClause( -#line 3231 "VBNET.ATG" -out expr); - -#line 3232 "VBNET.ATG" - SafeAdd(reDimStatement, reDimStatement.ReDimClauses, expr as InvocationExpression); - } - } else if (la.kind == 117) { - lexer.NextToken(); - Expr( -#line 3236 "VBNET.ATG" -out expr); - -#line 3238 "VBNET.ATG" - EraseStatement eraseStatement = new EraseStatement(); - if (expr != null) { SafeAdd(eraseStatement, eraseStatement.Expressions, expr);} - - while (la.kind == 22) { - lexer.NextToken(); - Expr( -#line 3241 "VBNET.ATG" -out expr); - -#line 3241 "VBNET.ATG" - if (expr != null) { SafeAdd(eraseStatement, eraseStatement.Expressions, expr); } - } - -#line 3242 "VBNET.ATG" - statement = eraseStatement; - } else if (la.kind == 206) { - lexer.NextToken(); - -#line 3244 "VBNET.ATG" - statement = new StopStatement(); - } else if ( -#line 3246 "VBNET.ATG" -la.kind == Tokens.If) { - Expect(135); - -#line 3247 "VBNET.ATG" - Location ifStartLocation = t.Location; - Expr( -#line 3247 "VBNET.ATG" -out expr); - if (la.kind == 214) { - lexer.NextToken(); - } - if (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - Block( -#line 3250 "VBNET.ATG" -out embeddedStatement); - -#line 3252 "VBNET.ATG" - IfElseStatement ifStatement = new IfElseStatement(expr, embeddedStatement); - ifStatement.StartLocation = ifStartLocation; - Location elseIfStart; - - while (la.kind == 112 || -#line 3258 "VBNET.ATG" -IsElseIf()) { - if ( -#line 3258 "VBNET.ATG" -IsElseIf()) { - Expect(111); - -#line 3258 "VBNET.ATG" - elseIfStart = t.Location; - Expect(135); - } else { - lexer.NextToken(); - -#line 3259 "VBNET.ATG" - elseIfStart = t.Location; - } - -#line 3261 "VBNET.ATG" - Expression condition = null; Statement block = null; - Expr( -#line 3262 "VBNET.ATG" -out condition); - if (la.kind == 214) { - lexer.NextToken(); - } - EndOfStmt(); - Block( -#line 3263 "VBNET.ATG" -out block); - -#line 3265 "VBNET.ATG" - ElseIfSection elseIfSection = new ElseIfSection(condition, block); - elseIfSection.StartLocation = elseIfStart; - elseIfSection.EndLocation = t.Location; - elseIfSection.Parent = ifStatement; - ifStatement.ElseIfSections.Add(elseIfSection); - - } - if (la.kind == 111) { - lexer.NextToken(); - if (la.kind == 1 || la.kind == 21) { - EndOfStmt(); - } - Block( -#line 3274 "VBNET.ATG" -out embeddedStatement); - -#line 3276 "VBNET.ATG" - ifStatement.FalseStatement.Add(embeddedStatement); - - } - Expect(113); - Expect(135); - -#line 3280 "VBNET.ATG" - ifStatement.EndLocation = t.Location; - statement = ifStatement; - - } else if (StartOf(45)) { - -#line 3285 "VBNET.ATG" - IfElseStatement ifStatement = new IfElseStatement(expr); - ifStatement.StartLocation = ifStartLocation; - - SingleLineStatementList( -#line 3288 "VBNET.ATG" -ifStatement.TrueStatement); - if (la.kind == 111) { - lexer.NextToken(); - if (StartOf(45)) { - SingleLineStatementList( -#line 3291 "VBNET.ATG" -ifStatement.FalseStatement); - } - } - -#line 3293 "VBNET.ATG" - ifStatement.EndLocation = t.Location; statement = ifStatement; - } else SynErr(301); - } else if (la.kind == 197) { - lexer.NextToken(); - if (la.kind == 74) { - lexer.NextToken(); - } - Expr( -#line 3296 "VBNET.ATG" -out expr); - EndOfStmt(); - -#line 3297 "VBNET.ATG" - List selectSections = new List(); - Statement block = null; - - while (la.kind == 74) { - -#line 3301 "VBNET.ATG" - List caseClauses = null; Location caseLocation = la.Location; - lexer.NextToken(); - CaseClauses( -#line 3302 "VBNET.ATG" -out caseClauses); - if ( -#line 3302 "VBNET.ATG" -IsNotStatementSeparator()) { - lexer.NextToken(); - } - EndOfStmt(); - -#line 3304 "VBNET.ATG" - SwitchSection selectSection = new SwitchSection(caseClauses); - selectSection.StartLocation = caseLocation; - - Block( -#line 3307 "VBNET.ATG" -out block); - -#line 3309 "VBNET.ATG" - selectSection.Children = block.Children; - selectSection.EndLocation = t.EndLocation; - selectSections.Add(selectSection); - - } - -#line 3315 "VBNET.ATG" - statement = new SwitchStatement(expr, selectSections); - - Expect(113); - Expect(197); - } else if (la.kind == 171) { - -#line 3318 "VBNET.ATG" - OnErrorStatement onErrorStatement = null; - OnErrorStatement( -#line 3319 "VBNET.ATG" -out onErrorStatement); - -#line 3319 "VBNET.ATG" - statement = onErrorStatement; - } else if (la.kind == 132) { - -#line 3320 "VBNET.ATG" - GotoStatement goToStatement = null; - GotoStatement( -#line 3321 "VBNET.ATG" -out goToStatement); - -#line 3321 "VBNET.ATG" - statement = goToStatement; - } else if (la.kind == 194) { - -#line 3322 "VBNET.ATG" - ResumeStatement resumeStatement = null; - ResumeStatement( -#line 3323 "VBNET.ATG" -out resumeStatement); - -#line 3323 "VBNET.ATG" - statement = resumeStatement; - } else if (StartOf(44)) { - -#line 3326 "VBNET.ATG" - Expression val = null; - AssignmentOperatorType op; - Location startLoc = la.Location; - - bool mustBeAssignment = la.kind == Tokens.Plus || la.kind == Tokens.Minus || - la.kind == Tokens.Not || la.kind == Tokens.Times; - - SimpleExpr( -#line 3333 "VBNET.ATG" -out expr); - if (StartOf(46)) { - AssignmentOperator( -#line 3335 "VBNET.ATG" -out op); - Expr( -#line 3335 "VBNET.ATG" -out val); - -#line 3337 "VBNET.ATG" - expr = new AssignmentExpression(expr, op, val); - expr.StartLocation = startLoc; - expr.EndLocation = t.EndLocation; - - } else if (StartOf(47)) { - -#line 3341 "VBNET.ATG" - if (mustBeAssignment) Error("error in assignment."); - } else SynErr(302); - -#line 3344 "VBNET.ATG" - // a field reference expression that stands alone is a - // invocation expression without parantheses and arguments - if(expr is MemberReferenceExpression || expr is IdentifierExpression) { - Location endLocation = expr.EndLocation; - expr = new InvocationExpression(expr); - expr.StartLocation = startLoc; - expr.EndLocation = endLocation; - } - statement = new ExpressionStatement(expr); - - } else if (la.kind == 73) { - lexer.NextToken(); - SimpleExpr( -#line 3354 "VBNET.ATG" -out expr); - -#line 3354 "VBNET.ATG" - statement = new ExpressionStatement(expr); - } else if (la.kind == 226) { - lexer.NextToken(); - -#line 3356 "VBNET.ATG" - Statement block; - if ( -#line 3357 "VBNET.ATG" -Peek(1).kind == Tokens.As) { - -#line 3358 "VBNET.ATG" - LocalVariableDeclaration resourceAquisition = new LocalVariableDeclaration(Modifiers.None); - VariableDeclarator( -#line 3359 "VBNET.ATG" -resourceAquisition.Variables); - while (la.kind == 22) { - lexer.NextToken(); - VariableDeclarator( -#line 3361 "VBNET.ATG" -resourceAquisition.Variables); - } - Block( -#line 3363 "VBNET.ATG" -out block); - -#line 3365 "VBNET.ATG" - statement = new UsingStatement(resourceAquisition, block); - - } else if (StartOf(24)) { - Expr( -#line 3367 "VBNET.ATG" -out expr); - Block( -#line 3368 "VBNET.ATG" -out block); - -#line 3369 "VBNET.ATG" - statement = new UsingStatement(new ExpressionStatement(expr), block); - } else SynErr(303); - Expect(113); - Expect(226); - } else if (StartOf(48)) { - LocalDeclarationStatement( -#line 3372 "VBNET.ATG" -out statement); - } else SynErr(304); - -#line 3375 "VBNET.ATG" - if (statement != null) { - statement.StartLocation = startLocation; - statement.EndLocation = t.EndLocation; - } - - } - - void FromOrAggregateQueryOperator( -#line 2312 "VBNET.ATG" -List middleClauses) { - -#line 2314 "VBNET.ATG" - QueryExpressionFromClause fromClause = null; - QueryExpressionAggregateClause aggregateClause = null; - - if (la.kind == 126) { - FromQueryOperator( -#line 2317 "VBNET.ATG" -out fromClause); - -#line 2318 "VBNET.ATG" - middleClauses.Add(fromClause); - } else if (la.kind == 58) { - AggregateQueryOperator( -#line 2319 "VBNET.ATG" -out aggregateClause); - -#line 2320 "VBNET.ATG" - middleClauses.Add(aggregateClause); - } else SynErr(305); - } - - void QueryOperator( -#line 2323 "VBNET.ATG" -List middleClauses) { - -#line 2325 "VBNET.ATG" - QueryExpressionJoinVBClause joinClause = null; - QueryExpressionGroupVBClause groupByClause = null; - QueryExpressionPartitionVBClause partitionClause = null; - QueryExpressionGroupJoinVBClause groupJoinClause = null; - QueryExpressionFromClause fromClause = null; - QueryExpressionAggregateClause aggregateClause = null; - - if (la.kind == 126) { - FromQueryOperator( -#line 2332 "VBNET.ATG" -out fromClause); - -#line 2333 "VBNET.ATG" - middleClauses.Add(fromClause); - } else if (la.kind == 58) { - AggregateQueryOperator( -#line 2334 "VBNET.ATG" -out aggregateClause); - -#line 2335 "VBNET.ATG" - middleClauses.Add(aggregateClause); - } else if (la.kind == 197) { - SelectQueryOperator( -#line 2336 "VBNET.ATG" -middleClauses); - } else if (la.kind == 107) { - DistinctQueryOperator( -#line 2337 "VBNET.ATG" -middleClauses); - } else if (la.kind == 230) { - WhereQueryOperator( -#line 2338 "VBNET.ATG" -middleClauses); - } else if (la.kind == 176) { - OrderByQueryOperator( -#line 2339 "VBNET.ATG" -middleClauses); - } else if (la.kind == 203 || la.kind == 212) { - PartitionQueryOperator( -#line 2340 "VBNET.ATG" -out partitionClause); - -#line 2341 "VBNET.ATG" - middleClauses.Add(partitionClause); - } else if (la.kind == 148) { - LetQueryOperator( -#line 2342 "VBNET.ATG" -middleClauses); - } else if (la.kind == 146) { - JoinQueryOperator( -#line 2343 "VBNET.ATG" -out joinClause); - -#line 2344 "VBNET.ATG" - middleClauses.Add(joinClause); - } else if ( -#line 2345 "VBNET.ATG" -la.kind == Tokens.Group && Peek(1).kind == Tokens.Join) { - GroupJoinQueryOperator( -#line 2345 "VBNET.ATG" -out groupJoinClause); - -#line 2346 "VBNET.ATG" - middleClauses.Add(groupJoinClause); - } else if (la.kind == 133) { - GroupByQueryOperator( -#line 2347 "VBNET.ATG" -out groupByClause); - -#line 2348 "VBNET.ATG" - middleClauses.Add(groupByClause); - } else SynErr(306); - } - - void FromQueryOperator( -#line 2423 "VBNET.ATG" -out QueryExpressionFromClause fromClause) { - -#line 2425 "VBNET.ATG" - fromClause = new QueryExpressionFromClause(); - fromClause.StartLocation = la.Location; - - Expect(126); - CollectionRangeVariableDeclarationList( -#line 2428 "VBNET.ATG" -fromClause.Sources); - -#line 2430 "VBNET.ATG" - fromClause.EndLocation = t.EndLocation; - - } - - void AggregateQueryOperator( -#line 2492 "VBNET.ATG" -out QueryExpressionAggregateClause aggregateClause) { - -#line 2494 "VBNET.ATG" - aggregateClause = new QueryExpressionAggregateClause(); - aggregateClause.IntoVariables = new List(); - aggregateClause.StartLocation = la.Location; - CollectionRangeVariable source; - - Expect(58); - CollectionRangeVariableDeclaration( -#line 2499 "VBNET.ATG" -out source); - -#line 2501 "VBNET.ATG" - aggregateClause.Source = source; - - while (StartOf(31)) { - QueryOperator( -#line 2504 "VBNET.ATG" -aggregateClause.MiddleClauses); - } - Expect(143); - ExpressionRangeVariableDeclarationList( -#line 2506 "VBNET.ATG" -aggregateClause.IntoVariables); - -#line 2508 "VBNET.ATG" - aggregateClause.EndLocation = t.EndLocation; - - } - - void SelectQueryOperator( -#line 2434 "VBNET.ATG" -List middleClauses) { - -#line 2436 "VBNET.ATG" - QueryExpressionSelectVBClause selectClause = new QueryExpressionSelectVBClause(); - selectClause.StartLocation = la.Location; - - Expect(197); - ExpressionRangeVariableDeclarationList( -#line 2439 "VBNET.ATG" -selectClause.Variables); - -#line 2441 "VBNET.ATG" - selectClause.EndLocation = t.Location; - middleClauses.Add(selectClause); - - } - - void DistinctQueryOperator( -#line 2446 "VBNET.ATG" -List middleClauses) { - -#line 2448 "VBNET.ATG" - QueryExpressionDistinctClause distinctClause = new QueryExpressionDistinctClause(); - distinctClause.StartLocation = la.Location; - - Expect(107); - -#line 2453 "VBNET.ATG" - distinctClause.EndLocation = t.EndLocation; - middleClauses.Add(distinctClause); - - } - - void WhereQueryOperator( -#line 2458 "VBNET.ATG" -List middleClauses) { - -#line 2460 "VBNET.ATG" - QueryExpressionWhereClause whereClause = new QueryExpressionWhereClause(); - whereClause.StartLocation = la.Location; - Expression operand = null; - - Expect(230); - Expr( -#line 2464 "VBNET.ATG" -out operand); - -#line 2466 "VBNET.ATG" - whereClause.Condition = operand; - whereClause.EndLocation = t.EndLocation; - - middleClauses.Add(whereClause); - - } - - void OrderByQueryOperator( -#line 2351 "VBNET.ATG" -List middleClauses) { - -#line 2353 "VBNET.ATG" - QueryExpressionOrderClause orderClause = new QueryExpressionOrderClause(); - orderClause.StartLocation = la.Location; - List orderings = null; - - Expect(176); - Expect(70); - OrderExpressionList( -#line 2357 "VBNET.ATG" -out orderings); - -#line 2359 "VBNET.ATG" - orderClause.Orderings = orderings; - orderClause.EndLocation = t.EndLocation; - middleClauses.Add(orderClause); - - } - - void PartitionQueryOperator( -#line 2473 "VBNET.ATG" -out QueryExpressionPartitionVBClause partitionClause) { - -#line 2475 "VBNET.ATG" - partitionClause = new QueryExpressionPartitionVBClause(); - partitionClause.StartLocation = la.Location; - Expression expr = null; - - if (la.kind == 212) { - lexer.NextToken(); - -#line 2480 "VBNET.ATG" - partitionClause.PartitionType = QueryExpressionPartitionType.Take; - if (la.kind == 231) { - lexer.NextToken(); - -#line 2481 "VBNET.ATG" - partitionClause.PartitionType = QueryExpressionPartitionType.TakeWhile; - } - } else if (la.kind == 203) { - lexer.NextToken(); - -#line 2482 "VBNET.ATG" - partitionClause.PartitionType = QueryExpressionPartitionType.Skip; - if (la.kind == 231) { - lexer.NextToken(); - -#line 2483 "VBNET.ATG" - partitionClause.PartitionType = QueryExpressionPartitionType.SkipWhile; - } - } else SynErr(307); - Expr( -#line 2485 "VBNET.ATG" -out expr); - -#line 2487 "VBNET.ATG" - partitionClause.Expression = expr; - partitionClause.EndLocation = t.EndLocation; - - } - - void LetQueryOperator( -#line 2512 "VBNET.ATG" -List middleClauses) { - -#line 2514 "VBNET.ATG" - QueryExpressionLetVBClause letClause = new QueryExpressionLetVBClause(); - letClause.StartLocation = la.Location; - - Expect(148); - ExpressionRangeVariableDeclarationList( -#line 2517 "VBNET.ATG" -letClause.Variables); - -#line 2519 "VBNET.ATG" - letClause.EndLocation = t.EndLocation; - middleClauses.Add(letClause); - - } - - void JoinQueryOperator( -#line 2556 "VBNET.ATG" -out QueryExpressionJoinVBClause joinClause) { - -#line 2558 "VBNET.ATG" - joinClause = new QueryExpressionJoinVBClause(); - joinClause.StartLocation = la.Location; - CollectionRangeVariable joinVariable = null; - QueryExpressionJoinVBClause subJoin = null; - QueryExpressionJoinConditionVB condition = null; - - - Expect(146); - CollectionRangeVariableDeclaration( -#line 2565 "VBNET.ATG" -out joinVariable); - -#line 2566 "VBNET.ATG" - joinClause.JoinVariable = joinVariable; - if (la.kind == 146) { - JoinQueryOperator( -#line 2568 "VBNET.ATG" -out subJoin); - -#line 2569 "VBNET.ATG" - joinClause.SubJoin = subJoin; - } - Expect(171); - JoinCondition( -#line 2572 "VBNET.ATG" -out condition); - -#line 2573 "VBNET.ATG" - SafeAdd(joinClause, joinClause.Conditions, condition); - while (la.kind == 60) { - lexer.NextToken(); - JoinCondition( -#line 2575 "VBNET.ATG" -out condition); - -#line 2576 "VBNET.ATG" - SafeAdd(joinClause, joinClause.Conditions, condition); - } - -#line 2579 "VBNET.ATG" - joinClause.EndLocation = t.EndLocation; - - } - - void GroupJoinQueryOperator( -#line 2409 "VBNET.ATG" -out QueryExpressionGroupJoinVBClause groupJoinClause) { - -#line 2411 "VBNET.ATG" - groupJoinClause = new QueryExpressionGroupJoinVBClause(); - groupJoinClause.StartLocation = la.Location; - QueryExpressionJoinVBClause joinClause = null; - - Expect(133); - JoinQueryOperator( -#line 2415 "VBNET.ATG" -out joinClause); - Expect(143); - ExpressionRangeVariableDeclarationList( -#line 2416 "VBNET.ATG" -groupJoinClause.IntoVariables); - -#line 2418 "VBNET.ATG" - groupJoinClause.JoinClause = joinClause; - groupJoinClause.EndLocation = t.EndLocation; - - } - - void GroupByQueryOperator( -#line 2396 "VBNET.ATG" -out QueryExpressionGroupVBClause groupByClause) { - -#line 2398 "VBNET.ATG" - groupByClause = new QueryExpressionGroupVBClause(); - groupByClause.StartLocation = la.Location; - - Expect(133); - ExpressionRangeVariableDeclarationList( -#line 2401 "VBNET.ATG" -groupByClause.GroupVariables); - Expect(70); - ExpressionRangeVariableDeclarationList( -#line 2402 "VBNET.ATG" -groupByClause.ByVariables); - Expect(143); - ExpressionRangeVariableDeclarationList( -#line 2403 "VBNET.ATG" -groupByClause.IntoVariables); - -#line 2405 "VBNET.ATG" - groupByClause.EndLocation = t.EndLocation; - - } - - void OrderExpressionList( -#line 2365 "VBNET.ATG" -out List orderings) { - -#line 2367 "VBNET.ATG" - orderings = new List(); - QueryExpressionOrdering ordering = null; - - OrderExpression( -#line 2370 "VBNET.ATG" -out ordering); - -#line 2371 "VBNET.ATG" - orderings.Add(ordering); - while (la.kind == 22) { - lexer.NextToken(); - OrderExpression( -#line 2373 "VBNET.ATG" -out ordering); - -#line 2374 "VBNET.ATG" - orderings.Add(ordering); - } - } - - void OrderExpression( -#line 2378 "VBNET.ATG" -out QueryExpressionOrdering ordering) { - -#line 2380 "VBNET.ATG" - ordering = new QueryExpressionOrdering(); - ordering.StartLocation = la.Location; - ordering.Direction = QueryExpressionOrderingDirection.None; - Expression orderExpr = null; - - Expr( -#line 2385 "VBNET.ATG" -out orderExpr); - -#line 2387 "VBNET.ATG" - ordering.Criteria = orderExpr; - - if (la.kind == 64 || la.kind == 104) { - if (la.kind == 64) { - lexer.NextToken(); - -#line 2390 "VBNET.ATG" - ordering.Direction = QueryExpressionOrderingDirection.Ascending; - } else { - lexer.NextToken(); - -#line 2391 "VBNET.ATG" - ordering.Direction = QueryExpressionOrderingDirection.Descending; - } - } - -#line 2393 "VBNET.ATG" - ordering.EndLocation = t.EndLocation; - } - - void ExpressionRangeVariableDeclarationList( -#line 2524 "VBNET.ATG" -List variables) { - -#line 2526 "VBNET.ATG" - ExpressionRangeVariable variable = null; - - ExpressionRangeVariableDeclaration( -#line 2528 "VBNET.ATG" -out variable); - -#line 2529 "VBNET.ATG" - variables.Add(variable); - while (la.kind == 22) { - lexer.NextToken(); - ExpressionRangeVariableDeclaration( -#line 2530 "VBNET.ATG" -out variable); - -#line 2530 "VBNET.ATG" - variables.Add(variable); - } - } - - void CollectionRangeVariableDeclarationList( -#line 2583 "VBNET.ATG" -List rangeVariables) { - -#line 2584 "VBNET.ATG" - CollectionRangeVariable variableDeclaration; - CollectionRangeVariableDeclaration( -#line 2586 "VBNET.ATG" -out variableDeclaration); - -#line 2587 "VBNET.ATG" - rangeVariables.Add(variableDeclaration); - while (la.kind == 22) { - lexer.NextToken(); - CollectionRangeVariableDeclaration( -#line 2588 "VBNET.ATG" -out variableDeclaration); - -#line 2588 "VBNET.ATG" - rangeVariables.Add(variableDeclaration); - } - } - - void CollectionRangeVariableDeclaration( -#line 2591 "VBNET.ATG" -out CollectionRangeVariable rangeVariable) { - -#line 2593 "VBNET.ATG" - rangeVariable = new CollectionRangeVariable(); - rangeVariable.StartLocation = la.Location; - TypeReference typeName = null; - Expression inExpr = null; - - Identifier(); - -#line 2598 "VBNET.ATG" - rangeVariable.Identifier = t.val; - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 2599 "VBNET.ATG" -out typeName); - -#line 2599 "VBNET.ATG" - rangeVariable.Type = typeName; - } - Expect(138); - Expr( -#line 2600 "VBNET.ATG" -out inExpr); - -#line 2602 "VBNET.ATG" - rangeVariable.Expression = inExpr; - rangeVariable.EndLocation = t.EndLocation; - - } - - void ExpressionRangeVariableDeclaration( -#line 2533 "VBNET.ATG" -out ExpressionRangeVariable variable) { - -#line 2535 "VBNET.ATG" - variable = new ExpressionRangeVariable(); - variable.StartLocation = la.Location; - Expression rhs = null; - TypeReference typeName = null; - - if ( -#line 2541 "VBNET.ATG" -IsIdentifiedExpressionRange()) { - Identifier(); - -#line 2542 "VBNET.ATG" - variable.Identifier = t.val; - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 2544 "VBNET.ATG" -out typeName); - -#line 2545 "VBNET.ATG" - variable.Type = typeName; - } - Expect(20); - } - Expr( -#line 2549 "VBNET.ATG" -out rhs); - -#line 2551 "VBNET.ATG" - variable.Expression = rhs; - variable.EndLocation = t.EndLocation; - - } - - void JoinCondition( -#line 2607 "VBNET.ATG" -out QueryExpressionJoinConditionVB condition) { - -#line 2609 "VBNET.ATG" - condition = new QueryExpressionJoinConditionVB(); - condition.StartLocation = la.Location; - - Expression lhs = null; - Expression rhs = null; - - Expr( -#line 2615 "VBNET.ATG" -out lhs); - Expect(116); - Expr( -#line 2615 "VBNET.ATG" -out rhs); - -#line 2617 "VBNET.ATG" - condition.LeftSide = lhs; - condition.RightSide = rhs; - condition.EndLocation = t.EndLocation; - - } - - void Argument( -#line 2681 "VBNET.ATG" -out Expression argumentexpr) { - -#line 2683 "VBNET.ATG" - Expression expr; - argumentexpr = null; - string name; - Location startLocation = la.Location; - - if ( -#line 2688 "VBNET.ATG" -IsNamedAssign()) { - Identifier(); - -#line 2688 "VBNET.ATG" - name = t.val; - Expect(55); - Expr( -#line 2688 "VBNET.ATG" -out expr); - -#line 2690 "VBNET.ATG" - argumentexpr = new NamedArgumentExpression(name, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }; - - } else if (StartOf(24)) { - Expr( -#line 2693 "VBNET.ATG" -out argumentexpr); - } else SynErr(308); - } - - void QualIdentAndTypeArguments( -#line 2761 "VBNET.ATG" -out TypeReference typeref, bool canBeUnbound) { - -#line 2762 "VBNET.ATG" - string name; typeref = null; - Qualident( -#line 2764 "VBNET.ATG" -out name); - -#line 2765 "VBNET.ATG" - typeref = new TypeReference(name); - if ( -#line 2766 "VBNET.ATG" -la.kind == Tokens.OpenParenthesis && Peek(1).kind == Tokens.Of) { - lexer.NextToken(); - Expect(169); - if ( -#line 2768 "VBNET.ATG" -canBeUnbound && (la.kind == Tokens.CloseParenthesis || la.kind == Tokens.Comma)) { - -#line 2769 "VBNET.ATG" - typeref.GenericTypes.Add(NullTypeReference.Instance); - while (la.kind == 22) { - lexer.NextToken(); - -#line 2770 "VBNET.ATG" - typeref.GenericTypes.Add(NullTypeReference.Instance); - } - } else if (StartOf(8)) { - TypeArgumentList( -#line 2771 "VBNET.ATG" -typeref.GenericTypes); - } else SynErr(309); - Expect(38); - } - } - - void RankList( -#line 2808 "VBNET.ATG" -out int i) { - -#line 2809 "VBNET.ATG" - i = 0; - while (la.kind == 22) { - lexer.NextToken(); - -#line 2810 "VBNET.ATG" - ++i; - } - } - - void Attribute( -#line 2849 "VBNET.ATG" -out ASTAttribute attribute) { - -#line 2851 "VBNET.ATG" - string name; - List positional = new List(); - List named = new List(); - Location startLocation = la.Location; - - if (la.kind == 130) { - lexer.NextToken(); - Expect(26); - } - Qualident( -#line 2857 "VBNET.ATG" -out name); - if (la.kind == 37) { - AttributeArguments( -#line 2858 "VBNET.ATG" -positional, named); - } - -#line 2860 "VBNET.ATG" - attribute = new ASTAttribute(name, positional, named) { StartLocation = startLocation, EndLocation = t.EndLocation }; - - } - - void AttributeArguments( -#line 2865 "VBNET.ATG" -List positional, List named) { - -#line 2867 "VBNET.ATG" - bool nameFound = false; - string name = ""; - Expression expr; - - Expect(37); - if ( -#line 2873 "VBNET.ATG" -IsNotClosingParenthesis()) { - -#line 2874 "VBNET.ATG" - Location startLocation = la.Location; - if ( -#line 2876 "VBNET.ATG" -IsNamedAssign()) { - -#line 2876 "VBNET.ATG" - nameFound = true; - IdentifierOrKeyword( -#line 2877 "VBNET.ATG" -out name); - if (la.kind == 55) { - lexer.NextToken(); - } else if (la.kind == 20) { - lexer.NextToken(); - } else SynErr(310); - } - Expr( -#line 2879 "VBNET.ATG" -out expr); - -#line 2881 "VBNET.ATG" - if (expr != null) { - if (string.IsNullOrEmpty(name)) { positional.Add(expr); } - else { named.Add(new NamedArgumentExpression(name, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }); name = ""; } - } - - while (la.kind == 22) { - lexer.NextToken(); - if ( -#line 2889 "VBNET.ATG" -IsNamedAssign()) { - -#line 2889 "VBNET.ATG" - nameFound = true; - IdentifierOrKeyword( -#line 2890 "VBNET.ATG" -out name); - if (la.kind == 55) { - lexer.NextToken(); - } else if (la.kind == 20) { - lexer.NextToken(); - } else SynErr(311); - } else if (StartOf(24)) { - -#line 2892 "VBNET.ATG" - if (nameFound) Error("no positional argument after named argument"); - } else SynErr(312); - Expr( -#line 2893 "VBNET.ATG" -out expr); - -#line 2893 "VBNET.ATG" - if (expr != null) { if(name == "") positional.Add(expr); - else { named.Add(new NamedArgumentExpression(name, expr) { StartLocation = startLocation, EndLocation = t.EndLocation }); name = ""; } - } - - } - } - Expect(38); - } - - void ParameterModifier( -#line 3704 "VBNET.ATG" -ParamModifierList m) { - if (la.kind == 72) { - lexer.NextToken(); - -#line 3705 "VBNET.ATG" - m.Add(ParameterModifiers.In); - } else if (la.kind == 69) { - lexer.NextToken(); - -#line 3706 "VBNET.ATG" - m.Add(ParameterModifiers.Ref); - } else if (la.kind == 174) { - lexer.NextToken(); - -#line 3707 "VBNET.ATG" - m.Add(ParameterModifiers.Optional); - } else if (la.kind == 182) { - lexer.NextToken(); - -#line 3708 "VBNET.ATG" - m.Add(ParameterModifiers.Params); - } else SynErr(313); - } - - void Statement() { - -#line 3020 "VBNET.ATG" - Statement stmt = null; - Location startPos = la.Location; - string label = String.Empty; - - - if (la.kind == 1 || la.kind == 21) { - } else if ( -#line 3026 "VBNET.ATG" -IsLabel()) { - LabelName( -#line 3026 "VBNET.ATG" -out label); - -#line 3028 "VBNET.ATG" - AddChild(new LabelStatement(t.val)); - - Expect(21); - Statement(); - } else if (StartOf(49)) { - EmbeddedStatement( -#line 3031 "VBNET.ATG" -out stmt); - -#line 3031 "VBNET.ATG" - AddChild(stmt); - } else SynErr(314); - -#line 3034 "VBNET.ATG" - if (stmt != null) { - stmt.StartLocation = startPos; - stmt.EndLocation = t.Location; - } - - } - - void LabelName( -#line 3474 "VBNET.ATG" -out string name) { - -#line 3476 "VBNET.ATG" - name = String.Empty; - - if (StartOf(4)) { - Identifier(); - -#line 3478 "VBNET.ATG" - name = t.val; - } else if (la.kind == 5) { - lexer.NextToken(); - -#line 3479 "VBNET.ATG" - name = t.val; - } else SynErr(315); - } - - void LocalDeclarationStatement( -#line 3042 "VBNET.ATG" -out Statement statement) { - -#line 3044 "VBNET.ATG" - ModifierList m = new ModifierList(); - LocalVariableDeclaration localVariableDeclaration; - bool dimfound = false; - - while (la.kind == 88 || la.kind == 105 || la.kind == 204) { - if (la.kind == 88) { - lexer.NextToken(); - -#line 3050 "VBNET.ATG" - m.Add(Modifiers.Const, t.Location); - } else if (la.kind == 204) { - lexer.NextToken(); - -#line 3051 "VBNET.ATG" - m.Add(Modifiers.Static, t.Location); - } else { - lexer.NextToken(); - -#line 3052 "VBNET.ATG" - dimfound = true; - } - } - -#line 3055 "VBNET.ATG" - if(dimfound && (m.Modifier & Modifiers.Const) != 0) { - Error("Dim is not allowed on constants."); - } - - if(m.isNone && dimfound == false) { - Error("Const, Dim or Static expected"); - } - - localVariableDeclaration = new LocalVariableDeclaration(m.Modifier); - localVariableDeclaration.StartLocation = t.Location; - - VariableDeclarator( -#line 3066 "VBNET.ATG" -localVariableDeclaration.Variables); - while (la.kind == 22) { - lexer.NextToken(); - VariableDeclarator( -#line 3067 "VBNET.ATG" -localVariableDeclaration.Variables); - } - -#line 3069 "VBNET.ATG" - statement = localVariableDeclaration; - - } - - void TryStatement( -#line 3592 "VBNET.ATG" -out Statement tryStatement) { - -#line 3594 "VBNET.ATG" - Statement blockStmt = null, finallyStmt = null;List catchClauses = null; - - Expect(218); - EndOfStmt(); - Block( -#line 3597 "VBNET.ATG" -out blockStmt); - if (la.kind == 75 || la.kind == 113 || la.kind == 123) { - CatchClauses( -#line 3598 "VBNET.ATG" -out catchClauses); - } - if (la.kind == 123) { - lexer.NextToken(); - EndOfStmt(); - Block( -#line 3599 "VBNET.ATG" -out finallyStmt); - } - Expect(113); - Expect(218); - -#line 3602 "VBNET.ATG" - tryStatement = new TryCatchStatement(blockStmt, catchClauses, finallyStmt); - - } - - void WithStatement( -#line 3572 "VBNET.ATG" -out Statement withStatement) { - -#line 3574 "VBNET.ATG" - Statement blockStmt = null; - Expression expr = null; - - Expect(233); - -#line 3577 "VBNET.ATG" - Location start = t.Location; - Expr( -#line 3578 "VBNET.ATG" -out expr); - EndOfStmt(); - -#line 3580 "VBNET.ATG" - withStatement = new WithStatement(expr); - withStatement.StartLocation = start; - - Block( -#line 3583 "VBNET.ATG" -out blockStmt); - -#line 3585 "VBNET.ATG" - ((WithStatement)withStatement).Body = (BlockStatement)blockStmt; - - Expect(113); - Expect(233); - -#line 3588 "VBNET.ATG" - withStatement.EndLocation = t.Location; - } - - void WhileOrUntil( -#line 3565 "VBNET.ATG" -out ConditionType conditionType) { - -#line 3566 "VBNET.ATG" - conditionType = ConditionType.None; - if (la.kind == 231) { - lexer.NextToken(); - -#line 3567 "VBNET.ATG" - conditionType = ConditionType.While; - } else if (la.kind == 224) { - lexer.NextToken(); - -#line 3568 "VBNET.ATG" - conditionType = ConditionType.Until; - } else SynErr(316); - } - - void LoopControlVariable( -#line 3396 "VBNET.ATG" -out TypeReference type, out string name) { - -#line 3397 "VBNET.ATG" - ArrayList arrayModifiers = null; - type = null; - - Qualident( -#line 3401 "VBNET.ATG" -out name); - if ( -#line 3402 "VBNET.ATG" -IsDims()) { - ArrayTypeModifiers( -#line 3402 "VBNET.ATG" -out arrayModifiers); - } - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 3403 "VBNET.ATG" -out type); - -#line 3403 "VBNET.ATG" - if (name.IndexOf('.') > 0) { Error("No type def for 'for each' member indexer allowed."); } - } - -#line 3405 "VBNET.ATG" - if (type != null) { - if(type.RankSpecifier != null && arrayModifiers != null) { - Error("array rank only allowed one time"); - } else if (arrayModifiers != null) { - type.RankSpecifier = (int[])arrayModifiers.ToArray(typeof(int)); - } - } - - } - - void ReDimClause( -#line 3483 "VBNET.ATG" -out Expression expr) { - SimpleNonInvocationExpression( -#line 3485 "VBNET.ATG" -out expr); - ReDimClauseInternal( -#line 3486 "VBNET.ATG" -ref expr); - } - - void SingleLineStatementList( -#line 3382 "VBNET.ATG" -List list) { - -#line 3383 "VBNET.ATG" - Statement embeddedStatement = null; - if (la.kind == 113) { - lexer.NextToken(); - -#line 3385 "VBNET.ATG" - embeddedStatement = new EndStatement() { StartLocation = t.Location, EndLocation = t.EndLocation }; - } else if (StartOf(49)) { - EmbeddedStatement( -#line 3386 "VBNET.ATG" -out embeddedStatement); - } else SynErr(317); - -#line 3387 "VBNET.ATG" - if (embeddedStatement != null) list.Add(embeddedStatement); - while (la.kind == 21) { - lexer.NextToken(); - while (la.kind == 21) { - lexer.NextToken(); - } - if (la.kind == 113) { - lexer.NextToken(); - -#line 3389 "VBNET.ATG" - embeddedStatement = new EndStatement() { StartLocation = t.Location, EndLocation = t.EndLocation }; - } else if (StartOf(49)) { - EmbeddedStatement( -#line 3390 "VBNET.ATG" -out embeddedStatement); - } else SynErr(318); - -#line 3391 "VBNET.ATG" - if (embeddedStatement != null) list.Add(embeddedStatement); - } - } - - void CaseClauses( -#line 3525 "VBNET.ATG" -out List caseClauses) { - -#line 3527 "VBNET.ATG" - caseClauses = new List(); - CaseLabel caseClause = null; - - CaseClause( -#line 3530 "VBNET.ATG" -out caseClause); - -#line 3530 "VBNET.ATG" - if (caseClause != null) { caseClauses.Add(caseClause); } - while (la.kind == 22) { - lexer.NextToken(); - CaseClause( -#line 3531 "VBNET.ATG" -out caseClause); - -#line 3531 "VBNET.ATG" - if (caseClause != null) { caseClauses.Add(caseClause); } - } - } - - void OnErrorStatement( -#line 3416 "VBNET.ATG" -out OnErrorStatement stmt) { - -#line 3418 "VBNET.ATG" - stmt = null; - Location startLocation = la.Location; - GotoStatement goToStatement = null; - - Expect(171); - Expect(118); - if ( -#line 3425 "VBNET.ATG" -IsNegativeLabelName()) { - Expect(132); - Expect(30); - Expect(5); - -#line 3427 "VBNET.ATG" - long intLabel = Int64.Parse(t.val); - if(intLabel != 1) { - Error("invalid label in on error statement."); - } - stmt = new OnErrorStatement(new GotoStatement((intLabel * -1).ToString())); - - } else if (la.kind == 132) { - GotoStatement( -#line 3433 "VBNET.ATG" -out goToStatement); - -#line 3435 "VBNET.ATG" - string val = goToStatement.Label; - - // if value is numeric, make sure that is 0 - try { - long intLabel = Int64.Parse(val); - if(intLabel != 0) { - Error("invalid label in on error statement."); - } - } catch { - } - stmt = new OnErrorStatement(goToStatement); - - } else if (la.kind == 194) { - lexer.NextToken(); - Expect(163); - -#line 3449 "VBNET.ATG" - stmt = new OnErrorStatement(new ResumeStatement(true)); - - } else SynErr(319); - -#line 3453 "VBNET.ATG" - if (stmt != null) { - stmt.StartLocation = startLocation; - stmt.EndLocation = t.EndLocation; - } - - } - - void GotoStatement( -#line 3461 "VBNET.ATG" -out GotoStatement goToStatement) { - -#line 3462 "VBNET.ATG" - string label = String.Empty; Location startLocation = la.Location; - Expect(132); - LabelName( -#line 3464 "VBNET.ATG" -out label); - -#line 3466 "VBNET.ATG" - goToStatement = new GotoStatement(label) { - StartLocation = startLocation, - EndLocation = t.EndLocation - }; - - } - - void ResumeStatement( -#line 3514 "VBNET.ATG" -out ResumeStatement resumeStatement) { - -#line 3516 "VBNET.ATG" - resumeStatement = null; - string label = String.Empty; - - if ( -#line 3519 "VBNET.ATG" -IsResumeNext()) { - Expect(194); - Expect(163); - -#line 3520 "VBNET.ATG" - resumeStatement = new ResumeStatement(true); - } else if (la.kind == 194) { - lexer.NextToken(); - if (StartOf(50)) { - LabelName( -#line 3521 "VBNET.ATG" -out label); - } - -#line 3521 "VBNET.ATG" - resumeStatement = new ResumeStatement(label); - } else SynErr(320); - } - - void ReDimClauseInternal( -#line 3489 "VBNET.ATG" -ref Expression expr) { - -#line 3490 "VBNET.ATG" - List arguments; bool canBeNormal; bool canBeRedim; string name; Location startLocation = la.Location; - while (la.kind == 26 || -#line 3493 "VBNET.ATG" -la.kind == Tokens.OpenParenthesis && Peek(1).kind == Tokens.Of) { - if (la.kind == 26) { - lexer.NextToken(); - IdentifierOrKeyword( -#line 3492 "VBNET.ATG" -out name); - -#line 3492 "VBNET.ATG" - expr = new MemberReferenceExpression(expr, name) { StartLocation = startLocation, EndLocation = t.EndLocation }; - } else { - InvocationExpression( -#line 3494 "VBNET.ATG" -ref expr); - -#line 3496 "VBNET.ATG" - expr.StartLocation = startLocation; - expr.EndLocation = t.EndLocation; - - } - } - Expect(37); - NormalOrReDimArgumentList( -#line 3501 "VBNET.ATG" -out arguments, out canBeNormal, out canBeRedim); - Expect(38); - -#line 3503 "VBNET.ATG" - expr = new InvocationExpression(expr, arguments); - if (canBeRedim == false || canBeNormal && (la.kind == Tokens.Dot || la.kind == Tokens.OpenParenthesis)) { - if (this.Errors.Count == 0) { - // don't recurse on parse errors - could result in endless recursion - ReDimClauseInternal(ref expr); - } - } - - } - - void CaseClause( -#line 3535 "VBNET.ATG" -out CaseLabel caseClause) { - -#line 3537 "VBNET.ATG" - Expression expr = null; - Expression sexpr = null; - BinaryOperatorType op = BinaryOperatorType.None; - caseClause = null; - - if (la.kind == 111) { - lexer.NextToken(); - -#line 3543 "VBNET.ATG" - caseClause = new CaseLabel(); - } else if (StartOf(51)) { - if (la.kind == 144) { - lexer.NextToken(); - } - switch (la.kind) { - case 40: { - lexer.NextToken(); - -#line 3547 "VBNET.ATG" - op = BinaryOperatorType.LessThan; - break; - } - case 39: { - lexer.NextToken(); - -#line 3548 "VBNET.ATG" - op = BinaryOperatorType.GreaterThan; - break; - } - case 43: { - lexer.NextToken(); - -#line 3549 "VBNET.ATG" - op = BinaryOperatorType.LessThanOrEqual; - break; - } - case 42: { - lexer.NextToken(); - -#line 3550 "VBNET.ATG" - op = BinaryOperatorType.GreaterThanOrEqual; - break; - } - case 20: { - lexer.NextToken(); - -#line 3551 "VBNET.ATG" - op = BinaryOperatorType.Equality; - break; - } - case 41: { - lexer.NextToken(); - -#line 3552 "VBNET.ATG" - op = BinaryOperatorType.InEquality; - break; - } - default: SynErr(321); break; - } - Expr( -#line 3554 "VBNET.ATG" -out expr); - -#line 3556 "VBNET.ATG" - caseClause = new CaseLabel(op, expr); - - } else if (StartOf(24)) { - Expr( -#line 3558 "VBNET.ATG" -out expr); - if (la.kind == 216) { - lexer.NextToken(); - Expr( -#line 3558 "VBNET.ATG" -out sexpr); - } - -#line 3560 "VBNET.ATG" - caseClause = new CaseLabel(expr, sexpr); - - } else SynErr(322); - } - - void CatchClauses( -#line 3607 "VBNET.ATG" -out List catchClauses) { - -#line 3609 "VBNET.ATG" - catchClauses = new List(); - TypeReference type = null; - Statement blockStmt = null; - Expression expr = null; - string name = String.Empty; - - while (la.kind == 75) { - lexer.NextToken(); - if (StartOf(4)) { - Identifier(); - -#line 3617 "VBNET.ATG" - name = t.val; - if (la.kind == 63) { - lexer.NextToken(); - TypeName( -#line 3617 "VBNET.ATG" -out type); - } - } - if (la.kind == 229) { - lexer.NextToken(); - Expr( -#line 3618 "VBNET.ATG" -out expr); - } - EndOfStmt(); - Block( -#line 3620 "VBNET.ATG" -out blockStmt); - -#line 3621 "VBNET.ATG" - catchClauses.Add(new CatchClause(type, name, blockStmt, expr)); - } - } - - - - void ParseRoot() - { - VBNET(); - - } - - protected override void SynErr(int line, int col, int errorNumber) - { - string s; - switch (errorNumber) { - case 0: s = "EOF expected"; break; - case 1: s = "EOL expected"; break; - case 2: s = "ident expected"; break; - case 3: s = "LiteralString expected"; break; - case 4: s = "LiteralCharacter expected"; break; - case 5: s = "LiteralInteger expected"; break; - case 6: s = "LiteralDouble expected"; break; - case 7: s = "LiteralSingle expected"; break; - case 8: s = "LiteralDecimal expected"; break; - case 9: s = "LiteralDate expected"; break; - case 10: s = "XmlOpenTag expected"; break; - case 11: s = "XmlCloseTag expected"; break; - case 12: s = "XmlStartInlineVB expected"; break; - case 13: s = "XmlEndInlineVB expected"; break; - case 14: s = "XmlCloseTagEmptyElement expected"; break; - case 15: s = "XmlOpenEndTag expected"; break; - case 16: s = "XmlContent expected"; break; - case 17: s = "XmlComment expected"; break; - case 18: s = "XmlCData expected"; break; - case 19: s = "XmlProcessingInstruction expected"; break; - case 20: s = "\"=\" expected"; break; - case 21: s = "\":\" expected"; break; - case 22: s = "\",\" expected"; break; - case 23: s = "\"&\" expected"; break; - case 24: s = "\"/\" expected"; break; - case 25: s = "\"\\\\\" expected"; break; - case 26: s = "\".\" expected"; break; - case 27: s = "\"...\" expected"; break; - case 28: s = "\".@\" expected"; break; - case 29: s = "\"!\" expected"; break; - case 30: s = "\"-\" expected"; break; - case 31: s = "\"+\" expected"; break; - case 32: s = "\"^\" expected"; break; - case 33: s = "\"?\" expected"; break; - case 34: s = "\"*\" expected"; break; - case 35: s = "\"{\" expected"; break; - case 36: s = "\"}\" expected"; break; - case 37: s = "\"(\" expected"; break; - case 38: s = "\")\" expected"; break; - case 39: s = "\">\" expected"; break; - case 40: s = "\"<\" expected"; break; - case 41: s = "\"<>\" expected"; break; - case 42: s = "\">=\" expected"; break; - case 43: s = "\"<=\" expected"; break; - case 44: s = "\"<<\" expected"; break; - case 45: s = "\">>\" expected"; break; - case 46: s = "\"+=\" expected"; break; - case 47: s = "\"^=\" expected"; break; - case 48: s = "\"-=\" expected"; break; - case 49: s = "\"*=\" expected"; break; - case 50: s = "\"/=\" expected"; break; - case 51: s = "\"\\\\=\" expected"; break; - case 52: s = "\"<<=\" expected"; break; - case 53: s = "\">>=\" expected"; break; - case 54: s = "\"&=\" expected"; break; - case 55: s = "\":=\" expected"; break; - case 56: s = "\"AddHandler\" expected"; break; - case 57: s = "\"AddressOf\" expected"; break; - case 58: s = "\"Aggregate\" expected"; break; - case 59: s = "\"Alias\" expected"; break; - case 60: s = "\"And\" expected"; break; - case 61: s = "\"AndAlso\" expected"; break; - case 62: s = "\"Ansi\" expected"; break; - case 63: s = "\"As\" expected"; break; - case 64: s = "\"Ascending\" expected"; break; - case 65: s = "\"Assembly\" expected"; break; - case 66: s = "\"Auto\" expected"; break; - case 67: s = "\"Binary\" expected"; break; - case 68: s = "\"Boolean\" expected"; break; - case 69: s = "\"ByRef\" expected"; break; - case 70: s = "\"By\" expected"; break; - case 71: s = "\"Byte\" expected"; break; - case 72: s = "\"ByVal\" expected"; break; - case 73: s = "\"Call\" expected"; break; - case 74: s = "\"Case\" expected"; break; - case 75: s = "\"Catch\" expected"; break; - case 76: s = "\"CBool\" expected"; break; - case 77: s = "\"CByte\" expected"; break; - case 78: s = "\"CChar\" expected"; break; - case 79: s = "\"CDate\" expected"; break; - case 80: s = "\"CDbl\" expected"; break; - case 81: s = "\"CDec\" expected"; break; - case 82: s = "\"Char\" expected"; break; - case 83: s = "\"CInt\" expected"; break; - case 84: s = "\"Class\" expected"; break; - case 85: s = "\"CLng\" expected"; break; - case 86: s = "\"CObj\" expected"; break; - case 87: s = "\"Compare\" expected"; break; - case 88: s = "\"Const\" expected"; break; - case 89: s = "\"Continue\" expected"; break; - case 90: s = "\"CSByte\" expected"; break; - case 91: s = "\"CShort\" expected"; break; - case 92: s = "\"CSng\" expected"; break; - case 93: s = "\"CStr\" expected"; break; - case 94: s = "\"CType\" expected"; break; - case 95: s = "\"CUInt\" expected"; break; - case 96: s = "\"CULng\" expected"; break; - case 97: s = "\"CUShort\" expected"; break; - case 98: s = "\"Custom\" expected"; break; - case 99: s = "\"Date\" expected"; break; - case 100: s = "\"Decimal\" expected"; break; - case 101: s = "\"Declare\" expected"; break; - case 102: s = "\"Default\" expected"; break; - case 103: s = "\"Delegate\" expected"; break; - case 104: s = "\"Descending\" expected"; break; - case 105: s = "\"Dim\" expected"; break; - case 106: s = "\"DirectCast\" expected"; break; - case 107: s = "\"Distinct\" expected"; break; - case 108: s = "\"Do\" expected"; break; - case 109: s = "\"Double\" expected"; break; - case 110: s = "\"Each\" expected"; break; - case 111: s = "\"Else\" expected"; break; - case 112: s = "\"ElseIf\" expected"; break; - case 113: s = "\"End\" expected"; break; - case 114: s = "\"EndIf\" expected"; break; - case 115: s = "\"Enum\" expected"; break; - case 116: s = "\"Equals\" expected"; break; - case 117: s = "\"Erase\" expected"; break; - case 118: s = "\"Error\" expected"; break; - case 119: s = "\"Event\" expected"; break; - case 120: s = "\"Exit\" expected"; break; - case 121: s = "\"Explicit\" expected"; break; - case 122: s = "\"False\" expected"; break; - case 123: s = "\"Finally\" expected"; break; - case 124: s = "\"For\" expected"; break; - case 125: s = "\"Friend\" expected"; break; - case 126: s = "\"From\" expected"; break; - case 127: s = "\"Function\" expected"; break; - case 128: s = "\"Get\" expected"; break; - case 129: s = "\"GetType\" expected"; break; - case 130: s = "\"Global\" expected"; break; - case 131: s = "\"GoSub\" expected"; break; - case 132: s = "\"GoTo\" expected"; break; - case 133: s = "\"Group\" expected"; break; - case 134: s = "\"Handles\" expected"; break; - case 135: s = "\"If\" expected"; break; - case 136: s = "\"Implements\" expected"; break; - case 137: s = "\"Imports\" expected"; break; - case 138: s = "\"In\" expected"; break; - case 139: s = "\"Infer\" expected"; break; - case 140: s = "\"Inherits\" expected"; break; - case 141: s = "\"Integer\" expected"; break; - case 142: s = "\"Interface\" expected"; break; - case 143: s = "\"Into\" expected"; break; - case 144: s = "\"Is\" expected"; break; - case 145: s = "\"IsNot\" expected"; break; - case 146: s = "\"Join\" expected"; break; - case 147: s = "\"Key\" expected"; break; - case 148: s = "\"Let\" expected"; break; - case 149: s = "\"Lib\" expected"; break; - case 150: s = "\"Like\" expected"; break; - case 151: s = "\"Long\" expected"; break; - case 152: s = "\"Loop\" expected"; break; - case 153: s = "\"Me\" expected"; break; - case 154: s = "\"Mod\" expected"; break; - case 155: s = "\"Module\" expected"; break; - case 156: s = "\"MustInherit\" expected"; break; - case 157: s = "\"MustOverride\" expected"; break; - case 158: s = "\"MyBase\" expected"; break; - case 159: s = "\"MyClass\" expected"; break; - case 160: s = "\"Namespace\" expected"; break; - case 161: s = "\"Narrowing\" expected"; break; - case 162: s = "\"New\" expected"; break; - case 163: s = "\"Next\" expected"; break; - case 164: s = "\"Not\" expected"; break; - case 165: s = "\"Nothing\" expected"; break; - case 166: s = "\"NotInheritable\" expected"; break; - case 167: s = "\"NotOverridable\" expected"; break; - case 168: s = "\"Object\" expected"; break; - case 169: s = "\"Of\" expected"; break; - case 170: s = "\"Off\" expected"; break; - case 171: s = "\"On\" expected"; break; - case 172: s = "\"Operator\" expected"; break; - case 173: s = "\"Option\" expected"; break; - case 174: s = "\"Optional\" expected"; break; - case 175: s = "\"Or\" expected"; break; - case 176: s = "\"Order\" expected"; break; - case 177: s = "\"OrElse\" expected"; break; - case 178: s = "\"Out\" expected"; break; - case 179: s = "\"Overloads\" expected"; break; - case 180: s = "\"Overridable\" expected"; break; - case 181: s = "\"Overrides\" expected"; break; - case 182: s = "\"ParamArray\" expected"; break; - case 183: s = "\"Partial\" expected"; break; - case 184: s = "\"Preserve\" expected"; break; - case 185: s = "\"Private\" expected"; break; - case 186: s = "\"Property\" expected"; break; - case 187: s = "\"Protected\" expected"; break; - case 188: s = "\"Public\" expected"; break; - case 189: s = "\"RaiseEvent\" expected"; break; - case 190: s = "\"ReadOnly\" expected"; break; - case 191: s = "\"ReDim\" expected"; break; - case 192: s = "\"Rem\" expected"; break; - case 193: s = "\"RemoveHandler\" expected"; break; - case 194: s = "\"Resume\" expected"; break; - case 195: s = "\"Return\" expected"; break; - case 196: s = "\"SByte\" expected"; break; - case 197: s = "\"Select\" expected"; break; - case 198: s = "\"Set\" expected"; break; - case 199: s = "\"Shadows\" expected"; break; - case 200: s = "\"Shared\" expected"; break; - case 201: s = "\"Short\" expected"; break; - case 202: s = "\"Single\" expected"; break; - case 203: s = "\"Skip\" expected"; break; - case 204: s = "\"Static\" expected"; break; - case 205: s = "\"Step\" expected"; break; - case 206: s = "\"Stop\" expected"; break; - case 207: s = "\"Strict\" expected"; break; - case 208: s = "\"String\" expected"; break; - case 209: s = "\"Structure\" expected"; break; - case 210: s = "\"Sub\" expected"; break; - case 211: s = "\"SyncLock\" expected"; break; - case 212: s = "\"Take\" expected"; break; - case 213: s = "\"Text\" expected"; break; - case 214: s = "\"Then\" expected"; break; - case 215: s = "\"Throw\" expected"; break; - case 216: s = "\"To\" expected"; break; - case 217: s = "\"True\" expected"; break; - case 218: s = "\"Try\" expected"; break; - case 219: s = "\"TryCast\" expected"; break; - case 220: s = "\"TypeOf\" expected"; break; - case 221: s = "\"UInteger\" expected"; break; - case 222: s = "\"ULong\" expected"; break; - case 223: s = "\"Unicode\" expected"; break; - case 224: s = "\"Until\" expected"; break; - case 225: s = "\"UShort\" expected"; break; - case 226: s = "\"Using\" expected"; break; - case 227: s = "\"Variant\" expected"; break; - case 228: s = "\"Wend\" expected"; break; - case 229: s = "\"When\" expected"; break; - case 230: s = "\"Where\" expected"; break; - case 231: s = "\"While\" expected"; break; - case 232: s = "\"Widening\" expected"; break; - case 233: s = "\"With\" expected"; break; - case 234: s = "\"WithEvents\" expected"; break; - case 235: s = "\"WriteOnly\" expected"; break; - case 236: s = "\"Xor\" expected"; break; - case 237: s = "\"GetXmlNamespace\" expected"; break; - case 238: s = "??? expected"; break; - case 239: s = "this symbol not expected in EndOfStmt"; break; - case 240: s = "invalid EndOfStmt"; break; - case 241: s = "invalid OptionStmt"; break; - case 242: s = "invalid OptionStmt"; break; - case 243: s = "invalid GlobalAttributeSection"; break; - case 244: s = "invalid GlobalAttributeSection"; break; - case 245: s = "invalid NamespaceMemberDecl"; break; - case 246: s = "invalid OptionValue"; break; - case 247: s = "invalid ImportClause"; break; - case 248: s = "invalid Identifier"; break; - case 249: s = "invalid TypeModifier"; break; - case 250: s = "invalid NonModuleDeclaration"; break; - case 251: s = "invalid NonModuleDeclaration"; break; - case 252: s = "invalid TypeParameterConstraints"; break; - case 253: s = "invalid TypeParameterConstraint"; break; - case 254: s = "invalid NonArrayTypeName"; break; - case 255: s = "invalid MemberModifier"; break; - case 256: s = "invalid StructureMemberDecl"; break; - case 257: s = "invalid StructureMemberDecl"; break; - case 258: s = "invalid StructureMemberDecl"; break; - case 259: s = "invalid StructureMemberDecl"; break; - case 260: s = "invalid StructureMemberDecl"; break; - case 261: s = "invalid StructureMemberDecl"; break; - case 262: s = "invalid StructureMemberDecl"; break; - case 263: s = "invalid StructureMemberDecl"; break; - case 264: s = "invalid InterfaceMemberDecl"; break; - case 265: s = "invalid InterfaceMemberDecl"; break; - case 266: s = "invalid Expr"; break; - case 267: s = "invalid Charset"; break; - case 268: s = "invalid IdentifierForFieldDeclaration"; break; - case 269: s = "invalid VariableDeclaratorPartAfterIdentifier"; break; - case 270: s = "invalid ObjectCreateExpression"; break; - case 271: s = "invalid ObjectCreateExpression"; break; - case 272: s = "invalid AccessorDecls"; break; - case 273: s = "invalid EventAccessorDeclaration"; break; - case 274: s = "invalid OverloadableOperator"; break; - case 275: s = "invalid EventMemberSpecifier"; break; - case 276: s = "invalid LambdaExpr"; break; - case 277: s = "invalid AssignmentOperator"; break; - case 278: s = "invalid SimpleExpr"; break; - case 279: s = "invalid SimpleExpr"; break; - case 280: s = "invalid SimpleNonInvocationExpression"; break; - case 281: s = "invalid SimpleNonInvocationExpression"; break; - case 282: s = "invalid SimpleNonInvocationExpression"; break; - case 283: s = "invalid SimpleNonInvocationExpression"; break; - case 284: s = "invalid SimpleNonInvocationExpression"; break; - case 285: s = "invalid SimpleNonInvocationExpression"; break; - case 286: s = "invalid PrimitiveTypeName"; break; - case 287: s = "invalid CastTarget"; break; - case 288: s = "invalid XmlLiteralExpression"; break; - case 289: s = "invalid XmlContentExpression"; break; - case 290: s = "invalid XmlElement"; break; - case 291: s = "invalid XmlElement"; break; - case 292: s = "invalid XmlNestedContent"; break; - case 293: s = "invalid XmlAttribute"; break; - case 294: s = "invalid XmlAttribute"; break; - case 295: s = "invalid ComparisonExpr"; break; - case 296: s = "invalid SubLambdaExpression"; break; - case 297: s = "invalid FunctionLambdaExpression"; break; - case 298: s = "invalid EmbeddedStatement"; break; - case 299: s = "invalid EmbeddedStatement"; break; - case 300: s = "invalid EmbeddedStatement"; break; - case 301: s = "invalid EmbeddedStatement"; break; - case 302: s = "invalid EmbeddedStatement"; break; - case 303: s = "invalid EmbeddedStatement"; break; - case 304: s = "invalid EmbeddedStatement"; break; - case 305: s = "invalid FromOrAggregateQueryOperator"; break; - case 306: s = "invalid QueryOperator"; break; - case 307: s = "invalid PartitionQueryOperator"; break; - case 308: s = "invalid Argument"; break; - case 309: s = "invalid QualIdentAndTypeArguments"; break; - case 310: s = "invalid AttributeArguments"; break; - case 311: s = "invalid AttributeArguments"; break; - case 312: s = "invalid AttributeArguments"; break; - case 313: s = "invalid ParameterModifier"; break; - case 314: s = "invalid Statement"; break; - case 315: s = "invalid LabelName"; break; - case 316: s = "invalid WhileOrUntil"; break; - case 317: s = "invalid SingleLineStatementList"; break; - case 318: s = "invalid SingleLineStatementList"; break; - case 319: s = "invalid OnErrorStatement"; break; - case 320: s = "invalid ResumeStatement"; break; - case 321: s = "invalid CaseClause"; break; - case 322: s = "invalid CaseClause"; break; - - default: s = "error " + errorNumber; break; - } - this.Errors.Error(line, col, s); - } - - private bool StartOf(int s) - { - return set[s, lexer.LookAhead.kind]; - } - - static bool[,] set = { - {T,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,T,x,T, T,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,T,x,T, T,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,T,x,T, T,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,T,T,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,x,T,x, x,x,T,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, x,x,x,x, x,x,T,x, T,x,x,T, x,x,x,x, x,x,x,x, x,x,T,T, T,x,x,x, T,x,x,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,T,x, x,T,x,x, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,T,x,x, T,T,x,x, x,x,x,x, x,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,T, T,x,x,x, T,x,x,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,T,x, x,T,x,x, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,x,x,x, T,T,x,x, x,x,x,x, x,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,T, T,x,x,x, x,x,x,x, x,x,T,x, x,T,T,T, T,T,x,T, x,x,x,x, x,x,x,T, T,x,x,T, x,T,x,x, x,T,T,T, x,x,x,x, x,T,x,x, x,x,x,T, x,x,T,T, x,x,T,T, x,x,x,x, x,x,x,T, T,T,x,x, x,T,x,x, x,x,T,T, x,x,T,x, T,x,x,x, T,x,T,T, T,T,x,T, T,T,T,T, T,x,T,x, x,x,x,x, x,x,x,T, T,x,x,T, x,x,x,x, x,T,T,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, T,x,T,T, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,T, T,T,x,T, x,T,x,T, T,x,T,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,T, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,T,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,T,T,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,T, x,T,x,x, x,x,x,x, x,x,x,T, x,x,x,T, x,x,x,x, x,T,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,T, T,T,x,x, x,x,x,x, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,T, T,T,x,T, x,T,T,T, T,x,T,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,T,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,T, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,T, T,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,T,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,T, T,T,x,T, x,T,T,T, T,x,T,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,T, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,T,T, T,T,T,T, x,x,T,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, T,T,T,T, T,T,T,T, x,T,T,T, x,x,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,x,T,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,T,x, x,x,T,x, x,T,T,x, x,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, T,T,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,x,x,x, T,T,x,x, x,T,x,T, T,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,T,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,T,x,x, x,x,T,T, T,T,x,x, x,x,x,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,T,x,x, T,T,T,T, T,T,T,T, x,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,T,T,T, T,T,x,x, x,x,x,x, T,T,T,x, T,T,T,x, T,x,T,x, x,T,T,x, T,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,T, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,T,x,T, x,T,T,T, T,T,x,x, x,T,T,T, T,x,T,x, T,x,x,T, T,T,x,T, x,T,T,T, T,T,T,T, T,T,T,x, x,x,T,T, x,T,x,x, x,x,x,x}, - {x,T,T,T, T,T,T,T, T,T,T,x, x,T,x,x, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,x, T,T,T,x, T,T,T,T, T,T,T,T, T,x,T,T, x,T,x,x, T,T,T,T, T,T,T,T, x,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,T,T,T, T,T,x,T, x,T,x,x, T,T,T,x, T,T,T,x, T,x,T,x, x,T,T,x, T,T,x,T, T,x,x,T, x,T,x,T, T,T,T,T, T,x,T,T, x,T,T,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,T, x,x,x,T, T,T,T,x, x,x,x,x, T,x,x,x, x,T,x,T, x,T,T,T, T,T,x,x, x,T,T,T, T,T,T,x, T,x,x,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,x, x,x,T,T, x,T,x,x, T,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,T,T, T,T,T,T, x,x,T,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, T,T,T,T, T,T,T,T, x,T,T,T, x,x,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,x,T,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,T,x, x,x,T,T, x,T,T,x, x,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, T,T,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,x,T,x, T,T,x,x, x,T,x,T, T,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,T, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,T, T,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,T, T,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,T, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,T, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,T,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,T, T,T,x,x, x,x,x,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, T,T,T,T, T,T,T,T, x,T,T,T, x,x,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,x,T,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,T,x, x,x,T,x, x,T,T,x, x,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,x,x,x, T,T,x,x, x,T,x,T, T,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,T, T,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,T,x, T,x,x,x, T,T,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,T,T,T, T,T,T,T, T,T,T,x, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, T,T,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,T,T, T,T,T,T, x,x,T,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, T,T,T,T, T,T,T,T, x,T,T,T, x,x,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,x,T,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,T,x, x,x,T,x, x,T,T,x, x,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,x,x,x, T,T,x,x, x,T,x,T, T,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,T,T, T,T,T,T, x,x,T,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,T,x,x, T,T,T,T, T,T,T,T, x,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,T,T,T, T,T,x,x, x,x,x,x, T,T,T,x, T,T,T,x, T,x,T,T, x,T,T,x, T,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, T,T,x,x, T,x,T,T, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,T,x,T, x,T,T,T, T,T,x,x, x,T,T,T, T,x,T,x, T,x,T,T, T,T,x,T, x,T,T,T, T,T,T,T, T,T,T,x, x,x,T,T, x,T,x,x, x,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,T,x, x,x,T,T, T,T,T,T, x,x,T,T, x,T,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, T,T,T,T, T,T,T,T, x,T,T,T, x,x,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,x,T,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,T,x, x,x,T,T, x,T,T,x, x,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, T,T,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,x,T,x, T,T,x,x, x,T,x,T, T,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,T,T, T,T,x,x, x,x,x,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,x,x,x, T,T,T,T, T,T,T,T, x,T,T,T, x,x,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,x,T,T, x,T,x,x, x,x,x,x, T,x,x,x, x,T,T,x, x,x,T,x, x,T,T,x, x,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,T,T,T, x,x,x,x, T,x,x,x, T,T,x,x, x,T,x,T, T,T,T,T, T,T,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,T,T, T,T,x,x, x,x,x,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,T,x,x, T,T,T,T, T,T,T,T, x,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,T,T,T, T,T,x,x, x,T,x,x, T,T,T,x, T,T,T,x, T,x,T,x, x,T,T,x, T,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,T, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,T,x,T, x,T,T,T, T,T,x,x, x,T,T,T, T,x,T,x, T,x,x,T, T,T,x,T, x,T,T,T, T,T,T,T, T,T,T,x, x,x,T,T, x,T,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x}, - {x,T,T,T, T,T,T,T, T,T,T,x, x,T,x,x, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,x, T,T,T,x, T,T,T,x, T,T,T,T, T,x,T,T, x,T,x,x, T,T,T,T, T,T,T,T, x,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,T,T,T, T,T,x,T, x,T,x,x, T,T,T,x, T,T,T,x, T,x,T,x, x,T,T,x, T,T,x,T, T,x,x,T, x,T,x,T, T,T,T,T, T,x,T,T, x,T,T,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,T, x,x,x,T, T,T,T,x, x,x,x,x, T,x,x,x, x,T,x,T, x,T,T,T, T,T,x,x, x,T,T,T, T,T,T,x, T,x,x,T, T,T,T,T, T,T,T,T, T,T,T,T, T,T,T,x, x,x,T,T, x,T,x,x, T,x,x,x}, - {x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,T,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,T,T, T,T,T,T, T,T,T,x, x,x,x,x, T,T,T,T, x,x,x,x, x,x,T,T, T,T,x,x, x,x,x,T, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,T,T,x, x,x,T,x, T,T,T,T, T,x,T,T, x,T,x,x, T,T,T,T, T,T,T,T, x,T,T,T, T,T,T,T, T,T,T,T, T,T,T,T, T,x,x,x, T,T,T,T, T,T,x,x, x,x,x,x, T,T,T,x, T,T,T,x, T,x,T,x, x,T,T,x, T,T,x,T, x,x,x,T, x,T,x,T, x,x,T,T, x,x,x,T, x,T,x,x, x,x,T,T, x,x,T,x, x,T,x,x, T,x,T,T, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,T,x,T, x,T,T,T, T,T,x,x, x,T,T,T, T,x,T,x, T,x,x,T, T,T,x,T, x,T,T,T, T,T,T,T, T,T,T,x, x,x,T,T, x,T,x,x, x,x,x,x}, - {x,x,T,x, x,T,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,T,x, T,T,T,T, x,x,T,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,x,T, x,x,x,x, x,x,x,x, T,x,x,x, x,T,x,x, x,x,T,x, x,x,x,x, x,T,x,x, x,x,x,T, x,x,x,T, x,x,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,T,x, x,x,x,x, T,x,T,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, x,x,x,x, x,x,x,x, T,T,x,x, x,x,x,x, x,x,x,T, T,x,x,x, x,x,T,x, x,x,x,x, x,x,x,x}, - {x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,T, T,T,T,T, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, T,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x, x,x,x,x} - - }; -} // end Parser - -} \ No newline at end of file diff --git a/src/Libraries/NRefactory/Project/Src/Parser/VBNet/VBNET.ATG b/src/Libraries/NRefactory/Project/Src/Parser/VBNet/VBNET.ATG deleted file mode 100644 index 75548a906f..0000000000 --- a/src/Libraries/NRefactory/Project/Src/Parser/VBNet/VBNET.ATG +++ /dev/null @@ -1,3755 +0,0 @@ -using System.Collections; -using System.Collections.Generic; -using System.Collections.Specialized; -using System.Linq; -using System.Text; -using ICSharpCode.NRefactory.Ast; -using ICSharpCode.NRefactory.Parser.VB; -using ASTAttribute = ICSharpCode.NRefactory.Ast.Attribute; - -COMPILER VBNET - -/* START 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 - 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" -/* END AUTOGENERATED TOKENS SECTION */ - -PRODUCTIONS - -VBNET - (. - lexer.NextToken(); // get the first token - compilationUnit = new CompilationUnit(); - BlockStart(compilationUnit); - .) -= - { EndOfStmt } - { OptionStmt { EndOfStmt } } - { ImportsStmt { EndOfStmt } } - { IF (IsGlobalAttrTarget()) GlobalAttributeSection { EndOfStmt } } - { NamespaceMemberDecl { EndOfStmt } } - EOF -. - -OptionStmt (. INode node = null; bool val = true; .) = - "Option" (. Location startPos = t.Location; .) - ( - "Explicit" [ OptionValue ] - (. node = new OptionDeclaration(OptionType.Explicit, val); .) - | - "Strict" [ OptionValue ] - (. node = new OptionDeclaration(OptionType.Strict, val); .) - | - "Compare" ( "Binary" (. node = new OptionDeclaration(OptionType.CompareBinary, val); .) - | "Text" (. node = new OptionDeclaration(OptionType.CompareText, val); .) - ) - | - "Infer" [ OptionValue ] - (. node = new OptionDeclaration(OptionType.Infer, val); .) - ) - EndOfStmt - (. - if (node != null) { - node.StartLocation = startPos; - node.EndLocation = t.Location; - AddChild(node); - } - .) - . - -OptionValue = - ( - "On" (. val = true; .) - | - "Off" (. val = false; .) - ) - . - -EndOfStmt = - SYNC ( EOL | ":" ) -. - -ImportsStmt - (.List usings = new List(); - .) = - "Imports" - (. - Location startPos = t.Location; - Using u; - .) - ImportClause (. if (u != null) { usings.Add(u); } .) - { - "," ImportClause (. if (u != null) { usings.Add(u); } .) - } - EndOfStmt - (. - UsingDeclaration usingDeclaration = new UsingDeclaration(usings); - usingDeclaration.StartLocation = startPos; - usingDeclaration.EndLocation = t.Location; - AddChild(usingDeclaration); - .) - . - -ImportClause - (. - string qualident = null; - TypeReference aliasedType = null; - u = null; - .) = - ( - Qualident - [ "=" TypeName ] - (. - if (qualident != null && qualident.Length > 0) { - if (aliasedType != null) { - u = new Using(qualident, aliasedType); - } else { - u = new Using(qualident); - } - } - .) - ) | ( (. string prefix = null; .) - XmlOpenTag Identifier (. prefix = t.val; .) "=" LiteralString (. u = new Using(t.literalValue as string, prefix); .) XmlCloseTag - ) - . - -/* 6.4.2 */ -NamespaceMemberDecl - (. - ModifierList m = new ModifierList(); - AttributeSection section; - List attributes = new List(); - string qualident; - .) = - ("Namespace" - (. - Location startPos = t.Location; - .) - Qualident - (. - INode node = new NamespaceDeclaration(qualident); - node.StartLocation = startPos; - AddChild(node); - BlockStart(node); - .) - EndOfStmt - NamespaceBody - (. - node.EndLocation = t.Location; - BlockEnd(); - .) - ) | ( - { AttributeSection (. attributes.Add(section); .) } - { TypeModifier } NonModuleDeclaration ) - . - -/* 4.9.1 */ -TypeParameterList templates> -(. - TemplateDefinition template; -.) -= - [ - IF (la.kind == Tokens.OpenParenthesis && Peek(1).kind == Tokens.Of) - "(" "Of" TypeParameter - (. - if (template != null) templates.Add(template); - .) - { - "," TypeParameter - (. - if (template != null) templates.Add(template); - .) - } - ")" - ] -. - -/* 4.9.1 */ -TypeParameter - (. VarianceModifier modifier = VarianceModifier.Invariant; Location startLocation = la.Location; .) -= - ( - [ "In" (. modifier = VarianceModifier.Contravariant; .) | "Out" (. modifier = VarianceModifier.Covariant; .) ] Identifier (. template = new TemplateDefinition(t.val, null) { VarianceModifier = modifier }; .) - [TypeParameterConstraints