modelverse/integration/code/pn_print_MR.mvc

RAM_PN_R print {
    Composite schedule {
        {Contains} Success success {}
        {Contains} ForAll print_tokens {
            LHS {
                Pre_PetriNets_Place {
                    label = "0"
                }
            }
            RHS {
                Post_PetriNets_Place {
                    label = "0"
                    action = $
                        include "primitives.alh"
                        include "modelling.alh"
                        Void function action(host_model : Element, name : String, mapping : Element):
                            output((cast_v2s(read_attribute(host_model, name, "name")) + " --> ") + cast_v2s(read_attribute(host_model, name, "tokens")))
                            return!
                        $
                }
            }
        }
    }
    OnSuccess (print_tokens, success) {}
    OnFailure (print_tokens, success) {}
    Initial (schedule, print_tokens) {}
}