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};

     7

};

     8

    15

};

    16

    22

};

    23

    24

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

    25

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

    26

    const "eltid","@id";

    27

    |   "«@id»": {

    28

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

    29

    |     args: [

    30

    foreach "$widget/arg"

    31

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

    32

    |     ],

    33

    |     offset: 0,

    34

    |     indexes: [

    35

    foreach "$widget/path" {

    36

        choose {

    37

            when "not(@index)" {

    38

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

    39

            }

    40

            otherwise {

    41

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

    42

            }

    43

        }

    44

    }

    45

    |     ],

    46

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

    47

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

    48

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

    49

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

    50

}

    51

    52

// default : normal subscribing

    53

template "widget", mode="widget_subscribe" {

    54

    |     sub: subscribe,

    55

    |     unsub: unsubscribe,

    56

    |     apply_cache: widget_apply_cache,

    57

}

    58

// page aren't subscribers

    59

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

    60

    61

function "defs_by_labels" {

    62

    param "labels","''";

    63

    param "mandatory","'yes'";

    64

    param "subelements","/..";

    65

    param "hmi_element";

    66

    const "widget_type","@type";

    67

    foreach "str:split($labels)" {

    68

        const "name",".";

    69

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

    70

        choose {

    71

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

    72

                if "$mandatory='yes'" {

    73

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

    74

                }

    75

                // otherwise produce nothing

    76

            }

    77

            otherwise {

    78

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

    79

                if "$subelements" {

    80

                |     «$name»_sub: {

    81

                    foreach "str:split($subelements)" {

    82

                        const "subname",".";

    83

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

    84

                        choose {

    85

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

    86

                                if "$mandatory='yes'" {

    87

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

    88

                                }

    89

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

    90

                            }

    91

                            otherwise {

    92

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

    93

                            }

    94

                        }

    95

                    }

    96

                |     },

    97

                }

    98

            }

    99

        }

   100

    }

   101

}

   102

   103

def "func:escape_quotes" {

   104

    param "txt";

   105

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

   106

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

   107

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

   108

    choose {

   109

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

   110

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

   111

        }

   112

        otherwise {

   113

            result "$txt";

   114

        }

   115

    }

   116

}

   117