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

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

    34

                    when "@type = 'PAGE_LOCAL'" 

    35

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

    36

                    when "@type = 'HMI_LOCAL'" 

    37

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

    38

                }

    39

            }

    40

            otherwise {

    41

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

    42

            }

    43

        }

    44

    }

    45

    46

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

    47

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

    48

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

    49

}

    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

    72

emit "preamble:local-variable-indexes" {

    73

    ||

    74

    let hmi_locals = {};

    75

    var last_remote_index = hmitree_types.length - 1;

    76

    var next_available_index = hmitree_types.length;

    77

    78

    const local_defaults = {

    79

    ||

    80

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

    81

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

    82

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

    83

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

    84

    }

    85

    ||

    86

    };

    87

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

    88

    89

    function page_local_index(varname, pagename){

    90

        let pagevars = hmi_locals[pagename];

    91

        let new_index;

    92

        if(pagevars == undefined){

    93

            new_index = next_available_index++;

    94

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

    95

        } else {

    96

            let result = pagevars[varname];

    97

            if(result != undefined) {

    98

                return result;

    99

            }

   100

   101

            new_index = next_available_index++;

   102

            pagevars[varname] = new_index;

   103

        }

   104

        let defaultval = local_defaults[varname];

   105

        if(defaultval != undefined) 

   106

            cache[new_index] = defaultval; 

   107

        return new_index;

   108

    }

   109

   110

    function hmi_local_index(varname){

   111

        return page_local_index(varname, "HMI_LOCAL");

   112

    }

   113

    ||

   114

}

   115

   116

emit "preamble:widget-base-class" {

   117

    ||

   118

    var pending_widget_animates = [];

   119

   120

    class Widget {

   121

        offset = 0;

   122

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

   123

        unsubscribable = false;

   124

        pending_animate = false;

   125

   126

        constructor(elt_id,args,indexes,members){

   127

            this.element_id = elt_id;

   128

            this.element = id(elt_id);

   129

            this.args = args;

   130

            this.indexes = indexes;

   131

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

   132

        }

   133

   134

        unsub(){

   135

            /* remove subsribers */

   136

            if(!this.unsubscribable)

   137

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

   138

                    let index = this.indexes[i];

   139

                    if(this.relativeness[i])

   140

                        index += this.offset;

   141

                    subscribers(index).delete(this);

   142

                }

   143

            this.offset = 0;

   144

            this.relativeness = undefined;

   145

        }

   146

   147

        sub(new_offset=0, relativeness, container_id){

   148

            this.offset = new_offset;

   149

            this.relativeness = relativeness;

   150

            this.container_id = container_id ;

   151

            /* add this's subsribers */

   152

            if(!this.unsubscribable)

   153

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

   154

                    let index = this.get_variable_index(i);

   155

                    subscribers(index).add(this);

   156

                }

   157

            need_cache_apply.push(this); 

   158

        }

   159

   160

        apply_cache() {

   161

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

   162

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

   163

                let realindex = this.get_variable_index(index);

   164

                let cached_val = cache[realindex];

   165

                if(cached_val != undefined)

   167

            }

   168

        }

   169

   170

        get_variable_index(varnum) {

   171

            let index = this.indexes[varnum];

   172

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

   173

                index = page_local_index(index, this.container_id);

   174

            } else {

   175

                if(this.relativeness[varnum]){

   176

                    index += this.offset;

   177

                }

   178

            }

   179

            return index;

   180

        }

   181

        change_hmi_value(index,opstr) {

   182

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

   183

        }

   184

   185

        apply_hmi_value(index, new_val) {

   186

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

   187

        }

   188

   189

        new_hmi_value(index, value, oldval) {

   190

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

   191

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

   192

                let refindex = this.get_variable_index(i);

   193

   194

                if(index == refindex) {

   196

                    break;

   197

                }

   198

            }

   199

        }

   200

   212

        _animate(){

   213

            this.animate();

   214

            this.pending_animate = false;

   215

        }

   216

   217

        request_animate(){

   218

            if(!this.pending_animate){

   219

                pending_widget_animates.push(this);

   220

                this.pending_animate = true;

   221

                requestHMIAnimation();

   222

            }

   223

   224

        }

   225

    }

   226

    ||

   227

}

   228

   229

emit "declarations:hmi-classes" {

   230

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

   231

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

   232

}

   233

   234

template "widget", mode="widget_class"

   235

||

   236

class «@type»Widget extends Widget{

   237

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

   238

}

   239

||

   240

   241

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

   242

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

   243

   244

emit "declarations:hmi-elements" {

   245

    | var hmi_widgets = {

   246

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

   247

    | }

   248

}

   249

   250

function "defs_by_labels" {

   251

    param "labels","''";

   252

    param "mandatory","'yes'";

   253

    param "subelements","/..";

   254

    param "hmi_element";

   255

    const "widget_type","@type";

   256

    foreach "str:split($labels)" {

   257

        const "name",".";

   258

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

   259

        choose {

   260

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

   261

                if "$mandatory='yes'" {

   262

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

   263

                }

   264

                // otherwise produce nothing

   265

            }

   266

            otherwise {

   267

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

   268

                if "$subelements" {

   269

                |     «$name»_sub: {

   270

                    foreach "str:split($subelements)" {

   271

                        const "subname",".";

   272

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

   273

                        choose {

   274

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

   275

                                if "$mandatory='yes'" {

   276

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

   277

                                }

   278

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

   279

                            }

   280

                            otherwise {

   281

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

   282

                            }

   283

                        }

   284

                    }

   285

                |     },

   286

                }

   287

            }

   288

        }

   289

    }

   290

}

   291

   292

def "func:escape_quotes" {

   293

    param "txt";

   294

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

   295

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

   296

    choose {

   297

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

   298

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

   299

        }

   300

        otherwise {

   301

            result "$txt";

   302

        }

   303

    }

   304

}

   305