modelverse/models/CBD_mapper.mvc

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

A B {
    Composite schedule {
        {Contains} Success success {}

        {Contains} ForAll render_blocks {
            LHS {
                Pre_CausalBlockDiagrams/Block pre_block_0 {
                    label = "0"
                }
            }
            RHS {
                Post_CausalBlockDiagrams/Block post_block_0 {
                    label = "0"
                }
                Post_MM_rendered_graphical/Group post_block_1 {
                    label = "1"
                    value_x = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 0!
                        $
                    value_y = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 0!
                        $
                }
                Post_MM_rendered_graphical/Rectangle post_block_2 {
                    label = "2"
                    value_x = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 0!
                        $
                    value_y = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 0!
                        $
                    value_width = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 10!
                        $
                    value_height = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 10!
                        $
                    value_lineWidth = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 2!
                        $
                    value_lineColour = $
                        String function value(model : Element, name : String, mapping : Element):
                            return "black"!
                        $
                    value_fillColour = $
                        String function value(model : Element, name : String, mapping : Element):
                            return "white"!
                        $
                }
                Post_MM_rendered_graphical/Text post_block_3 {
                    label = "3"
                    value_x = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 10!
                        $
                    value_y = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 10!
                        $
                    value_lineWidth = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 1!
                        $
                    value_lineColour = $
                        String function value(model : Element, name : String, mapping : Element):
                            return "black"!
                        $
                    value_text = $
                        String function value(model : Element, name : String, mapping : Element):
                            String type
                            type = read_type(model, name)
                            if (type == "AdditionBlock"):
                                return "+"!
                            elif (type == "NegatorBlock"):
                                return "-"!
                            elif (type == "MultiplyBlock"):
                                return "*"!
                            elif (type == "InverseBlock"):
                                return "/"!
                            elif (type == "DerivatorBlock"):
                                return "d/dx"!
                            elif (type == "IntegratorBlock"):
                                return "1/s"!
                            elif (type == "DelayBlock"):
                                return "DELAY"!
                            elif (type == "ProbeBlock"):
                                return "PROBE"!
                        $
                }
                Post_MM_rendered_graphical/contains (post_block_1, post_block_2) {
                    label = "4"
                }
                Post_MM_rendered_graphical/contains (post_block_1, post_block_3) {
                    label = "5"
                }

                Post_TracabilityLink (post_block_0, post_block_1) {
                    label = "6"
                }
            }
        }

        {Contains} ForAll render_connections {
            LHS {
                Pre_CausalBlockDiagrams/Block pre_conn_0 {
                    label = "0"
                }

                Pre_CausalBlockDiagrams/Block pre_conn_1 {
                    label = "1"
                }

                Pre_CausalBlockDiagrams/Link (pre_conn_0, pre_conn_1){
                    label = "2"
                }

                Pre_MM_rendered_graphical/Group pre_conn_3 {
                    label = "3"
                }

                Pre_MM_rendered_graphical/Group pre_conn_4 {
                    label = "4"
                }

                Pre_TracabilityLink (pre_conn_0, pre_conn_3) {
                    label = "5"
                }
                Pre_TracabilityLink (pre_conn_0, pre_conn_4) {
                    label = "6"
                }
            }
            RHS {
                Post_CausalBlockDiagrams/Block post_conn_0 {
                    label = "0"
                }

                Post_CausalBlockDiagrams/Block post_conn_1 {
                    label = "1"
                }

                Post_CausalBlockDiagrams/Link (post_conn_0, post_conn_1){
                    label = "2"
                }

                Post_MM_rendered_graphical/Group post_conn_3 {
                    label = "3"
                }

                Post_MM_rendered_graphical/Group post_conn_4 {
                    label = "4"
                }

                Post_TracabilityLink (post_conn_0, post_conn_3) {
                    label = "5"
                }
                Post_TracabilityLink (post_conn_0, post_conn_4) {
                    label = "6"
                }

                Post_MM_rendered_graphical/Line {
                    label = "7"
                    value_x = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return read_attribute(model, mapping["3"], "x")!
                        $
                    value_y = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return read_attribute(model, mapping["3"], "y")!
                        $
                    value_lineWidth = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return 1!
                        $
                    value_lineColour = $
                        String function value(model : Element, name : String, mapping : Element):
                            if (read_type(model, name) == "ICLink"):
                                return "red"!
                            else:
                                return "black"!
                        $
                    value_targetX = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return read_attribute(model, mapping["4"], "x")!
                        $
                    value_targetY = $
                        Integer function value(model : Element, name : String, mapping : Element):
                            return read_attribute(model, mapping["4"], "y")!
                        $
                }
            }
        }
    }

    Initial (schedule, render_blocks) {}

    OnSuccess (render_blocks, render_connections) {}
    OnFailure (render_blocks, render_connections) {}

    OnSuccess (render_connections, success) {}
    OnFailure (render_connections, success) {}
}