- dump id for matrix row

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@11861 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · May 7, 2012 · bca6824 · bca6824
1 parent 02a26d2
commit bca6824
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/Compiler/BackEnd/XMLDump.mo b/Compiler/BackEnd/XMLDump.mo
@@ -2309,19 +2309,24 @@ protected
  BackendDAE.IncidenceMatrix m;
 algorithm
   (_,m,_) := BackendDAEUtil.getIncidenceMatrixfromOption(syst,shared,BackendDAE.NORMAL());
-  List.map1_0(arrayList(m),dumpIncidenceMatrix2,inOffset);
+  _ := Util.arrayFold(m,dumpIncidenceMatrix2,(inOffset,1));
   outOffset := inOffset + arrayLength(m);
 end dumpIncidenceMatrixWork;
 
 protected function dumpIncidenceMatrix2 "
 Help function to dumpMatrix
 "
   input list<Integer> row;
-  input Integer offset;
+  input tuple<Integer,Integer> inTpl; 
+  output tuple<Integer,Integer> outTpl; 
+protected
+  Integer offset,c;
 algorithm
-  dumpStrOpenTag(MathMLMatrixrow);
+  (offset,c) := inTpl;
+  dumpStrOpenTagAttr(MathMLMatrixrow,"id",intString(c));
   List.map1_0(row,dumpMatrixIntegerRow,offset);
   dumpStrCloseTag(MathMLMatrixrow);
+  outTpl := ((offset,c+1));
 end dumpIncidenceMatrix2;