public override void visit(typed_const_definition cd)
{
Add(cd.const_name);
}
public virtual void visit(typed_const_definition _typed_const_definition)
{
DefaultVisit(_typed_const_definition);
}
public override void visit(typed_const_definition _typed_const_definition)
{
}
public override void visit(typed_const_definition _typed_const_definition)
{
DefaultVisit(_typed_const_definition);
pre_do_visit(_typed_const_definition);
visit(typed_const_definition.const_type);
post_do_visit(_typed_const_definition);
}
public virtual void post_do_visit(typed_const_definition _typed_const_definition)
{
}
public override void visit(typed_const_definition _const_definition)
{
connect(_const_definition);
}
public virtual void visit(typed_const_definition _typed_const_definition)
{
}
public override void visit(typed_const_definition _typed_const_definition)
{
_typed_const_definition.const_name.visit(this);
_typed_const_definition.const_type.visit(this);
_typed_const_definition.const_value.visit(this);
}
public virtual void visit(typed_const_definition _typed_const_definition)
{
DefaultVisit(_typed_const_definition);
}
public override void visit(typed_const_definition _typed_const_definition)
{
prepare_node(_typed_const_definition.const_name, "constant name");
prepare_node(_typed_const_definition.const_type, "const type");
prepare_node(_typed_const_definition.const_value, "constant value");
}
private void add_module_members(unit_module mod, ICSharpCode.NRefactory.Ast.TypeDeclaration td)
{
foreach (ICSharpCode.NRefactory.Ast.INode node in td.Children)
{
if (node is ICSharpCode.NRefactory.Ast.FieldDeclaration)
{
ICSharpCode.NRefactory.Ast.FieldDeclaration vd = node as ICSharpCode.NRefactory.Ast.FieldDeclaration;
if ((vd.Modifier & ICSharpCode.NRefactory.Ast.Modifiers.Dim) == ICSharpCode.NRefactory.Ast.Modifiers.Dim)
{
foreach (ICSharpCode.NRefactory.Ast.VariableDeclaration vard in vd.Fields)
{
var_def_statement vds = new var_def_statement();
vds.source_context = get_source_context(vd);
vds.vars_type = get_type_reference(vard.TypeReference);
ident_list idents = new ident_list();
ident name = new ident(vard.Name);
name.source_context = vds.source_context;
idents.idents.Add(name);
vds.vars = idents;
mod.interface_part.interface_definitions.defs.Add(vds);
}
}
else if ((vd.Modifier & ICSharpCode.NRefactory.Ast.Modifiers.Const) == ICSharpCode.NRefactory.Ast.Modifiers.Const)
{
foreach (ICSharpCode.NRefactory.Ast.VariableDeclaration vard in vd.Fields)
{
const_definition tcd = null;
if (vard.TypeReference is ICSharpCode.NRefactory.Ast.TypeReference)
{
tcd = new simple_const_definition();
}
else
{
tcd = new typed_const_definition();
}
tcd.source_context = get_source_context(vd);
if (tcd is typed_const_definition)
{
(tcd as typed_const_definition).const_type = get_type_reference(vard.TypeReference);
}
tcd.const_name = new ident(vard.Name);
tcd.const_name.source_context = tcd.source_context;
tcd.const_value = get_expression(vard.Initializer);
mod.interface_part.interface_definitions.defs.Add(tcd);
}
}
}
else if (node is ICSharpCode.NRefactory.Ast.TypeDeclaration)
{
mod.interface_part.interface_definitions.defs.Add(get_type_declaration(node as ICSharpCode.NRefactory.Ast.TypeDeclaration));
}
else if (node is ICSharpCode.NRefactory.Ast.MethodDeclaration)
{
ICSharpCode.NRefactory.Ast.MethodDeclaration meth = node as ICSharpCode.NRefactory.Ast.MethodDeclaration;
if (!meth.Body.IsNull)
{
mod.interface_part.interface_definitions.defs.Add(get_method_declaration(meth));
}
else
{
mod.interface_part.interface_definitions.defs.Add(get_method_header(meth));
}
}
}
}
public override void visit(typed_const_definition _typed_const_definition)
{
executer.visit(_typed_const_definition);
if (_typed_const_definition.const_type != null)
this.visit((dynamic)_typed_const_definition.const_type);
if (_typed_const_definition.const_name != null)
this.visit((dynamic)_typed_const_definition.const_name);
if (_typed_const_definition.const_value != null)
this.visit((dynamic)_typed_const_definition.const_value);
if (_typed_const_definition.attributes != null)
this.visit((dynamic)_typed_const_definition.attributes);
}
