34 lines
No EOL
1,017 B
Text
34 lines
No EOL
1,017 B
Text
USES Common/std;
|
|
USES Common/Converters;
|
|
USES Common/CommonUtil;
|
|
USES Common/ModelDataRetreive;
|
|
USES Common/StringUtil;
|
|
USES Common/DBUtil;
|
|
|
|
proc main()
|
|
Init();
|
|
info = "UML check STARTED at \t"time()"\n";
|
|
AttributesWithConstraints();
|
|
info = "UML check STOPPED at \t"time()"\n";
|
|
end proc
|
|
|
|
proc Init()
|
|
//Language
|
|
setLanguage("SQL");
|
|
mkdir([OutputDir]);
|
|
setOutput( [OutputDir] "/" "AttributesWithConstraints.bat" );
|
|
info = "Output generating into: " [OutputDir] "/" "AttributesWithConstraints.bat\n";
|
|
|
|
end proc
|
|
|
|
proc AttributesWithConstraints()
|
|
loop (Instances -> MClass as Entity Where(getStereotype([Entity]) == "Entity" ) )
|
|
loop ( Entity -> MAttribute )
|
|
if ( getConstraint([MAttribute]) != "" )
|
|
info = [Entity.name]"."[MAttribute.name] ":\n" getConstraint([MAttribute]) "\n";
|
|
out = "echo " [Entity.name]"."[MAttribute.name]"\n";
|
|
GenerateEditorNavigation([MAttribute.guid]);
|
|
end if
|
|
end loop
|
|
end loop
|
|
end proc |