Added tracability in the core_algorithm, so it should be loaded upon startup

core/core_algorithm.alc

@@ -29,20 +29,25 @@ Void function main():
 	Element scd
 	Element al
 	Element pm
+	Element tracability
 	String pm_model
+	String tracability_model
 	String coreM_model_location 
 	String pm_location
 	String scd_location
 	String al_location
+	String tracability_location
 
 	coreM_model_location = "models/core"
 	pm_location = "models/ProcessModel"
 	scd_location = "models/SimpleClassDiagrams"
 	al_location = "models/ActionLanguage"
+	tracability_location = "models/Tracability"
 
 	scd = import_node(scd_location)
 	al = import_node(al_location)
 	pm = import_node(pm_location)
+	tracability = import_node(tracability_location)
 
 	// Create the Model itself and make public
 	core_formalism = import_node(core_location)
@@ -106,6 +111,18 @@ Void function main():
 	instantiate_link(core, "group", "", scd_model, admin_group)
 	instantiate_link(core, "owner", "", scd_model, admin_user)
 
+	// Add the Tracability formalism
+	tracability_model = instantiate_node(core, "Model", "")
+	instantiate_attribute(core, tracability_model, "name", "Tracability")
+	instantiate_attribute(core, tracability_model, "location", tracability_location + "/model")
+	instantiate_attribute(core, tracability_model, "permissions", "221")
+	instance_of = instantiate_link(core, "instanceOf", "", tracability_model, scd_model)
+	instantiate_attribute(core, instance_of, "type_mapping", tracability["type_mapping"])
+
+	// Add the user/group links
+	instantiate_link(core, "group", "", tracability_model, admin_group)
+	instantiate_link(core, "owner", "", tracability_model, admin_user)
+
 	// Add the Process Model formalism
 	pm_model = instantiate_node(core, "Model", "")
 	instantiate_attribute(core, pm_model, "name", "ProcessModel")