This commit is contained in:
skidoodle 2024-03-13 00:33:46 +01:00
commit e124a47765
19374 changed files with 9806149 additions and 0 deletions

View file

@ -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