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