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_widgets" {

    25

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

    26

    const "eltid","@id";

    27

    const "args" foreach "$widget/arg" > "«@value»"`if "position()!=last()" > ,`

    28

    const "indexes" foreach "$widget/path" {

    29

        choose {

    30

            when "not(@index)" {

    31

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

    32

            }

    33

            otherwise {

    34

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

    35

            }

    36

        }

    37

    }

    38

    39

    |   "«@id»": new «$widget/@type»Widget ("«@id»",[«$args»],[«$indexes»],{

    40

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

    41

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

    42

}

    43

    44

def "func:unique_types" {

    45

    param "elts_with_type";

    46

    choose {

    47

        when "count($elts_with_type) > 1" {

    48

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

    49

            choose {

    50

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

    51

                    // type already in

    52

                    result "$prior_results";

    53

                }

    54

                otherwise {

    55

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

    56

                }

    57

            }

    58

        }

    59

        otherwise {

    60

            result "$elts_with_type";

    61

        }

    62

    }

    63

}

    64

    65

emit "preamble:widget-base-class" {

    66

    ||    

    69

    class Widget {

    70

        offset = 0;

    71

        frequency = 10; /* FIXME arbitrary default max freq. Obtain from config ? */

    72

        unsubscribable = false;

    75

        constructor(elt_id,args,indexes,members){

    76

            this.element_id = elt_id;

    77

            this.element = id(elt_id);

    78

            this.args = args;

    79

            this.indexes = indexes;

    80

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

    81

        }

    82

    83

        unsub(){

    84

            /* remove subsribers */

    85

            if(!this.unsubscribable)

    86

                for(let i = 0; i < this.indexes.length; i++) {

    87

                    let index = this.indexes[i];

    88

                    if(this.relativeness[i])

    89

                        index += this.offset;

    90

                    subscribers[index].delete(this);

    91

                }

    92

            this.offset = 0;

    93

            this.relativeness = undefined;

    94

        }

    95

    96

        sub(new_offset=0, relativeness){

    97

            this.offset = new_offset;

    98

            this.relativeness = relativeness;

    99

            /* add this's subsribers */

   100

            if(!this.unsubscribable)

   101

                for(let i = 0; i < this.indexes.length; i++) {

   102

                    let index = this.indexes[i];

   103

                    if(relativeness[i])

   104

                        index += new_offset;

   105

                    subscribers[index].add(this);

   106

                }

   107

            need_cache_apply.push(this); 

   108

        }

   109

   110

        apply_cache() {

   111

            if(!this.unsubscribable) for(let index of this.indexes){

   112

                /* dispatch current cache in newly opened page widgets */

   113

                let realindex = index+this.offset;

   114

                let cached_val = cache[realindex];

   115

                if(cached_val != undefined)

   116

                    this.new_hmi_value(realindex, cached_val, cached_val);

   117

            }

   118

        }

   119

   120

        get_idx(index) {

   121

             let orig = this.indexes[index];

   122

             return this.relativeness[index] ? orig + this.offset : orig;

   123

        }

   124

        change_hmi_value(index,opstr) {

   125

            return change_hmi_value(this.get_idx(index), opstr);

   126

        }

   127

   128

        apply_hmi_value(index, new_val) {

   129

            return apply_hmi_value(this.get_idx(0), new_val);

   130

        }

   131

   132

        new_hmi_value(index, value, oldval) {

   133

            try {

   134

                // TODO avoid searching, store index at sub()

   135

                for(let i = 0; i < this.indexes.length; i++) {

   136

                    let refindex = this.indexes[i];

   137

                    if(this.relativeness[i])

   138

                        refindex += this.offset;

   139

   140

                    if(index == refindex) {

   141

                        let d = this.dispatch;

   142

                        if(typeof(d) == "function"){

   143

                            d.call(this, value, oldval, i);

   144

                        }

   145

                        else if(typeof(d) == "object"){

   146

                            d[i].call(this, value, oldval);

   147

                        }

   148

                        /* else dispatch_0, ..., dispatch_n ? */

   149

                        /*else {

   150

                            throw new Error("Dunno how to dispatch to widget at index = " + index);

   151

                        }*/

   152

                        break;

   153

                    }

   154

                }

   155

            } catch(err) {

   156

                console.log(err);

   157

            }

   158

        }

   173

    }

   174

    ||

   175

}

   176

   177

emit "declarations:hmi-classes" {

   178

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

   179

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

   180

}

   181

   182

template "widget", mode="widget_class"

   183

||

   184

class «@type»Widget extends Widget{

   185

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

   186

}

   187

||

   188

   189

const "excluded_types", "str:split('Page Lang')";

   190

const "excluded_ids","$parsed_widgets/widget[not(@type = $excluded_types)]/@id";

   191

   192

emit "declarations:hmi-elements" {

   193

    | var hmi_widgets = {

   194

    apply  "$hmi_elements[@id = $excluded_ids]", mode="hmi_widgets";

   195

    | }

   196

}

   197

   198

function "defs_by_labels" {

   199

    param "labels","''";

   200

    param "mandatory","'yes'";

   201

    param "subelements","/..";

   202

    param "hmi_element";

   203

    const "widget_type","@type";

   204

    foreach "str:split($labels)" {

   205

        const "name",".";

   206

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

   207

        choose {

   208

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

   209

                if "$mandatory='yes'" {

   210

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

   211

                }

   212

                // otherwise produce nothing

   213

            }

   214

            otherwise {

   215

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

   216

                if "$subelements" {

   217

                |     «$name»_sub: {

   218

                    foreach "str:split($subelements)" {

   219

                        const "subname",".";

   220

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

   221

                        choose {

   222

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

   223

                                if "$mandatory='yes'" {

   224

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

   225

                                }

   226

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

   227

                            }

   228

                            otherwise {

   229

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

   230

                            }

   231

                        }

   232

                    }

   233

                |     },

   234

                }

   235

            }

   236

        }

   237

    }

   238

}

   239

   240

def "func:escape_quotes" {

   241

    param "txt";

   242

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

   243

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

   244

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

   245

    choose {

   246

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

   247

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

   248

        }

   249

        otherwise {

   250

            result "$txt";

   251

        }

   252

    }

   253

}

   254