1

include yslt_noindent.yml2

     2

     3

// overrides yslt's output function to set CDATA

     4

decl output(method, cdata-section-elements="xhtml:script");

     5

     6

in xsl decl labels(*ptr, name="defs_by_labels") alias call-template {

     7

    with "hmi_element", "$hmi_element";

     8

    with "labels"{text *ptr};

     9

};

    10

    11

in xsl decl optional_labels(*ptr, name="defs_by_labels") alias call-template {

    12

    with "hmi_element", "$hmi_element";

    13

    with "labels"{text *ptr};

    14

    with "mandatory","'no'";

    15

};

    16

    17

in xsl decl svgtmpl(match, xmlns="http://www.w3.org/2000/svg") alias template;

    18

in xsl decl svgfunc(name, xmlns="http://www.w3.org/2000/svg") alias template;

    19

    20

!debug_output_calls = []

    21

    22

istylesheet

    23

            /* From Inkscape */

    24

            xmlns:dc="http://purl.org/dc/elements/1.1/"

    25

            xmlns:cc="http://creativecommons.org/ns#"

    26

            xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"

    27

            xmlns:svg="http://www.w3.org/2000/svg"

    28

            xmlns:xlink="http://www.w3.org/1999/xlink"

    29

            xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"

    30

            xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"

    31

            xmlns:xhtml="http://www.w3.org/1999/xhtml"

    32

    33

            /* Our namespace to invoke python code */

    34

            xmlns:ns="beremiz"

    35

            extension-element-prefixes="ns func exsl regexp str dyn"

    36

            exclude-result-prefixes="ns str regexp exsl func dyn" {

    37

    38

    39

    const "svg_root_id", "/svg:svg/@id";

    40

    const "hmi_elements", "//svg:*[starts-with(@inkscape:label, 'HMI:')]";

    41

    42

    const "hmi_pages", "$hmi_elements[func:parselabel(@inkscape:label)/widget/@type = 'Page']";

    43

    44

    const "default_page" choose {

    45

        when "count($hmi_pages) > 1" {

    46

            const "Home_page", 

    47

                "$hmi_pages[func:parselabel(@inkscape:label)/widget/arg[1]/@value = 'Home']";

    48

            choose {

    49

                when "$Home_page" > Home

    50

                otherwise {

    51

                    error "No Home page defined!";

    52

                }

    53

            }

    54

        }

    55

        when "count($hmi_pages) = 0" {

    56

            error "No page defined!";

    57

        }

    58

        otherwise > «func:parselabel($hmi_pages/@inkscape:label)/widget/arg[1]/@value»

    59

    }

    60

    61

    const "_categories" {

    62

        noindex > HMI_ROOT

    63

        noindex > HMI_PLC_STATUS

    64

        noindex > HMI_CURRENT_PAGE

    65

    }

    66

    const "categories", "exsl:node-set($_categories)";

    67

    68

    include geometry.ysl2

    69

    70

    include detachable_elements.ysl2

    71

    72

    include hmi_tree.ysl2

    73

    74

    75

    def "func:is_descendant_path" {

    76

        param "descend";

    77

        param "ancest";

    78

        result "string-length($ancest) > 0 and starts-with($descend,$ancest)";

    79

    }

    80

    81

    //////////////// Inline SVG

    82

    83

    // Identity template :

    84

    //  - copy every attributes 

    85

    //  - copy every sub-elements

    86

    template "@* | node()", mode="inline_svg" {

    87

      // use real xsl:copy instead copy-of alias from yslt.yml2

    88

      if "not(@id = $discardable_elements/@id)"

    89

          xsl:copy apply "@* | node()", mode="inline_svg";

    90

    }

    91

    92

    // replaces inkscape's height and width hints. forces fit

    93

    template "svg:svg/@width", mode="inline_svg";

    94

    template "svg:svg/@height", mode="inline_svg";

    95

    svgtmpl "svg:svg", mode="inline_svg" svg {

    96

        attrib "preserveAspectRatio" > none

    97

        attrib "height" > 100vh

    98

        attrib "width" > 100vw

    99

        apply "@* | node()", mode="inline_svg";

   100

    }

   101

    // ensure that coordinate in CSV file generated by inkscape are in default reference frame

   102

    template "svg:svg[@viewBox!=concat('0 0 ', @width, ' ', @height)]", mode="inline_svg" {

   103

        error > ViewBox settings other than X=0, Y=0 and Scale=1 are not supported

   104

    }

   105

    // ensure that coordinate in CSV file generated by inkscape match svg default unit

   106

    template "sodipodi:namedview[@units!='px' or @inkscape:document-units!='px']", mode="inline_svg" {

   107

        error > All units must be set to "px" in Inkscape's document properties

   108

    }

   109

   110

   111

    //////////////// Clone Unlinking

   112

   113

    // svg:use (inkscape's clones) inside a widgets are

   114

    // replaced by real elements they refer in order to :

   115

    //  - allow finding "needle" element in "meter" widget,

   116

    //    even if "needle" is in a group refered by a svg use.

   117

    //  - if "needle" is visible through a svg:use for

   118

    //    each instance of the widget, then needle would show

   119

    //    the same position in all instances

   120

    //

   121

    // For now, clone unlinkink applies to descendants of all widget except HMI:Page

   122

    // TODO: narrow application of clone unlinking to active elements,

   123

    //       while keeping static decoration cloned

   124

    const "to_unlink", "$hmi_elements[not(@id = $hmi_pages)]//svg:use";

   125

    svgtmpl "svg:use", mode="inline_svg"

   126

    {

   127

        choose {

   128

            when "@id = $to_unlink/@id"

   129

                call "unlink_clone";

   130

            otherwise

   131

                xsl:copy apply "@* | node()", mode="inline_svg";

   132

        }

   133

    }

   134

   135

    // to unlink a clone, an group containing a copy of target element is created

   136

    // that way, style and transforms can be preserved

   137

    const "_excluded_use_attrs" {

   138

        name > href

   139

        name > width

   140

        name > height

   141

        name > x

   142

        name > y

   143

    }

   144

    const "excluded_use_attrs","exsl:node-set($_excluded_use_attrs)";

   145

   146

    svgfunc "unlink_clone"{

   147

        g{

   148

            // include non excluded attributes

   149

            foreach "@*[not(local-name() = $excluded_use_attrs/name)]"

   150

                attrib "{name()}" > «.»

   151

   152

            const "targetid","substring-after(@xlink:href,'#')";

   153

            apply "//svg:*[@id = $targetid]", mode="unlink_clone"{

   154

                with "seed","@id";

   155

            }

   156

        }

   157

    }

   158

   159

    // clone unlinking is really similar to deep-copy

   160

    // all nodes are sytematically copied

   161

    svgtmpl "@id", mode="unlink_clone" {

   162

        param "seed";

   163

        attrib "id" > «$seed»_«.»

   164

    }

   165

   166

    svgtmpl "@*", mode="unlink_clone" xsl:copy;

   167

   168

    // copying widgets would have unwanted effect

   169

    // instead widget is refered through a svg:use.

   170

    svgtmpl "svg:*", mode="unlink_clone" {

   171

        param "seed";

   172

        choose {

   173

            // node recursive copy ends when finding a widget

   174

            when "@id = $hmi_elements/@id" {

   175

                // place a clone instead of copying

   176

                use{

   177

                    attrib "xlink:href" > «concat('#',@id)»

   178

                }

   179

            }

   180

            otherwise {

   181

                xsl:copy apply "@* | node()", mode="unlink_clone" {

   182

                    with "seed","$seed";

   183

                }

   184

            }

   185

        }

   186

    }

   187

   188

    /*const "mark" > =HMI=\n*/

   189

   190

    const "result_svg" apply "/", mode="inline_svg";

   191

    const "result_svg_ns", "exsl:node-set($result_svg)";

   192

   193

    template "/" {

   194

        comment > Made with SVGHMI. https://beremiz.org

   195

   196

        // use python to call all debug output from included definitions

   197

        // '&bug' is a workaround for pyPEG that choke on yml2 python results not parsing to a single call

   198

        !"&bug {"+"\n".join(["comment {\n| \n| %s:\n call \"%s\";\n| \n}"%(n,n) for n in debug_output_calls]) +"}"!

   199

   200

        comment {

   201

            | Unlinked :

   202

            foreach "$to_unlink"{

   203

                | «@id»

   204

            }

   205

        }

   206

        /**/

   207

        html xmlns="http://www.w3.org/1999/xhtml"

   208

             xmlns:svg="http://www.w3.org/2000/svg"

   209

             xmlns:xlink="http://www.w3.org/1999/xlink" {

   210

            head;

   211

            body style="margin:0;overflow:hidden;" {

   212

                copy "$result_svg";

   213

                script{

   214

                    call "scripts";

   215

                }

   216

            }

   217

        }

   218

    }

   219

   220

    /*

   221

        Parses:

   222

        "HMI:WidgetType:param1:param2@path1@path2"

   223

   224

        Into:

   225

        widget type="WidgetType" {

   226

            arg value="param1";

   227

            arg value="param2";

   228

            path value="path1";

   229

            path value="path2";

   230

        }

   231

    */

   232

   233

    def "func:parselabel" {

   234

        param "label";

   235

        const "description", "substring-after($label,'HMI:')";

   236

   237

        const "_args", "substring-before($description,'@')";

   238

        const "args" choose {

   239

            when "$_args" value "$_args";

   240

            otherwise value "$description";

   241

        }

   242

   243

        const "_type", "substring-before($args,':')";

   244

        const "type" choose {

   245

            when "$_type" value "$_type";

   246

            otherwise value "$args";

   247

        }

   248

   249

        const "ast" if "$type" widget {

   250

            attrib "type" > «$type»

   251

            foreach "str:split(substring-after($args, ':'), ':')" {

   252

                arg {

   253

                    attrib "value" > «.»

   254

                }

   255

            }

   256

            const "paths", "substring-after($description,'@')";

   257

            foreach "str:split($paths, '@')" {

   258

                if "string-length(.) > 0" path {

   259

                    attrib "value" > «.»

   260

                    const "path", ".";

   261

                    const "item", "$indexed_hmitree/*[@hmipath = $path]";

   262

                    if "count($item) = 1"

   263

                        attrib "index" > «$item/@index»

   264

                }

   265

            }

   266

        }

   267

   268

        result "exsl:node-set($ast)";

   269

    }

   270

   271

    function "scripts"

   272

    {

   273

        | //(function(){

   274

        |

   275

        | id = idstr => document.getElementById(idstr);

   276

        |

   277

        | var hmi_hash = [«$hmitree/@hash»]; 

   278

   279

        /* TODO re-enable

   280

        ||

   281

        function evaluate_js_from_descriptions() {

   282

            var Page;

   283

            var Input;

   284

            var Display;

   285

            var res = [];

   286

        ||

   287

        const "midmark" > \n«$mark»

   288

        apply """//*[contains(child::svg:desc, $midmark) or \

   289

                     starts-with(child::svg:desc, $mark)]""",2 

   290

              mode="code_from_descs";

   291

        ||

   292

            return res;

   293

        }

   294

        ||

   295

        */

   296

   297

        | var hmi_widgets = {

   298

        foreach "$hmi_elements" {

   299

            const "widget", "func:parselabel(@inkscape:label)/widget";

   300

            const "eltid","@id";

   301

        |   "«@id»": {

   302

        |     type: "«$widget/@type»",

   303

        |     args: [

   304

            foreach "$widget/arg"

   305

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

   306

        |     ],

   307

        |     indexes: [

   308

            foreach "$widget/path" {

   309

                choose {

   310

                    when "not(@index)" {

   311

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

   312

                    }

   313

                    otherwise {

   314

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

   315

                    }

   316

                }

   317

            }

   318

        |     ],

   319

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

   320

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

   321

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

   322

        }

   323

        | }

   324

        |

   325

        | var heartbeat_index = «$indexed_hmitree/*[@hmipath = '/HEARTBEAT']/@index»;

   326

        |

   327

        | var hmitree_types = [

   328

   329

        foreach "$indexed_hmitree/*" {

   330

        |     /* «@index»  «@hmipath» */ "«substring(local-name(), 5)»"`if "position()!=last()" > ,`

   331

        }

   332

   333

        | ]

   334

        |

   335

   336

        | var detachable_elements = {

   337

        foreach "$detachable_elements"{

   338

        |     "«@id»":[id("«@id»"), id("«../@id»")]`if "position()!=last()" > ,`

   339

        }

   340

        | }

   341

   342

        |

   343

        | var page_desc = {

   344

   345

        foreach "$hmi_pages" {

   346

            const "desc", "func:parselabel(@inkscape:label)/widget";

   347

            const "page", ".";

   348

            const "p", "$geometry[@Id = $page/@id]";

   349

   350

            const "page_all_elements", "func:all_related_elements($page)";

   351

   352

            const "all_page_widgets","$hmi_elements[@id = $page_all_elements/@id and @id != $page/@id]";

   353

   354

            const "page_relative_widgets",

   355

                "$all_page_widgets[func:is_descendant_path(func:parselabel(@inkscape:label)/widget/path/@value, $desc/path/@value)]";

   356

   357

            // Take closest ancestor in detachable_elements

   358

            // since nested detachable elements are filtered out

   359

            const "required_detachables", 

   360

                """func:sumarized_elements($page_all_elements)/

   361

                   ancestor-or-self::*[@id = $detachable_elements/@id]""";

   362

   363

            |   "«$desc/arg[1]/@value»": {

   364

            |     widget: hmi_widgets["«@id»"],

   365

            |     bbox: [«$p/@x», «$p/@y», «$p/@w», «$p/@h»],

   366

            if "$desc/path/@value" {

   367

                if "count($desc/path/@index)=0"

   368

                    warning > Page id="«$page/@id»" : No match for path "«$desc/path/@value»" in HMI tree

   369

            |     page_index: «$desc/path/@index»,

   370

            }

   371

            |     relative_widgets: [

   372

            foreach "$page_relative_widgets" {

   373

            |         hmi_widgets["«@id»"]`if "position()!=last()" > ,`

   374

            }

   375

            |     ],

   376

            |     absolute_widgets: [

   377

            foreach "$all_page_widgets[not(@id = $page_relative_widgets/@id)]" {

   378

            |         hmi_widgets["«@id»"]`if "position()!=last()" > ,`

   379

            }

   380

            |     ],

   381

            |     required_detachables: {

   382

            foreach "$required_detachables" {

   383

            |         "«@id»": detachable_elements["«@id»"]`if "position()!=last()" > ,`

   384

            }

   385

            |     }

   386

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

   387

        }

   388

        | }

   389

   390

        |

   391

        | var default_page = "«$default_page»";

   392

        | var svg_root = id("«$svg_root_id»");

   393

        include text svghmi.js

   394

        | //})();

   395

    }

   396

   397

    // template "*", mode="code_from_descs" {

   398

    //     ||

   399

    //     {

   400

    //         var path, role, name, priv;

   401

    //         var id = "«@id»";

   402

    //     ||

   403

   404

    //     /* if label is used, use it as default name */

   405

    //     if "@inkscape:label"

   406

    //         |> name = "«@inkscape:label»";

   407

   408

    //     | /* -------------- */

   409

   410

    //     // this breaks indent, but fixing indent could break string literals

   411

    //     value "substring-after(svg:desc, $mark)";

   412

    //     // nobody reads generated code anyhow...

   413

   414

    //     ||

   415

   416

    //         /* -------------- */

   417

    //         res.push({

   418

    //             path:path,

   419

    //             role:role,

   420

    //             name:name,

   421

    //             priv:priv

   422

    //         })

   423

    //     }

   424

    //     ||

   425

    // }

   426

   427

   428

   429

    function "defs_by_labels" {

   430

        param "labels","''";

   431

        param "mandatory","'yes'";

   432

        param "hmi_element";

   433

        const "widget_type","@type";

   434

        foreach "str:split($labels)" {

   435

            const "name",".";

   436

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

   437

            choose {

   438

                when "not($elt_id)" {

   439

                    if "$mandatory='yes'" {

   440

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

   441

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

   442

                    }

   443

                    // otherwise produce nothing

   444

                }

   445

                otherwise {

   446

                    |     «$name»_elt: id("«$elt_id»"),

   447

                }

   448

            }

   449

        }

   450

    }

   451

   452

   453

    template "widget[@type='Display']", mode="widget_defs" {

   454

        param "hmi_element";

   455

        |     frequency: 5,

   456

        |     dispatch: function(value) {

   457

        choose {

   458

            when "$hmi_element[self::svg:text]"{

   459

            // TODO : care about <tspan> ?

   460

        |       this.element.textContent = String(value);

   461

            }

   462

            otherwise {

   463

                warning > Display widget as a group not implemented

   464

            }

   465

        }

   466

        |     },

   467

   468

    }

   469

    template "widget[@type='Meter']", mode="widget_defs" {

   470

        param "hmi_element";

   471

        |     frequency: 10,

   472

        labels("needle range");

   473

        optional_labels("value min max");

   474

        |     dispatch: function(value) {

   475

        |         if(this.value_elt)

   476

        |             this.value_elt.textContent = String(value);

   477

        |         let [min,max,totallength] = this.range;

   478

        |         let length = Math.max(0,Math.min(totallength,(Number(value)-min)*totallength/(max-min)));

   479

        |         let tip = this.range_elt.getPointAtLength(length);

   480

        |         this.needle_elt.setAttribute('d', "M "+this.origin.x+","+this.origin.y+" "+tip.x+","+tip.y);

   481

        |     },

   482

        |     origin: undefined,

   483

        |     range: undefined,

   484

        |     init: function() {

   485

        |         let min = this.min_elt ?

   486

        |                     Number(this.min_elt.textContent) :

   487

        |                     this.args.length >= 1 ? this.args[0] : 0;