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" > "«func:escape_quotes(@value)»"`if "position()!=last()" > ,`

    28

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

    29

        choose {

    30

            when "not(@index)" {

    31

                choose {

    32

                    when "not(@type)" {

    33

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

    34

                        > undefined`if "position()!=last()" > ,`

    35

                    }

    36

                    when "@type = 'PAGE_LOCAL'" 

    37

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

    38

                    when "@type = 'HMI_LOCAL'" 

    39

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

    40

                }

    41

            }

    42

            otherwise {

    43

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

    44

            }

    45

        }

    46

    }

    47

    59

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

    60

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

    61

}

    62

    63

def "func:unique_types" {

    64

    param "elts_with_type";

    65

    choose {

    66

        when "count($elts_with_type) > 1" {

    67

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

    68

            choose {

    69

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

    70

                    // type already in

    71

                    result "$prior_results";

    72

                }

    73

                otherwise {

    74

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

    75

                }

    76

            }

    77

        }

    78

        otherwise {

    79

            result "$elts_with_type";

    80

        }

    81

    }

    82

}

    83

    84

emit "preamble:local-variable-indexes" {

    85

    ||

    86

    let hmi_locals = {};

    87

    var last_remote_index = hmitree_types.length - 1;

    88

    var next_available_index = hmitree_types.length;

    89

    90

    const local_defaults = {

    91

    ||

    92

    foreach "$parsed_widgets/widget[@type = 'VarInit']"{

    93

        if "count(path) != 1" error > VarInit «@id» must have only one variable given.

    94

        if "path/@type != 'PAGE_LOCAL' and path/@type != 'HMI_LOCAL'" error > VarInit «@id» only applies to HMI variable.

    95

        | "«path/@value»":«arg[1]/@value»`if "position()!=last()" > ,`

    96

    }

    97

    ||

    98

    };

    99

    var cache = hmitree_types.map(_ignored => undefined);

   100

   101

    function page_local_index(varname, pagename){

   102

        let pagevars = hmi_locals[pagename];

   103

        let new_index;

   104

        if(pagevars == undefined){

   105

            new_index = next_available_index++;

   106

            hmi_locals[pagename] = {[varname]:new_index}

   107

        } else {

   108

            let result = pagevars[varname];

   109

            if(result != undefined) {

   110

                return result;

   111

            }

   112

   113

            new_index = next_available_index++;

   114

            pagevars[varname] = new_index;

   115

        }

   116

        let defaultval = local_defaults[varname];

   117

        if(defaultval != undefined) 

   118

            cache[new_index] = defaultval; 

   119

        return new_index;

   120

    }

   121

   122

    function hmi_local_index(varname){

   123

        return page_local_index(varname, "HMI_LOCAL");

   124

    }

   125

    ||

   126

}

   127

   128

