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

    29

        choose {

    30

            when "not(@index)" {

    31

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

    32

            }

    33

            otherwise {

    35

            }

    36

        }

    37

    }

    40

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

    41

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

    42

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

    43

}

    44

    45

def "func:unique_types" {

    46

    param "elts_with_type";

    47

    choose {

    48

        when "count($elts_with_type) > 1" {

    49

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

    50

            choose {

    51

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

    52

                    // type already in

    53

                    result "$prior_results";

    54

                }

    55

                otherwise {

    56

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

    57

                }

    58

            }

    59

        }

    60

        otherwise {

    61

            result "$elts_with_type";

    62

        }

    63

    }

    64

}

    65

    66

emit "preamble:widget-base-class" {

    67

    ||    

    68

    class Widget {

    74

            Object.keys(members).forEach(prop => this[prop]=members[prop]);

    75

        }

    76

    }

    77

    ||

    78

}

    79

    80

emit "preamble:hmi-classes" {

    81

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

    82

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

    83

}

    84

    85

template "widget", mode="widget_class"

    86

||

    87

class «@type»Widget extends Widget{

    88

    /* empty class, as «@type» widget didn't provide any */

    89

}

    90

||

    91

    92

emit "preamble:hmi-elements" {

    93

    | var hmi_widgets = {

    94

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

    95

    | }

    96

}

    97

    98

    99

// default : normal subscribing

   100

template "widget", mode="widget_subscribe" {

   101

    |     sub: subscribe,

   102

    |     unsub: unsubscribe,

   103

    |     apply_cache: widget_apply_cache,

   104

}

   105

// page aren't subscribers

   106

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

   107

   108

function "defs_by_labels" {

   109

    param "labels","''";

   110

    param "mandatory","'yes'";

   111

    param "subelements","/..";

   112

    param "hmi_element";

   113

    const "widget_type","@type";

   114

    foreach "str:split($labels)" {

   115

        const "name",".";

   116

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

   117

        choose {

   118

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

   119

                if "$mandatory='yes'" {

   120

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

   121

                }

   122

                // otherwise produce nothing

   123

            }

   124

            otherwise {

   125

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

   126

                if "$subelements" {

   127

                |     «$name»_sub: {

   128

                    foreach "str:split($subelements)" {

   129

                        const "subname",".";

   130

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

   131

                        choose {

   132

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

   133

                                if "$mandatory='yes'" {

   134

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

   135

                                }

   136

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

   137

                            }

   138

                            otherwise {

   139

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

   140

                            }

   141

                        }

   142

                    }

   143

                |     },

   144

                }

   145

            }

   146

        }

   147

    }

   148

}

   149

   150

def "func:escape_quotes" {

   151

    param "txt";

   152

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

   153

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

   154

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

   155

    choose {

   156

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

   157

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

   158

        }

   159

        otherwise {

   160

            result "$txt";

   161

        }

   162

    }

   163

}

   164