public SubroutineDeclaration(ComMember member, Declaration parent, QualifiedModuleName module,
Attributes attributes, bool eventHandler)
: base(
module.QualifyMemberName(member.Name),
parent,
parent,
string.Empty,
null,
false,
false,
Accessibility.Global,
eventHandler ? DeclarationType.Event : DeclarationType.Procedure,
null,
Selection.Home,
false,
null,
false,
null,
attributes)
{
_parameters =
member.Parameters.Select(decl => new ParameterDeclaration(decl, this, module))
.Cast <Declaration>()
.ToList();
}
public PropertyLetDeclaration(ComMember member, Declaration parent, QualifiedModuleName module, Attributes attributes)
: this(
module.QualifyMemberName(member.Name),
parent,
parent,
member.AsTypeName.TypeName,
Accessibility.Global,
null,
null,
Selection.Home,
false,
null,
attributes)
{
AddParameters(member.Parameters.Select(decl => new ParameterDeclaration(decl, this, module)));
}
public PropertySetDeclaration(ComMember member, Declaration parent, QualifiedModuleName module,
Attributes attributes) : this(
module.QualifyMemberName(member.Name),
parent,
parent,
string.Empty, //TODO: Need to get the types for these.
Accessibility.Global,
null,
Selection.Home,
false,
null,
attributes)
{
_parameters =
member.Parameters.Select(decl => new ParameterDeclaration(decl, this, module))
.ToList();
}
public FunctionDeclaration(ComMember member, Declaration parent, QualifiedModuleName module,
Attributes attributes) : this(
module.QualifyMemberName(member.Name),
parent,
parent,
member.ReturnType.TypeName,
null,
null,
Accessibility.Global,
null,
Selection.Home,
member.ReturnType.IsArray,
false,
null,
attributes)
{
_parameters =
member.Parameters.Select(decl => new ParameterDeclaration(decl, this, module))
.ToList();
}
