Use ClassInf.print_restr

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@225 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Mar 25, 1998 · d172193 · d172193
1 parent d35c3e9
commit d172193
Showing 1 changed file with 5 additions and 31 deletions.
diff --git a/modeq/dump.rml b/modeq/dump.rml
@@ -17,6 +17,8 @@ module Dump:
 
 end
 
+with "classinf.rml"
+
 (*************************************************************************)
 (* Dump routines for debugging of AST *)
 
@@ -167,37 +169,9 @@ end
 
 relation dump_class_restriction: Absyn.ClassRestriction => () =
 
-	rule	print "CLASS"
-		--------------------------------------------
-		dump_class_restriction(Absyn.CL_CLASS) => ()
-
-	rule	print "TYPE"
-		----------------------------
-		dump_class_restriction(Absyn.CL_TYPE) => ()
-
-	rule	print "CONNECTOR"
-		----------------------------
-		dump_class_restriction(Absyn.CL_CONNECTOR) => ()
-
-	rule	print "MODEL"
-		----------------------------
-		dump_class_restriction(Absyn.CL_MODEL) => ()
-
-	rule	print "MODEL"
-		------------------------------------------------
-		dump_class_restriction(Absyn.CL_MODEL) => ()
-
-	rule	print "BLOCK"
-		------------------------------------------------
-		dump_class_restriction(Absyn.CL_BLOCK) => ()
-
-	rule	print "PACKAGE"
-		--------------------------------------------------
-		dump_class_restriction(Absyn.CL_PACKAGE) => ()
-
-	rule	print "FUNCTION"
-		---------------------------------------------------
-		dump_class_restriction(Absyn.CL_FUNCTION) => ()
+  rule	ClassInf.print_restr re
+	-----------------------
+	dump_class_restriction re
 
 end