_writer.WriteLine(" Friend {2}Function {0}({3} as {4}) As {1}",ChildWithFunctionName(withChild),StructureTypeName(withChild.ContainingStructure),GetModifiers(withChild.ContainingStructure,isOverride,withChild.Name),Ident(UpperFirstCharacter(withChild.Name)),ChildConstructorTypeRef(withChild))
_writer.WriteLine(" Friend {2}Function {0}({3} as {4}) As {1}",ChildWithFunctionName(withChild),StructureTypeName(withChild.ContainingStructure),GetModifiers(withChild.ContainingStructure,isOverride,withChild.Name),Ident(UpperFirstCharacter(withChild.Name)),ChildConstructorTypeRef(withChild))
If(name="Equals"OrElsename="GetType")Then' OrElse _parseTree.NodeKinds.ContainsKey(name) OrElse _parseTree.NodeStructures.ContainsKey(name)) Then
modifiers="Shadows "+modifiers
EndIf
Returnmodifiers
EndFunction
...
...
@@ -572,7 +573,7 @@ Friend Class RedNodeWriter
' XML comment
GenerateXmlComment(_writer,field,8)
_writer.WriteLine(" Public {2}ReadOnly Property {0} As {1}",FieldPropertyName(field),FieldTypeRef(field),GetModifiers(field.ContainingStructure,False,field.Name))
_writer.WriteLine(" Public {2}ReadOnly Property {0} As {1}",FieldPropertyName(field),FieldTypeRef(field),GetModifiers(field.ContainingStructure,False,field.Name))
_writer.WriteLine(" Public {0} ReadOnly Property {1} As {2}",If(isOverride,"Shadows",""),ChildPropertyName(child),ChildPropertyTypeRef(nodeStructure,child))
_writer.WriteLine(" Public {0}ReadOnly Property {1} As {2}",If(isOverride,"Shadows ",""),ChildPropertyName(child),ChildPropertyTypeRef(nodeStructure,child))
_writer.WriteLine(" Public {0}ReadOnly Property {1} As {2}",GetModifiers(child.ContainingStructure,isOverride,child.Name),ChildPropertyName(child),ChildPropertyTypeRef(nodeStructure,child))
_writer.WriteLine(" Public {0}ReadOnly Property {1} As {2}",GetModifiers(child.ContainingStructure,isOverride,child.Name),ChildPropertyName(child),ChildPropertyTypeRef(nodeStructure,child))
_writer.WriteLine(" Public {2}ReadOnly Property {0} As {1}",ChildPropertyName(child),ChildPropertyTypeRef(node,child),GetModifiers(child.ContainingStructure,isOverride,child.Name))
_writer.WriteLine(" Public {2}ReadOnly Property {0} As {1}",ChildPropertyName(child),ChildPropertyTypeRef(node,child),GetModifiers(child.ContainingStructure,isOverride,child.Name))
_writer.WriteLine(" Get")
IfchildIndex=0Then
_writer.WriteLine(" Dim listNode = GetRedAtZero({0})",ChildVarName(child),childIndex)
...
...
@@ -935,8 +936,8 @@ Friend Class RedNodeWriter
EndIf
Next
_writer.WriteLine(" Case Else")
_writer.WriteLine(" Debug.Assert(false, ""child index out of range"")")
_writer.WriteLine(" Return Nothing")
_writer.WriteLine(" Debug.Assert(false, ""child index out of range"")")