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:parselabel(@inkscape:label)/widget";

    16

    const "eltid","@id";

    17

    |   "«@id»": {

    18

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

    19

    |     args: [

    20

        foreach "$widget/arg"

    21

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

    22

    |     ],

    23

    |     indexes: [

    24

    foreach "$widget/path" {

    25

        choose {

    26

            when "not(@index)" {

    27

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

    28

            }

    29

            otherwise {

    30

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

    31

            }

    32

        }

    33

    }

    34

    |     ],

    35

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

    36

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

    37

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

    38

}

    39

    40

    41

function "defs_by_labels" {

    42

    param "labels","''";

    43

    param "mandatory","'yes'";

    44

    param "hmi_element";

    45

    const "widget_type","@type";

    46

    foreach "str:split($labels)" {

    47

        const "name",".";

    48

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

    49

        choose {

    50

            when "not($elt_id)" {

    51

                if "$mandatory='yes'" {

    52

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

    53

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

    54

                }

    55

                // otherwise produce nothing

    56

            }

    57

            otherwise {

    58

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

    59

            }

    60

        }

    61

    }

    62

}

    63

    64

def "func:escape_quotes" {

    65

    param "txt";

    66

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

    67

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

    68

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

    69

    choose {

    70

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

    71

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

    72

        }

    73

        otherwise {

    74

            result "$txt";

    75

        }

    76

    }

    77

}

    78