[svn] r6653: vs-plugin/trunk: Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n Nemerle.Co...

[IT]

Log:
Working on the method parameter tips.

Author: IT
Date: Thu Sep 14 06:44:27 2006
New Revision: 6653

Modified:
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n
   vs-plugin/trunk/Nemerle.VsIntegration/NemerleScanner.cs

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/ExprFinder.n	Thu Sep 14 06:44:27 2006
@@ -251,7 +251,8 @@
 
       match (pattern)
       {
-      | Wildcard           =>
+      | Wildcard
+      | Literal            => // { val : Nemerle.Compiler.Literal; }
 
         ()
 
@@ -283,20 +284,6 @@
 
         CheckObject(pattern.Location, ht.typ);
 
-      /*
-      | Literal(Literal.Enum(_, ty)) => // { lit : Nemerle.Compiler.Literal; }
-
-        CheckObject(pattern.Location, ty);
-      */
-
-      | Literal            => // { val : Nemerle.Compiler.Literal; }
-
-        /*
-        when (!typeof(void).Equals(pattern.SystemType))
-          CheckLocated(pattern);
-        */
-        ()
-
       | Tuple(args)        => // { args : list [Pattern]; }
 
         args.Iter(DoPattern);
@@ -342,17 +329,6 @@
 
         CheckObject(expression.Location, lv)
 
-      /*
-      | Literal(Enum(_, ty)) =>
-
-        CheckObject(expression.Location, ty);
-
-      | Literal                 => // { val : Nemerle.Compiler.Literal; }
-
-        when (!typeof(void).Equals(expression.SystemType))
-          CheckLocated(expression);
-      */
-
       | Error
       | ImplicitValueTypeCtor
       | DefaultValue
@@ -495,16 +471,13 @@
         {
           foreach ((pattern, pexpr, assigns) in c.patterns)
           {
-            //unless (pattern is Pattern.Literal)
               DoPattern(pattern);
 
             unless (_stop)
             {
-              //unless (pexpr is TExpr.Literal)
                 Go(pexpr);
 
               foreach ((_localValue, aexpr) in assigns)
-                //unless (aexpr is TExpr.Literal)
                   Go(aexpr);
             }
 
@@ -512,7 +485,6 @@
               break;
           }
 
-          //unless (c.body is TExpr.Literal)
             Go(c.body);
 
           when (_stop)
@@ -564,8 +536,9 @@
       line          : int,
       col           : int,
       pexprLocation : Location,
-      findLocation  : bool)
-    : (Location * object)
+      findLocation  : bool
+    )
+      : Location * object
     {
       Init(root.Location, line, col);
 

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n
==============================================================================

Modified: vs-plugin/trunk/Nemerle.VsIntegration/NemerleScanner.cs
==============================================================================