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

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

    15

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

    16

    const "eltid","@id";

    17

    |   "«@id»": {

    18

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

    19

    |     args: [

    20

    foreach "$widget/arg"

    21

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

    22

    |     ],

    23

    |     offset: 0,

    24

    |     indexes: [

    25

    foreach "$widget/path" {

    26

        choose {

    27

            when "not(@index)" {

    28

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

    29

            }

    30

            otherwise {

    31

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

    32

            }

    33

        }

    34

    }

    35

    |     ],

    36

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

    37

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

    38

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

    39

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

    40

}

    41

    42

// default : normal subscribing

    43

template "widget", mode="widget_subscribe" {

    44

    |     sub: subscribe,

    45

    |     unsub: unsubscribe,

    47

}

    48

// page aren't subscribers

    49

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

    50

    51

function "defs_by_labels" {

    52

    param "labels","''";

    53

    param "mandatory","'yes'";

    54

    param "hmi_element";

    55

    const "widget_type","@type";

    56

    foreach "str:split($labels)" {

    57

        const "name",".";

    58

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

    59

        choose {

    60

            when "not($elt_id)" {

    61

                if "$mandatory='yes'" {

    62

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

    63

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

    64

                }

    65

                // otherwise produce nothing

    66

            }

    67

            otherwise {

    68

                |     «$name»_elt: id("«$elt_id»"),

    69

            }

    70

        }

    71

    }

    72

}

    73

    74

def "func:escape_quotes" {

    75

    param "txt";

    76

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

    77

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

    78

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

    79

    choose {

    80

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

    81

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

    82

        }

    83

        otherwise {

    84

            result "$txt";

    85

        }

    86

    }

    87

}

    88