albert/kreta
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

init

Browse source
This commit is contained in:
skidoodle 2024-03-13 00:33:46 +01:00
commit e124a47765
19374 changed files with 9806149 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

39
Tools/CodeGeneration/Templates/UML/UMLReport/DictionaryItems.tdl Normal file
View file

@ -0,0 +1,39 @@
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