init

Tools/CodeGeneration/Templates/UML/UMLReport/ModellElemSzamossagok.tdl

@@ -0,0 +1,35 @@
+USES Common/std;
+USES Common/Converters;
+USES Common/CommonUtil;
+USES Common/ModelDataRetreive;
+USES Common/StringUtil;
+
+
+proc main()
+  Init();
+  info = "UML check STARTED at \t"time()"\n";
+  Szamossagok();
+  info = "UML check STOPPED at \t"time()"\n";
+end proc
+
+proc Init()
+	//Language
+	setLanguage("SQL");
+	mkdir([OutputDir]);
+//	setOutput( [OutputDir] "/" "Szamossagok.bat" );	
+end proc
+
+proc Szamossagok()
+    local count = 0;
+    loop ( Instances -> MClass Where ( getStereotype([MClass]) == "Entity" ) )
+        local associd = "";
+        loop ( MClass -> MAssociation )
+            [associd] = [MAssociation.id];
+        end loop
+        
+        if ( [associd] != "" )
+            [count] = incr([count]);        
+        end if
+    end loop
+    info = "Asszociációs osztályok száma: " [count] "\n";
+end proc