Changeset 13939

Timestamp:

2012-11-17T18:57:08+01:00 (11 years ago)

Author:

adrpo

Message:

• sort inners again to put inner Modelica.* component; first.
• some tests might need changes, I'll do that next

File:

• trunk/Compiler/FrontEnd/Inst.mo (modified) (2 diffs)

trunk/Compiler/FrontEnd/Inst.mo

@@ -15195 +15195 @@
         // split into inner, inner outer and other elements
         (innerElts, innerouterElts, otherElts) = splitInnerAndOtherTplLstElementMod(inTplLstElementMod);
+        // sort the inners to put Modelica types first!  
+        innerElts = sortInnerPutModelicaFirst(innerElts, {});
         // put the inner elements first
         sorted = listAppend(innerElts, innerouterElts);
@@ -15204 +15206 @@
 end sortInnerFirstTplLstElementMod;
 
-
+protected function sortInnerPutModelicaFirst
+"@author: adrpo
+  This function will move all the *inner* Modelica.*
+  elements first in the given list of elements"
+  input list<tuple<SCode.Element, DAE.Mod>> inTplLstElementMod;
+  input list<tuple<SCode.Element, DAE.Mod>> inAcc;
+  output list<tuple<SCode.Element, DAE.Mod>> outTplLstElementMod;
+algorithm
+  outTplLstElementMod := matchcontinue(inTplLstElementMod, inAcc)
+    local
+      list<tuple<SCode.Element, DAE.Mod>> rest, acc;
+      SCode.Element e;
+      DAE.Mod m;
+      tuple<SCode.Element, DAE.Mod> em;
+      Absyn.Path p;
+
+    case ({}, _)
+      then listReverse(inAcc);
+
+    case (em::rest, _)
+      equation
+        e = Util.tuple21(em);
+        Absyn.TPATH(p, _) = SCode.getComponentTypeSpec(e);
+        true = stringEq("Modelica", Absyn.pathFirstIdent(p));
+        acc = sortInnerPutModelicaFirst(rest, listAppend(inAcc, {em}));
+      then
+        acc;
+    
+    case ((em as (e, m))::rest, _)
+      equation
+        acc = sortInnerPutModelicaFirst(rest, em::inAcc);
+      then
+        acc;
+  end matchcontinue;
+end sortInnerPutModelicaFirst;
 
 public function splitInnerAndOtherTplLstElementMod