public override object Visit(FieldDeclaration fieldDeclaration, object data)
{
for (int i = 0; i < fieldDeclaration.Fields.Count; ++i) {
VariableDeclaration field = (VariableDeclaration)fieldDeclaration.Fields[i];
if (field.Type != null) {
CodeMemberField memberField = new CodeMemberField(new CodeTypeReference(ConvType(field.Type.Type)), field.Name);
memberField.Attributes = ConvMemberAttributes(fieldDeclaration.Modifier);
if (field.Initializer != null) {
memberField.InitExpression = (CodeExpression)((INode)field.Initializer).AcceptVisitor(this, data);
}
((CodeTypeDeclaration)typeDeclarations.Peek()).Members.Add(memberField);
}
}
return null;
}
void EnumMemberDecl(
#line 849 "VBNET.ATG"
out FieldDeclaration f) {
#line 851 "VBNET.ATG"
Expression expr = null;
ArrayList attributes = new ArrayList();
AttributeSection section = null;
VariableDeclaration varDecl = null;
while (la.kind == 28) {
AttributeSection(
#line 856 "VBNET.ATG"
out section);
#line 856 "VBNET.ATG"
attributes.Add(section);
}
Identifier();
#line 859 "VBNET.ATG"
f = new FieldDeclaration(attributes);
varDecl = new VariableDeclaration(t.val);
varDecl.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
f.Fields.Add(varDecl);
f.StartLocation = t.Location;
if (la.kind == 11) {
lexer.NextToken();
Expr(
#line 865 "VBNET.ATG"
out expr);
#line 865 "VBNET.ATG"
varDecl.Initializer = expr;
}
Expect(1);
}
public object Visit(FieldDeclaration fieldDeclaration, object data)
{
DebugOutput(fieldDeclaration);
foreach (VariableDeclaration field in fieldDeclaration.Fields) {
AppendAttributes(fieldDeclaration.Attributes);
AppendIndentation();
if (currentType.Type == Types.Enum) {
if (fieldDeclaration.Fields.IndexOf(field) > 0) {
sourceText.Append(", ");
}
sourceText.Append(field.Name);
if (field.Initializer != null) {
sourceText.Append(" = ");
sourceText.Append(field.Initializer.AcceptVisitor(this, data).ToString());
}
} else {
if (fieldDeclaration.Modifier == Modifier.None) {
sourceText.Append(" private ");
} else {
sourceText.Append(GetModifier(fieldDeclaration.Modifier));
}
if (field.Type == null)
sourceText.Append("object");
else
sourceText.Append(GetTypeString(field.Type));
sourceText.Append(" ");
sourceText.Append(field.Name);
if (field.Initializer != null) {
sourceText.Append(" = ");
sourceText.Append(field.Initializer.AcceptVisitor(this, data).ToString());
} else {
if (field.Type != null && field.Type.Dimension != null) {
sourceText.Append(" = new ");
sourceText.Append(ConvertTypeString(field.Type.Type));
sourceText.Append("[");
sourceText.Append(GetExpressionList(field.Type.Dimension));
sourceText.Append("]");
}
}
sourceText.Append(";");
AppendNewLine();
}
}
// if that's not the last enum member, add a comma
if (currentType.Type == Types.Enum) {
int pos = currentType.Children.IndexOf(fieldDeclaration);
if (pos >= 0) {
for (int i = pos+1; i < currentType.Children.Count; i++) {
if (currentType.Children[i] is FieldDeclaration) {
sourceText.Append(",");
break;
}
}
}
AppendNewLine();
}
return null;
}
void StructureMemberDecl(
#line 884 "VBNET.ATG"
Modifiers m, ArrayList attributes) {
#line 886 "VBNET.ATG"
TypeReference type = null;
ArrayList p = null;
Statement stmt = null;
ArrayList variableDeclarators = new ArrayList();
switch (la.kind) {
case 68: case 81: case 91: case 113: case 122: case 168: {
NonModuleDeclaration(
#line 891 "VBNET.ATG"
m, attributes);
break;
}
case 169: {
lexer.NextToken();
#line 895 "VBNET.ATG"
Point startPos = t.Location;
ArrayList comments = lexer.SpecialTracker.RetreiveComments();
if (StartOf(9)) {
#line 900 "VBNET.ATG"
string name = String.Empty;
MethodDeclaration methodDeclaration;
HandlesClause handlesClause = null;
ImplementsClause implementsClause = null;
Identifier();
#line 907 "VBNET.ATG"
name = t.val;
m.Check(Modifier.Methods);
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 910 "VBNET.ATG"
out p);
}
Expect(26);
}
if (la.kind == 106 || la.kind == 108) {
if (la.kind == 108) {
ImplementsClause(
#line 913 "VBNET.ATG"
out implementsClause);
} else {
HandlesClause(
#line 915 "VBNET.ATG"
out handlesClause);
}
}
#line 918 "VBNET.ATG"
Point endLocation = t.EndLocation;
Expect(1);
if (
#line 922 "VBNET.ATG"
IsMustOverride(m)) {
#line 924 "VBNET.ATG"
methodDeclaration = new MethodDeclaration(name, m.Modifier, null, p, attributes);
methodDeclaration.Specials["before"] = comments;
methodDeclaration.StartLocation = startPos;
methodDeclaration.EndLocation = endLocation;
methodDeclaration.HandlesClause = handlesClause;
methodDeclaration.ImplementsClause = implementsClause;
compilationUnit.AddChild(methodDeclaration);
} else if (StartOf(10)) {
#line 936 "VBNET.ATG"
methodDeclaration = new MethodDeclaration(name, m.Modifier, null, p, attributes);
methodDeclaration.Specials["before"] = comments;
methodDeclaration.StartLocation = startPos;
methodDeclaration.EndLocation = endLocation;
methodDeclaration.HandlesClause = handlesClause;
methodDeclaration.ImplementsClause = implementsClause;
compilationUnit.AddChild(methodDeclaration);
compilationUnit.BlockStart(methodDeclaration);
Block(
#line 947 "VBNET.ATG"
out stmt);
#line 949 "VBNET.ATG"
compilationUnit.BlockEnd();
methodDeclaration.Body = (BlockStatement)stmt;
Expect(89);
Expect(169);
#line 952 "VBNET.ATG"
methodDeclaration.Body.EndLocation = t.EndLocation;
Expect(1);
} else SynErr(201);
} else if (la.kind == 128) {
lexer.NextToken();
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 955 "VBNET.ATG"
out p);
}
Expect(26);
}
#line 956 "VBNET.ATG"
m.Check(Modifier.Constructors);
#line 957 "VBNET.ATG"
Point constructorEndLocation = t.EndLocation;
Expect(1);
Block(
#line 959 "VBNET.ATG"
out stmt);
Expect(89);
Expect(169);
#line 960 "VBNET.ATG"
Point endLocation = t.EndLocation;
Expect(1);
#line 962 "VBNET.ATG"
ConstructorDeclaration cd = new ConstructorDeclaration("New", m.Modifier, p, attributes);
cd.StartLocation = startPos;
cd.Specials["before"] = comments;
cd.EndLocation = constructorEndLocation;
cd.Body = (BlockStatement)stmt;
cd.Body.EndLocation = endLocation;
compilationUnit.AddChild(cd);
} else SynErr(202);
break;
}
case 101: {
lexer.NextToken();
#line 975 "VBNET.ATG"
m.Check(Modifier.Methods);
string name = String.Empty;
Point startPos = t.Location;
MethodDeclaration methodDeclaration;
HandlesClause handlesClause = null;
ImplementsClause implementsClause = null;
AttributeSection attributeSection = null;
Identifier();
#line 983 "VBNET.ATG"
name = t.val;
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 984 "VBNET.ATG"
out p);
}
Expect(26);
}
if (la.kind == 49) {
lexer.NextToken();
if (la.kind == 28) {
AttributeSection(
#line 985 "VBNET.ATG"
out attributeSection);
}
TypeName(
#line 985 "VBNET.ATG"
out type);
}
#line 987 "VBNET.ATG"
if(type == null) {
type = new TypeReference("System.Object");
}
type.Attributes = attributeSection;
if (la.kind == 106 || la.kind == 108) {
if (la.kind == 108) {
ImplementsClause(
#line 994 "VBNET.ATG"
out implementsClause);
} else {
HandlesClause(
#line 996 "VBNET.ATG"
out handlesClause);
}
}
Expect(1);
if (
#line 1002 "VBNET.ATG"
IsMustOverride(m)) {
#line 1004 "VBNET.ATG"
methodDeclaration = new MethodDeclaration(name, m.Modifier, type, p, attributes);
methodDeclaration.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
methodDeclaration.StartLocation = startPos;
methodDeclaration.EndLocation = t.EndLocation;
methodDeclaration.HandlesClause = handlesClause;
methodDeclaration.ImplementsClause = implementsClause;
compilationUnit.AddChild(methodDeclaration);
} else if (StartOf(10)) {
#line 1014 "VBNET.ATG"
methodDeclaration = new MethodDeclaration(name, m.Modifier, type, p, attributes);
methodDeclaration.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
methodDeclaration.StartLocation = startPos;
methodDeclaration.EndLocation = t.EndLocation;
methodDeclaration.HandlesClause = handlesClause;
methodDeclaration.ImplementsClause = implementsClause;
compilationUnit.AddChild(methodDeclaration);
compilationUnit.BlockStart(methodDeclaration);
Block(
#line 1025 "VBNET.ATG"
out stmt);
#line 1027 "VBNET.ATG"
compilationUnit.BlockEnd();
methodDeclaration.Body = (BlockStatement)stmt;
Expect(89);
Expect(101);
#line 1032 "VBNET.ATG"
methodDeclaration.Body.StartLocation = methodDeclaration.EndLocation;
methodDeclaration.Body.EndLocation = t.EndLocation;
Expect(1);
} else SynErr(203);
break;
}
case 79: {
lexer.NextToken();
#line 1041 "VBNET.ATG"
m.Check(Modifier.ExternalMethods);
Point startPos = t.Location;
CharsetModifier charsetModifer = CharsetModifier.None;
string library = String.Empty;
string alias = null;
string name = String.Empty;
if (StartOf(11)) {
Charset(
#line 1048 "VBNET.ATG"
out charsetModifer);
}
if (la.kind == 169) {
lexer.NextToken();
Identifier();
#line 1051 "VBNET.ATG"
name = t.val;
Expect(116);
Expect(3);
#line 1052 "VBNET.ATG"
library = t.val;
if (la.kind == 45) {
lexer.NextToken();
Expect(3);
#line 1053 "VBNET.ATG"
alias = t.val;
}
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 1054 "VBNET.ATG"
out p);
}
Expect(26);
}
Expect(1);
#line 1057 "VBNET.ATG"
DeclareDeclaration declareDeclaration = new DeclareDeclaration(name, m.Modifier, null, p, attributes, library, alias, charsetModifer);
declareDeclaration.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
declareDeclaration.StartLocation = startPos;
declareDeclaration.EndLocation = t.EndLocation;
compilationUnit.AddChild(declareDeclaration);
} else if (la.kind == 101) {
lexer.NextToken();
Identifier();
#line 1065 "VBNET.ATG"
name = t.val;
Expect(116);
Expect(3);
#line 1066 "VBNET.ATG"
library = t.val;
if (la.kind == 45) {
lexer.NextToken();
Expect(3);
#line 1067 "VBNET.ATG"
alias = t.val;
}
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 1068 "VBNET.ATG"
out p);
}
Expect(26);
}
if (la.kind == 49) {
lexer.NextToken();
TypeName(
#line 1069 "VBNET.ATG"
out type);
}
Expect(1);
#line 1072 "VBNET.ATG"
DeclareDeclaration declareDeclaration = new DeclareDeclaration(name, m.Modifier, type, p, attributes, library, alias, charsetModifer);
declareDeclaration.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
declareDeclaration.StartLocation = startPos;
declareDeclaration.EndLocation = t.EndLocation;
compilationUnit.AddChild(declareDeclaration);
} else SynErr(204);
break;
}
case 94: {
lexer.NextToken();
#line 1083 "VBNET.ATG"
m.Check(Modifier.Events);
Point startPos = t.Location;
EventDeclaration eventDeclaration;
string name = String.Empty;
ImplementsClause implementsClause = null;
Identifier();
#line 1089 "VBNET.ATG"
name= t.val;
if (la.kind == 49) {
lexer.NextToken();
TypeName(
#line 1091 "VBNET.ATG"
out type);
} else if (la.kind == 1 || la.kind == 25 || la.kind == 108) {
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 1093 "VBNET.ATG"
out p);
}
Expect(26);
}
} else SynErr(205);
if (la.kind == 108) {
ImplementsClause(
#line 1095 "VBNET.ATG"
out implementsClause);
}
#line 1097 "VBNET.ATG"
eventDeclaration = new EventDeclaration(type, m.Modifier, p, attributes, name, implementsClause);
eventDeclaration.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
eventDeclaration.StartLocation = startPos;
eventDeclaration.EndLocation = t.EndLocation;
compilationUnit.AddChild(eventDeclaration);
Expect(1);
break;
}
case 2: case 52: case 71: case 171: {
#line 1105 "VBNET.ATG"
Point startPos = t.Location;
#line 1107 "VBNET.ATG"
m.Check(Modifier.Fields);
FieldDeclaration fd = new FieldDeclaration(attributes, type, m.Modifier);
ArrayList comments = lexer.SpecialTracker.RetreiveComments();
fd.StartLocation = startPos;
VariableDeclarator(
#line 1112 "VBNET.ATG"
variableDeclarators);
#line 1114 "VBNET.ATG"
((INode)variableDeclarators[0]).Specials["before"] = comments;
while (la.kind == 12) {
lexer.NextToken();
VariableDeclarator(
#line 1116 "VBNET.ATG"
variableDeclarators);
}
Expect(1);
#line 1119 "VBNET.ATG"
fd.EndLocation = t.EndLocation;
fd.Fields = variableDeclarators;
compilationUnit.AddChild(fd);
break;
}
case 72: {
#line 1124 "VBNET.ATG"
m.Check(Modifier.Fields);
lexer.NextToken();
#line 1125 "VBNET.ATG"
m.Add(Modifier.Constant);
#line 1127 "VBNET.ATG"
FieldDeclaration fd = new FieldDeclaration(attributes, type, m.Modifier);
fd.StartLocation = t.Location;
ArrayList comments = lexer.SpecialTracker.RetreiveComments();
ArrayList constantDeclarators = new ArrayList();
ConstantDeclarator(
#line 1132 "VBNET.ATG"
constantDeclarators);
#line 1134 "VBNET.ATG"
((INode)constantDeclarators[0]).Specials["before"] = comments;
while (la.kind == 12) {
lexer.NextToken();
ConstantDeclarator(
#line 1136 "VBNET.ATG"
constantDeclarators);
}
#line 1138 "VBNET.ATG"
fd.Fields = constantDeclarators;
fd.EndLocation = t.Location;
Expect(1);
#line 1143 "VBNET.ATG"
fd.EndLocation = t.EndLocation;
compilationUnit.AddChild(fd);
break;
}
case 148: {
lexer.NextToken();
#line 1149 "VBNET.ATG"
m.Check(Modifier.Properties);
Point startPos = t.Location;
ImplementsClause implementsClause = null;
Identifier();
#line 1153 "VBNET.ATG"
string propertyName = t.val;
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 1154 "VBNET.ATG"
out p);
}
Expect(26);
}
if (la.kind == 49) {
lexer.NextToken();
TypeName(
#line 1155 "VBNET.ATG"
out type);
}
#line 1157 "VBNET.ATG"
if(type == null) {
type = new TypeReference("System.Object");
}
if (la.kind == 108) {
ImplementsClause(
#line 1161 "VBNET.ATG"
out implementsClause);
}
Expect(1);
if (
#line 1165 "VBNET.ATG"
IsMustOverride(m)) {
#line 1167 "VBNET.ATG"
PropertyDeclaration pDecl = new PropertyDeclaration(propertyName, type, m.Modifier, attributes);
pDecl.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
pDecl.StartLocation = startPos;
pDecl.EndLocation = t.Location;
pDecl.TypeReference = type;
pDecl.ImplementsClause = implementsClause;
pDecl.Parameters = p;
compilationUnit.AddChild(pDecl);
} else if (la.kind == 28 || la.kind == 102 || la.kind == 158) {
#line 1178 "VBNET.ATG"
PropertyDeclaration pDecl = new PropertyDeclaration(propertyName, type, m.Modifier, attributes);
pDecl.Specials["before"] = lexer.SpecialTracker.RetreiveComments();
pDecl.StartLocation = startPos;
pDecl.EndLocation = t.Location;
pDecl.BodyStart = t.Location;
pDecl.TypeReference = type;
pDecl.ImplementsClause = implementsClause;
pDecl.Parameters = p;
PropertyGetRegion getRegion;
PropertySetRegion setRegion;
AccessorDecls(
#line 1189 "VBNET.ATG"
out getRegion, out setRegion);
Expect(89);
Expect(148);
Expect(1);
#line 1193 "VBNET.ATG"
pDecl.GetRegion = getRegion;
pDecl.SetRegion = setRegion;
pDecl.BodyEnd = t.EndLocation;
compilationUnit.AddChild(pDecl);
} else SynErr(206);
break;
}
default: SynErr(207); break;
}
}
public virtual object Visit(FieldDeclaration fieldDeclaration, object data)
{
foreach (AttributeSection a in fieldDeclaration.Attributes) {
a.AcceptVisitor(this, data);
}
if (fieldDeclaration.Fields != null) {
foreach (VariableDeclaration v in fieldDeclaration.Fields) {
v.AcceptVisitor(this, data);
}
}
if (fieldDeclaration.TypeReference == null) {
return data;
}
return fieldDeclaration.TypeReference.AcceptVisitor(this, data);
}
