[svn] r7294: nemerle/trunk/ncc/parsing/ParseTree.n

[VladD2]

Log:
Add ToString() into TopDeclaration.

Author: VladD2
Date: Fri Jan 19 19:19:09 2007
New Revision: 7294

Modified:
   nemerle/trunk/ncc/parsing/ParseTree.n

Modified: nemerle/trunk/ncc/parsing/ParseTree.n
==============================================================================
--- nemerle/trunk/ncc/parsing/ParseTree.n	(original)
+++ nemerle/trunk/ncc/parsing/ParseTree.n	Fri Jan 19 19:19:09 2007
@@ -74,6 +74,22 @@
     }
         
     public this () { base (Splicable.Name (Name ("")), Modifiers.Empty) }
+
+    public override ToString() : string
+    {
+      def name = this.Name;
+      match (this)
+      {
+        | Class                => $"class $name"
+        | Alias(ty)            => $"type $name = $ty"
+        | Interface            => $"interface $name"
+        | Variant              => $"variant $name"
+        | VariantOption        => $"| $name"
+        | Macro (header, _, _) => $"macro $name($header)"
+        | Delegate (header)    => $"delegate $name: $header"
+        | Enum                 => $"enum $name"
+      }
+    }
   }
 
   [Record (Exclude = [Env, Tokens, BodyLocation, _definedIn])]