XmlNode FindMatch (XmlNodeList nodes, NCC.IMethod methodBase)
{
Nemerle.Core.list<Fun_parm> p = methodBase.GetParameters ();
foreach (XmlNode node in nodes) {
XmlNodeList paramList = node.SelectNodes ("Parameters/*");
if (p.Length == 0 && paramList.Count == 0) return node;
if (p.Length != paramList.Count) continue;
try
{
bool matched = true;
for (int i = 0; i < paramList.Count; i++) {
Fun_parm k = p.Nth(i);
if (k.ty is NCC.MType.Class)
{
string pname = ((NCC.MType.Class)k.ty).tycon.FrameworkTypeName;
if (pname != paramList[i].Attributes["Type"].Value) {
matched = false;
break;
}
}
else if (k.ty is NCC.MType.Array)
{
NCC.MType.Array zas = (NCC.MType.Array)k.ty;
if (zas.t is NCC.MType.Class)
{
string pname = ((NCC.MType.Class)zas.t).tycon.FrameworkTypeName + "[]";
if (pname != paramList[i].Attributes["Type"].Value) {
matched = false;
break;
}
}
}
else if (k.ty is NCC.MType.Ref)
{
NCC.MType.Ref zas = (NCC.MType.Ref)k.ty;
if (zas.t is NCC.MType.Class)
{
string pname = ((NCC.MType.Class)zas.t).tycon.FrameworkTypeName + "&";
if (pname != paramList[i].Attributes["Type"].Value) {
matched = false;
break;
}
}
}
else
{
matched = false;
break;
}
}
if (matched)
return node;
}
catch { }
}
return null;
}
public Constructor (IClass declaringType, NCC.IMethod tinfo)
{
this.declaringType = declaringType;
ModifierEnum mod = (ModifierEnum)0;
if ((tinfo.Attributes & NCC.NemerleAttributes.Private) != 0)
mod |= ModifierEnum.Private;
if ((tinfo.Attributes & NCC.NemerleAttributes.Internal) != 0)
mod |= ModifierEnum.Internal;
if ((tinfo.Attributes & NCC.NemerleAttributes.Protected) != 0)
mod |= ModifierEnum.Protected;
if ((tinfo.Attributes & NCC.NemerleAttributes.Public) != 0)
mod |= ModifierEnum.Public;
if ((tinfo.Attributes & NCC.NemerleAttributes.Abstract) != 0)
mod |= ModifierEnum.Abstract;
if ((tinfo.Attributes & NCC.NemerleAttributes.Sealed) != 0)
mod |= ModifierEnum.Sealed;
if ((tinfo.Attributes & NCC.NemerleAttributes.Static) != 0)
mod |= ModifierEnum.Static;
if ((tinfo.Attributes & NCC.NemerleAttributes.Override) != 0)
mod |= ModifierEnum.Override;
if ((tinfo.Attributes & NCC.NemerleAttributes.Virtual) != 0)
mod |= ModifierEnum.Virtual;
if ((tinfo.Attributes & NCC.NemerleAttributes.New) != 0)
mod |= ModifierEnum.New;
if ((tinfo.Attributes & NCC.NemerleAttributes.Extern) != 0)
mod |= ModifierEnum.Extern;
modifiers = mod;
this.FullyQualifiedName = "this";
returnType = new ReturnType ((NCC.MType)tinfo.ReturnType);
this.region = Class.GetRegion (tinfo.Location);
if (tinfo is NCC.MemberBuilder)
this.bodyRegion = Class.GetRegion (((NCC.MemberBuilder)tinfo).BodyLocation);
else
this.bodyRegion = Class.GetRegion (tinfo.Location);
this._member = tinfo;
// Add parameters
foreach (Fun_parm pinfo in tinfo.GetParameters ())
parameters.Add(new Parameter(this, pinfo, null));
}
public Method (Class declaringType, NCC.IMethod tinfo)
{
this.declaringType = declaringType;
ModifierEnum mod = (ModifierEnum)0;
if ((tinfo.Attributes & NCC.NemerleAttributes.Private) != 0)
mod |= ModifierEnum.Private;
if ((tinfo.Attributes & NCC.NemerleAttributes.Internal) != 0)
mod |= ModifierEnum.Internal;
if ((tinfo.Attributes & NCC.NemerleAttributes.Protected) != 0)
mod |= ModifierEnum.Protected;
if ((tinfo.Attributes & NCC.NemerleAttributes.Public) != 0)
mod |= ModifierEnum.Public;
if ((tinfo.Attributes & NCC.NemerleAttributes.Abstract) != 0)
mod |= ModifierEnum.Abstract;
if ((tinfo.Attributes & NCC.NemerleAttributes.Sealed) != 0)
mod |= ModifierEnum.Sealed;
if ((tinfo.Attributes & NCC.NemerleAttributes.Static) != 0)
mod |= ModifierEnum.Static;
if ((tinfo.Attributes & NCC.NemerleAttributes.Override) != 0)
mod |= ModifierEnum.Override;
if ((tinfo.Attributes & NCC.NemerleAttributes.Virtual) != 0)
mod |= ModifierEnum.Virtual;
if ((tinfo.Attributes & NCC.NemerleAttributes.New) != 0)
mod |= ModifierEnum.New;
if ((tinfo.Attributes & NCC.NemerleAttributes.Extern) != 0)
mod |= ModifierEnum.Extern;
modifiers = mod;
this.FullyQualifiedName = tinfo.Name;
if (tinfo.GetHeader().typarms.Length > 0)
{
this.genericParameters = new GenericParameterList ();
foreach (NCC.StaticTyVar typarm in tinfo.GetHeader().typarms)
{
genericParameters.Add (Class.GetGenericParameter (typarm));
}
}
if (tinfo.Name == "op_Addition") this.FullyQualifiedName = "@+";
else if (tinfo.Name == "op_Subtraction") this.FullyQualifiedName = "@-";
else if (tinfo.Name == "op_Multiply") this.FullyQualifiedName = "@*";
else if (tinfo.Name == "op_Division") this.FullyQualifiedName = "@/";
else if (tinfo.Name == "op_Modulus") this.FullyQualifiedName = "@%";
else if (tinfo.Name == "op_ExclusiveOr") this.FullyQualifiedName = "@^";
else if (tinfo.Name == "op_BitwiseAnd") this.FullyQualifiedName = "@&";
else if (tinfo.Name == "op_BitwiseOr") this.FullyQualifiedName = "@|";
else if (tinfo.Name == "op_LogicalAnd") this.FullyQualifiedName = "@&&";
else if (tinfo.Name == "op_LogicalOr") this.FullyQualifiedName = "@||";
else if (tinfo.Name == "op_Assign") this.FullyQualifiedName = "@=";
else if (tinfo.Name == "op_LeftShift") this.FullyQualifiedName = "@<<";
else if (tinfo.Name == "op_RightShift") this.FullyQualifiedName = "@>>";
else if (tinfo.Name == "op_Equality") this.FullyQualifiedName = "@==";
else if (tinfo.Name == "op_GreaterThan") this.FullyQualifiedName = "@>";
else if (tinfo.Name == "op_LessThan") this.FullyQualifiedName = "@<";
else if (tinfo.Name == "op_Inequality") this.FullyQualifiedName = "@!=";
else if (tinfo.Name == "op_GreaterThanOrEqual") this.FullyQualifiedName = "@>=";
else if (tinfo.Name == "op_LessThanOrEqual") this.FullyQualifiedName = "@<=";
else if (tinfo.Name == "op_MultiplicationAssignment") this.FullyQualifiedName = "@*=";
else if (tinfo.Name == "op_SubtractionAssignment") this.FullyQualifiedName = "@-=";
else if (tinfo.Name == "op_ExclusiveOrAssignment") this.FullyQualifiedName = "@^=";
else if (tinfo.Name == "op_LeftShiftAssignment") this.FullyQualifiedName = "@<<=";
else if (tinfo.Name == "op_ModulusAssignment") this.FullyQualifiedName = "@%=";
else if (tinfo.Name == "op_AdditionAssignment") this.FullyQualifiedName = "@+=";
else if (tinfo.Name == "op_BitwiseAndAssignment") this.FullyQualifiedName = "@&=";
else if (tinfo.Name == "op_BitwiseOrAssignment") this.FullyQualifiedName = "@|=";
else if (tinfo.Name == "op_Comma") this.FullyQualifiedName = "@,";
else if (tinfo.Name == "op_DivisionAssignment") this.FullyQualifiedName = "@/=";
else if (tinfo.Name == "op_Implicit") this.FullyQualifiedName = "@:";
else if (tinfo.Name == "op_Explicit") this.FullyQualifiedName = "@:>";
else if (tinfo.Name == "op_UnaryPlus") this.FullyQualifiedName = "@+";
else if (tinfo.Name == "op_UnaryNegation") this.FullyQualifiedName = "@-";
else if (tinfo.Name == "op_Decrement") this.FullyQualifiedName = "@--";
else if (tinfo.Name == "op_Increment") this.FullyQualifiedName = "@++";
else if (tinfo.Name == "op_OnesComplement") this.FullyQualifiedName = "@~";
else if (tinfo.Name == "op_LogicalNot") this.FullyQualifiedName = "@!";
returnType = new ReturnType ((NCC.MType)tinfo.ReturnType);
this.region = Class.GetRegion (tinfo.Location);
if (tinfo is NCC.MemberBuilder)
this.bodyRegion = Class.GetRegion (((NCC.MemberBuilder)tinfo).BodyLocation);
else
this.bodyRegion = Class.GetRegion (tinfo.Location);
this._member = tinfo;
LoadXml (declaringType, tinfo);
// Add parameters
foreach (Fun_parm pinfo in tinfo.GetParameters ())
{
try { parameters.Add(new Parameter(this, pinfo, node)); }
catch { }
}
}