modelverse/integration/code/pn_design_to_runtime.mvc

import models/RAM_PetriNets_Design_Runtime as RAM_PN_DR
include "primitives.alh"
include "modelling.alh"

RAM_PN_DR annotate {
    Composite schedule {
        {Contains} Failure failure {}
        {Contains} Success success {}
        {Contains} ForAll copy_transitions {
            LHS {
                Pre_PetriNets/Transition {
                    label = "0"
                }
            }
            RHS {
                Post_PetriNets/Transition ct1 {
                    label = "0"
                }
                Post_PetriNets_Runtime/Transition ct2 {
                    label = "1"
                    value_executing = $
                        Boolean function value(model : Element, name : String, mapping : Element):
                            return True!
                        $
                }
                Post_D2R_TransitionLink (ct1, ct2){
                    label = "2"
                }
            }
        }
        {Contains} ForAll copy_places {
            LHS {
                Pre_PetriNets/Place {
                    label = "0"
                }
            }
            RHS {
                Post_PetriNets/Place cp1 {
                    label = "0"
                }
                Post_PetriNets_Runtime/Place cp2 {
                    label = "1"
                    value_tokens = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return read_attribute(model, mapping["0"], "tokens")!
                        $
                    value_name = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return read_attribute(model, mapping["0"], "name")!
                        $
                }
                Post_D2R_PlaceLink (cp1, cp2){
                    label = "2"
                }
            }
        }
        {Contains} ForAll copy_P2T {
            LHS {
                Pre_PetriNets/Place cp2t_p{
                    label = "0"
                }
                Pre_PetriNets/Transition cp2t_t{
                    label = "1"
                }
                Pre_PetriNets/P2T (cp2t_p, cp2t_t){
                    label = "2"
                }
                Pre_PetriNets_Runtime/Place cp2t_p2{
                    label = "3"
                }
                Pre_PetriNets_Runtime/Transition cp2t_t2{
                    label = "4"
                }
                Pre_D2R_PlaceLink (cp2t_p, cp2t_p2){
                    label = "5"
                }
                Pre_D2R_TransitionLink (cp2t_t, cp2t_t2){
                    label = "6"
                }
            }
            RHS {
                Post_PetriNets/Place rhs_cp2t_p{
                    label = "0"
                }
                Post_PetriNets/Transition rhs_cp2t_t{
                    label = "1"
                }
                Post_PetriNets/P2T rhs_cp2t_p2t (rhs_cp2t_p, rhs_cp2t_t){
                    label = "2"
                }
                Post_PetriNets_Runtime/Place rhs_cp2t_p2 {
                    label = "3"
                }
                Post_PetriNets_Runtime/Transition rhs_cp2t_t2 {
                    label = "4"
                }
                Post_D2R_PlaceLink (rhs_cp2t_p, rhs_cp2t_p2){
                    label = "5"
                }
                Post_D2R_TransitionLink (rhs_cp2t_t, rhs_cp2t_t2){
                    label = "6"
                }
                Post_PetriNets_Runtime/P2T rhs_cp2t_p2t2(rhs_cp2t_p2, rhs_cp2t_t2) {
                    label = "7"
                    value_weight = $
                        Integer function value(host_model : Element, name : String, mapping : Element):
                            return read_attribute(host_model, mapping["2"], "weight")!
                        $
                }
            }
        }
        {Contains} ForAll copy_T2P {
            LHS {
                Pre_PetriNets/Place ct2p_p{
                    label = "0"
                }
                Pre_PetriNets/Transition ct2p_t{
                    label = "1"
                }
                Pre_PetriNets/T2P (ct2p_t, ct2p_p){
                    label = "2"
                }
                Pre_PetriNets_Runtime/Place ct2p_p2{
                    label = "3"
                }
                Pre_PetriNets_Runtime/Transition ct2p_t2{
                    label = "4"
                }
                Pre_D2R_PlaceLink (ct2p_p, ct2p_p2){
                    label = "5"
                }
                Pre_D2R_TransitionLink (ct2p_t, ct2p_t2){
                    label = "6"
                }
            }
            RHS {
                Post_PetriNets/Place rhs_ct2p_p{
                    label = "0"
                }
                Post_PetriNets/Transition rhs_ct2p_t{
                    label = "1"
                }
                Post_PetriNets/T2P (rhs_ct2p_t, rhs_ct2p_p){
                    label = "2"
                }
                Post_PetriNets_Runtime/Place rhs_ct2p_p2 {
                    label = "3"
                }
                Post_PetriNets_Runtime/Transition rhs_ct2p_t2 {
                    label = "4"
                }
                Post_D2R_PlaceLink (rhs_ct2p_p, rhs_ct2p_p2){
                    label = "5"
                }
                Post_D2R_TransitionLink (rhs_ct2p_t, rhs_ct2p_t2){
                    label = "6"
                }
                Post_PetriNets_Runtime/T2P (rhs_ct2p_t2, rhs_ct2p_p2) {
                    label = "7"
                    value_weight = $
                        Integer function value(host_model : Element, name : String, mapping : Element):
                            return read_attribute(host_model, mapping["2"], "weight")!
                        $
                }
            }
        }
    }
    OnSuccess (copy_places, copy_transitions) {}
    OnSuccess (copy_transitions, copy_P2T) {}
    OnSuccess (copy_P2T, copy_T2P) {}
    OnSuccess (copy_T2P, success) {}
    OnFailure (copy_places, copy_transitions) {}
    OnFailure (copy_transitions, copy_P2T) {}
    OnFailure (copy_P2T, copy_T2P) {}
    OnFailure (copy_T2P, success) {}
    Initial (schedule, copy_places) {}
}

export annotate to models/pn_annotate