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

    content;

     7

};

     8

     9

decl optional_labels(*ptr) alias - {

    10

    /* TODO add some per label xslt variable to check if exist */

    11

    labels(*ptr){

    12

        with "mandatory","'no'";

    13

        content;

    14

    }

    15

};

    16

    17

decl activable_labels(*ptr) alias - {

    18

    optional_labels(*ptr) {

    19

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

    20

        content;

    21

    }

    22

};

    23

    24

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

    25

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

    26

    const "eltid","@id";

    28

    |     args: [

    29

    foreach "$widget/arg"

    30

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

    31

    |     ],

    32

    |     offset: 0,

    33

    |     indexes: [

    34

    foreach "$widget/path" {

    35

        choose {

    36

            when "not(@index)" {

    37

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

    38

            }

    39

            otherwise {

    40

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

    41

            }

    42

        }

    43

    }

    44

    |     ],

    45

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

    46

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

    47

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

    50

    51

def "func:unique_types" {

    52

    param "elts_with_type";

    53

    choose {

    54

        when "count($elts_with_type) > 1" {

    55

            const "prior_results","func:unique_types($elts_with_type[position()!=last()])";

    56

            choose {

    57

                when "$elts_with_type[last()][@type = $prior_results/@type]"{

    58

                    // type already in

    59

                    result "$prior_results";

    60

                }

    61

                otherwise {

    62

                    result "$prior_results | $elts_with_type[last()]";

    63

                }

    64

            }

    65

        }

    66

        otherwise {

    67

            result "$elts_with_type";

    68

        }

    69

    }

    70

}

    71

    82

emit "preamble:hmi-classes" {

    83

    const "used_widget_types", "func:unique_types($parsed_widgets/widget)";

    84

    apply "$used_widget_types", mode="widget_class";

    85

}

    86

    94

emit "preamble:hmi-elements" {

    95

    | var hmi_widgets = {

    96

    apply "$hmi_elements", mode="hmi_elements";

    97

    | }

    98

}

    99

   101

// default : normal subscribing

   102

template "widget", mode="widget_subscribe" {

   103

    |     sub: subscribe,

   104

    |     unsub: unsubscribe,

   105

    |     apply_cache: widget_apply_cache,

   106

}

   107

// page aren't subscribers

   108

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

   109

   110

function "defs_by_labels" {

   111

    param "labels","''";

   112

    param "mandatory","'yes'";

   113

    param "subelements","/..";

   114

    param "hmi_element";

   115

    const "widget_type","@type";

   116

    foreach "str:split($labels)" {

   117

        const "name",".";

   118

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

   119

        choose {

   120

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

   121

                if "$mandatory='yes'" {

   122

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

   123

                }

   124

                // otherwise produce nothing

   125

            }

   126

            otherwise {

   127

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

   128

                if "$subelements" {

   129

                |     «$name»_sub: {

   130

                    foreach "str:split($subelements)" {

   131

                        const "subname",".";

   132

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

   133

                        choose {

   134

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

   135

                                if "$mandatory='yes'" {

   136

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

   137

                                }

   138

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

   139

                            }

   140

                            otherwise {

   141

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

   142

                            }

   143

                        }

   144

                    }

   145

                |     },

   146

                }

   147

            }

   148

        }

   149

    }

   150

}

   151

   152

def "func:escape_quotes" {

   153

    param "txt";

   154

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

   155

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

   156

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

   157

    choose {

   158

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

   159

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

   160

        }

   161

        otherwise {

   162

            result "$txt";

   163

        }

   164

    }

   165

}

   166