[svn] r6885: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine: Engine-main.n Engine.Prope...

[VladD2]

Log:
Add Engine.RawProject propert for raw get of type tree.

Author: VladD2
Date: Tue Nov 14 04:16:37 2006
New Revision: 6885

Modified:
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine-main.n
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine.Properties.n

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine-main.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine-main.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine-main.n	Tue Nov 14 04:16:37 2006
@@ -119,11 +119,15 @@
           when (_fileInfos[i] != null)
             AddTypeBilders(_fileInfos[i], i, nsTree);
 
+#pragma warning disable 618 // Obsolete
         _project = Project(
           this, 
           CompileUnitCollection(this, _fileInfos, regionsMap),
           nsTree,
           _currentMessages.ToList());
+
+        _rowProject = _project;
+#pragma warning restore 618 // Obsolete
       }
       finally
       {

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine.Properties.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine.Properties.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Engine/Engine.Properties.n	Tue Nov 14 04:16:37 2006
@@ -25,9 +25,14 @@
     [Accessor] mutable _references     : ReferenceCollection;
     [Accessor]         _sources        : SourceCollection;
     [Accessor] mutable _state          : EngineState;
-               mutable _project        : Project;
+     //[Obsolete] for dont us it accidentally
+    /// Íå èñïîëüçóåéòå ýòîò ïîëå! Ïîëüçóéòåñü ñâîéñòâîì Project.
+    [Obsolete] mutable _project        : Project;
+    /// Íå èñïîëüçóåéòå ýòîò ïîëå! Ïîëüçóéòåñü ñâîéñòâîì Project.
+    [Obsolete] mutable _rowProject     : Project;
     [Accessor]         _projectSources : IProjectSources;
     
+#pragma warning disable 618 // Obsolete
     public Project : Project
     {
       get
@@ -35,12 +40,30 @@
         when (_project == null)
           BuildTypedtreeAndInitProject();
 
-        return _project;
+        _project;
+      }
+    }
+
+    /// Íå èñïîëüçóåéòå ýòîò ñâîéñòâî! Ïîëüçóéòåñü ñâîéñòâîì Project.
+    public RawProject : Project
+    {
+      get
+      {
+        if (_project == null)
+        {
+          when (_rowProject == null)
+            BuildTypedtreeAndInitProject();
+
+          _rowProject
+        }
+        else
+          _project;
       }
     }
 
     public ResetTypeTree()  : void { _project = null; }
     public IsTypeTreeParsed : bool { get { return _project != null; } }
+#pragma warning restore 618 // Obsolete
 
     // If you want to recover the messages done by the parser/typer
     public Output : System.IO.TextWriter