init
This commit is contained in:
commit
e124a47765
19374 changed files with 9806149 additions and 0 deletions
|
@ -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
|
Loading…
Add table
Add a link
Reference in a new issue