1

// widgets_common.ysl2

     2

     3

in xsl decl labels(*ptr, name="defs_by_labels") alias call-template {

     4

    with "hmi_element", "$hmi_element";

     5

    with "labels"{text *ptr};

     6

};

     7

     8

in xsl decl optional_labels(*ptr, name="defs_by_labels") alias call-template {

     9

    with "hmi_element", "$hmi_element";

    10

    with "labels"{text *ptr};

    11

    with "mandatory","'no'";

    12

};

    13

    14

in xsl decl activable_labels(*ptr, name="defs_by_labels") alias call-template {

    15

    with "hmi_element", "$hmi_element";

    16

    with "labels"{text *ptr};

    17

    with "mandatory","'no'";

    18

    with "subelements","'active inactive'";

    19

};

    20

    21

template "svg:*", mode="hmi_elements" {

    22

    const "widget", "func:widget(@id)";

    23

    const "eltid","@id";

    24

    |   "«@id»": {

    25

    |     type: "«$widget/@type»",

    26

    |     args: [

    27

    foreach "$widget/arg"

    28

    |         "«@value»"`if "position()!=last()" > ,`

    29

    |     ],

    30

    |     offset: 0,

    31

    |     indexes: [

    32

    foreach "$widget/path" {

    33

        choose {

    34

            when "not(@index)" {

    35

                warning > Widget «$widget/@type» id="«$eltid»" : No match for path "«@value»" in HMI tree

    36

            }

    37

            otherwise {

    38

    |         «@index» /* «@value» */ `if "position()!=last()" > ,`

    39

            }

    40

        }

    41

    }

    42

    |     ],

    43

    |     element: id("«@id»"),

    44

    apply "$widget", mode="widget_defs" with "hmi_element",".";

    45

    apply "$widget", mode="widget_subscribe" with "hmi_element",".";

    46

    |   }`if "position()!=last()" > ,`

    47

}

    48

    49

// default : normal subscribing

    50

template "widget", mode="widget_subscribe" {

    51

    |     sub: subscribe,

    52

    |     unsub: unsubscribe,

    53

    |     apply_cache: widget_apply_cache,

    54

}

    55

// page aren't subscribers

    56

template "widget[@type='Page']", mode="widget_subscribe";

    57

    58

function "defs_by_labels" {

    59

    param "labels","''";

    60

    param "mandatory","'yes'";

    61

    param "subelements","/..";

    62

    param "hmi_element";

    63

    const "widget_type","@type";

    64

    foreach "str:split($labels)" {

    65

        const "name",".";

    66

        const "elt","$result_svg_ns//*[@id = $hmi_element/@id]//*[@inkscape:label=$name][1]";

    67

        choose {

    68

            when "not($elt/@id)" {

    69

                if "$mandatory='yes'" {

    70

                    error > «$widget_type» widget must have a «$name» element

    71

                }

    72

                // otherwise produce nothing

    73

            }

    74

            otherwise {

    75

                |     «$name»_elt: id("«$elt/@id»"),

    76

                if "$subelements" {

    77

                |     «$name»_sub: {

    78

                    foreach "str:split($subelements)" {

    79

                        const "subname",".";

    80

                        const "subelt","$elt/*[@inkscape:label=$subname][1]";

    81

                        choose {

    82

                            when "not($subelt/@id)" {

    83

                                if "$mandatory='yes'" {

    84

                                    error > «$widget_type» widget must have a «$name»/«$subname» element

    85

                                }

    86

                |         /* missing «$name»/«$subname» element */

    87

                            }

    88

                            otherwise {

    89

                |         "«$subname»": id("«$subelt/@id»")`if "position()!=last()" > ,`

    90

                            }

    91

                        }

    92

                    }

    93

                |     },

    94

                }

    95

            }

    96

        }

    97

    }

    98

}

    99

   100

def "func:escape_quotes" {

   101

    param "txt";

   102

    // have to use a python string to enter escaped quote

   103

    const "frst", !"substring-before($txt,'\"')"!;

   104

    const "frstln", "string-length($frst)";

   105

    choose {

   106

        when "$frstln > 0 and string-length($txt) > $frstln" {

   107

            result !"concat($frst,'\\\"',func:escape_quotes(substring-after($txt,'\"')))"!;

   108

        }

   109

        otherwise {

   110

            result "$txt";

   111

        }

   112

    }

   113

}

   114