45 lines
1.5 KiB
Plaintext
45 lines
1.5 KiB
Plaintext
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
|