init

Tools/CodeGeneration/Templates/UML/UMLCheck/UMLBug.tdl

@@ -0,0 +1,41 @@
+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";
+  UMLBug();
+  info = "UML check STOPPED at \t"time()"\n";
+end proc
+
+proc Init()
+	//Language
+	setLanguage("SQL");
+//	mkdir([OutputDir]);
+//	setOutput( [OutputDir] "/" "UMLBug.bat" );
+//	info = "Output generatig into: " [OutputDir] "/" "ClassesWithoutStereotype.bat\n";	
+end proc
+
+proc UMLBug()
+//    out = "@echo off\n";
+    local classesInvestigated = "";
+    loop (Instances -> MClass as c)
+        if ( IsElementInTokenset([classesInvestigated], [c.name]) == _False() )
+            local count = 0;
+            local o = "";
+            loop (Instances -> MPackage-> MClass as alias Where( [alias.name] == [c.name]))
+                [count] = incr([count]);
+                [o] = [o] [MPackage.name] "::[" [alias.name] "]{" getStereotype([alias]) "}{" [alias.id] "}("[alias.stereotype]")\n";
+            end loop
+            if ( [count] != "1")
+                info = [o];
+            end if
+            [count] = 0;
+            [o] = "";
+            [classesInvestigated] = [classesInvestigated] [c.name] "\n";
+        end if
+    end loop
+end proc