diff options
| author | Rich Hickey <richhickey@gmail.com> | 2006-04-05 22:28:13 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2006-04-05 22:28:13 +0000 |
| commit | 5c55b8c7cf098da420db04ca7c12d1bfb7240cd7 (patch) | |
| tree | c66007c663151db0fe1e23569a1443f264afae97 /src/cli/TypeDump/Program.cs | |
| parent | 8805afc2434bd40c4b91b00230b030a82197e6ab (diff) | |
Added TypeDump
Diffstat (limited to 'src/cli/TypeDump/Program.cs')
| -rw-r--r-- | src/cli/TypeDump/Program.cs | 159 |
1 files changed, 159 insertions, 0 deletions
diff --git a/src/cli/TypeDump/Program.cs b/src/cli/TypeDump/Program.cs new file mode 100644 index 00000000..3afad137 --- /dev/null +++ b/src/cli/TypeDump/Program.cs @@ -0,0 +1,159 @@ +using System;
+using System.IO;
+using System.Reflection;
+
+namespace TypeDump
+ {
+ class Program
+ {
+ static void Main(string[] args)
+ {
+ if (args.Length < 2)
+ {
+ Console.Error.WriteLine("usage: typedump assembly namespace [namespace ...]");
+ return;
+ }
+ Assembly a = Assembly.Load(new AssemblyName(args[0]));
+ Console.WriteLine('(');
+ foreach (Type t in a.GetExportedTypes())
+ {
+ if(Array.IndexOf(args,t.Namespace,1) >= 0
+ //we don't deal with generics
+ && !(t.IsGenericTypeDefinition || t.IsGenericType))
+ dumpType(t, Console.Out);
+ }
+ Console.WriteLine(')');
+ }
+
+ static bool hasGenericOrRefParam(ParameterInfo[] args)
+ {
+ return Array.Find(args, delegate(ParameterInfo pi)
+ {
+ Type pit = pi.ParameterType;
+ return pit.IsGenericTypeDefinition || pit.IsGenericType ||pit.IsByRef;
+ })
+ != null;
+ }
+
+ static void dumpType(Type t, TextWriter p)
+ {
+ p.Write('(');
+ p.Write("(:name \"" + t + "\")");
+ if(t.BaseType != null)
+ p.Write(" (:super \"" + t.BaseType + "\")");
+
+ Type[] interfaces = t.GetInterfaces();
+ if (interfaces.Length > 0)
+ {
+ p.WriteLine();
+ p.Write(" (:interfaces");
+ foreach (Type it in interfaces)
+ {
+ if (!(it.IsGenericTypeDefinition || it.IsGenericType))
+ p.Write(" \"" + it + "\"");
+
+ }
+ p.Write(')');
+ }
+ foreach (ConstructorInfo ci in t.GetConstructors(BindingFlags.Public|BindingFlags.Instance))
+ {
+ //this should filter for pointer args etc
+ Object[] clsattr = ci.GetCustomAttributes(typeof(CLSCompliantAttribute), false);
+ if (clsattr.Length > 0 && !((CLSCompliantAttribute)clsattr[0]).IsCompliant)
+ continue;
+ ParameterInfo[] args = ci.GetParameters();
+ //we don't deal with generics
+ if (hasGenericOrRefParam(args))
+ continue;
+ p.WriteLine();
+ p.Write(" (:ctor (:arity " + args.Length + ")");
+ if (args.Length > 0
+ && args[args.Length - 1].GetCustomAttributes(typeof(ParamArrayAttribute), false).Length > 0)
+ {
+ p.Write("(:varargs t)");
+ }
+ if (args.Length > 0)
+ {
+ p.WriteLine();
+ p.Write(" (:args");
+ foreach (ParameterInfo pi in args)
+ {
+ p.Write(" \"" + pi.ParameterType + "\"");
+ }
+ p.Write(')');
+ }
+ p.Write(')');
+ }
+ foreach (MethodInfo mi in t.GetMethods(BindingFlags.Public | BindingFlags.Instance |BindingFlags.Static))
+ {
+ //this should filter for pointer args etc
+ Object[] clsattr = mi.GetCustomAttributes(typeof(CLSCompliantAttribute), false);
+ if (clsattr.Length > 0 && !((CLSCompliantAttribute)clsattr[0]).IsCompliant)
+ continue;
+ ParameterInfo[] args = mi.GetParameters();
+ //we don't deal with generics
+ if (hasGenericOrRefParam(args) ||mi.ReturnType.IsGenericType)
+ continue;
+ p.WriteLine();
+ p.Write(" (:method (:name \"" + mi.Name + "\") (:arity " + args.Length + ")(:ret \"" + mi.ReturnType + "\")");
+ if (mi.IsStatic)
+ {
+ p.Write(" (:static t)");
+ }
+ if (args.Length > 0
+ && args[args.Length - 1].GetCustomAttributes(typeof(ParamArrayAttribute), false).Length > 0)
+ {
+ p.Write(" (:varargs t)");
+ }
+ if (mi.IsSpecialName)
+ {
+ p.Write(" (:special t)");
+ }
+ if (args.Length > 0)
+ {
+ p.WriteLine();
+ p.Write(" (:args");
+ foreach (ParameterInfo pi in args)
+ {
+ p.Write(" \"" + pi.ParameterType + "\"");
+ }
+ p.Write(')');
+ }
+ p.Write(')');
+ }
+ foreach (FieldInfo fi in t.GetFields(BindingFlags.Public | BindingFlags.Instance | BindingFlags.Static))
+ {
+ p.WriteLine();
+ p.Write(" (:field (:name \"");
+ p.Write(fi.Name);
+ p.Write("\") (:type \"");
+ p.Write(fi.FieldType);
+ p.Write("\")");
+ if (fi.IsStatic)
+ {
+ p.Write(" (:static t)");
+ if (fi.IsLiteral)
+ {
+ Object v = fi.GetRawConstantValue();
+ p.Write(" (:const-value ");
+ if (v is String)
+ p.Write('"');
+ p.Write(v);
+ if (v is String)
+ p.Write('"');
+ p.Write(")");
+
+ }
+ }
+ if (fi.IsSpecialName)
+ {
+ p.Write(" (:special t)");
+ }
+ p.Write(")");
+
+ }
+
+ p.WriteLine(')');
+ }
+ }
+ }
|