36 lines
No EOL
987 B
Text
36 lines
No EOL
987 B
Text
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";
|
|
EntitiesWithoutAttributes();
|
|
info = "UML check STOPPED at \t"time()"\n";
|
|
end proc
|
|
|
|
proc Init()
|
|
//Language
|
|
setLanguage("SQL");
|
|
mkdir([OutputDir]);
|
|
setOutput( [OutputDir] "/" "EntitiesWithoutAttributes.bat" );
|
|
info = "Output generatig into: " [OutputDir] "/" "EntitiesWithoutAttributes.bat\n";
|
|
end proc
|
|
|
|
proc EntitiesWithoutAttributes()
|
|
out = "@echo off\n";
|
|
loop (Instances -> MClass Where getStereotype([MClass]) == "Entity" )
|
|
local attribCount = 0;
|
|
loop (MClass -> MAttribute )
|
|
[attribCount] = incr([attribCount]);
|
|
end loop
|
|
|
|
if ( [attribCount] == "0" )
|
|
info = [MClass.name] "\n";
|
|
out = "echo " [MClass.name] "\n";
|
|
GenerateEditorNavigation([MClass.guid]);
|
|
end if
|
|
end loop
|
|
end proc |