Added FOR loops

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@279 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Apr 23, 1998 · 602e529 · 602e529
1 parent 418b83f
commit 602e529
Show file tree

Hide file tree

Showing 2 changed files with 25 additions and 19 deletions.
diff --git a/modeq/absyn.rml b/modeq/absyn.rml
@@ -71,6 +71,7 @@ module Absyn:
   datatype Equation = EQ_EXPR of Exp.Exp	     (* more later? *)
 		    | EQ_EQUALS of Exp.Exp * Exp.Exp
 		    | EQ_CONNECT of Exp.ComponentRef * Exp.ComponentRef
+		    | EQ_FOR of Ident * Exp.Exp * Equation list
 
   datatype Algorithm = ALGORITHM		     (* FIXME *)
 

diff --git a/modeq/dump.rml b/modeq/dump.rml
@@ -268,25 +268,30 @@ end
 (** - Equations *)
 
 relation dump_equation: Absyn.Equation => () =
-
-	rule	print "EQ_EXPR(" & dump_exp(e) & print ")"
-		-------------------------------------------
-		dump_equation(Absyn.EQ_EXPR(e))
-
-	rule	print "EQ_EQUALS(" & dump_exp(e1) & print "," &
-		dump_exp(e2) & print ")"
-		-------------------------------------------
-		dump_equation(Absyn.EQ_EQUALS(e1,e2))
-
-	rule	print "EQ_CONNECT(" & dump_component_ref(e1) & print "," &
-		dump_component_ref(e2) & print ")"
-		-------------------------------------------
-		dump_equation(Absyn.EQ_CONNECT(e1,e2))
-
-	rule	print " ** UNKNOWN EQUATION ** "
-		--------------------------------
-		dump_equation(_)
-
+
+  rule	print "EQ_EXPR(" & dump_exp(e) & print ")"
+	-------------------------------------------
+	dump_equation(Absyn.EQ_EXPR(e))
+
+  rule	print "EQ_EQUALS(" & dump_exp(e1) & print "," &
+	dump_exp(e2) & print ")"
+	-------------------------------------------
+	dump_equation(Absyn.EQ_EQUALS(e1,e2))
+
+  rule	print "EQ_CONNECT(" & dump_component_ref(e1) & print "," &
+	dump_component_ref(e2) & print ")"
+	-------------------------------------------
+	dump_equation(Absyn.EQ_CONNECT(e1,e2))
+
+  rule	print "FOR " & print i & print " in " & dump_exp(e) &
+	print " {" & dump_list(el, dump_equation, ";") & print "}"
+	----------------------------------------------------------
+	dump_equation Absyn.EQ_FOR(i,e,el)
+
+  rule	print " ** UNKNOWN EQUATION ** "
+	--------------------------------
+	dump_equation(_)
+
 end
 
 (** - Component references *)