public override object Visit(PropertySetRegion PropertySetRegion, object data)
{
return null;
}
void SetAccessorDecl(
#line 1241 "VBNET.ATG"
out PropertySetRegion setBlock, ArrayList attributes) {
#line 1243 "VBNET.ATG"
Statement stmt = null;
ArrayList p = null;
Expect(158);
if (la.kind == 25) {
lexer.NextToken();
if (StartOf(4)) {
FormalParameterList(
#line 1247 "VBNET.ATG"
out p);
}
Expect(26);
}
Expect(1);
Block(
#line 1249 "VBNET.ATG"
out stmt);
#line 1251 "VBNET.ATG"
setBlock = new PropertySetRegion((BlockStatement)stmt, attributes);
setBlock.Parameters = p;
Expect(89);
Expect(158);
Expect(1);
}
public object Visit(PropertySetRegion propertySetRegion, object data)
{
DebugOutput(propertySetRegion);
exitConstructStack.Push(new DictionaryEntry(typeof(PropertyDeclaration), null));
AppendAttributes(propertySetRegion.Attributes);
AppendIndentation();
sourceText.Append("set {");
AppendNewLine();
if (propertySetRegion.Block != null) {
++indentLevel;
propertySetRegion.Block.AcceptVisitor(this, data);
--indentLevel;
}
AppendIndentation();
sourceText.Append("}");
AppendNewLine();
GenerateExitConstructLabel();
return null;
}
void AccessorDecls(
#line 1202 "VBNET.ATG"
out PropertyGetRegion getBlock, out PropertySetRegion setBlock) {
#line 1204 "VBNET.ATG"
ArrayList attributes = new ArrayList();
AttributeSection section;
getBlock = null;
setBlock = null;
while (la.kind == 28) {
AttributeSection(
#line 1209 "VBNET.ATG"
out section);
#line 1209 "VBNET.ATG"
attributes.Add(section);
}
if (la.kind == 102) {
GetAccessorDecl(
#line 1211 "VBNET.ATG"
out getBlock, attributes);
if (la.kind == 28 || la.kind == 158) {
#line 1213 "VBNET.ATG"
attributes = new ArrayList();
while (la.kind == 28) {
AttributeSection(
#line 1214 "VBNET.ATG"
out section);
#line 1214 "VBNET.ATG"
attributes.Add(section);
}
SetAccessorDecl(
#line 1215 "VBNET.ATG"
out setBlock, attributes);
}
} else if (la.kind == 158) {
SetAccessorDecl(
#line 1218 "VBNET.ATG"
out setBlock, attributes);
if (la.kind == 28 || la.kind == 102) {
#line 1220 "VBNET.ATG"
attributes = new ArrayList();
while (la.kind == 28) {
AttributeSection(
#line 1221 "VBNET.ATG"
out section);
#line 1221 "VBNET.ATG"
attributes.Add(section);
}
GetAccessorDecl(
#line 1222 "VBNET.ATG"
out getBlock, attributes);
}
} else SynErr(212);
}
public virtual object Visit(PropertySetRegion propertySetRegion, object data)
{
blockStack.Push(propertySetRegion.Block);
foreach (AttributeSection a in propertySetRegion.Attributes) {
a.AcceptVisitor(this, data);
}
object ret = null;
if (propertySetRegion.Block != null) {
ret = propertySetRegion.Block.AcceptChildren(this, data);
}
blockStack.Pop();
return ret;
}