private void ExtendNode(ElementBase item, TreeNode itemNode)
{
if (item is ClassElement || item is ModuleElement || item is FormElement)
{
IVbModule reflectedModule = AnalyzeElement(item);
if (reflectedModule == null)
{
return;
}
foreach (IVbMember member in reflectedModule.Members)
{
TreeNode node = new TreeNode();
node.Tag = member;
if (member is IVbAttribute)
{
node.Text = string.Format("(A) {0}", ((IVbAttribute)member).Name);
}
else if (member is IVbProperty)
{
IVbProperty property = (IVbProperty)member;
node.Text = string.Format("(P) {0} {1}", property.Accessor, property.Name);
}
else if (member is IVbMethod)
{
node.Text = string.Format("(M) {0}", ((IVbMethod)member).Name);
}
else if (member is IVbField)
{
node.Text = string.Format("(F) {0}", ((IVbField)member).Name);
}
itemNode.Nodes.Add(node);
}
}
}
internal VB6UnresolvedProperty(IVbProperty property, IUnresolvedFile file, ITypeReference typeReference, IUnresolvedTypeDefinition typeDefinition)
: base(property, file, typeReference, typeDefinition)
{
this.CanGet = (property.Accessor == VbPropertyAccessor.Get);
this.CanSet = !this.CanGet;
}
private static void ParseSignatureIntoMethod(VbMethod method, IReadOnlyList <IToken> signatureTokens)
{
TokenStreamReader tokenReader = new TokenStreamReader(signatureTokens);
if (tokenReader.Peek().Type == TokenType.Symbol)
{
tokenReader.Read();
}
VbParameter parameter = new VbParameter();
while (!tokenReader.IsEOF)
{
// If it's already the end of the signature, leave the loop.
if (tokenReader.Peek().EqualsStringInvariant(")"))
{
tokenReader.Read();
break;
}
IToken token = tokenReader.Read();
if (IsParameterOptional(token))
{
parameter.IsOptional = true;
continue;
}
VbParameterAccess access = VbParameterAccess.Default;
if (IsParamaterAccessToken(token, out access))
{
parameter.Access = access;
continue;
}
/* Assume that if the next parameter is "As", then this is a parameter name.
* Also watch out for implicit parameters, which are parameters that don't declare a type (variant).
*/
IToken peek = tokenReader.Peek();
if (peek == null)
{
break;
}
if (peek.EqualsStringInvariant("As") ||
peek.Type == TokenType.Symbol)
{
parameter.Name = token.Content;
parameter.Location = token.Location;
if (peek.Type == TokenType.Symbol)
{
parameter.Type = VbTypes.Variant;
// Eat token.
tokenReader.Read();
}
else
{
// Eat token.
tokenReader.Read();
parameter.Type = new VbType()
{
TypeName = ReadUntilEOLIntoString(tokenReader, Delimiters)
};
}
/* Look ahead for an optional value declaration if this parameter is optional.
*/
if (parameter.IsOptional)
{
if (tokenReader.GetPrevious().Content == "=")
{
parameter.OptionalDefaultValue = ReadUntilEOLIntoString(tokenReader, Delimiters);
}
}
/* Add parameter and reset instance.
*/
method.AddParameter(parameter);
parameter = new VbParameter();
continue;
}
}
/* Specify "void" return "type" in advance; may be overridden.
*/
method.ReturnType = VbTypes.Void;
bool canHaveReturnType = false;
if (method.MethodKind == VbMethodType.Function)
{
canHaveReturnType = true;
}
else if (method.MethodKind == VbMethodType.Property)
{
IVbProperty property = (IVbProperty)method;
if (property.Accessor == VbPropertyAccessor.Get)
{
canHaveReturnType = true;
}
}
/* Look for a return type.
*/
if (canHaveReturnType)
{
method.ReturnType = VbTypes.Variant;
if (!tokenReader.IsEOF)
{
var returnTokens = tokenReader.GetUntilEOL().ToArray();
if (returnTokens[0].EqualsStringInvariant("As"))
{
string typeName = string.Concat(returnTokens.Skip(1).Select(_ => _.Content));
method.ReturnType = new VbType()
{
TypeName = typeName
};
}
}
}
}
internal VB6UnresolvedProperty(IVbProperty property, IUnresolvedFile file, ITypeReference typeReference, IUnresolvedTypeDefinition typeDefinition)
: base(property, file, typeReference, typeDefinition)
{
this.CanGet = (property.Accessor == VbPropertyAccessor.Get);
this.CanSet = !this.CanGet;
}
