modelverse/integration/code/cbd_semantics.alc

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

Void function main():
	Element model
	String verify_result

	while (True):
		output("Which model do you want to execute with CBD semantics?")
		model = import_node(input())

		if (element_eq(model, read_root())):
			output("Could not find model; aborting")
		elif (element_neq(model["metamodel"], import_node("models/CausalBlockDiagrams_Design"))):
			output("Not a CBD design model; aborting")
		else:
			verify_result = conformance_scd(model)
			if (verify_result == "OK"):
				output("Model OK!")
				execute_cbd(model)
			else:
				output("Non-conforming model: " + verify_result)

Void function translate_to_runtime(design_model : Element):
	Element runtime_model
	Element all_blocks
	Element all_links
	String mm_type_name
	String element_name
	String attr_name
	String attr_value
	String attribute
	String src
	String dst
	Element all_attributes

	log("Translating to runtime model!")

	log("Creating empty runtime model")
	runtime_model = instantiate_model(import_node("models/CausalBlockDiagrams_Runtime"))

	log("Converting blocks")
	all_blocks = allInstances(design_model, "Block")
	while (list_len(all_blocks) > 0):
		element_name = set_pop(all_blocks)
		mm_type_name = reverseKeyLookup(design_model["metamodel"]["model"], dict_read_node(design_model["type_mapping"], design_model["model"][element_name]))
		instantiate_node(runtime_model, mm_type_name, element_name)
		all_attributes = getAttributeList(design_model, element_name)
		while (read_nr_out(all_attributes) > 0):
			attr_name = set_pop(all_attributes)
			if (bool_not(set_in(runtime_model["model"], read_attribute(design_model, element_name, attr_name)))):
				instantiate_attribute(runtime_model, element_name, attr_name, read_attribute(design_model, element_name, attr_name))
		log("    Converted block " + element_name)

	// Don't merge this together with the block conversion, as the destination block might not exist yet!
	log("Relinking blocks")
	all_links = allInstances(design_model, "Link")
	while (read_nr_out(all_links) > 0):
		element_name = set_pop(all_links)
		src = reverseKeyLookup(design_model["model"], read_edge_src(design_model["model"][element_name]))
		dst = reverseKeyLookup(design_model["model"], read_edge_dst(design_model["model"][element_name]))
		instantiate_link(runtime_model, "Link", element_name, src, dst)
		log((("    Relinked blocks " + src) + " and ") + dst)

	log("Resetting initial conditions")
	all_links = allInstances(design_model, "InitialCondition")
	while (read_nr_out(all_links) > 0):
		element_name = set_pop(all_links)
		src = reverseKeyLookup(design_model["model"], read_edge_src(design_model["model"][element_name]))
		dst = reverseKeyLookup(design_model["model"], read_edge_dst(design_model["model"][element_name]))
		instantiate_link(runtime_model, "InitialCondition", element_name, src, dst)
		log("    Reset IC of " + dst)

	log("Creating schedule at time = 0")
	create_schedule(runtime_model, True)

	log("Creating schedule at time > 0")
	create_schedule(runtime_model, False)

	log("Solving loops (TODO)")

	log("DONE!")
	return !

Void function create_schedule(model : Element, is_time_zero : Boolean):
	Element all_blocks
	Element visited
	Element to_visit
	Element incoming_links
	String schedule
	String element_name
	String link
	String source
	String new_schedule
	Boolean ready

	log("Fetching all blocks")
	all_blocks = allInstances(model, "Block")
	visited = create_node()
	to_visit = create_node()
	if (is_time_zero):
		log("Make initial schedule!")
		schedule = instantiate_node(model, "Schedule", "schedule_init")
	else:
		log("Make normal schedule!")
		schedule = instantiate_node(model, "Schedule", "schedule_run")

	while (read_nr_out(all_blocks) > 0):
		log("Loop 1")
		element_name = set_pop(all_blocks)
		if (bool_not(set_in(visited, element_name))):
			list_append(to_visit, element_name)

		while (list_len(to_visit) > 0):
			log("Loop 2")
			element_name = list_read(to_visit, list_len(to_visit) - 1)
			if (reverseKeyLookup(model["metamodel"]["model"], dict_read_node(model["type_mapping"], model["model"][element_name])) == "DelayBlock"):
				if (is_time_zero):
					log("Checking all incoming 0")
					incoming_links = allIncomingAssociationInstances(model, element_name, "InitialCondition")
				else:
					incoming_links = create_node()
			else:
				log("Checking all incoming n")
				incoming_links = allIncomingAssociationInstances(model, element_name, "Link")
			ready = True

			while (list_len(incoming_links) > 0):
				log("Loop 3")
				link = set_pop(incoming_links)
				source = readAssociationSource(model, link)
				log("Read association")
				if (bool_not(set_in(visited, source))):
					list_append(to_visit, source)
					ready = False

			log("Check ready!")
			if (ready):
				log("Ready!")
				new_schedule = instantiate_node(model, "Schedule", "")
				log("Instantiate 1")
				instantiate_link(model, "ConnectedBlock", "", schedule, element_name)
				log("Instantiate 2")
				instantiate_link(model, "NextSchedule", "", schedule, new_schedule)
				log("Instantiate 3")
				schedule = new_schedule
				list_delete(to_visit, list_len(to_visit) - 1)
				set_add(visited, element_name)

	log("Done!")
	return !

Void function execute_cbd(model : Element):
	translate_to_runtime(model)

	String cmd
	while (True):
		output("Which operation do you want to execute?")
		cmd = input()

		if (cmd == "help"):
			output("Supported operations:")
			output("  start   -- start simulation")
			output("  pause   -- pause simulation")
			output("  modify  -- live modelling: modify model structure")
			output("  list    -- list blocks and connections")
			output("  help    -- this information")
			output("  exit    -- select another model")
		elif (cmd == "exit"):
			return!
		else:
			output("Did not understand command!")
			output("Use 'help' for a list of available options")