2004-09-03 John Luke <john.luke@gmail.com>

[mono.git] / mcs / tools / monop / monop.cs

diff --git a/mcs/tools/monop/monop.cs b/mcs/tools/monop/monop.cs
index f7e20996b97cffbf2ea7d1dba9a5eff9ea5ed4d9..7dc4339436187acef2191c836aa4e3c9f7998400 100644 (file)
--- a/mcs/tools/monop/monop.cs
+++ b/mcs/tools/monop/monop.cs
@@ -116,9 +116,17 @@ class MonoP {
                Console.WriteLine ();
                Console.WriteLine ("Assembly Information:");
 
+               object[] cls = a.GetCustomAttributes (typeof (CLSCompliantAttribute), false);
+               if (cls.Length > 0)
+               {
+                       CLSCompliantAttribute cca = cls[0] as CLSCompliantAttribute;
+                       if (cca.IsCompliant)
+                               Console.WriteLine ("[CLSCompliant]");
+               }
+
                foreach (string ai in a.ToString ().Split (','))
                        Console.WriteLine (ai.Trim ());
-
+                       
                Console.WriteLine ();
                Type [] types = a.GetExportedTypes ();