- small updates to the RML to MetaModelica tool

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@3981 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Mar 29, 2009 · 416d039 · 416d039
1 parent a18c0f9
commit 416d039
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/tools/rml2mod/absyn.rml b/tools/rml2mod/absyn.rml
@@ -201,9 +201,9 @@ module Absyn:
 				* (Exp * EquationItem list) list (* else when *)
 		    | EQ_NORETCALL of Ident * FunctionArgs	 (* fcalls without return value *)
 		(* RML goals *)
-		    | EQ_LET of Pattern * Exp    (* let pat = exp *)
-		    | EQ_STRUCTEQUAL of Ident * Exp    (* ident = exp *)
-		    | EQ_FAILURE of Equation list    (* not goal or not (g1 & g2 & g3) *)
+		    | EQ_LET of Pattern (* pat *) * Exp  (* exp *)
+		    | EQ_STRUCTEQUAL of Ident    (* ident *)  * Exp (* exp *)
+		    | EQ_FAILURE of Equation list    (* equations not goal or not (g1 & g2 & g3) *)
 		    | EQ_CALL of Path *          (* the name of the function to call, ex: eval Absyn.dump etc *)
 			         FunctionArgs *  (* parameters *)
 				 Pattern         (* result pattern *)
@@ -473,15 +473,15 @@ module Absyn:
                                        RMLIdent * (* var name *)
                      			       RMLDbRange * (* actual position *)
                                        RMLDbRange * (* scope *)
-                                       RMLIdent     * (* relation name *)
+                                       RMLIdent     * (* name of relation *)
     				                   RMLType      (* type *)
                         | RMLDB_REL of string * (* filename *)
-                                       RMLIdent *      (* relation name *)
-				                       RMLDbRange *  (* relation ident position *)
-				                       RMLType      (* relation type *)
+                                       RMLIdent *      (* name of relation*)
+				                       RMLDbRange *  (* range: relation ident position *)
+				                       RMLType      (* type: relation type *)
                         | RMLDB_TY  of string * (* filename *)
-                                       RMLIdent * (* type name *)
-                                       RMLDbRange    (* type position *)
+                                       RMLIdent * (* tyName: type name *)
+                                       RMLDbRange    (* position: type position *)
                         | RMLDB_CTOR of string * (* filename *)
                                         RMLIdent *   (* constructor name *)
                                         RMLDbRange * (* position *)