20_writer = writer 25_writer = writer

31_writer.WriteLine() 32_writer.WriteLine("Namespace {0}", Ident(_parseTree.NamespaceName)) 33_writer.WriteLine() 46_writer.WriteLine("End Namespace") 52_writer.WriteLine() 53_writer.WriteLine("Namespace {0}", Ident(_parseTree.NamespaceName & ".Syntax")) 54_writer.WriteLine() 58_writer.WriteLine() 60_writer.WriteLine() 65_writer.WriteLine("End Namespace") 86GenerateXmlComment(_writer, enumeration, 4) 89_writer.WriteLine(" <Flags()> _") 91_writer.WriteLine(" Public Enum {0}", EnumerationTypeName(enumeration)) 97_writer.WriteLine(" End Enum") 98_writer.WriteLine() 104_writer.WriteLine() 107GenerateXmlComment(_writer, enumerator, 8) 109_writer.Write(" {0}", Ident(enumerator.Name)) 111_writer.Write(" = {0}", GetConstantValue(enumerator.Value)) 113_writer.WriteLine() 127GenerateXmlComment(_writer, nodeStructure, 4, includeRemarks:=True) 130_writer.Write(" ") 132_writer.Write("Partial ") 135_writer.WriteLine("Public MustInherit Class {0}", StructureTypeName(nodeStructure)) 137_writer.WriteLine("Public NotInheritable Class {0}", StructureTypeName(nodeStructure)) 144_writer.WriteLine(" Inherits {0}", StructureTypeName(nodeStructure.ParentStructure)) 146_writer.WriteLine() 203_writer.WriteLine(" End Class") 204_writer.WriteLine() 214_writer.WriteLine(" Public Shadows Function Add{0}(ParamArray items As {1}()) As {2}", child.Name, itemType, nodeStructure.Name) 215_writer.WriteLine(" Return Add{0}Core(items)", child.Name) 216_writer.WriteLine(" End Function") 217_writer.WriteLine(" Friend MustOverride Function Add{0}Core(ParamArray items As {1}()) As {2}", child.Name, itemType, nodeStructure.Name) 221_writer.WriteLine(" Public Shadows Function Add{0}(ParamArray items As {1}()) As {2}", child.Name, itemType, nodeStructure.Name) 222_writer.WriteLine(" Return Me.With{0}(Me.{0}.AddRange(items))", child.Name) 223_writer.WriteLine(" End Function") 224_writer.WriteLine() 229_writer.WriteLine(" Friend Overrides Function Add{0}Core(ParamArray items As {1}()) As {2}", child.Name, itemType, nodeStructure.ParentStructure.Name) 230_writer.WriteLine(" Return Add{0}(items)", child.Name) 231_writer.WriteLine(" End Function") 232_writer.WriteLine() 277_writer.WriteLine(" Public Shadows Function Add{0}{1}(ParamArray items As {2}()) As {3}", child.Name, nestedList.Name, itemType, nodeStructure.Name) 278_writer.WriteLine(" Return Add{0}{1}Core(items)", child.Name, nestedList.Name) 279_writer.WriteLine(" End Function") 280_writer.WriteLine(" Friend MustOverride Function Add{0}{1}Core(ParamArray items As {2}()) As {3}", child.Name, nestedList.Name, itemType, nodeStructure.Name) 281_writer.WriteLine() 285_writer.WriteLine(" Public Shadows Function Add{0}{1}(ParamArray items As {2}()) As {3}", child.Name, nestedList.Name, itemType, nodeStructure.Name) 286_writer.WriteLine(" Dim _child = If(Me.{0} IsNot Nothing, Me.{0}, SyntaxFactory.{1}())", child.Name, FactoryName(childStructure)) 287_writer.WriteLine(" Return Me.With{0}(_child.Add{1}(items))", child.Name, nestedList.Name) 288_writer.WriteLine(" End Function") 289_writer.WriteLine() 294_writer.WriteLine(" Friend Overrides Function Add{0}{1}Core(ParamArray items As {2}()) As {3}", child.Name, nestedList.Name, itemType, nodeStructure.ParentStructure.Name) 295_writer.WriteLine(" Return Add{0}{1}(items)", child.Name, nestedList.Name) 296_writer.WriteLine(" End Function") 297_writer.WriteLine() 304_writer.WriteLine(" Public Overrides ReadOnly Property IsTerminal As Boolean") 305_writer.WriteLine(" Get") 306_writer.WriteLine(" Return {0}", If(nodeStructure.IsTerminal, "True", "False")) 307_writer.WriteLine(" End Get") 308_writer.WriteLine(" End Property") 309_writer.WriteLine() 316_writer.WriteLine(" Friend {0} as {1}", ChildVarName(child), ChildPrivateFieldTypeRef(child)) 320_writer.WriteLine() 328_writer.WriteLine(" Friend Sub New(ByVal green As GreenNode, ByVal parent as SyntaxNode, ByVal startLocation As Integer)") 329_writer.WriteLine(" MyBase.New(green, parent, startLocation)") 330_writer.WriteLine(" Debug.Assert(green IsNot Nothing)") 331_writer.WriteLine(" Debug.Assert(startLocation >= 0)") 332_writer.WriteLine(" End Sub") 333_writer.WriteLine() 338_writer.Write(" Friend Sub New(") 341_writer.Write("ByVal kind As {0}, ByVal errors as DiagnosticInfo(), ByVal annotations as SyntaxAnnotation()", NodeKindType()) 345_writer.Write(", text as String") 350_writer.Write(", precedingTrivia As SyntaxTriviaList, followingTrivia As SyntaxTriviaList", StructureTypeName(_parseTree.RootTrivia)) 354_writer.Write(", ") 359_writer.Write(", ") 362_writer.WriteLine(")") 366_writer.Write(" Me.New(New Microsoft.CodeAnalysis.VisualBasic.Syntax.InternalSyntax.{0}(", StructureTypeName(nodeStructure)) 369_writer.Write("kind", NodeKindType()) 371_writer.Write(", errors, annotations") 375_writer.Write(", text") 380_writer.Write(", precedingTrivia.Node, followingTrivia.Node") 385_writer.Write(", {0}", FieldParamName(allFields(i))) 391_writer.Write(", {0}", ChildParamName(child)) 394_writer.Write(", if({0} IsNot Nothing, {0}.Green, Nothing)", ChildParamName(child)) 399_writer.Write(", if({0} IsNot Nothing", ChildParamName(child)) 403_writer.Write(", DirectCast({0}.Green, Microsoft.CodeAnalysis.VisualBasic.Syntax.InternalSyntax.{1})", ChildParamName(child), BaseTypeReference(child)) 407_writer.Write(", Nothing)") 412_writer.WriteLine("), Nothing, 0)") 417_writer.WriteLine(" Debug.Assert(text IsNot Nothing)") 421_writer.WriteLine(" End Sub") 422_writer.WriteLine() 429_writer.Write("{0} As {1}", FieldParamName(field, conflictName), FieldTypeRef(field)) 434_writer.Write("{0} As {1}", ChildParamName(child, conflictName), ChildConstructorTypeRef(child)) 439_writer.Write("{0} As {1}", ChildParamName(child, conflictName), ChildFactoryTypeRef(node, child, False, False)) 466GenerateXmlComment(_writer, field, 8) 468_writer.WriteLine(" Public {2}ReadOnly Property {0} As {1}", FieldPropertyName(field), FieldTypeRef(field), GetModifiers(field.ContainingStructure, False, field.Name)) 469_writer.WriteLine(" Get") 470_writer.WriteLine(" Return DirectCast(Green, Microsoft.CodeAnalysis.VisualBasic.Syntax.InternalSyntax.{0}).{1}", TypeName, FieldPropertyName(field)) 471_writer.WriteLine(" End Get") 472_writer.WriteLine(" End Property") 473_writer.WriteLine("") 481GenerateXmlComment(_writer, child, 8) 485_writer.WriteLine(" Public ReadOnly Property {0} As {1}", ChildPropertyName(child), ChildPropertyTypeRef(nodeStructure, child)) 486_writer.WriteLine(" Get") 487_writer.WriteLine(" Return Me.Get{0}Core()", child.Name, ChildPropertyTypeRef(nodeStructure, child)) 488_writer.WriteLine(" End Get") 489_writer.WriteLine(" End Property") 490_writer.WriteLine("") 492_writer.WriteLine(" Friend {0}Function Get{1}Core() As {2}", GetModifiers(child.ContainingStructure, isOverride, child.Name), child.Name, ChildPropertyTypeRef(nodeStructure, child, denyOverride:=True)) 494_writer.WriteLine(" End Function") 495_writer.WriteLine() 499_writer.WriteLine(" Public {0}ReadOnly Property {1} As {2}", If(isOverride, "Shadows ", ""), ChildPropertyName(child), ChildPropertyTypeRef(nodeStructure, child)) 500_writer.WriteLine(" Get") 502_writer.WriteLine(" End Get") 503_writer.WriteLine(" End Property") 504_writer.WriteLine("") 506_writer.WriteLine(" Friend {0}Function Get{1}Core() As {2}", GetModifiers(child.ContainingStructure, isOverride, child.Name), child.Name, ChildPropertyTypeRef(nodeStructure, child, denyOverride:=True)) 507_writer.WriteLine(" Return Me.{0}", ChildPropertyName(child), ChildPropertyTypeRef(nodeStructure, child)) 508_writer.WriteLine(" End Function") 509_writer.WriteLine() 513_writer.WriteLine(" Public {0}ReadOnly Property {1} As {2}", GetModifiers(child.ContainingStructure, isOverride, child.Name), ChildPropertyName(child), ChildPropertyTypeRef(nodeStructure, child)) 514_writer.WriteLine(" Get") 516_writer.WriteLine(" End Get") 517_writer.WriteLine(" End Property") 518_writer.WriteLine("") 526_writer.WriteLine($" {extraIndent}Dim slot = DirectCast(Me.Green, Microsoft.CodeAnalysis.VisualBasic.Syntax.InternalSyntax.{{0}}).{{1}}", StructureTypeName(nodeStructure), ChildVarName(child)) 527_writer.WriteLine($" {extraIndent}If slot IsNot Nothing") 528_writer.WriteLine($" {extraIndent} return new SyntaxTokenList(Me, slot, {{0}}, {{1}})", Me.GetChildPosition(childIndex), Me.GetChildIndex(childIndex)) 529_writer.WriteLine($" {extraIndent}End If") 530_writer.WriteLine($" {extraIndent}Return Nothing") 533_writer.WriteLine($" {extraIndent}Dim slot = DirectCast(Me.Green, Microsoft.CodeAnalysis.VisualBasic.Syntax.InternalSyntax.{{0}}).{{1}}", StructureTypeName(nodeStructure), ChildVarName(child)) 534_writer.WriteLine($" {extraIndent}If slot IsNot Nothing") 535_writer.WriteLine($" {extraIndent} return new SyntaxToken(Me, slot, {{0}}, {{1}})", Me.GetChildPosition(childIndex), Me.GetChildIndex(childIndex)) 536_writer.WriteLine($" {extraIndent}End If") 537_writer.WriteLine($" {extraIndent}Return Nothing") 539_writer.WriteLine($" {extraIndent}return new SyntaxToken(Me, DirectCast(Me.Green, Microsoft.CodeAnalysis.VisualBasic.Syntax.InternalSyntax.{{0}}).{{1}}, {{2}}, {{3}})", StructureTypeName(nodeStructure), ChildVarName(child), Me.GetChildPosition(childIndex), Me.GetChildIndex(childIndex)) 544_writer.WriteLine($" {extraIndent}Dim listNode = GetRedAtZero({{0}})", ChildVarName(child)) 546_writer.WriteLine($" {extraIndent}Dim listNode = GetRed({{0}}, {{1}})", ChildVarName(child), childIndex) 548_writer.WriteLine($" {extraIndent}Return new {{0}}(listNode)", ChildPropertyTypeRef(nodeStructure, child, False)) 555_writer.WriteLine($" {extraIndent}Return GetRedAtZero({{0}})", ChildVarName(child)) 557_writer.WriteLine($" {extraIndent}Return DirectCast(GetRedAtZero({{0}}), {{1}})", ChildVarName(child), type) 561_writer.WriteLine($" {extraIndent}Return GetRed({{0}}, {{1}})", ChildVarName(child), childIndex) 563_writer.WriteLine($" {extraIndent}Return DirectCast(GetRed({{0}}, {{1}}), {{2}})", ChildVarName(child), childIndex, type) 599GenerateWithXmlComment(_writer, withChild, 8) 601_writer.WriteLine($" Public Function {ChildWithFunctionName(withChild)}({ChildParamName(withChild)} As {ChildPropertyTypeRef(nodeStructure, withChild)}) As {StructureTypeName(nodeStructure)}") 602_writer.WriteLine($" Return {ChildWithFunctionName(withChild)}Core({ChildParamName(withChild)})") 603_writer.WriteLine($" End Function") 605_writer.WriteLine($" Friend MustOverride Function {ChildWithFunctionName(withChild)}Core({ChildParamName(withChild)} As {ChildPropertyTypeRef(nodeStructure, withChild)}) As {StructureTypeName(nodeStructure)}") 611_writer.WriteLine($" Friend Overrides Function {ChildWithFunctionName(withChild)}Core({ChildParamName(withChild)} As {ChildPropertyTypeRef(nodeStructure, withChild)}) As {StructureTypeName(nodeStructure.ParentStructure)}") 612_writer.WriteLine($" Return {ChildWithFunctionName(withChild)}({ChildParamName(withChild)})") 613_writer.WriteLine($" End Function") 614_writer.WriteLine() 618GenerateWithXmlComment(_writer, withChild, 8) 619_writer.WriteLine(" Public Shadows Function {0}({1} as {2}) As {3}", ChildWithFunctionName(withChild), ChildParamName(withChild), ChildPropertyTypeRef(nodeStructure, withChild), StructureTypeName(nodeStructure)) 620_writer.Write(" return Update(") 623_writer.Write("Me.Kind") 631_writer.Write(", ") 633_writer.Write("{0}", FieldParamName(allFields(i))) 640_writer.Write(", ") 643_writer.Write("{0}", ChildParamName(child)) 645_writer.Write("Me.{0}", UpperFirstCharacter(child.Name)) 650_writer.WriteLine(")") 651_writer.WriteLine(" End Function") 654_writer.WriteLine("") 661GenerateXmlComment(_writer, child, 8) 663_writer.WriteLine(" Public {2}ReadOnly Property {0} As {1}", ChildPropertyName(child), ChildPropertyTypeRef(node, child), GetModifiers(child.ContainingStructure, isOverride, child.Name)) 664_writer.WriteLine(" Get") 666_writer.WriteLine(" Dim listNode = GetRedAtZero({0})", ChildVarName(child), childIndex) 668_writer.WriteLine(" Dim listNode = GetRed({0}, {1})", ChildVarName(child), childIndex) 670_writer.WriteLine(" If listNode IsNot Nothing") 671_writer.WriteLine(" Return new {0}(listNode, {1})", ChildPropertyTypeRef(node, child), GetChildIndex(childIndex)) 672_writer.WriteLine(" End If") 673_writer.WriteLine(" Return Nothing") 674_writer.WriteLine(" End Get") 675_writer.WriteLine(" End Property") 676_writer.WriteLine("") 684_writer.WriteLine(" Public {0} Function Accept(Of TResult)(ByVal visitor As {1}(Of TResult)) As TResult", If(IsRoot(nodeStructure), "Overridable", "Overrides"), _parseTree.VisitorName) 685_writer.WriteLine(" Return visitor.{0}(Me)", VisitorMethodName(nodeStructure)) 686_writer.WriteLine(" End Function") 687_writer.WriteLine() 689_writer.WriteLine(" Public {0} Sub Accept(ByVal visitor As {1})", If(IsRoot(nodeStructure), "Overridable", "Overrides"), _parseTree.VisitorName) 690_writer.WriteLine(" visitor.{0}(Me)", VisitorMethodName(nodeStructure)) 691_writer.WriteLine(" End Sub") 692_writer.WriteLine() 707_writer.WriteLine() 709GenerateSummaryXmlComment(_writer, String.Format("Returns a copy of this with the specified changes. Returns this instance if there are no actual changes.", nodeStructure.Name)) 712GenerateParameterXmlComment(_writer, "kind", String.Format("The new kind.", nodeStructure.Name)) 716GenerateParameterXmlComment(_writer, LowerFirstCharacter(OptionalChildName(child)), String.Format("The value for the {0} property.", child.Name)) 719_writer.Write(" Public ") 721_writer.Write("Shadows ") 724_writer.Write("Function Update(") 727_writer.Write("kind As SyntaxKind") 733_writer.Write(", ") 739_writer.WriteLine(") As {0}", structureName) 742_writer.Write(" If ") 745_writer.Write("kind <> Me.Kind") 751_writer.Write(" OrElse ") 755_writer.Write("{0} <> Me.{1}", ChildParamName(child), ChildPropertyName(child)) 757_writer.Write("{0} <> Me.{1}", ChildParamName(child), ChildPropertyName(child)) 759_writer.Write("{0} IsNot Me.{1}", ChildParamName(child), ChildPropertyName(child)) 763_writer.WriteLine(" Then") 767_writer.Write(" Dim newNode = SyntaxFactory.{0}(", factory) 769_writer.Write("kind, ") 773_writer.Write(", ") 775_writer.Write("{0}", ChildParamName(child)) 778_writer.WriteLine(")") 780_writer.WriteLine(" Dim annotations = Me.GetAnnotations()") 781_writer.WriteLine(" If annotations IsNot Nothing AndAlso annotations.Length > 0") 782_writer.WriteLine(" return newNode.WithAnnotations(annotations)") 783_writer.WriteLine(" End If") 784_writer.WriteLine(" Return newNode") 785_writer.WriteLine(" End If") 786_writer.WriteLine(" Return Me") 787_writer.WriteLine(" End Function") 788_writer.WriteLine() 793_writer.WriteLine() 807_writer.WriteLine(" Friend Overrides Function GetNodeSlot(i as Integer) as SyntaxNode") 813_writer.WriteLine(" Select case i") 821_writer.WriteLine(" Case {0}", i) 824_writer.WriteLine(" Return GetRedAtZero({0})", ChildVarName(child)) 826_writer.WriteLine(" Return GetRed({0}, {1})", ChildVarName(child), i) 829_writer.WriteLine(" Return Me.{0}", ChildPropertyName(child)) 833_writer.WriteLine(" Case Else") 834_writer.WriteLine(" Return Nothing") 835_writer.WriteLine(" End Select") 838_writer.WriteLine(" If i = 0 Then") 841_writer.WriteLine(" Return GetRedAtZero({0})", ChildVarName(child)) 843_writer.WriteLine(" Return Me.{0}", ChildPropertyName(child)) 846_writer.WriteLine(" Else") 847_writer.WriteLine(" Return Nothing") 848_writer.WriteLine(" End If") 851_writer.WriteLine(" Return Nothing") 854_writer.WriteLine(" End Function") 855_writer.WriteLine() 869_writer.WriteLine(" Friend Overrides Function GetCachedSlot(i as Integer) as SyntaxNode") 875_writer.WriteLine(" Select case i") 880_writer.WriteLine(" Case {0}", i) 881_writer.WriteLine(" Return Me.{0}", ChildVarName(child), i) 884_writer.WriteLine(" Case Else") 885_writer.WriteLine(" Return Nothing") 886_writer.WriteLine(" End Select") 888_writer.WriteLine(" If i = 0 Then") 891_writer.WriteLine(" Return Nothing") 893_writer.WriteLine(" Return Me.{0}", ChildVarName(child)) 896_writer.WriteLine(" Else") 897_writer.WriteLine(" Return Nothing") 898_writer.WriteLine(" End If") 901_writer.WriteLine(" End Function") 902_writer.WriteLine() 907_writer.WriteLine(" Public MustInherit Class {0}{1}", Ident(_parseTree.VisitorName), If(withResult, "(Of TResult)", "")) 915_writer.WriteLine(" End Class") 916_writer.WriteLine() 924_writer.WriteLine(" Public Overridable {2} {0}(ByVal node As {1}){3}", 930_writer.WriteLine(" {0}Me.DefaultVisit(node){1}", If(withResult, "Return ", ""), If(withResult, "", " : Return")) 931_writer.WriteLine(" End {0}", If(withResult, "Function", "Sub")) 936_writer.WriteLine(" Public MustInherit Class {0}", Ident(_parseTree.RewriteVisitorName)) 937_writer.WriteLine(" Inherits {0}(Of SyntaxNode)", Ident(_parseTree.VisitorName)) 938_writer.WriteLine() 944_writer.WriteLine(" End Class") 945_writer.WriteLine() 962_writer.WriteLine(" Public Overrides Function {0}(ByVal node As {1}) As SyntaxNode", 971_writer.WriteLine(" Dim anyChanges As Boolean = False") 972_writer.WriteLine() 978_writer.WriteLine(" Dim {0} = VisitList(node.{1})", ChildNewVarName(child), ChildPropertyName(child)) 980_writer.WriteLine(" If node.{0}.Node IsNot {1}.Node Then anyChanges = True", ChildPropertyName(child), ChildNewVarName(child)) 982_writer.WriteLine(" If node.{0} IsNot {1}.Node Then anyChanges = True", ChildVarName(child), ChildNewVarName(child)) 986_writer.WriteLine(" Dim {0} = DirectCast(VisitToken(node.{2}).Node, {3})" + Environment.NewLine + 990_writer.WriteLine(" Dim {0} = DirectCast(Visit(node.{2}), {1})" + Environment.NewLine + 995_writer.WriteLine() 998_writer.WriteLine(" If anyChanges Then") 1000_writer.Write(" Return New {0}(node.Kind", StructureTypeName(nodeStructure)) 1002_writer.Write(", node.Green.GetDiagnostics, node.Green.GetAnnotations") 1005_writer.Write(", node.{0}", FieldPropertyName(field)) 1010_writer.Write(", {0}.Node", ChildNewVarName(child)) 1012_writer.Write(", {0}.Node", ChildNewVarName(child)) 1015_writer.Write(", {0}", ChildNewVarName(child), ChildFieldTypeRef(child)) 1017_writer.Write(", {0}", ChildNewVarName(child)) 1020_writer.WriteLine(")") 1022_writer.WriteLine(" Else") 1023_writer.WriteLine(" Return node") 1024_writer.WriteLine(" End If") 1026_writer.WriteLine(" End Function") 1027_writer.WriteLine()