init
This commit is contained in:
@@ -0,0 +1,31 @@
|
||||
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";
|
||||
UnspecifiedDictionaryItems();
|
||||
info = "UML check STOPPED at \t"time()"\n";
|
||||
end proc
|
||||
|
||||
proc Init()
|
||||
//Language
|
||||
setLanguage("SQL");
|
||||
mkdir([OutputDir]);
|
||||
setOutput( [OutputDir] "/" "UnSpecifiedDictionaryItems.bat" );
|
||||
info = "Output generatig into: " [OutputDir] "/" "UnSpecifiedDictionaryItems.bat\n";
|
||||
|
||||
end proc
|
||||
|
||||
proc UnspecifiedDictionaryItems()
|
||||
loop (Instances -> MClass Where(getStereotype([MClass]) == "Entity" ) )
|
||||
loop( MClass -> MAttribute Where (([MAttribute.type] == "DictionaryItem") and ([MAttribute.defaultValue] == "") ) )
|
||||
info = [MClass.name] "." [MAttribute.name] ":" [MAttribute.defaultValue]"\n";
|
||||
out = "echo " [MClass.name] "." [MAttribute.name] "\n";
|
||||
GenerateEditorNavigation([MAttribute.guid]);
|
||||
end loop
|
||||
end loop
|
||||
end proc
|
||||
Reference in New Issue
Block a user