- remove Compiler/FrontEnd/Env.mo (bye bye, you served us well for qu…

…ite some years now)

  (replaced everywhere by Compiler/FrontEnd/FGraph.mo and Compiler/FrontEnd/FCore.mo)
- other minor changes
- let's see how it goes and a 1.9.1 Beta3 will come next

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@22628 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Compiler/FFrontEnd/FCore.mo

@@ -233,6 +233,10 @@ uniontype Data
     String message;
   end ASSERT;
 
+  record STATUS "status node"
+    Boolean isInstantiating;
+  end STATUS;
+
 end Data;
 
 type Refs = list<Ref>;

Compiler/FFrontEnd/FGraph.mo

@@ -1827,5 +1827,94 @@ algorithm
   end matchcontinue;
 end graphPrefixOf2;
 
+public function setStatus
+  input Graph inEnv;
+  input Name inName;
+  input FCore.Data inStatus;
+  output Graph outEnv;
+algorithm
+  outEnv := matchcontinue(inEnv, inName, inStatus)
+    local
+      Graph g;
+      Node n;
+      Ref ref, refParent;
+
+    // child does not exist, do nothing, is an import or extends
+    case (g, _, _)
+      equation
+        refParent = lastScopeRef(g);
+        false = FNode.refHasChild(refParent, inName);
+      then
+        g;
+
+    // child exists and has a status node
+    case (g, _, _)
+      equation
+        refParent = lastScopeRef(g);
+        true = FNode.refHasChild(refParent, inName);
+        ref = FNode.child(refParent, inName);
+        true = FNode.refHasChild(ref, FNode.statusNodeName);
+        ref = FNode.child(ref, FNode.statusNodeName);
+        n = FNode.setData(FNode.fromRef(ref), inStatus);
+        ref = FNode.updateRef(ref, n);
+      then
+        g;
+
+    // child exists but has no status node
+    case (g, _, _)
+      equation
+        refParent = lastScopeRef(g);
+        true = FNode.refHasChild(refParent, inName);
+        ref = FNode.child(refParent, inName);
+        false = FNode.refHasChild(ref, FNode.statusNodeName);
+        (g, n) = node(g, FNode.statusNodeName, {ref}, inStatus);
+        FNode.addChildRef(ref, FNode.statusNodeName, FNode.toRef(n));
+      then
+        g;
+
+    // did we fail for some weird reson?
+    case (g, _, _)
+      equation
+        print("FGraph.setStatus failed on: " +& getGraphNameStr(g) +& " element: " +& inName +& "\n");
+      then
+        g;
+
+  end matchcontinue;
+end setStatus;
+
+public function getStatus
+  input Graph inEnv;
+  input Name inName;
+  output FCore.Data outStatus;
+algorithm
+  outStatus := matchcontinue(inEnv, inName)
+    local
+      Graph g;
+      Node n;
+      Ref ref, refParent;
+      FCore.Data s;
+
+    // child exists and has a status node
+    case (g, _)
+      equation
+        refParent = lastScopeRef(g);
+        true = FNode.refHasChild(refParent, inName);
+        ref = FNode.child(refParent, inName);
+        true = FNode.refHasChild(ref, FNode.statusNodeName);
+        ref = FNode.child(ref, FNode.statusNodeName);
+        s = FNode.refData(ref);
+      then
+        s;
+
+    // we can fail here with no problem, there is no status node!
+    case (g, _)
+      equation
+        // print("FGraph.getStatus failed on: " +& getGraphNameStr(g) +& " element: " +& inName +& "\n");
+      then
+        fail();
+
+  end matchcontinue;
+end getStatus;
+
 end FGraph;
 

Compiler/FFrontEnd/FNode.mo

@@ -112,6 +112,7 @@ constant Name veNodeName     = "$ve" "a node for storing references to instance
 constant Name imNodeName     = "$imp" "an node holding the import table";
 constant Name itNodeName     = "$it" "an node holding the instance information DAE.Var";
 constant Name assertNodeName = "$assert" "an assersion node";
+constant Name statusNodeName = "$status" "an status node";
 
 public function toRef
 "@author: adrpo