emit "preamble:widget-base-class" {

   129

    ||

   130

    var pending_widget_animates = [];

   131

   132

    class Widget {

   133

        offset = 0;

   134

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

   135

        unsubscribable = false;

   136

        pending_animate = false;

   137

   139

            this.element_id = elt_id;

   140

            this.element = id(elt_id);

   141

            this.args = args;

   142

            this.indexes = indexes;

   144

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

   145

        }

   146

   147

        unsub(){

   148

            /* remove subsribers */

   149

            if(!this.unsubscribable)

   150

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

   151

                    let index = this.indexes[i];

   152

                    if(this.relativeness[i])

   153

                        index += this.offset;

   154

                    subscribers(index).delete(this);

   155

                }

   156

            this.offset = 0;

   157

            this.relativeness = undefined;

   158

        }

   159

   160

        sub(new_offset=0, relativeness, container_id){

   161

            this.offset = new_offset;

   162

            this.relativeness = relativeness;

   163

            this.container_id = container_id ;

   164

            /* add this's subsribers */

   165

            if(!this.unsubscribable)

   166

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

   167

                    let index = this.get_variable_index(i);

   168

                    if(index == undefined) continue;

   169

                    subscribers(index).add(this);

   170

                }

   171

            need_cache_apply.push(this); 

   172

        }

   173

   174

        apply_cache() {

   175

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

   176

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

   177

                let realindex = this.get_variable_index(index);

   178

                if(realindex == undefined) continue;

   179

                let cached_val = cache[realindex];

   180

                if(cached_val != undefined)

   181

                    this._dispatch(cached_val, cached_val, index);

   182

            }

   183

        }

   184

   185

        get_variable_index(varnum) {

   186

            let index = this.indexes[varnum];

   187

            if(typeof(index) == "string"){

   188

                index = page_local_index(index, this.container_id);

   189

            } else {

   190

                if(this.relativeness[varnum]){

   191

                    index += this.offset;

   192

                }

   193

            }

   194

            return index;

   195

        }

   196

   219

        change_hmi_value(index, opstr) {

   220

            let realindex = this.get_variable_index(index);

   221

            if(realindex == undefined) return undefined;

   222

            let old_val = cache[realindex];

   223

            let new_val = eval_operation_string(old_val, opstr);

   225

            return apply_hmi_value(realindex, new_val);

   226

        }

   227

   228

        apply_hmi_value(index, new_val) {

   229

            let realindex = this.get_variable_index(index);

   230

            if(realindex == undefined) return undefined;

   232

            return apply_hmi_value(realindex, new_val);

   233

        }

   234

   235

        new_hmi_value(index, value, oldval) {

   236

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

   237

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

   238

                let refindex = this.get_variable_index(i);

   239

                if(refindex == undefined) continue;

   240

   241

                if(index == refindex) {

   242

                    this._dispatch(value, oldval, i);

   243

                    break;

   244

                }

   245

            }

   246

        }

   247

   248

        _dispatch(value, oldval, varnum) {

   249

            let dispatch = this.dispatch;

   250

            if(dispatch != undefined){

   251

                try {

   252

                    dispatch.call(this, value, oldval, varnum);

   253

                } catch(err) {

   254

                    console.log(err);

   255

                }

   256

            }

   257

        }

   258

   259

        _animate(){

   260

            this.animate();

   261

            this.pending_animate = false;

   262

        }

   263

   264

        request_animate(){

   265

            if(!this.pending_animate){

   266

                pending_widget_animates.push(this);

   267

                this.pending_animate = true;

   268

                requestHMIAnimation();

   269

            }

   270

   271

        }

   272

    }

   273

    ||

   274

}

   275

   276

emit "declarations:hmi-classes" {

   277

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

   278

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

   279

}

   280

   281

template "widget", mode="widget_class"

   282

||

   283

class «@type»Widget extends Widget{

   284

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

   285

}

   286

||

   287

   288

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

   289

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

   290

   291

emit "declarations:hmi-elements" {

   292

    | var hmi_widgets = {

   293

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

   294

    | }

   295

}

   296

   297

function "defs_by_labels" {

   298

    param "labels","''";

   299

    param "mandatory","'yes'";

   300

    param "subelements","/..";

   301

    param "hmi_element";

   302

    const "widget_type","@type";

   303

    foreach "str:split($labels)" {

   304

        const "name",".";

   305

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

   306

        choose {

   307

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

   308

                if "$mandatory='yes'" {

   309

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

   310

                }

   311

                // otherwise produce nothing

   312

            }

   313

            otherwise {

   314

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

   315

                if "$subelements" {

   316

                |     «$name»_sub: {

   317

                    foreach "str:split($subelements)" {

   318

                        const "subname",".";

   319

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

   320

                        choose {

   321

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

   322

                                if "$mandatory='yes'" {

   323

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

   324

                                }

   325

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

   326

                            }

   327

                            otherwise {

   328

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

   329

                            }

   330

                        }

   331

                    }

   332

                |     },

   333

                }

   334

            }

   335

        }

   336

    }

   337

}

   338

   339

def "func:escape_quotes" {

   340

    param "txt";

   341

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

   342

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

   343

    choose {

   344

        when !"contains($txt,'\"')"! {

   345

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

   346

        }

   347

        otherwise {

   348

            result "$txt";

   349

        }

   350

    }

   351

}

   352