modelverse/models/cbd_merge.alc

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

String function map_P2F(model : Element, name : String):
	return readAssociationDestination(model, set_pop(allAssociationDestinations(model, name, "P2F_block")))!

Boolean function main(model : Element):
	Element all_blocks
	String element_name
	Float current_time
	String time_block

	all_blocks = allInstances(model, "PartialRuntime/Block")
	while (set_len(all_blocks) > 0):
		element_name = set_pop(all_blocks)
		if (set_len(allOutgoingAssociationInstances(model, element_name, "P2F_block")) > 0):
			// Element already exists in full, so copy existing attributes
            if (is_nominal_instance(model, element_name, "ICBlock")):
                instantiate_attribute(model, element_name, "last_in", read_attribute(model, map_P2F(model, element_name), "last_in"))
            if (is_nominal_instance(model, element_name, "IntegratorBlock")):
                instantiate_attribute(model, element_name, "last_out", read_attribute(model, map_P2F(model, element_name), "last_out"))
            instantiate_attribute(model, element_name, "signal", read_attribute(model, map_P2F(model, element_name), "signal"))
		else:
			// Element doesn't exist, so initialize with 0.0
            instantiate_attribute(model, element_name, "signal", 0.0)
			instantiate_link(model, "P2F_block", "", element_name, element_name)

	if (set_len(allInstances(model, "FullRuntime/Time")) > 0):
		// Time already exists, so copy the value
		current_time = read_attribute(model, set_pop(allInstances(model, "FullRuntime/Time")), "current_time")
	else:
		// No time yet, so initialize
		current_time = 0.0

	time_block = instantiate_node(model, "PartialRuntime/Time", "")
	instantiate_attribute(model, time_block, "start_time", current_time)
	instantiate_attribute(model, time_block, "current_time", current_time)

	return True!