110 lines
4.9 KiB
Text
110 lines
4.9 KiB
Text
//***************************************************************************//
|
|
// Visszaadja, hogy a törlő akció engedélyezett-e, vagy sem. //
|
|
// //
|
|
// true, ha engedélyezett; egyébként false. //
|
|
//***************************************************************************//
|
|
proc IsDeleterEnabled(MClass)
|
|
if ([ProjectName] == "Poszeidon")
|
|
if (toLower(GetTaggedValue([MClass], "PoszeidonDeleter")) == "false")
|
|
return "false";
|
|
else
|
|
return "true";
|
|
end if
|
|
else
|
|
return "true";
|
|
end if
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja az entitás nevéből és a művelet nevéből a saját (egyéni) //
|
|
// akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateCustomActionName(CLASSNAME, OPERATIONNAME)
|
|
return [CLASSNAME] "_" [OPERATIONNAME];
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Nevet generál egy osztályhoz tartozó service-nek. //
|
|
//***************************************************************************//
|
|
proc GenerateServiceName(ENTITYNAME)
|
|
return [ENTITYNAME] "Service";
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja az entitás nevéből az alaphalmazt lekérdező akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateLoadBaseSetActionName(ENTITYNAME)
|
|
return [ENTITYNAME] "BaseSetLoader";
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenrálja az entitás nevéből az azonosító alapján lekérdező ació nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateLoadEntityActionName(ENTITYNAME)
|
|
return [ENTITYNAME] "Loader";
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja az entitás nevéből a törlő akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateDeleteEntityActionName(ENTITYNAME)
|
|
return [ENTITYNAME] "Deleter";
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja az entitás nevéből a létrehozó akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateInsertEntityActionName(ENTITYNAME)
|
|
return [ENTITYNAME] "Inserter";
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja az entitás nevéből a módosító akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateModifyEntityActionName(ENTITYNAME)
|
|
return [ENTITYNAME] "Modifier";
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja egy entitás nevéből, és az asszociáció szerepkörének nevéből //
|
|
// az összerendelő akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateAssociaterName(MClass, MAssociationEnd)
|
|
if (([MAssociationEnd.multiplicity] == "1") or ([MAssociationEnd.multiplicity] == "0..1"))
|
|
return [MClass.name] "_" "Set" "_" DefineRoleName([MAssociationEnd]);
|
|
else
|
|
return [MClass.name] "_" "AddTo" "_" DefineRoleName([MAssociationEnd]);
|
|
end if
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja egy entitás nevéből, és az asszociáció szerepkörének nevéből //
|
|
// a szétkapcsoló akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateDeAssociaterName(MClass, MAssociationEnd)
|
|
if (([MAssociationEnd.multiplicity] == "1") or ([MAssociationEnd.multiplicity] == "0..1"))
|
|
return [MClass.name] "_" "Null" "_" DefineRoleName([MAssociationEnd]);
|
|
else
|
|
return [MClass.name] "_" "RemoveFrom" "_" DefineRoleName([MAssociationEnd]);
|
|
end if
|
|
end proc
|
|
|
|
|
|
//***************************************************************************//
|
|
// Legenerálja egy entitás nevéből, és az asszociáció szerepkörének nevéből //
|
|
// a lekérdező akció nevét. //
|
|
//***************************************************************************//
|
|
proc GenerateAssociationQuerierName(MClass, MAssociationEnd)
|
|
return [MClass.name] "_" "Get" "_" DefineRoleName([MAssociationEnd]);
|
|
end proc
|
|
|
|
|