init

2024-03-13 00:33:46 +01:00
commit e124a47765
19374 changed files with 9806149 additions and 0 deletions
@@ -0,0 +1,44 @@
+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";
+  TrashItems();
+  info = "UML check STOPPED at \t"time()"\n";
+end proc
+
+proc Init()
+	//Language
+	setLanguage("SQL");
+	mkdir([OutputDir]);
+	setOutput( [OutputDir] "/" "TrashItems.bat" );
+	info = "Output generatig into: " [OutputDir] "/" "TrashItems.bat\n";	
+
+end proc
+
+proc TrashItems()
+    loop (Instances -> MClass as Entity Where(getStereotype([Entity]) == "Entity" ) )
+        loop ( Entity -> Role as eRole -> MAssociation as Assoc where(getStereotype([Assoc])=="Uses" ) )
+            loop ( Assoc -> MAssociationEnd as rRole -> MClass as ROService where (getStereotype([ROService])=="ROService" ) )
+                local rolecount = 0;
+                local isAssocClass = _False();
+                loop ( Entity -> MAssociation )
+                    [isAssocClass] = _True();
+                end loop
+                loop ( Entity -> Role)
+                    [rolecount] = incr([rolecount]);
+                end loop
+                if ( [rolecount] == "1" )
+                    if ( [isAssocClass] == _False() )
+                        info = "[Entity:" [Entity.name] "][ROService:"[ROService.name]"]{"getStereotype([Assoc])"}\n";
+                        GenerateEditorNavigation([Entity.guid]);
+                    end if
+                end if
+            end loop
+        end loop
+    end loop
+end proc