- Expression.mo

remove traverseExpLst and rename traverseExpLstinternal to traversExplst git-svn-id: https://openmodelica.org/svn/OpenModelica/branches/sjoelund-functiontree@6628 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 26, 2010 · 4261b9b · 4261b9b
1 parent 576fd51
commit 4261b9b
Showing 1 changed file with 13 additions and 28 deletions.
diff --git a/Compiler/Expression.mo b/Compiler/Expression.mo
@@ -3177,20 +3177,20 @@ algorithm
     case ((e as DAE.CALL(path = fn,expLst = expl,tuple_ = t,builtin = b,ty=tp,inlineType = i)),rel,ext_arg)
       local Type tp,tp_1; DAE.InlineType  i;
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl, traverseExp, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl, traverseExp, rel, ext_arg);
         ((e,ext_arg_2)) = rel((DAE.CALL(fn,expl_1,t,b,tp,i),ext_arg_1));
       then
         ((e,ext_arg_2));
     case ((e as DAE.PARTEVALFUNCTION(path = fn, expList = expl, ty = tp)),rel,ext_arg)
       local Type tp;
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl, traverseExp, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl, traverseExp, rel, ext_arg);
         ((e,ext_arg_2)) = rel((DAE.PARTEVALFUNCTION(fn,expl_1,tp),ext_arg_1));
       then
         ((e,ext_arg_2));
     case ((e as DAE.ARRAY(ty = tp,scalar = scalar,array = expl)),rel,ext_arg)
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl, traverseExp, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl, traverseExp, rel, ext_arg);
         ((e,ext_arg_2)) = rel((DAE.ARRAY(tp,scalar,expl_1),ext_arg_1));
       then
         ((e,ext_arg_2));
@@ -3220,7 +3220,7 @@ algorithm
         ((e,ext_arg_4));
     case ((e as DAE.TUPLE(PR = expl)),rel,ext_arg)
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl, traverseExp, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl, traverseExp, rel, ext_arg);
         ((e,ext_arg_2)) = rel((DAE.TUPLE(expl_1),ext_arg_1));
       then
         ((e,ext_arg_2));
@@ -3233,7 +3233,7 @@ algorithm
     case ((e as DAE.ASUB(exp = e1,sub = expl_1)),rel,ext_arg)
       equation
         ((e1_1,ext_arg_1)) = traverseExp(e1, rel, ext_arg);
-        ((expl_1,ext_arg_2)) = traverseExpListInternal(expl_1, traverseExp, rel, ext_arg_1);
+        ((expl_1,ext_arg_2)) = traverseExpList(expl_1, traverseExp, rel, ext_arg_1);
         ((e,ext_arg_2)) = rel((DAE.ASUB(e1_1,expl_1),ext_arg_1));
       then
         ((e,ext_arg_2));
@@ -3389,18 +3389,18 @@ algorithm
     case ((e as DAE.CALL(path = fn,expLst = expl,tuple_ = t,builtin = b,ty=tp,inlineType = i)),rel,ext_arg)
       local Type tp,tp_1; DAE.InlineType  i;
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl,traverseExpTopDown, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl,traverseExpTopDown, rel, ext_arg);
       then
         ((DAE.CALL(fn,expl_1,t,b,tp,i),ext_arg_1));
     case ((e as DAE.PARTEVALFUNCTION(path = fn, expList = expl, ty = tp)),rel,ext_arg)
       local Type tp;
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl,traverseExpTopDown, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl,traverseExpTopDown, rel, ext_arg);
       then
         ((DAE.PARTEVALFUNCTION(fn,expl_1,tp),ext_arg_1));
     case ((e as DAE.ARRAY(ty = tp,scalar = scalar,array = expl)),rel,ext_arg)
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl,traverseExpTopDown, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl,traverseExpTopDown, rel, ext_arg);
       then
         ((DAE.ARRAY(tp,scalar,expl_1),ext_arg_1));
     case ((e as DAE.MATRIX(ty = tp,integer = scalar,scalar = expl)),rel,ext_arg)
@@ -3426,7 +3426,7 @@ algorithm
         ((DAE.RANGE(tp,e1_1,SOME(e2_1),e3_1),ext_arg_3));
     case ((e as DAE.TUPLE(PR = expl)),rel,ext_arg)
       equation
-        ((expl_1,ext_arg_1)) = traverseExpListInternal(expl,traverseExpTopDown, rel, ext_arg);
+        ((expl_1,ext_arg_1)) = traverseExpList(expl,traverseExpTopDown, rel, ext_arg);
       then
         ((DAE.TUPLE(expl_1),ext_arg_1));
     case ((e as DAE.CAST(ty = tp,exp = e1)),rel,ext_arg)
@@ -3437,7 +3437,7 @@ algorithm
     case ((e as DAE.ASUB(exp = e1,sub = expl_1)),rel,ext_arg)
       equation
         ((e1_1,ext_arg_1)) = traverseExpTopDown(e1, rel, ext_arg);
-        ((expl_1,ext_arg_2)) = traverseExpListInternal(expl_1,traverseExpTopDown, rel, ext_arg_1);
+        ((expl_1,ext_arg_2)) = traverseExpList(expl_1,traverseExpTopDown, rel, ext_arg_1);
       then
         ((DAE.ASUB(e1_1,expl_1),ext_arg_1));
     case ((e as DAE.SIZE(exp = e1,sz = NONE())),rel,ext_arg)
@@ -3581,22 +3581,7 @@ algorithm
   end matchcontinue;
 end traverseExpMatrix2;
 
-public function traverseExpList "
-Calls traverseExp for each element of list."
-  replaceable type Type_a subtypeof Any;
-  input list<DAE.Exp> expl;
-  input funcType rel;
-  input Type_a ext_arg;
-  output tuple<list<DAE.Exp>, Type_a> outTpl;
-  partial function funcType
-    input tuple<DAE.Exp, Type_a> tpl1;
-    output tuple<DAE.Exp, Type_a> tpl2;
-  end funcType;    
-algorithm
-  outTpl := traverseExpListInternal(expl,traverseExp,rel,ext_arg);
-end traverseExpList;
-
-public function traverseExpListInternal
+public function traverseExpList
 "function traverseExpList
  author PA:
  Calls traverseExp for each element of list."
@@ -3626,10 +3611,10 @@ algorithm
     case({},_,_,ext_arg) then (({},ext_arg));
     case(e::expl,tfunc,rel,ext_arg) equation
       ((e1,ext_arg)) = tfunc(e, rel, ext_arg);
-      ((expl1,ext_arg)) = traverseExpListInternal(expl,tfunc,rel,ext_arg);
+      ((expl1,ext_arg)) = traverseExpList(expl,tfunc,rel,ext_arg);
     then ((e1::expl1,ext_arg)); 
   end matchcontinue;
-end traverseExpListInternal;
+end traverseExpList;
 
 public function traverseExpOpt "Calls traverseExp for SOME(exp) and does nothing for NONE"
   input Option<DAE.Exp> inExp;