modelverse/integration/code/pn_design_to_runtime.mvc

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

Composite schedule {
    {Contains} Failure failure {}
    {Contains} Success success {}
    {Contains} ForAll copy_transitions {
        LHS {
            Pre_PetriNet/Transition {
                label = "0"
            }
        }
        RHS {
            Post_PetriNet/Transition ct1 {
                label = "0"
            }
            Post_PetriNet_Runtime/Transition ct2 {
                label = "1"
                value_executing = $
                    Boolean function value(model : Element, name : String, mapping : Element):
                        return True!
                    $
                value_name = $
                    Integer function value(model : Element, name : String, mapping : Element):
                        return read_attribute(model, mapping["0"], "name")!
                    $
            }
            Post_D2R_TransitionLink (ct1, ct2){
                label = "2"
            }
        }
    }
    {Contains} ForAll copy_places {
        LHS {
            Pre_PetriNet/Place {
                label = "0"
            }
        }
        RHS {
            Post_PetriNet/Place cp1 {
                label = "0"
            }
            Post_PetriNet_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_PetriNet/Place cp2t_p{
                label = "0"
            }
            Pre_PetriNet/Transition cp2t_t{
                label = "1"
            }
            Pre_PetriNet/P2T (cp2t_p, cp2t_t){
                label = "2"
            }
            Pre_PetriNet_Runtime/Place cp2t_p2{
                label = "3"
            }
            Pre_PetriNet_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_PetriNet/Place rhs_cp2t_p{
                label = "0"
            }
            Post_PetriNet/Transition rhs_cp2t_t{
                label = "1"
            }
            Post_PetriNet/P2T rhs_cp2t_p2t (rhs_cp2t_p, rhs_cp2t_t){
                label = "2"
            }
            Post_PetriNet_Runtime/Place rhs_cp2t_p2 {
                label = "3"
            }
            Post_PetriNet_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_PetriNet_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_PetriNet/Place ct2p_p{
                label = "0"
            }
            Pre_PetriNet/Transition ct2p_t{
                label = "1"
            }
            Pre_PetriNet/T2P (ct2p_t, ct2p_p){
                label = "2"
            }
            Pre_PetriNet_Runtime/Place ct2p_p2{
                label = "3"
            }
            Pre_PetriNet_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_PetriNet/Place rhs_ct2p_p{
                label = "0"
            }
            Post_PetriNet/Transition rhs_ct2p_t{
                label = "1"
            }
            Post_PetriNet/T2P (rhs_ct2p_t, rhs_ct2p_p){
                label = "2"
            }
            Post_PetriNet_Runtime/Place rhs_ct2p_p2 {
                label = "3"
            }
            Post_PetriNet_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_PetriNet_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) {}