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

141
Tools/CodeGeneration/Templates/Database/SQL_CreateTableIndicesScript.tdl Normal file
View file

@ -0,0 +1,141 @@
//***************************************************************************//
// A használt fájlok //
//***************************************************************************//
USES Common/std;
USES Common/Converters;
USES Common/CommonUtil;
USES Common/StringUtil;
USES Common/ModelDataRetreive;
USES Common/DBUtil;
USES Database/SQLGenerator;
//***************************************************************************//
// Belépési pont //
//***************************************************************************//
proc main()
// initialize the output and other context information
Init();
info = "Skeleton DB Create Table Indexes script generator STARTED at \t"time()"\n";
GenerateCreateTableIndexesScript();
info = "Skeleton DB Create Table Indexes script generator STOPPED at \t"time()"\n";
end proc
//***************************************************************************//
// Általános inicializálás //
//***************************************************************************//
proc Init()
local dbtag = "";
//current language
setLanguage("SQL");
//mkdir([OutputDir]);
switch( [SQL_DBType] )
//ORACLE Type
case "ORACLE" :
[dbtag] = ".ora";
break;
//MSSQL Type
case "MSSQL" :
[dbtag] = "";
break;
//DB2 Type
case "DB2" :
[dbtag] = ".db2";
break;
end switch
setOutput( [OutputDir] "/" "create.indexes"[dbtag]".sql" );
// UTF-8 BOM bájtok
setVar("BOM", "\xEF\xBB\xBF");
end proc
//***************************************************************************//
// Legenerálja az indexeket létrehozó SQL szkriptet //
//***************************************************************************//
proc GenerateCreateTableIndexesScript()
local tablename = "";
local localkey = "";
local indexname = "";
local package = "";
out = [BOM];
out = "--/* Modell verzio: " GetModelVersion() " */\n\n\n";
out = "--/*DictionaryItemType és Entitás attributuma közötti FK*/\n";
// A DictItemType és entitás táblákhoz FK indexek
loop (Instances -> MClass Where(GetStereoType([MClass]) == "Entity" ) )
loop( MClass -> MAttribute Where ([MAttribute.type] == "DictionaryItem"))
[package] = GetPackage([MClass]);
[tablename] = ConvertNameToSQLTableScript([MClass.name]);
if(IsMasterEntity([MClass]) == "true")
[localkey] = "C_INTEZMENYID, C_TANEVID, " ConvertNameToSQLColumnName([MAttribute.name]) ;
[indexname] = ConvertNameToIndexName([MClass.name], "") "IntezmenyId_TanevId_" [MAttribute.name];
else
[localkey] = "C_ALINTEZMENYID, C_ALTANEVID, " ConvertNameToSQLColumnName([MAttribute.name]);
[indexname] = ConvertNameToIndexName([MClass.name], "") "AlintezmenyId_AltanevId_" [MAttribute.name];
end if
out = CreateIndex([package], [tablename],[indexname],[localkey]);
end loop
end loop
out = "--/*Entitások egyébb FK*/\n";
// Entitások foreign key indexei.
// öröklődés
// asszociácios osztály nélküli asszociációk
// ha ez az osztály maga asszociációs osztály
loop (Instances->MClass WHERE GetStereoType([MClass]) == "Entity")
GenerateTableIndexesForClass( [MClass] );
end loop
out = "--/*kapcsoló tábla FK*/\n";
// az asszociacios osztalyokon kivuli, csak kapcsolotablaval reprezentalhato
// relaciok eredmenyezte indexek
local AssocClassCount = "";
loop (Instances -> MAssociation as CurrentAssoc -> MAssociationEnd as StartRole -> MClass as StartClass where (GetStereoType([StartClass])=="Entity" ))
loop ( CurrentAssoc -> MAssociationEnd as EndRole -> MClass as EndClass where (GetStereoType([EndClass])=="Entity" and [StartRole.id]<[EndRole.id]) )
[AssocClassCount] = HasAssociationClass([CurrentAssoc]);
if ( [AssocClassCount] == "" )
if (
//0..1-0..1
([StartRole.multiplicity]=="0..1" and [EndRole.multiplicity]=="0..1") or
//1..*-1..*
([StartRole.multiplicity]=="1..*" and [EndRole.multiplicity]=="1..*") or
//1..*-*
([StartRole.multiplicity]=="1..*" and [EndRole.multiplicity]=="*") or
([StartRole.multiplicity]=="1..*" and [EndRole.multiplicity]=="0..*") or
([StartRole.multiplicity]=="*" and [EndRole.multiplicity]=="1..*") or
([StartRole.multiplicity]=="0..*" and [EndRole.multiplicity]=="1..*") or
//*-*
([StartRole.multiplicity]=="*" and [EndRole.multiplicity]=="*") or
([StartRole.multiplicity]=="*" and [EndRole.multiplicity]=="0..*") or
([StartRole.multiplicity]=="0..*" and [EndRole.multiplicity]=="*") or
([StartRole.multiplicity]=="0..*" and [EndRole.multiplicity]=="0..*")
)
[package] = GetPackage([StartClass]);
out = CreateIndex([package],ConvertNameToSQLTableScript(ConvertAssociationRolesToSwitchTableName([StartRole],[EndRole])), ConvertNameToIndexName(ConvertAssociationRolesToSwitchTableName([StartRole],[EndRole]), ConvertRoleToName([StartRole])), ConvertNameToSQLColumnName(ConvertRoleToName([StartRole])));
out = CreateIndex([package],ConvertNameToSQLTableScript(ConvertAssociationRolesToSwitchTableName([StartRole],[EndRole])), ConvertNameToIndexName(ConvertAssociationRolesToSwitchTableName([StartRole],[EndRole]), ConvertRoleToName([EndRole])), ConvertNameToSQLColumnName(ConvertRoleToName([EndRole])));
end if
end if
end loop
end loop
// loop (Instances -> MClass as CLASS WHERE GetStereoType([CLASS]) == "Entity")
// if (IsMasterEntity([CLASS]) == "true" )
// out = CreateIndex(ConvertNameToSQLTableScript([CLASS.name]), ConvertNameToIndexName([CLASS.id]"_LSTCHNGD"), "LASTCHANGED");
// end if
// end loop
if ( [SQL_DBType] == "ORACLE")
out = "quit\n/";
end if
end proc