Add functions setVars and setEqs to BackendDAEUtil

OpenModelica · Jun 22, 2015 · 7ae1fb4 · 7ae1fb4
1 parent 30ddceb
commit 7ae1fb4
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/Compiler/BackEnd/BackendDAEUtil.mo b/Compiler/BackEnd/BackendDAEUtil.mo
@@ -8092,6 +8092,34 @@ algorithm
   BackendDAE.DAE(shared=BackendDAE.SHARED(knownVars=outKnownVars)) := inDAE;
 end getKnownVars;
 
+public function setVars
+  input BackendDAE.BackendDAE inDAE;
+  input BackendDAE.Variables inVars;
+  output BackendDAE.BackendDAE outDAE;
+protected
+  BackendDAE.EqSystems systs;
+  BackendDAE.EqSystem syst;
+  BackendDAE.Shared shared;
+algorithm
+  BackendDAE.DAE(syst::systs, shared) := inDAE;
+  syst := setEqSystVars(syst, inVars);
+  outDAE := BackendDAE.DAE(syst::systs, shared);
+end setVars;
+
+public function setEqs
+  input BackendDAE.BackendDAE inDAE;
+  input BackendDAE.EquationArray inEqs;
+  output BackendDAE.BackendDAE outDAE;
+protected
+  BackendDAE.EqSystems systs;
+  BackendDAE.EqSystem syst;
+  BackendDAE.Shared shared;
+algorithm
+  BackendDAE.DAE(syst::systs, shared) := inDAE;
+  syst := setEqSystEqs(syst, inEqs);
+  outDAE := BackendDAE.DAE(syst::systs, shared);
+end setEqs;
+
 public function setAliasVars "author: lochel"
   input BackendDAE.BackendDAE inDAE;
   input BackendDAE.Variables inAliasVars;