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,

    46

}

    47

// page aren't subscribers

    48

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

    49

    50

function "defs_by_labels" {

    51

    param "labels","''";

    52

    param "mandatory","'yes'";

    53

    param "hmi_element";

    54

    const "widget_type","@type";

    55

    foreach "str:split($labels)" {

    56

        const "name",".";

    57

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

    58

        choose {

    59

            when "not($elt_id)" {

    60

                if "$mandatory='yes'" {

    61

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

    62

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

    63

                }

    64

                // otherwise produce nothing

    65

            }

    66

            otherwise {

    67

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

    68

            }

    69

        }

    70

    }

    71

}

    72

    73

def "func:escape_quotes" {

    74

    param "txt";

    75

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

    76

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

    77

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

    78

    choose {

    79

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

    80

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

    81

        }

    82

        otherwise {

    83

            result "$txt";

    84

        }

    85

    }

    86

}

    87