Changeset 09fafda9 in OpenModelica for Compiler/FrontEnd/DAEDump.mo

Timestamp:

2012-11-20T09:31:27+01:00 (11 years ago)

Author:

Adrian Pop <adrian.pop@…>

Branches:

Added-citation-metadata, maintenance/v1.14, maintenance/v1.15, maintenance/v1.16, maintenance/v1.17, maintenance/v1.18, maintenance/v1.19, maintenance/v1.20, maintenance/v1.21, maintenance/v1.22, maintenance/v1.23, master, omlib-staging

Children:

2c58d767

Parents:

8929a65

Message:

• print more info on +d=showEquationSource
• add more info from where the unconnected flow comes (add Element info to added inside flow) to get nicer +d=showEquationSource display.

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

File:

• Compiler/FrontEnd/DAEDump.mo (modified) (1 diff)

Compiler/FrontEnd/DAEDump.mo

@@ -3941 +3941 @@
       equation
         str = cmtListToString(cmt);
-        str = str +& " /* models: " +& stringDelimitList(List.map(po, withinString), ", ") +& " */";
+        str = str +& " /* models: {" +& stringDelimitList(List.map(po, withinString), ", ") +& "}" +& 
+                     " connects: {" +& stringDelimitList(connectsStr(ceol), ", ") +& "} */";
       then
         str;
   end matchcontinue;
 end getSourceInformationStr;
+
+protected function connectsStr
+  input list<Option<tuple<DAE.ComponentRef, DAE.ComponentRef>>> inLst;
+  output list<String> outStr;
+algorithm
+  outstr := matchcontinue(inLst)
+    local
+      list<Option<tuple<DAE.ComponentRef, DAE.ComponentRef>>> rest;
+      list<String> slst;
+      String str;
+      DAE.ComponentRef c1, c2;
+      
+    case ({}) then {};
+    
+    case ({NONE()}) then {};
+    
+    case ({SOME((c1,c2))})
+      equation
+        str = ComponentReference.printComponentRefStr(c1) +& "," +& 
+              ComponentReference.printComponentRefStr(c2);
+        str =  "connect(" +& str +& ")";
+      then 
+        {str};
+    
+    case (SOME((c1,c2))::rest)
+      equation
+        str = ComponentReference.printComponentRefStr(c1) +& "," +& 
+              ComponentReference.printComponentRefStr(c2);
+        str =  "connect(" +& str +& ")";
+        slst = connectsStr(rest);   
+      then 
+        str::slst;
+    
+    case (NONE()::rest)
+      equation
+        slst = connectsStr(rest);   
+      then 
+        slst;
+  
+  end matchcontinue;
+end connectsStr;
 
 protected function withinString