public override object VisitUsingDeclaration(UsingDeclaration usingDeclaration, object data)
{
base.VisitUsingDeclaration(usingDeclaration, data);
if (usingDeclaration.Parent is NamespaceDeclaration) {
nodesToMoveToCompilationUnit.Add(usingDeclaration);
RemoveCurrentNode();
}
return null;
}
public virtual object VisitUsingDeclaration(UsingDeclaration usingDeclaration, object data) {
Debug.Assert((usingDeclaration != null));
Debug.Assert((usingDeclaration.Usings != null));
foreach (Using o in usingDeclaration.Usings) {
Debug.Assert(o != null);
o.AcceptVisitor(this, data);
}
return null;
}
void UsingDirective() {
#line 190 "Frames/cs.ATG"
string qualident = null; TypeReference aliasedType = null;
Expect(121);
#line 193 "Frames/cs.ATG"
Location startPos = t.Location;
Qualident(
#line 194 "Frames/cs.ATG"
out qualident);
if (la.kind == 3) {
lexer.NextToken();
NonArrayType(
#line 195 "Frames/cs.ATG"
out aliasedType);
}
Expect(11);
#line 197 "Frames/cs.ATG"
if (qualident != null && qualident.Length > 0) {
INode node;
if (aliasedType != null) {
node = new UsingDeclaration(qualident, aliasedType);
} else {
node = new UsingDeclaration(qualident);
}
node.StartLocation = startPos;
node.EndLocation = t.EndLocation;
compilationUnit.AddChild(node);
}
}
public sealed override object VisitUsingDeclaration(UsingDeclaration usingDeclaration, object data) {
this.BeginVisit(usingDeclaration);
object result = this.TrackedVisitUsingDeclaration(usingDeclaration, data);
this.EndVisit(usingDeclaration);
return result;
}
public virtual object TrackedVisitUsingDeclaration(UsingDeclaration usingDeclaration, object data) {
return base.VisitUsingDeclaration(usingDeclaration, data);
}
public override object VisitDeclareDeclaration(DeclareDeclaration declareDeclaration, object data)
{
if (usings != null && !usings.ContainsKey("System.Runtime.InteropServices")) {
UsingDeclaration @using = new UsingDeclaration("System.Runtime.InteropServices");
addedUsings.Add(@using);
base.VisitUsingDeclaration(@using, data);
}
MethodDeclaration method = new MethodDeclaration {
Name = declareDeclaration.Name,
Modifier = declareDeclaration.Modifier,
TypeReference = declareDeclaration.TypeReference,
Parameters = declareDeclaration.Parameters,
Attributes = declareDeclaration.Attributes
};
if ((method.Modifier & Modifiers.Visibility) == 0)
method.Modifier |= Modifiers.Public;
method.Modifier |= Modifiers.Extern | Modifiers.Static;
if (method.TypeReference.IsNull) {
method.TypeReference = new TypeReference("System.Void", true);
}
Attribute att = new Attribute("DllImport", null, null);
att.PositionalArguments.Add(CreateStringLiteral(declareDeclaration.Library));
if (declareDeclaration.Alias.Length > 0) {
att.NamedArguments.Add(new NamedArgumentExpression("EntryPoint", CreateStringLiteral(declareDeclaration.Alias)));
}
switch (declareDeclaration.Charset) {
case CharsetModifier.Auto:
att.NamedArguments.Add(new NamedArgumentExpression("CharSet",
new MemberReferenceExpression(new IdentifierExpression("CharSet"),
"Auto")));
break;
case CharsetModifier.Unicode:
att.NamedArguments.Add(new NamedArgumentExpression("CharSet",
new MemberReferenceExpression(new IdentifierExpression("CharSet"),
"Unicode")));
break;
default:
att.NamedArguments.Add(new NamedArgumentExpression("CharSet",
new MemberReferenceExpression(new IdentifierExpression("CharSet"),
"Ansi")));
break;
}
att.NamedArguments.Add(new NamedArgumentExpression("SetLastError", new PrimitiveExpression(true, true.ToString())));
att.NamedArguments.Add(new NamedArgumentExpression("ExactSpelling", new PrimitiveExpression(true, true.ToString())));
method.Attributes.Add(new AttributeSection { Attributes = { att } });
ReplaceCurrentNode(method);
return base.VisitMethodDeclaration(method, data);
}
void ImportsStmt() {
#line 299 "VBNET.ATG"
List<Using> usings = new List<Using>();
Expect(124);
#line 303 "VBNET.ATG"
Location startPos = t.Location;
Using u;
ImportClause(
#line 306 "VBNET.ATG"
out u);
#line 306 "VBNET.ATG"
if (u != null) { usings.Add(u); }
while (la.kind == 12) {
lexer.NextToken();
ImportClause(
#line 308 "VBNET.ATG"
out u);
#line 308 "VBNET.ATG"
if (u != null) { usings.Add(u); }
}
EndOfStmt();
#line 312 "VBNET.ATG"
UsingDeclaration usingDeclaration = new UsingDeclaration(usings);
usingDeclaration.StartLocation = startPos;
usingDeclaration.EndLocation = t.Location;
compilationUnit.AddChild(usingDeclaration);
}
public virtual object VisitUsingDeclaration(UsingDeclaration usingDeclaration, object data) {
Debug.Assert((usingDeclaration != null));
Debug.Assert((usingDeclaration.Usings != null));
for (int i = 0; i < usingDeclaration.Usings.Count; i++) {
Using o = usingDeclaration.Usings[i];
Debug.Assert(o != null);
nodeStack.Push(o);
o.AcceptVisitor(this, data);
o = (Using)nodeStack.Pop();
if (o == null)
usingDeclaration.Usings.RemoveAt(i--);
else
usingDeclaration.Usings[i] = o;
}
return null;
}
public virtual object VisitUsingDeclaration(UsingDeclaration usingDeclaration, object data) {
throw new global::System.NotImplementedException("UsingDeclaration");
}
public override object VisitUsingDeclaration(UsingDeclaration usingDeclaration, object data)
{
foreach (Using u in usingDeclaration.Usings) {
namespaceDeclarations.Peek().Imports.Add(new CodeNamespaceImport(u.Name));
}
return null;
}
