39 lines
No EOL
1.2 KiB
Text
39 lines
No EOL
1.2 KiB
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";
|
|
DictionaryItems();
|
|
info = "UML check STOPPED at \t"time()"\n";
|
|
end proc
|
|
|
|
proc Init()
|
|
//Language
|
|
setLanguage("SQL");
|
|
mkdir([OutputDir]);
|
|
setOutput( [OutputDir] "/" "DictionaryItems.bat" );
|
|
info = "Output generatig into: " [OutputDir] "/" "DictionaryItems.bat\n";
|
|
|
|
end proc
|
|
|
|
proc DictionaryItems()
|
|
info = "Dictionary Item tipusú oszlopok listája.\n";
|
|
loop (Instances -> MClass Where(getStereotype([MClass]) == "Entity" ) )
|
|
loop( MClass -> MAttribute Where ([MAttribute.type] == "DictionaryItem"))
|
|
info = ConvertNameToSQLTableName([MClass.name]) "." ConvertNameToSQLColumnName([MAttribute.name]) ":" [MAttribute.defaultValue] "\n";
|
|
end loop
|
|
end loop
|
|
|
|
local dictitems = GetDictionaryItemTypes();
|
|
local itemcount = 0;
|
|
info = "Dictionary Item típusok listája:\n";
|
|
loop (Instances -> TokenSet([dictitems]) )
|
|
[itemcount] = incr([itemcount]);
|
|
info = [TokenSet.line] "\n";
|
|
end loop
|
|
info = "Dictionary Item típusok száma:" [itemcount] "\n";
|
|
end proc |