- added a multiplication function for a list of optional integers.

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

Author: adrpo

Compiler/Util.mo

@@ -5532,5 +5532,27 @@ algorithm
   end matchcontinue;
 end listAppendNoCopy;
 
+public function mulListIntegerOpt
+  input list<Option<Integer>> ad;
+  input Integer acc "accumulator, should be given 1";
+  output Integer i;
+algorithm
+  i := matchcontinue(ad, acc)
+    local 
+      Integer ii, iii;
+      list<Option<Integer>> rest;
+    case ({}, acc) then acc;
+    case (SOME(ii)::rest, acc)
+      equation
+        acc = ii * acc;
+        iii = mulListIntegerOpt(rest, acc);  
+      then iii;
+    case (NONE()::rest, acc)
+      equation
+        iii = mulListIntegerOpt(rest, acc);  
+      then iii;
+  end matchcontinue;
+end mulListIntegerOpt;
+
 end Util;