public ProcedureNode(VBAParser.PropertyGetStmtContext context, string scope, string localScope)
: this(context, scope, localScope, VBProcedureKind.PropertyGet, context.visibility(), context.ambiguousIdentifier(), () => context.asTypeClause())
{
_argsListContext = context.argList();
_staticNode = context.STATIC();
_keyword = context.PROPERTY_GET();
_asTypeClauseContext = context.asTypeClause();
}
public ProcedureNode(VBAParser.FunctionStmtContext context, string scope, string localScope)
: this(context, scope, localScope, VBProcedureKind.Function, context.visibility(), context.ambiguousIdentifier(), () => context.asTypeClause())
{
_argsListContext = context.argList();
_staticNode = context.STATIC();
_keyword = context.FUNCTION();
_asTypeClauseContext = context.asTypeClause();
}
public override void EnterConstSubStmt(VBAParser.ConstSubStmtContext context)
{
var parent = (VBAParser.ConstStmtContext)context.Parent;
var accessibility = GetMemberAccessibility(parent.visibility());
var asTypeClause = context.asTypeClause();
var asTypeName = asTypeClause == null
? Tokens.Variant
: asTypeClause.type().GetText();
var identifier = context.ambiguousIdentifier();
if (identifier == null)
{
return;
}
var name = identifier.GetText();
var value = context.valueStmt().GetText();
var declaration = new ValuedDeclaration(new QualifiedMemberName(_qualifiedName, name), _parentDeclaration, _currentScope, asTypeName, accessibility, DeclarationType.Constant, value, context, identifier.GetSelection());
OnNewDeclaration(declaration);
}
public override void EnterTypeStmt_Element(VBAParser.TypeStmt_ElementContext context)
{
var asTypeClause = context.asTypeClause();
var asTypeName = asTypeClause == null
? Tokens.Variant
: asTypeClause.type().GetText();
OnNewDeclaration(CreateDeclaration(context.ambiguousIdentifier().GetText(), asTypeName, Accessibility.Implicit, DeclarationType.UserDefinedTypeMember, context, context.ambiguousIdentifier().GetSelection()));
}
public override void EnterVariableSubStmt(VBAParser.VariableSubStmtContext context)
{
var parent = (VBAParser.VariableStmtContext)context.Parent.Parent;
var accessibility = GetMemberAccessibility(parent.visibility());
var identifier = context.ambiguousIdentifier();
if (identifier == null)
{
return;
}
var name = identifier.GetText();
var asTypeClause = context.asTypeClause();
var asTypeName = asTypeClause == null
? Tokens.Variant
: asTypeClause.type().GetText();
var withEvents = parent.WITHEVENTS() != null;
var selfAssigned = asTypeClause != null && asTypeClause.NEW() != null;
OnNewDeclaration(CreateDeclaration(name, asTypeName, accessibility, DeclarationType.Variable, context, context.ambiguousIdentifier().GetSelection(), selfAssigned, withEvents));
}
public override void EnterDeclareStmt(VBAParser.DeclareStmtContext context)
{
var accessibility = GetMemberAccessibility(context.visibility());
var nameContext = context.ambiguousIdentifier();
if (nameContext == null)
{
return;
}
var name = nameContext.GetText();
var hasReturnType = context.FUNCTION() != null;
var asTypeClause = context.asTypeClause();
var asTypeName = hasReturnType
? asTypeClause == null
? Tokens.Variant
: asTypeClause.type().GetText()
: null;
var selection = nameContext.GetSelection();
var declarationType = hasReturnType
? DeclarationType.LibraryFunction
: DeclarationType.LibraryProcedure;
var declaration = CreateDeclaration(name, asTypeName, accessibility, declarationType, context, selection);
OnNewDeclaration(declaration);
SetCurrentScope(declaration, name); // treat like a procedure block, to correctly scope parameters.
}
public override void EnterPropertyGetStmt(VBAParser.PropertyGetStmtContext context)
{
var accessibility = GetProcedureAccessibility(context.visibility());
var identifier = context.ambiguousIdentifier();
if (identifier == null)
{
return;
}
var name = identifier.GetText();
var asTypeClause = context.asTypeClause();
var asTypeName = asTypeClause == null
? Tokens.Variant
: asTypeClause.type().GetText();
var declaration = CreateDeclaration(name, asTypeName, accessibility, DeclarationType.PropertyGet, context, context.ambiguousIdentifier().GetSelection());
OnNewDeclaration(declaration);
SetCurrentScope(declaration, name);
}
public override void EnterDeclareStmt(VBAParser.DeclareStmtContext context)
{
var accessibility = GetMemberAccessibility(context.visibility());
var nameContext = context.ambiguousIdentifier();
var name = nameContext.GetText();
var hasReturnType = context.FUNCTION() != null;
var asTypeClause = context.asTypeClause();
var asTypeName = hasReturnType
? asTypeClause == null
? Tokens.Variant
: asTypeClause.type().GetText()
: null;
var selection = nameContext.GetSelection();
var declarationType = hasReturnType
? DeclarationType.LibraryFunction
: DeclarationType.LibraryProcedure;
_declarations.Add(CreateDeclaration(name, asTypeName, accessibility, declarationType, context, selection));
SetCurrentScope(name);
}
public override void EnterFunctionStmt(VBAParser.FunctionStmtContext context)
{
var accessibility = GetProcedureAccessibility(context.visibility());
var name = context.ambiguousIdentifier().GetText();
var asTypeClause = context.asTypeClause();
var asTypeName = asTypeClause == null
? Tokens.Variant
: asTypeClause.type().GetText();
var declaration = CreateDeclaration(name, asTypeName, accessibility, DeclarationType.Function, context, context.ambiguousIdentifier().GetSelection());
_declarations.Add(declaration);
SetCurrentScope(name);
}