25_writer = New StreamWriter(New FileStream(filename, FileMode.Create, FileAccess.Write))

27Using _writer 34_writer.WriteLine("' Definition of parse trees dumper.") 35_writer.WriteLine("' DO NOT HAND EDIT") 36_writer.WriteLine() 43_writer.WriteLine("Imports System.Collections.Generic") 44_writer.WriteLine("Imports System.IO") 45_writer.WriteLine() 47_writer.WriteLine("Namespace {0}", _parseTree.NamespaceName) 48_writer.WriteLine() 54_writer.WriteLine("End Namespace") 60_writer.WriteLine(" Public Partial Class NodeInfo") 61_writer.WriteLine() 66_writer.WriteLine(" End Class") 72_writer.WriteLine(" Private Class Visitor") 73_writer.WriteLine(" Inherits VisualBasicSyntaxVisitor(Of NodeInfo)") 74_writer.WriteLine() 78_writer.WriteLine(" End Class") 90_writer.WriteLine(" Public Overrides Function {0}(ByVal node As {1}) As NodeInfo", 95_writer.WriteLine(" Return New NodeInfo(") 96_writer.WriteLine(" ""{0}"",", StructureTypeName(nodeStructure)) 101_writer.WriteLine(" { ") 105_writer.WriteLine(" },") 107_writer.WriteLine(" Nothing,") 112_writer.WriteLine(" { ") 116_writer.WriteLine(" })") 118_writer.WriteLine(" End Function") 119_writer.WriteLine() 124_writer.Write(" New NodeInfo.FieldInfo(""{0}"", GetType({1}), node.{0})", FieldPropertyName(field), FieldTypeRef(field)) 127_writer.WriteLine() 129_writer.WriteLine(",") 137_writer.Write(" New NodeInfo.ChildInfo(""{0}"", NodeInfo.ChildKind.SeparatedNodeList, GetType({1}), node.{0}, node.{0}.Separators)", ChildPropertyName(child), BaseTypeReference(child)) 139_writer.Write(" New NodeInfo.ChildInfo(""{0}"", NodeInfo.ChildKind.NodeList, GetType({1}), node.{0}, Nothing)", ChildPropertyName(child), BaseTypeReference(child)) 142_writer.Write(" New NodeInfo.ChildInfo(""{0}"", NodeInfo.ChildKind.SingleNode, GetType({1}), node.{0}, Nothing)", ChildPropertyName(child), BaseTypeReference(child)) 146_writer.WriteLine() 148_writer.WriteLine(",")