-type_t newContainerType (const char *typename, e_entity_types kind, type_t father)
-{
- type_t ret = newType (typename, kind, father);
-// if (father) INFO4("ContainerType %s(%s), child of %s(%s)", ret->name, ret->id, father->name, father->id);
- if (father) pajeDefineContainerType(ret->id, ret->father->id, ret->name);
- return ret;
-}
-
-type_t newEventType (const char *typename, e_entity_types kind, const char *color, type_t father)
-{
- type_t ret = newType (typename, kind, father);
-// INFO4("EventType %s(%s), child of %s(%s)", ret->name, ret->id, father->name, father->id);
- if (color){
- pajeDefineEventTypeWithColor (ret->id, ret->father->id, ret->name, color);
- }else{
- pajeDefineEventType(ret->id, ret->father->id, ret->name);
- }
- return ret;
-}
-
-type_t newVariableType (const char *typename, e_entity_types kind, const char *color, type_t father)
-{
- type_t ret = newType (typename, kind, father);
-// INFO4("VariableType %s(%s), child of %s(%s)", ret->name, ret->id, father->name, father->id);
- if (color){
- pajeDefineVariableTypeWithColor(ret->id, ret->father->id, ret->name, color);
- }else{
- pajeDefineVariableType(ret->id, ret->father->id, ret->name);
- }
- return ret;
-}
-
-type_t newLinkType (const char *typename, e_entity_types kind, type_t father, type_t source, type_t dest)
-{
- type_t ret = newType (typename, kind, father);
-// INFO8("LinkType %s(%s), child of %s(%s) %s(%s)->%s(%s)", ret->name, ret->id, father->name, father->id, source->name, source->id, dest->name, dest->id);
- pajeDefineLinkType(ret->id, ret->father->id, source->id, dest->id, ret->name);
- return ret;
-}
-
-type_t newStateType (const char *typename, e_entity_types kind, type_t father)
-{
- type_t ret = newType (typename, kind, father);
-// INFO4("StateType %s(%s), child of %s(%s)", ret->name, ret->id, father->name, father->id);
- pajeDefineStateType(ret->id, ret->father->id, ret->name);
- return ret;
-}
-
-static type_t getContainerType (const char *typename, type_t father)