// Authors:
// Gonzalo Paniagua Javier (gonzalo@ximian.com)
//
-// (C) 2003 Novell, Inc (http://www.novell.com)
+// Copyright (C) 2003-2005 Novell, Inc (http://www.novell.com)
//
using System;
using System.Collections;
+using System.Globalization;
using System.Reflection;
+using System.Runtime.InteropServices;
+using System.Security.Permissions;
using System.Text;
using System.Xml;
AddAttribute (nassembly, "version", aname.Version.ToString ());
parent.AppendChild (nassembly);
AttributeData.OutputAttributes (document, nassembly, ass.GetCustomAttributes (false));
- Type [] types = ass.GetTypes ();
+ Type [] types = ass.GetExportedTypes ();
if (types == null || types.Length == 0)
return;
AddAttribute (nclass, "name", type.Name);
string classType = GetClassType (type);
AddAttribute (nclass, "type", classType);
+
if (type.BaseType != null)
AddAttribute (nclass, "base", type.BaseType.FullName);
if (type.IsSealed)
AddAttribute (nclass, "sealed", "true");
+ if (type.IsAbstract)
+ AddAttribute (nclass, "abstract", "true");
+
+ if (type.IsSerializable)
+ AddAttribute (nclass, "serializable", "true");
+
+ string charSet = GetCharSet (type);
+ AddAttribute (nclass, "charset", charSet);
+
+ string layout = GetLayout (type);
+ if (layout != null)
+ AddAttribute (nclass, "layout", layout);
+
parent.AppendChild (nclass);
AttributeData.OutputAttributes (document, nclass, type.GetCustomAttributes (false));
if (member != type)
throw new InvalidOperationException ("odd");
- return ((int) type.Attributes).ToString ();
+ return ((int) type.Attributes).ToString (CultureInfo.InvariantCulture);
}
public static bool MustDocumentMethod(MethodBase method)
return "class";
}
+ private static string GetCharSet (Type type)
+ {
+ if (type.IsAnsiClass)
+ return CharSet.Ansi.ToString (CultureInfo.InvariantCulture);
+
+ if (type.IsAutoClass)
+ return CharSet.Auto.ToString (CultureInfo.InvariantCulture);
+
+ if (type.IsUnicodeClass)
+ return CharSet.Unicode.ToString (CultureInfo.InvariantCulture);
+
+ return CharSet.None.ToString (CultureInfo.InvariantCulture);
+ }
+
+ private static string GetLayout (Type type)
+ {
+ if (type.IsAutoLayout)
+ return LayoutKind.Auto.ToString (CultureInfo.InvariantCulture);
+
+ if (type.IsExplicitLayout)
+ return LayoutKind.Explicit.ToString (CultureInfo.InvariantCulture);
+
+ if (type.IsLayoutSequential)
+ return LayoutKind.Sequential.ToString (CultureInfo.InvariantCulture);
+
+ return null;
+ }
+
private FieldInfo[] GetFields (Type type)
{
ArrayList list = new ArrayList ();
return (FieldInfo[]) list.ToArray (typeof (FieldInfo));
}
- private PropertyInfo[] GetProperties (Type type)
+ internal static PropertyInfo[] GetProperties (Type type)
{
ArrayList list = new ArrayList ();
protected override string GetMemberAttributes (MemberInfo member)
{
FieldInfo field = (FieldInfo) member;
- return ((int) field.Attributes).ToString ();
+ return ((int) field.Attributes).ToString (CultureInfo.InvariantCulture);
}
protected override void AddExtraData (XmlNode p, MemberInfo member)
base.AddExtraData (p, member);
FieldInfo field = (FieldInfo) member;
AddAttribute (p, "fieldtype", field.FieldType.FullName);
+
+ if (field.IsLiteral) {
+ object value = field.GetValue (null);
+ string stringValue = null;
+ if (value is Enum) {
+ // FIXME: when Mono bug #60090 has been
+ // fixed, we should just be able to use
+ // Convert.ToString
+ stringValue = ((Enum) value).ToString ("D", CultureInfo.InvariantCulture);
+ } else {
+ stringValue = Convert.ToString (value, CultureInfo.InvariantCulture);
+ }
+
+ if (stringValue != null)
+ AddAttribute (p, "value", stringValue);
+ }
}
public override string ParentTag {
protected override string GetMemberAttributes (MemberInfo member)
{
PropertyInfo prop = (PropertyInfo) member;
- return ((int) prop.Attributes).ToString ();
+ return ((int) prop.Attributes).ToString (CultureInfo.InvariantCulture);
}
public override string ParentTag {
protected override string GetMemberAttributes (MemberInfo member)
{
EventInfo evt = (EventInfo) member;
- return ((int) evt.Attributes).ToString ();
+ return ((int) evt.Attributes).ToString (CultureInfo.InvariantCulture);
}
protected override void AddExtraData (XmlNode p, MemberInfo member)
protected override string GetMemberAttributes (MemberInfo member)
{
MethodBase method = (MethodBase) member;
- return ((int) method.Attributes).ToString ();
+ return ((int) method.Attributes).ToString (CultureInfo.InvariantCulture);
}
protected override void AddExtraData (XmlNode p, MemberInfo member)
{
base.AddExtraData (p, member);
+
+ ParameterData parms = new ParameterData (document, p,
+ ((MethodBase) member).GetParameters ());
+ parms.DoOutput ();
+
if (!(member is MethodInfo))
return;
-
+
MethodInfo method = (MethodInfo) member;
AddAttribute (p, "returntype", method.ReturnType.FullName);
+
+ AttributeData.OutputAttributes (document, p,
+ method.ReturnTypeCustomAttributes.GetCustomAttributes (false));
}
public override bool NoMemberAttributes {
}
}
+ class ParameterData : BaseData
+ {
+ private ParameterInfo[] parameters;
+
+ public ParameterData (XmlDocument document, XmlNode parent, ParameterInfo[] parameters)
+ : base (document, parent)
+ {
+ this.parameters = parameters;
+ }
+
+ public override void DoOutput ()
+ {
+ XmlNode parametersNode = document.CreateElement ("parameters", null);
+ parent.AppendChild (parametersNode);
+
+ foreach (ParameterInfo parameter in parameters) {
+ XmlNode paramNode = document.CreateElement ("parameter", null);
+ parametersNode.AppendChild (paramNode);
+ AddAttribute (paramNode, "name", parameter.Name);
+ AddAttribute (paramNode, "position", parameter.Position.ToString(CultureInfo.InvariantCulture));
+ AddAttribute (paramNode, "attrib", ((int) parameter.Attributes).ToString());
+
+ string direction = "in";
+
+ if (parameter.ParameterType.IsByRef) {
+ direction = parameter.IsOut ? "out" : "ref";
+ }
+
+ Type t = parameter.ParameterType;
+ AddAttribute (paramNode, "type", t.FullName);
+
+ if (parameter.IsOptional) {
+ AddAttribute (paramNode, "optional", "true");
+ if (parameter.DefaultValue != System.DBNull.Value)
+ AddAttribute (paramNode, "defaultValue", (parameter.DefaultValue == null) ? "NULL" : parameter.DefaultValue.ToString ());
+ }
+
+ if (direction != "in")
+ AddAttribute (paramNode, "direction", direction);
+
+ AttributeData.OutputAttributes (document, paramNode, parameter.GetCustomAttributes (false));
+ }
+ }
+ }
+
class AttributeData : BaseData
{
object [] atts;
+ string target;
- AttributeData (XmlDocument doc, XmlNode parent, object [] attributes)
+ AttributeData (XmlDocument doc, XmlNode parent, object[] attributes, string target)
: base (doc, parent)
{
- this.atts = attributes;
+ atts = attributes;
+ this.target = target;
+ }
+
+ AttributeData (XmlDocument doc, XmlNode parent, object [] attributes)
+ : this (doc, parent, attributes, null)
+ {
}
public override void DoOutput ()
if (atts == null || atts.Length == 0)
return;
- XmlNode natts = document.CreateElement ("attributes", null);
- parent.AppendChild (natts);
+ XmlNode natts = parent.SelectSingleNode("attributes");
+ if (natts == null) {
+ natts = document.CreateElement ("attributes", null);
+ parent.AppendChild (natts);
+ }
- ArrayList typeList = new ArrayList (atts.Length);
- string comment = null;
- for (int i = atts.Length - 1; i >= 0; i--) {
- Type attType = atts [i].GetType ();
- if (!MustDocumentAttribute (attType))
+ for (int i = 0; i < atts.Length; ++i) {
+ Type t = atts [i].GetType ();
+ if (!t.IsPublic && !t.Name.EndsWith ("TODOAttribute"))
+ continue;
+
+ // we ignore attributes that inherit from SecurityAttribute on purpose as they:
+ // * aren't part of GetCustomAttributes in Fx 1.0/1.1;
+ // * are encoded differently and in a different metadata table; and
+ // * won't ever exactly match MS implementation (from a syntax pov)
+ if (t.IsSubclassOf (typeof (SecurityAttribute)))
continue;
- typeList.Add (attType);
- if (attType.Name.EndsWith ("TODOAttribute")) {
- PropertyInfo prop = attType.GetProperty ("Comment");
- if (prop != null)
- comment = (string) prop.GetValue (atts [i], null);
- }
- }
- Type[] types = (Type[]) typeList.ToArray (typeof (Type));
- Array.Sort (types, TypeComparer.Default);
- foreach (Type t in types) {
XmlNode node = document.CreateElement ("attribute");
AddAttribute (node, "name", t.FullName);
- if (comment != null && t.Name.EndsWith ("TODOAttribute"))
- AddAttribute (node, "comment", comment);
+
+ XmlNode properties = null;
+ foreach (PropertyInfo pi in TypeData.GetProperties (t)) {
+ if (pi.Name == "TypeId")
+ continue;
+
+ if (properties == null) {
+ properties = node.AppendChild (document.CreateElement ("properties"));
+ }
+
+ try {
+ object o = pi.GetValue (atts [i], null);
+
+ XmlNode n = properties.AppendChild (document.CreateElement ("property"));
+ AddAttribute (n, "name", pi.Name);
+
+ if (o == null) {
+ AddAttribute (n, "null", "true");
+ continue;
+ }
+
+ string value = o.ToString ();
+ if (t == typeof (GuidAttribute))
+ value = value.ToUpper ();
+
+ AddAttribute (n, "value", value);
+ }
+ catch (TargetInvocationException) {
+ continue;
+ }
+ }
+
+ if (target != null) {
+ AddAttribute (node, "target", target);
+ }
natts.AppendChild (node);
}
}
- public static void OutputAttributes (XmlDocument doc, XmlNode parent, object [] attributes)
+ public static void OutputAttributes (XmlDocument doc, XmlNode parent, object[] attributes)
{
- AttributeData ad = new AttributeData (doc, parent, attributes);
+ AttributeData ad = new AttributeData (doc, parent, attributes, null);
+ ad.DoOutput ();
+ }
+
+ public static void OutputAttributes (XmlDocument doc, XmlNode parent, object [] attributes, string target)
+ {
+ AttributeData ad = new AttributeData (doc, parent, attributes, target);
ad.DoOutput ();
}
private static bool MustDocumentAttribute (Type attributeType)
{
- // only document public attributes
- return attributeType.IsPublic;
+ // only document MonoTODOAttribute and public attributes
+ return attributeType.Name.EndsWith ("TODOAttribute") || attributeType.IsPublic;
}
}
else
modifier = "";
- //TODO: parameter attributes
-
string type_name = info.ParameterType.ToString ();
sb.AppendFormat ("{0}{1}, ", modifier, type_name);
}