modelverse/bootstrap/metamodels.alc

include "primitives.alh"
include "object_operations.alh"
include "library.alh"
include "conformance_scd.alh"
include "modelling.alh"

Element function create_metamodels():
	if (bool_not(dict_in(dict_read(read_root(), "__hierarchy"), "models"))):
		Element scd
		scd = instantiate_bottom()
		model_add_node(scd, "Class")
		model_add_node(scd, "Type")
		model_add_node(scd, "Any")
		model_add_node(scd, "String")
		model_add_value(scd, "inheritance", "inheritance")
		model_add_value(scd, "link", "link")
		model_add_value(scd, "name", "name")
		model_add_edge(scd, "class_inherits_any", "Class", "Any")
		model_add_edge(scd, "type_inherits_any", "Type", "Any")
		model_add_edge(scd, "Inheritance", "Any", "Any")
		model_add_edge(scd, "inheritance_name", "Inheritance", "inheritance")
		model_add_edge(scd, "Association", "Any", "Any")
		model_add_edge(scd, "assoc_inherits_any", "Association", "Any")
		model_add_edge(scd, "association_name", "Association", "link")
		model_add_edge(scd, "association_attr", "Association", "String")
		model_add_edge(scd, "attr_name", "association_attr", "name")
		model_add_node(scd, "Integer")

		// TODO: possible to use instantiate_named here?
		// Lower multiplicity on classes
		model_add_value(scd, "lower_multiplicity", "lower_multiplicity")
		model_add_edge(scd, "class_to_lm", "Class", "Integer")
		model_add_edge(scd, "lm_name", "class_to_lm", "lower_multiplicity")
		// Upper multiplicity on classes
		model_add_value(scd, "upper_multiplicity", "upper_multiplicity")
		model_add_edge(scd, "class_to_um", "Class", "Integer")
		model_add_edge(scd, "um_name", "class_to_um", "upper_multiplicity")
		// Source lower multiplicity on associations
		model_add_value(scd, "source_lower_cardinality", "source_lower_cardinality")
		model_add_edge(scd, "assoc_to_slc", "Association", "Integer")
		model_add_edge(scd, "slc_name", "assoc_to_slc", "source_lower_cardinality")
		// Source upper multiplicity on associations
		model_add_value(scd, "source_upper_cardinality", "source_upper_cardinality")
		model_add_edge(scd, "assoc_to_suc", "Association", "Integer")
		model_add_edge(scd, "suc_name", "assoc_to_suc", "source_upper_cardinality")
		// Target lower multiplicity on associations
		model_add_value(scd, "target_lower_cardinality", "target_lower_cardinality")
		model_add_edge(scd, "assoc_to_tlc", "Association", "Integer")
		model_add_edge(scd, "tlc_name", "assoc_to_tlc", "target_lower_cardinality")
		// Target upper multiplicity on associations
		model_add_value(scd, "target_upper_cardinality", "target_upper_cardinality")
		model_add_edge(scd, "assoc_to_tuc", "Association", "Integer")
		model_add_edge(scd, "tuc_name", "assoc_to_tuc", "target_upper_cardinality")

		retype_model(scd, scd)
		define_inheritance(scd, "Inheritance")
		retype(scd, "Class", "Class")
		retype(scd, "Type", "Class")
		retype(scd, "Any", "Class")
		retype(scd, "String", "Type")
		retype(scd, "inheritance", "String")
		retype(scd, "link", "String")
		retype(scd, "name", "String")
		retype(scd, "class_inherits_any", "Inheritance")
		retype(scd, "type_inherits_any", "Inheritance")
		retype(scd, "Inheritance", "Association")
		retype(scd, "inheritance_name", "association_attr")
		retype(scd, "Association", "Association")
		retype(scd, "assoc_inherits_any", "Inheritance")
		retype(scd, "association_name", "association_attr")
		retype(scd, "association_attr", "Association")
		retype(scd, "attr_name", "association_attr")
		retype(scd, "Integer", "Type")
		// TODO: with instantiate_named, after all previous retypings?
		// Lower multiplicity on classes
		retype(scd, "lower_multiplicity", "String")
		retype(scd, "lm_name", "association_attr")
		retype(scd, "class_to_um", "Association")
		// Upper multiplicity on classes
		retype(scd, "upper_multiplicity", "String")
		retype(scd, "class_to_lm", "Association")
		retype(scd, "um_name", "association_attr")
		// Source lower cardinality on associations
		retype(scd, "source_lower_cardinality", "String")
		retype(scd, "assoc_to_slc", "Association")
		retype(scd, "slc_name", "association_attr")
		// Source upper cardinality on associations
		retype(scd, "source_upper_cardinality", "String")
		retype(scd, "assoc_to_suc", "Association")
		retype(scd, "suc_name", "association_attr")
		// Target lower cardinality on associations
		retype(scd, "target_lower_cardinality", "String")
		retype(scd, "assoc_to_tlc", "Association")
		retype(scd, "tlc_name", "association_attr")
		// Target upper cardinality on associations
		retype(scd, "target_upper_cardinality", "String")
		retype(scd, "assoc_to_tuc", "Association")
		retype(scd, "tuc_name", "association_attr")

		// TODO: try this
		//instantiate_named(scd, "Association", "lower_multiplicity", "Class", "Integer")
		//instantiate_named(scd, "Association", "upper_multiplicity", "Class", "Integer")
		//instantiate_named(scd, "Association", "source_lower_multiplicity", "Association", "Integer")
		//instantiate_named(scd, "Association", "source_upper_multiplicity", "Association", "Integer")
		//instantiate_named(scd, "Association", "target_lower_multiplicity", "Association", "Integer")
		//instantiate_named(scd, "Association", "target_upper_multiplicity", "Association", "Integer")

		export_node("models/SimpleClassDiagrams", scd)

		Element pn
		pn = instantiate_model(scd)
		define_inheritance(pn, "Inheritance")
		instantiate_node(pn, "Class", "Place")
		instantiate_node(pn, "Class", "Transition")
		instantiate_node(pn, "Type", "Integer")
		instantiate_link(pn, "Association", "P2T", "Place", "Transition")
		instantiate_link(pn, "Association", "T2P", "Transition", "Place")
		instantiate_named(pn, "Association", "tokens", "Place", "Integer")
		instantiate_named(pn, "Association", "weight", "P2T", "Integer")
		instantiate_named(pn, "Association", "weight", "T2P", "Integer")

		set_model_constraints(pn, petrinet_constraints)
		export_node("models/PetriNets", pn)

		Element ltm_bottom
		ltm_bottom = instantiate_bottom()
		model_add_node(ltm_bottom, "Node")
		model_add_edge(ltm_bottom, "Edge", "Node", "Node")
		model_add_edge(ltm_bottom, "inheritance", "Node", "Node")
		model_add_edge(ltm_bottom, "__inh", "Edge", "Node")

		retype_model(ltm_bottom, ltm_bottom)
		define_inheritance(ltm_bottom, "inheritance")
		retype(ltm_bottom, "Node", "Node")
		retype(ltm_bottom, "Edge", "Edge")
		retype(ltm_bottom, "inheritance", "Edge")
		retype(ltm_bottom, "__inh", "inheritance")

		export_node("models/LTM_bottom", ltm_bottom)

	return dict_read(dict_read(read_root(), "__hierarchy"), "models")

String function petrinet_constraints(model : Element):
	// Check places to have positive number of tokens
	Element all_elems
	Element elem_constraint
	all_elems = allInstances(model, model["metamodel"]["model"]["Place"])
	while (0 < read_nr_out(all_elems)):
		elem_constraint = set_pop(all_elems)
		if (integer_lt(read_attribute(model, getName(model, elem_constraint), "tokens"), 0)):
			return "Negative number of tokens in Place " + getName(model, elem_constraint)

	// Check P2T transitions to have positive weight
	all_elems = allInstances(model, model["metamodel"]["model"]["P2T"])
	while (0 < read_nr_out(all_elems)):
		elem_constraint = set_pop(all_elems)
		if (integer_lt(read_attribute(model, getName(model, elem_constraint), "weight"), 0)):
			return "Negative weight in arc " + getName(model, elem_constraint)

	// Check T2P transitions to have positive weight
	all_elems = allInstances(model, model["metamodel"]["model"]["T2P"])
	while (0 < read_nr_out(all_elems)):
		elem_constraint = set_pop(all_elems)
		if (integer_lt(read_attribute(model, getName(model, elem_constraint), "weight"), 0)):
			return "Negative weight in arc " + getName(model, elem_constraint)

	return "OK"