[svn] r6461: nemerle/trunk: lib/list.n ncc/parsing/AST.n ncc/parsing/Lexer.n ncc/parsing/ParseTree.n

[VladD2]

Log:
Some improvements for debugging purpose.

Author: VladD2
Date: Sat Jul 22 22:32:27 2006
New Revision: 6461

Modified:
   nemerle/trunk/lib/list.n
   nemerle/trunk/ncc/parsing/AST.n
   nemerle/trunk/ncc/parsing/Lexer.n
   nemerle/trunk/ncc/parsing/ParseTree.n

Modified: nemerle/trunk/lib/list.n
==============================================================================
--- nemerle/trunk/lib/list.n	(original)
+++ nemerle/trunk/lib/list.n	Sat Jul 22 22:32:27 2006
@@ -533,6 +533,7 @@
   
 namespace Nemerle.Collections 
 {
+  [DebuggerNonUserCode]
   public module List
   {
     /**

Modified: nemerle/trunk/ncc/parsing/AST.n
==============================================================================
--- nemerle/trunk/ncc/parsing/AST.n	(original)
+++ nemerle/trunk/ncc/parsing/AST.n	Sat Jul 22 22:32:27 2006
@@ -287,6 +287,11 @@
     {
       custom_attrs = expr :: custom_attrs;
     }
+
+    override public ToString() : string
+    {
+      $"$custom_attrs $mods"
+    }
   }
 
   public variant Literal

Modified: nemerle/trunk/ncc/parsing/Lexer.n
==============================================================================
--- nemerle/trunk/ncc/parsing/Lexer.n	(original)
+++ nemerle/trunk/ncc/parsing/Lexer.n	Sat Jul 22 22:32:27 2006
@@ -27,6 +27,7 @@
  */
 
 using System.Text;
+using System.Diagnostics;
 using System.Globalization;
 using System;
 
@@ -120,7 +121,8 @@
         PreParser.Dump (this, "")
 
       | Namespace (env, body) =>
-        "namespace " + env.CurrentNamespace.Name.ToString (".") + PreParser.Dump (body, "")
+        "namespace " + env.CurrentNamespace.Name.ToString (".") 
+        + " { " + PreParser.Dump (body, "") + " }"
 
       | Using => "using import;"
     }
@@ -192,6 +194,7 @@
   }
 }
 
+[DebuggerNonUserCode]
 public class TokenEnumerator : System.Collections.IEnumerator {
   mutable current : Token;
   mutable next : Token;  

Modified: nemerle/trunk/ncc/parsing/ParseTree.n
==============================================================================
--- nemerle/trunk/ncc/parsing/ParseTree.n	(original)
+++ nemerle/trunk/ncc/parsing/ParseTree.n	Sat Jul 22 22:32:27 2006
@@ -337,6 +337,15 @@
         | _ => throw System.ArgumentException ("GetIdList () called for option " + this.ToString ())
       }
     }
+
+    override public ToString() : string
+    {
+      match (this) {
+        | Name(name)
+        | HalfId(name)     => name.ToString()
+        | Expression(expr) => expr.ToString()
+      }
+    }
   }
 
   public class Fun_parm : DeclarationBase