X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Fmcs%2Fdoc.cs;h=8b8dfeecc8b370a395d21887919c7685440ce554;hb=81dfccbd14f683f1fe46f570e76c1e99a14c5a81;hp=faed45f4903dadd47570c4438f9e629b924ce57c;hpb=3fe774b7beb4046f4134c3d44f0b19c2d44cd7d4;p=mono.git diff --git a/mcs/mcs/doc.cs b/mcs/mcs/doc.cs index faed45f4903..8b8dfeecc8b 100644 --- a/mcs/mcs/doc.cs +++ b/mcs/mcs/doc.cs @@ -9,10 +9,9 @@ // Copyright 2004 Novell, Inc. // // -#if ! BOOTSTRAP_WITH_OLDLIB + using System; -using System.Collections; -using System.Collections.Specialized; +using System.Collections.Generic; using System.IO; using System.Reflection; using System.Reflection.Emit; @@ -22,6 +21,7 @@ using System.Security; using System.Security.Permissions; using System.Text; using System.Xml; +using System.Linq; using Mono.CompilerServices.SymbolWriter; @@ -30,16 +30,8 @@ namespace Mono.CSharp { // // Support class for XML documentation. // -#if NET_2_0 - static -#else - abstract -#endif - public class DocUtil + static class DocUtil { -#if !NET_2_0 - private DocUtil () {} -#endif // TypeContainer // @@ -47,9 +39,9 @@ namespace Mono.CSharp { // handle warning report. // internal static void GenerateTypeDocComment (TypeContainer t, - DeclSpace ds) + DeclSpace ds, Report Report) { - GenerateDocComment (t, ds); + GenerateDocComment (t, ds, Report); if (t.DefaultStaticConstructor != null) t.DefaultStaticConstructor.GenerateDocComment (t); @@ -62,10 +54,6 @@ namespace Mono.CSharp { foreach (TypeContainer tc in t.Types) tc.GenerateDocComment (t); - if (t.Delegates != null) - foreach (Delegate de in t.Delegates) - de.GenerateDocComment (t); - if (t.Constants != null) foreach (Const c in t.Constants) c.GenerateDocComment (t); @@ -87,7 +75,7 @@ namespace Mono.CSharp { p.GenerateDocComment (t); if (t.Methods != null) - foreach (Method m in t.Methods) + foreach (MethodOrOperator m in t.Methods) m.GenerateDocComment (t); if (t.Operators != null) @@ -100,7 +88,7 @@ namespace Mono.CSharp { Environment.NewLine + " "; private static XmlNode GetDocCommentNode (MemberCore mc, - string name) + string name, Report Report) { // FIXME: It could be even optimizable as not // to use XmlDocument. But anyways the nodes @@ -140,12 +128,12 @@ namespace Mono.CSharp { // handle warning report. // internal static void GenerateDocComment (MemberCore mc, - DeclSpace ds) + DeclSpace ds, Report Report) { if (mc.DocComment != null) { string name = mc.GetDocCommentName (ds); - XmlNode n = GetDocCommentNode (mc, name); + XmlNode n = GetDocCommentNode (mc, name, Report); XmlElement el = n as XmlElement; if (el != null) { @@ -155,11 +143,11 @@ namespace Mono.CSharp { XmlNodeList nl = n.SelectNodes (".//include"); if (nl.Count > 0) { // It could result in current node removal, so prepare another list to iterate. - ArrayList al = new ArrayList (nl.Count); + var al = new List (nl.Count); foreach (XmlNode inc in nl) al.Add (inc); foreach (XmlElement inc in al) - if (!HandleInclude (mc, inc)) + if (!HandleInclude (mc, inc, Report)) inc.ParentNode.RemoveChild (inc); } @@ -169,11 +157,11 @@ namespace Mono.CSharp { ds_target = ds; foreach (XmlElement see in n.SelectNodes (".//see")) - HandleSee (mc, ds_target, see); + HandleSee (mc, ds_target, see, Report); foreach (XmlElement seealso in n.SelectNodes (".//seealso")) - HandleSeeAlso (mc, ds_target, seealso); + HandleSeeAlso (mc, ds_target, seealso ,Report); foreach (XmlElement see in n.SelectNodes (".//exception")) - HandleException (mc, ds_target, see); + HandleException (mc, ds_target, see, Report); } n.WriteTo (RootContext.Documentation.XmlCommentOutput); @@ -190,7 +178,7 @@ namespace Mono.CSharp { // Processes "include" element. Check included file and // embed the document content inside this documentation node. // - private static bool HandleInclude (MemberCore mc, XmlElement el) + private static bool HandleInclude (MemberCore mc, XmlElement el, Report Report) { bool keep_include_node = false; string file = el.GetAttribute ("file"); @@ -206,8 +194,8 @@ namespace Mono.CSharp { keep_include_node = true; } else { - XmlDocument doc = RootContext.Documentation.StoredDocuments [file] as XmlDocument; - if (doc == null) { + XmlDocument doc; + if (!RootContext.Documentation.StoredDocuments.TryGetValue (file, out doc)) { try { doc = new XmlDocument (); doc.Load (file); @@ -240,27 +228,27 @@ namespace Mono.CSharp { // Handles elements. // private static void HandleSee (MemberCore mc, - DeclSpace ds, XmlElement see) + DeclSpace ds, XmlElement see, Report r) { - HandleXrefCommon (mc, ds, see); + HandleXrefCommon (mc, ds, see, r); } // // Handles elements. // private static void HandleSeeAlso (MemberCore mc, - DeclSpace ds, XmlElement seealso) + DeclSpace ds, XmlElement seealso, Report r) { - HandleXrefCommon (mc, ds, seealso); + HandleXrefCommon (mc, ds, seealso, r); } // // Handles elements. // private static void HandleException (MemberCore mc, - DeclSpace ds, XmlElement seealso) + DeclSpace ds, XmlElement seealso, Report r) { - HandleXrefCommon (mc, ds, seealso); + HandleXrefCommon (mc, ds, seealso, r); } static readonly char [] wsChars = @@ -270,7 +258,7 @@ namespace Mono.CSharp { // returns a full runtime type name from a name which might // be C# specific type name. // - private static Type FindDocumentedType (MemberCore mc, string name, DeclSpace ds, string cref) + private static TypeSpec FindDocumentedType (MemberCore mc, string name, DeclSpace ds, string cref, Report r) { bool is_array = false; string identifier = name; @@ -281,14 +269,14 @@ namespace Mono.CSharp { is_array = true; } } - Type t = FindDocumentedTypeNonArray (mc, identifier, ds, cref); + TypeSpec t = FindDocumentedTypeNonArray (mc, identifier, ds, cref, r); if (t != null && is_array) - t = Array.CreateInstance (t, 0).GetType (); + t = Import.ImportType (Array.CreateInstance (t.GetMetaInfo (), 0).GetType ()); return t; } - private static Type FindDocumentedTypeNonArray (MemberCore mc, - string identifier, DeclSpace ds, string cref) + private static TypeSpec FindDocumentedTypeNonArray (MemberCore mc, + string identifier, DeclSpace ds, string cref, Report r) { switch (identifier) { case "int": @@ -324,7 +312,7 @@ namespace Mono.CSharp { case "void": return TypeManager.void_type;; } - FullNamedExpression e = ds.LookupNamespaceOrType (identifier, mc.Location, false); + FullNamedExpression e = ds.LookupNamespaceOrType (identifier, 0, mc.Location, false); if (e != null) { if (!(e is TypeExpr)) return null; @@ -334,158 +322,73 @@ namespace Mono.CSharp { if (index < 0) return null; int warn; - Type parent = FindDocumentedType (mc, identifier.Substring (0, index), ds, cref); + TypeSpec parent = FindDocumentedType (mc, identifier.Substring (0, index), ds, cref, r); if (parent == null) return null; // no need to detect warning 419 here - return FindDocumentedMember (mc, parent, + var ts = FindDocumentedMember (mc, parent, identifier.Substring (index + 1), - null, ds, out warn, cref, false, null).Member as Type; - } - - private static MemberInfo [] empty_member_infos = - new MemberInfo [0]; - - private static MemberInfo [] FindMethodBase (Type type, - BindingFlags binding_flags, MethodSignature signature) - { - MemberList ml = TypeManager.FindMembers ( - type, - MemberTypes.Constructor | MemberTypes.Method | MemberTypes.Property | MemberTypes.Custom, - binding_flags, - MethodSignature.method_signature_filter, - signature); - if (ml == null) - return empty_member_infos; - - return FilterOverridenMembersOut ((MemberInfo []) ml); - } - - static bool IsOverride (PropertyInfo deriv_prop, PropertyInfo base_prop) - { - if (!MethodGroupExpr.IsAncestralType (base_prop.DeclaringType, deriv_prop.DeclaringType)) - return false; - - Type [] deriv_pd = TypeManager.GetArgumentTypes (deriv_prop); - Type [] base_pd = TypeManager.GetArgumentTypes (base_prop); - - if (deriv_pd.Length != base_pd.Length) - return false; - - for (int j = 0; j < deriv_pd.Length; ++j) { - if (deriv_pd [j] != base_pd [j]) - return false; - Type ct = TypeManager.TypeToCoreType (deriv_pd [j]); - Type bt = TypeManager.TypeToCoreType (base_pd [j]); - - if (ct != bt) - return false; - } - - return true; - } - - private static MemberInfo [] FilterOverridenMembersOut ( - MemberInfo [] ml) - { - if (ml == null) - return empty_member_infos; - - ArrayList al = new ArrayList (ml.Length); - for (int i = 0; i < ml.Length; i++) { - MethodBase mx = ml [i] as MethodBase; - PropertyInfo px = ml [i] as PropertyInfo; - if (mx != null || px != null) { - bool overriden = false; - for (int j = 0; j < ml.Length; j++) { - if (j == i) - continue; - MethodBase my = ml [j] as MethodBase; - if (mx != null && my != null && - MethodGroupExpr.IsOverride (my, mx)) { - overriden = true; - break; - } - else if (mx != null) - continue; - PropertyInfo py = ml [j] as PropertyInfo; - if (px != null && py != null && - IsOverride (py, px)) { - overriden = true; - break; - } - } - if (overriden) - continue; - } - al.Add (ml [i]); - } - return al.ToArray (typeof (MemberInfo)) as MemberInfo []; - } - - struct FoundMember - { - public static FoundMember Empty = new FoundMember (true); - - public bool IsEmpty; - public readonly MemberInfo Member; - public readonly Type Type; - - public FoundMember (bool regardless_of_this_value_its_empty) - { - IsEmpty = true; - Member = null; - Type = null; - } - - public FoundMember (Type found_type, MemberInfo member) - { - IsEmpty = false; - Type = found_type; - Member = member; - } + null, ds, out warn, cref, false, null, r) as TypeSpec; + if (ts != null) + return ts; + return null; } // // Returns a MemberInfo that is referenced in XML documentation // (by "see" or "seealso" elements). // - private static FoundMember FindDocumentedMember (MemberCore mc, - Type type, string member_name, Type [] param_list, + private static MemberSpec FindDocumentedMember (MemberCore mc, + TypeSpec type, string member_name, AParametersCollection param_list, DeclSpace ds, out int warning_type, string cref, - bool warn419, string name_for_error) + bool warn419, string name_for_error, Report r) { - for (; type != null; type = type.DeclaringType) { - MemberInfo mi = FindDocumentedMemberNoNest ( +// for (; type != null; type = type.DeclaringType) { + var mi = FindDocumentedMemberNoNest ( mc, type, member_name, param_list, ds, out warning_type, cref, warn419, - name_for_error); + name_for_error, r); if (mi != null) - return new FoundMember (type, mi); - } + return mi; // new FoundMember (type, mi); +// } warning_type = 0; - return FoundMember.Empty; + return null; } - private static MemberInfo FindDocumentedMemberNoNest ( - MemberCore mc, Type type, string member_name, - Type [] param_list, DeclSpace ds, out int warning_type, - string cref, bool warn419, string name_for_error) + private static MemberSpec FindDocumentedMemberNoNest ( + MemberCore mc, TypeSpec type, string member_name, + AParametersCollection param_list, DeclSpace ds, out int warning_type, + string cref, bool warn419, string name_for_error, Report Report) { warning_type = 0; - MemberInfo [] mis; + var filter = new MemberFilter (member_name, 0, MemberKind.All, param_list, null); + IList found = null; + while (type != null && found == null) { + found = MemberCache.FindMembers (type, filter, BindingRestriction.None); + type = type.DeclaringType; + } + + if (found == null) + return null; + + if (warn419 && found.Count > 1) { + Report419 (mc, name_for_error, found.ToArray (), Report); + } + + return found [0]; +/* if (param_list == null) { // search for fields/events etc. mis = TypeManager.MemberLookup (type, null, - type, MemberTypes.All, - BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.Static | BindingFlags.Instance, + type, MemberKind.All, + BindingRestriction.None, member_name, null); mis = FilterOverridenMembersOut (mis); if (mis == null || mis.Length == 0) return null; if (warn419 && IsAmbiguous (mis)) - Report419 (mc, name_for_error, mis); + Report419 (mc, name_for_error, mis, Report); return mis [0]; } @@ -496,7 +399,7 @@ namespace Mono.CSharp { if (warn419 && mis.Length > 0) { if (IsAmbiguous (mis)) - Report419 (mc, name_for_error, mis); + Report419 (mc, name_for_error, mis, Report); return mis [0]; } @@ -505,11 +408,11 @@ namespace Mono.CSharp { string oper = null; string return_type_name = null; if (member_name.StartsWith ("implicit operator ")) { - oper = "op_Implicit"; + Operator.GetMetadataName (Operator.OpType.Implicit); return_type_name = member_name.Substring (18).Trim (wsChars); } else if (member_name.StartsWith ("explicit operator ")) { - oper = "op_Explicit"; + oper = Operator.GetMetadataName (Operator.OpType.Explicit); return_type_name = member_name.Substring (18).Trim (wsChars); } else if (member_name.StartsWith ("operator ")) { @@ -518,58 +421,19 @@ namespace Mono.CSharp { // either unary or binary case "+": oper = param_list.Length == 2 ? - Binary.GetOperatorMetadataName (Binary.Operator.Addition) : - Unary.oper_names [(int) Unary.Operator.UnaryPlus]; + Operator.GetMetadataName (Operator.OpType.Addition) : + Operator.GetMetadataName (Operator.OpType.UnaryPlus); break; case "-": oper = param_list.Length == 2 ? - Binary.GetOperatorMetadataName (Binary.Operator.Subtraction) : - Unary.oper_names [(int) Unary.Operator.UnaryNegation]; + Operator.GetMetadataName (Operator.OpType.Subtraction) : + Operator.GetMetadataName (Operator.OpType.UnaryNegation); break; - // unary - case "!": - oper = Unary.oper_names [(int) Unary.Operator.LogicalNot]; break; - case "~": - oper = Unary.oper_names [(int) Unary.Operator.OnesComplement]; break; - - case "++": - oper = "op_Increment"; break; - case "--": - oper = "op_Decrement"; break; - case "true": - oper = "op_True"; break; - case "false": - oper = "op_False"; break; - // binary - case "*": - oper = Binary.GetOperatorMetadataName (Binary.Operator.Multiply); break; - case "/": - oper = Binary.GetOperatorMetadataName (Binary.Operator.Division); break; - case "%": - oper = Binary.GetOperatorMetadataName (Binary.Operator.Modulus); break; - case "&": - oper = Binary.GetOperatorMetadataName (Binary.Operator.BitwiseAnd); break; - case "|": - oper = Binary.GetOperatorMetadataName (Binary.Operator.BitwiseOr); break; - case "^": - oper = Binary.GetOperatorMetadataName (Binary.Operator.ExclusiveOr); break; - case "<<": - oper = Binary.GetOperatorMetadataName (Binary.Operator.LeftShift); break; - case ">>": - oper = Binary.GetOperatorMetadataName (Binary.Operator.RightShift); break; - case "==": - oper = Binary.GetOperatorMetadataName (Binary.Operator.Equality); break; - case "!=": - oper = Binary.GetOperatorMetadataName (Binary.Operator.Inequality); break; - case "<": - oper = Binary.GetOperatorMetadataName (Binary.Operator.LessThan); break; - case ">": - oper = Binary.GetOperatorMetadataName (Binary.Operator.GreaterThan); break; - case "<=": - oper = Binary.GetOperatorMetadataName (Binary.Operator.LessThanOrEqual); break; - case ">=": - oper = Binary.GetOperatorMetadataName (Binary.Operator.GreaterThanOrEqual); break; default: + oper = Operator.GetMetadataName (oper); + if (oper != null) + break; + warning_type = 1584; Report.Warning (1020, 1, mc.Location, "Overloadable {0} operator is expected", param_list.Length == 2 ? "binary" : "unary"); Report.Warning (1584, 1, mc.Location, "XML comment on `{0}' has syntactically incorrect cref attribute `{1}'", @@ -586,14 +450,14 @@ namespace Mono.CSharp { msig); if (mis.Length == 0) return null; // CS1574 - MemberInfo mi = mis [0]; - Type expected = mi is MethodInfo ? - ((MethodInfo) mi).ReturnType : - mi is PropertyInfo ? - ((PropertyInfo) mi).PropertyType : + var mi = mis [0]; + TypeSpec expected = mi is MethodSpec ? + ((MethodSpec) mi).ReturnType : + mi is PropertySpec ? + ((PropertySpec) mi).PropertyType : null; if (return_type_name != null) { - Type returnType = FindDocumentedType (mc, return_type_name, ds, cref); + TypeSpec returnType = FindDocumentedType (mc, return_type_name, ds, cref, Report); if (returnType == null || returnType != expected) { warning_type = 1581; Report.Warning (1581, 1, mc.Location, "Invalid return type in XML comment cref attribute `{0}'", cref); @@ -601,19 +465,7 @@ namespace Mono.CSharp { } } return mis [0]; - } - - private static bool IsAmbiguous (MemberInfo [] members) - { - if (members.Length < 2) - return false; - if (members.Length > 2) - return true; - if (members [0] is EventInfo && members [1] is FieldInfo) - return false; - if (members [1] is EventInfo && members [0] is FieldInfo) - return false; - return true; +*/ } // @@ -621,7 +473,7 @@ namespace Mono.CSharp { // Checks cref attribute. // private static void HandleXrefCommon (MemberCore mc, - DeclSpace ds, XmlElement xref) + DeclSpace ds, XmlElement xref, Report Report) { string cref = xref.GetAttribute ("cref").Trim (wsChars); // when, XmlReader, "if (cref == null)" @@ -664,7 +516,7 @@ namespace Mono.CSharp { name = signature; parameters = null; } - Normalize (mc, ref name); + Normalize (mc, ref name, Report); string identifier = GetBodyIdentifierFromName (name); @@ -675,7 +527,7 @@ namespace Mono.CSharp { for (int i = 0; i < name_elems.Length; i++) { string nameElem = GetBodyIdentifierFromName (name_elems [i]); if (i > 0) - Normalize (mc, ref nameElem); + Normalize (mc, ref nameElem, Report); if (!Tokenizer.IsValidIdentifier (nameElem) && nameElem.IndexOf ("operator") < 0) { Report.Warning (1584, 1, mc.Location, "XML comment on `{0}' has syntactically incorrect cref attribute `{1}'", @@ -686,18 +538,18 @@ namespace Mono.CSharp { } // check if parameters are valid - Type [] parameter_types; + AParametersCollection parameter_types; if (parameters == null) parameter_types = null; else if (parameters.Length == 0) - parameter_types = Type.EmptyTypes; + parameter_types = ParametersCompiled.EmptyReadOnlyParameters; else { string [] param_list = parameters.Split (','); - ArrayList plist = new ArrayList (); + var plist = new List (); for (int i = 0; i < param_list.Length; i++) { string param_type_name = param_list [i].Trim (wsChars); - Normalize (mc, ref param_type_name); - Type param_type = FindDocumentedType (mc, param_type_name, ds, cref); + Normalize (mc, ref param_type_name, Report); + TypeSpec param_type = FindDocumentedType (mc, param_type_name, ds, cref, Report); if (param_type == null) { Report.Warning (1580, 1, mc.Location, "Invalid type for parameter `{0}' in XML comment cref attribute `{1}'", (i + 1).ToString (), cref); @@ -705,13 +557,14 @@ namespace Mono.CSharp { } plist.Add (param_type); } - parameter_types = plist.ToArray (typeof (Type)) as Type []; + + parameter_types = ParametersCompiled.CreateFullyResolved (plist.ToArray ()); } - Type type = FindDocumentedType (mc, name, ds, cref); + TypeSpec type = FindDocumentedType (mc, name, ds, cref, Report); if (type != null // delegate must not be referenced with args - && (!TypeManager.IsDelegateType (type) + && (!type.IsDelegate || parameter_types == null)) { string result = GetSignatureForDoc (type) + (brace_pos < 0 ? String.Empty : signature.Substring (brace_pos)); @@ -723,36 +576,36 @@ namespace Mono.CSharp { if (period > 0) { string typeName = name.Substring (0, period); string member_name = name.Substring (period + 1); - Normalize (mc, ref member_name); - type = FindDocumentedType (mc, typeName, ds, cref); + string lookup_name = member_name == "this" ? MemberCache.IndexerNameAlias : member_name; + Normalize (mc, ref lookup_name, Report); + Normalize (mc, ref member_name, Report); + type = FindDocumentedType (mc, typeName, ds, cref, Report); int warn_result; if (type != null) { - FoundMember fm = FindDocumentedMember (mc, type, member_name, parameter_types, ds, out warn_result, cref, true, name); + var mi = FindDocumentedMember (mc, type, lookup_name, parameter_types, ds, out warn_result, cref, true, name, Report); if (warn_result > 0) return; - if (!fm.IsEmpty) { - MemberInfo mi = fm.Member; + if (mi != null) { // we cannot use 'type' directly // to get its name, since mi // could be from DeclaringType // for nested types. - xref.SetAttribute ("cref", GetMemberDocHead (mi.MemberType) + GetSignatureForDoc (fm.Type) + "." + member_name + GetParametersFormatted (mi)); + xref.SetAttribute ("cref", GetMemberDocHead (mi) + GetSignatureForDoc (mi.DeclaringType) + "." + member_name + GetParametersFormatted (mi)); return; // a member of a type } } - } - else { + } else { int warn_result; - FoundMember fm = FindDocumentedMember (mc, ds.TypeBuilder, name, parameter_types, ds, out warn_result, cref, true, name); + var mi = FindDocumentedMember (mc, ds.PartialContainer.Definition, name, parameter_types, ds, out warn_result, cref, true, name, Report); + if (warn_result > 0) return; - if (!fm.IsEmpty) { - MemberInfo mi = fm.Member; + if (mi != null) { // we cannot use 'type' directly // to get its name, since mi // could be from DeclaringType // for nested types. - xref.SetAttribute ("cref", GetMemberDocHead (mi.MemberType) + GetSignatureForDoc (fm.Type) + "." + name + GetParametersFormatted (mi)); + xref.SetAttribute ("cref", GetMemberDocHead (mi) + GetSignatureForDoc (mi.DeclaringType) + "." + name + GetParametersFormatted (mi)); return; // local member name } } @@ -763,7 +616,7 @@ namespace Mono.CSharp { xref.SetAttribute ("cref", "N:" + ns.GetSignatureForError ()); return; // a namespace } - if (RootNamespace.Global.IsNamespace (name)) { + if (GlobalRootNamespace.Instance.IsNamespace (name)) { xref.SetAttribute ("cref", "N:" + name); return; // a namespace } @@ -774,33 +627,25 @@ namespace Mono.CSharp { xref.SetAttribute ("cref", "!:" + name); } - static string GetParametersFormatted (MemberInfo mi) + static string GetParametersFormatted (MemberSpec mi) { - MethodBase mb = mi as MethodBase; - bool is_setter = false; - PropertyInfo pi = mi as PropertyInfo; - if (pi != null) { - mb = pi.GetGetMethod (); - if (mb == null) { - is_setter = true; - mb = pi.GetSetMethod (); - } - } - if (mb == null) - return String.Empty; + var pm = mi as IParametersMember; + if (pm == null || pm.Parameters.IsEmpty) + return string.Empty; - ParameterData parameters = TypeManager.GetParameterData (mb); + AParametersCollection parameters = pm.Parameters; +/* if (parameters == null || parameters.Count == 0) return String.Empty; - +*/ StringBuilder sb = new StringBuilder (); sb.Append ('('); for (int i = 0; i < parameters.Count; i++) { - if (is_setter && i + 1 == parameters.Count) - break; // skip "value". +// if (is_setter && i + 1 == parameters.Count) +// break; // skip "value". if (i > 0) sb.Append (','); - Type t = parameters.ParameterType (i); + TypeSpec t = parameters.Types [i]; sb.Append (GetSignatureForDoc (t)); } sb.Append (')'); @@ -821,7 +666,7 @@ namespace Mono.CSharp { return identifier; } - static void Report419 (MemberCore mc, string member_name, MemberInfo [] mis) + static void Report419 (MemberCore mc, string member_name, MemberSpec [] mis, Report Report) { Report.Warning (419, 3, mc.Location, "Ambiguous reference in cref attribute `{0}'. Assuming `{1}' but other overloads including `{2}' have also matched", @@ -834,22 +679,19 @@ namespace Mono.CSharp { // Get a prefix from member type for XML documentation (used // to formalize cref target name). // - static string GetMemberDocHead (MemberTypes type) + static string GetMemberDocHead (MemberSpec type) { - switch (type) { - case MemberTypes.Constructor: - case MemberTypes.Method: + if (type is FieldSpec) + return "F:"; + if (type is MethodSpec) return "M:"; - case MemberTypes.Event: + if (type is EventSpec) return "E:"; - case MemberTypes.Field: - return "F:"; - case MemberTypes.NestedType: - case MemberTypes.TypeInfo: - return "T:"; - case MemberTypes.Property: + if (type is PropertySpec) return "P:"; - } + if (type is TypeSpec) + return "T:"; + return "!:"; } @@ -859,15 +701,16 @@ namespace Mono.CSharp { // Returns a string that represents the signature for this // member which should be used in XML documentation. // - public static string GetMethodDocCommentName (MemberCore mc, Parameters parameters, DeclSpace ds) + public static string GetMethodDocCommentName (MemberCore mc, ParametersCompiled parameters, DeclSpace ds) { - Parameter [] plist = parameters.FixedParameters; + IParameterData [] plist = parameters.FixedParameters; string paramSpec = String.Empty; if (plist != null) { StringBuilder psb = new StringBuilder (); + int i = 0; foreach (Parameter p in plist) { psb.Append (psb.Length != 0 ? "," : "("); - psb.Append (GetSignatureForDoc (p.ParameterType)); + psb.Append (GetSignatureForDoc (parameters.Types [i++])); if ((p.ModFlags & Parameter.Modifier.ISBYREF) != 0) psb.Append ('@'); } @@ -878,44 +721,44 @@ namespace Mono.CSharp { paramSpec += ")"; string name = mc is Constructor ? "#ctor" : mc.Name; -#if GMCS_SOURCE if (mc.MemberName.IsGeneric) name += "``" + mc.MemberName.CountTypeArguments; -#endif + string suffix = String.Empty; Operator op = mc as Operator; if (op != null) { switch (op.OperatorType) { case Operator.OpType.Implicit: case Operator.OpType.Explicit: - suffix = "~" + GetSignatureForDoc (op.MethodBuilder.ReturnType); + suffix = "~" + GetSignatureForDoc (op.ReturnType); break; } } return String.Concat (mc.DocCommentHeader, ds.Name, ".", name, paramSpec, suffix); } - static string GetSignatureForDoc (Type type) + static string GetSignatureForDoc (TypeSpec type) { -#if GMCS_SOURCE - if (TypeManager.IsGenericParameter (type)) - return (type.DeclaringMethod != null ? "``" : "`") + TypeManager.GenericParameterPosition (type); + var tp = type as TypeParameterSpec; + if (tp != null) { + var prefix = tp.IsMethodOwned ? "``" : "`"; + return prefix + tp.DeclaredPosition; + } if (TypeManager.IsGenericType (type)) { - string g = type.Namespace; + string g = type.MemberDefinition.Namespace; if (g != null && g.Length > 0) g += '.'; int idx = type.Name.LastIndexOf ('`'); g += (idx < 0 ? type.Name : type.Name.Substring (0, idx)) + '{'; int argpos = 0; - foreach (Type t in type.GetGenericArguments ()) + foreach (TypeSpec t in TypeManager.GetTypeArguments (type)) g += (argpos++ > 0 ? "," : String.Empty) + GetSignatureForDoc (t); g += '}'; return g; } -#endif - string name = type.FullName != null ? type.FullName : type.Name; + string name = type.GetMetaInfo ().FullName != null ? type.GetMetaInfo ().FullName : type.Name; return name.Replace ("+", ".").Replace ('&', '@'); } @@ -927,31 +770,30 @@ namespace Mono.CSharp { // that means removal of DOM use. // internal static void OnMethodGenerateDocComment ( - MethodCore mc, XmlElement el) + MethodCore mc, XmlElement el, Report Report) { - Hashtable paramTags = new Hashtable (); + var paramTags = new Dictionary (); foreach (XmlElement pelem in el.SelectNodes ("param")) { - int i; string xname = pelem.GetAttribute ("name"); if (xname.Length == 0) continue; // really? but MS looks doing so - if (xname != "" && mc.Parameters.GetParameterByName (xname, out i) == null) + if (xname != "" && mc.ParameterInfo.GetParameterIndexByName (xname) < 0) Report.Warning (1572, 2, mc.Location, "XML comment on `{0}' has a param tag for `{1}', but there is no parameter by that name", mc.GetSignatureForError (), xname); - else if (paramTags [xname] != null) + else if (paramTags.ContainsKey (xname)) Report.Warning (1571, 2, mc.Location, "XML comment on `{0}' has a duplicate param tag for `{1}'", mc.GetSignatureForError (), xname); paramTags [xname] = xname; } - Parameter [] plist = mc.Parameters.FixedParameters; + IParameterData [] plist = mc.ParameterInfo.FixedParameters; foreach (Parameter p in plist) { - if (paramTags.Count > 0 && paramTags [p.Name] == null) + if (paramTags.Count > 0 && !paramTags.ContainsKey (p.Name)) Report.Warning (1573, 4, mc.Location, "Parameter `{0}' has no matching param tag in the XML comment for `{1}'", p.Name, mc.GetSignatureForError ()); } } - private static void Normalize (MemberCore mc, ref string name) + private static void Normalize (MemberCore mc, ref string name, Report Report) { if (name.Length > 0 && name [0] == '@') name = name.Substring (1); @@ -1014,12 +856,12 @@ namespace Mono.CSharp { // Stores XmlDocuments that are included in XML documentation. // Keys are included filenames, values are XmlDocuments. // - public Hashtable StoredDocuments = new Hashtable (); + public Dictionary StoredDocuments = new Dictionary (); // // Outputs XML documentation comment from tokenized comments. // - public bool OutputDocComment (string asmfilename) + public bool OutputDocComment (string asmfilename, Report Report) { XmlTextWriter w = null; try { @@ -1035,7 +877,7 @@ namespace Mono.CSharp { w.WriteEndElement (); // assembly w.WriteStartElement ("members"); XmlCommentOutput = w; - GenerateDocComment (); + GenerateDocComment (Report); w.WriteFullEndElement (); // members w.WriteEndElement (); w.WriteWhitespace (Environment.NewLine); @@ -1053,18 +895,13 @@ namespace Mono.CSharp { // // Fixes full type name of each documented types/members up. // - public void GenerateDocComment () + public void GenerateDocComment (Report r) { TypeContainer root = RootContext.ToplevelTypes; if (root.Types != null) foreach (TypeContainer tc in root.Types) - DocUtil.GenerateTypeDocComment (tc, null); - - if (root.Delegates != null) - foreach (Delegate d in root.Delegates) - DocUtil.GenerateDocComment (d, null); + DocUtil.GenerateTypeDocComment (tc, null, r); } } } -#endif