modelverse/models/pn_print.alc

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

Element function pn_print(params : Element, output_mms : Element):
	Element model
	model = params["pn"]

	Element all_places
	String place
	String name
	Integer tokens
	String t
	Element all_t

	log(set_to_string(dict_keys(model["metamodel"]["model"])))

	log("Places:")
	all_places = allInstances(model, "Place")
	while (read_nr_out(all_places) > 0):
		place = set_pop(all_places)
		name = read_attribute(model, place, "name")
		tokens = read_attribute(model, place, "tokens")

		log((("  " + name) + ": ") + cast_v2s(tokens))

		all_t = allIncomingAssociationInstances(model, place, "P2T")
		while (read_nr_out(all_t) > 0):
			t = set_pop(all_t)
			log("    <-- " + cast_v2s(read_attribute(model, readAssociationSource(model, t), "name")))
		all_t = allOutgoingAssociationInstances(model, place, "T2P")
		while (read_nr_out(all_t) > 0):
			t = set_pop(all_t)
			log("    --> " + cast_v2s(read_attribute(model, readAssociationDestination(model, t), "name")))

	log("Transitions:")
	all_places = allInstances(model, "Transition")
	while (read_nr_out(all_places) > 0):
		place = set_pop(all_places)
		name = read_attribute(model, place, "name")

		log("  " + name)

	return create_node()!