Skip to content

Commit

Permalink
[Janitor mode] Fix tabs
Browse files Browse the repository at this point in the history
git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@18456 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
  • Loading branch information
OpenModelica-Hudson committed Dec 10, 2013
1 parent 58a5c63 commit 2bb2a8d
Showing 1 changed file with 27 additions and 27 deletions.
54 changes: 27 additions & 27 deletions Compiler/BackEnd/SimCodeUtil.mo
Original file line number Diff line number Diff line change
Expand Up @@ -5370,40 +5370,40 @@ end findSimVars;

protected function findSimVarsCompare
input tuple<SimCode.SimVar, tuple<list<DAE.ComponentRef>, list<SimCode.SimVar>>> inTuple;
output tuple<SimCode.SimVar, tuple<list<DAE.ComponentRef>, list<SimCode.SimVar>>> outTuple;
algorithm
outTuple := matchcontinue(inTuple)
local
DAE.ComponentRef cref;
list<DAE.ComponentRef> crefs;
list<SimCode.SimVar> simvars;
SimCode.SimVar var;
case((var as (SimCode.SIMVAR(name=cref)), (crefs, simvars)))
equation
true = listMember(cref, crefs);
true = not List.isMemberOnTrue(var, simvars, compareSimVarName);
then ((var, (crefs, listAppend(simvars, {var}))));
case(_) then inTuple;
end matchcontinue;
output tuple<SimCode.SimVar, tuple<list<DAE.ComponentRef>, list<SimCode.SimVar>>> outTuple;
algorithm
outTuple := matchcontinue(inTuple)
local
DAE.ComponentRef cref;
list<DAE.ComponentRef> crefs;
list<SimCode.SimVar> simvars;
SimCode.SimVar var;
case((var as (SimCode.SIMVAR(name=cref)), (crefs, simvars)))
equation
true = listMember(cref, crefs);
true = not List.isMemberOnTrue(var, simvars, compareSimVarName);
then ((var, (crefs, listAppend(simvars, {var}))));
case(_) then inTuple;
end matchcontinue;
end findSimVarsCompare;

protected function compareSimVarName
input SimCode.SimVar var;
input SimCode.SimVar var1;
output Boolean b;
algorithm
b := matchcontinue(var, var1)
local
DAE.ComponentRef name, name1;
case (SimCode.SIMVAR(name = name), SimCode.SIMVAR(name = name1))
equation
true = ComponentReference.crefEqual(name, name1);
then true;
else false;
end matchcontinue;
algorithm
b := matchcontinue(var, var1)
local
DAE.ComponentRef name, name1;
case (SimCode.SIMVAR(name = name), SimCode.SIMVAR(name = name1))
equation
true = ComponentReference.crefEqual(name, name1);
then true;
else false;
end matchcontinue;
end compareSimVarName;
protected function creatallDiffedVars
// function: help function for creatallDiffedVars
// author: wbraun
Expand Down

0 comments on commit 2bb2a8d

Please sign in to comment.