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

    19

istylesheet

    20

            /* From Inkscape */

    21

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

    22

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

    23

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

    24

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

    25

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

    26

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

    27

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

    28

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

    29

    30

            /* Our namespace to invoke python code */

    31

            xmlns:ns="beremiz"

    32

            extension-element-prefixes="ns func"

    33

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

    34

    35

    /* This retrieves geometry obtained through "inkscape -S"

    36

     * already parsed by python and presented as a list of

    37

     * <bbox x="0" y="0" w="42" h="42">

    38

     */

    39

    const "geometry", "ns:GetSVGGeometry()";

    40

    const "hmitree", "ns:GetHMITree()";

    41

    42

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

    43

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

    44

    const "hmi_geometry", "$geometry[@Id = $hmi_elements/@id]";

    45

    46

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

    47

    48

    const "default_page" choose {

    49

        when "count($hmi_pages) > 1" {

    50

            const "Home_page", 

    51

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

    52

            choose {

    53

                when "$Home_page" > Home

    54

                otherwise {

    55

                    error "No Home page defined!";

    56

                }

    57

            }

    58

        }

    59

        when "count($hmi_pages) = 0" {

    60

            error "No page defined!";

    61

        }

    62

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

    63

    }

    64

    65

    const "_categories" {

    66

        noindex > HMI_ROOT

    67

        noindex > HMI_NODE

    68

        noindex > HMI_PLC_STATUS

    69

        noindex > HMI_CURRENT_PAGE

    70

    }

    71

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

    72

    const "_indexed_hmitree" apply "$hmitree", mode="index";

    73

    const "indexed_hmitree", "exsl:node-set($_indexed_hmitree)";

    74

    79

    template "*", mode="index" {

    80

        param "index", "0";

    81

        param "parentpath", "''";

    82

        const "content" {

    83

            const "path"

    84

                choose {

    85

                    when "local-name() = 'HMI_ROOT'" > «$parentpath»

    86

                    otherwise > «$parentpath»/«@name»

    87

                }

    88

            choose {

    89

                when "not(local-name() = $categories/noindex)" {

    90

                    xsl:copy {

    91

                        attrib "index" > «$index»

    92

                        attrib "hmipath" > «$path»

    93

                        foreach "@*" xsl:copy;

    94

                    }

    95

                    /* no node expected below value nodes */

    96

                }

    97

                otherwise {

    98

                    apply "*[1]", mode="index"{

    99

                        with "index", "$index";

   100

                        with "parentpath" > «$path»

   101

                    }

   102

                }

   103

            }

   104

        }

   105

   106

        copy "$content";

   107

        apply "following-sibling::*[1]", mode="index" {

   108

            with "index", "$index + count(exsl:node-set($content)/*)";

   109

            with "parentpath" > «$parentpath»

   110

        }

   111

    }

   112

   113

    /* Identity template :

   114

     *  - copy every attributes 

   115

     *  - copy every sub-elements

   116

     */

   117

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

   118

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

   119

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

   121

    }

   122

   123

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

   124

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

   125

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

   126

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

   127

        attrib "preserveAspectRatio" > none

   128

        attrib "height" > 100vh

   129

        attrib "width" > 100vw

   130

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

   131

    }

   132

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

   133

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

   134

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

   135

    }

   136

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

   137

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

   138

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

   139

    }

   140

   170

   171

    // template "svg:use/@style", mode="inline_svg"{

   172

    //     attrib "style" > all:initial;

   173

    //     //«.»

   174

    // }

   175

   176

    // template "svg:*[concat('#',@id) = //svg:use/@xlink:href]/@style", mode="inline_svg"{

   177

    //     attrib "style" > all:unset;

   178

    //     //«.»

   179

    // }

   180

   181

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

   182

   183

    /* copy root node and add geometry as comment for a test */

   184

    template "/" { 

   185

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

   186

        /* DEBUG DATA */

   187

        comment {

   188

            apply "$hmi_geometry", mode="testgeo";

   189

        }

   190

        comment {

   191

            apply "$hmitree", mode="testtree";

   192

        }

   193

        comment {

   194

            apply "$indexed_hmitree", mode="testtree";

   195

        }

   196

        /**/

   197

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

   198

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

   199

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

   200

            head;

   201

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

   202

                apply "svg:svg", mode="inline_svg";

   203

                script{

   204

                    call "scripts";

   205

                }

   206

            }

   207

        }

   208

    }

   209

   210

    /*

   211

        Parses:

   212

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

   213

   214

        Into:

   215

        widget type="WidgetType" {

   216

            arg value="param1";

   217

            arg value="param2";

   218

            path value="path1";

   219

            path value="path2";

   220

        }

   221

    */

   222

   224

        param "label";

   225

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

   226

   227

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

   228

        const "args" choose {

   229

            when "$_args" value "$_args";

   230

            otherwise value "$description";

   231

        }

   232

   233

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

   234

        const "type" choose {

   235

            when "$_type" value "$_type";

   236

            otherwise value "$args";

   237

        }

   238

   239

        const "ast" if "$type" widget {

   240

            attrib "type" > «$type»

   241

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

   242

                arg {

   243

                    attrib "value" > «.»

   244

                }

   245

            }

   246

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

   247

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

   248

                path {

   249

                    attrib "value" > «.»

   250

                }

   251

            }

   252

        }

   253

   255

    }

   256

   257

    // returns all directly or indirectly refered elements

   259

        param "elems";

   260

        const "descend", "$elems/descendant-or-self::svg:*";

   261

        const "clones", "$descend[self::svg:use]";

   262

        const "originals", "//svg:*[concat('#',@id) = $clones/@xlink:href]";

   263

        choose {

   264

            when "$originals" 

   266

            otherwise

   297

    }

   298

   299

    function "scripts"

   300

    {

   301

        | //(function(){

   302

        |

   303

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

   304

   305

        /* TODO re-enable

   306

        ||

   307

        function evaluate_js_from_descriptions() {

   308

            var Page;

   309

            var Input;

   310

            var Display;

   311

            var res = [];

   312

        ||

   313

        const "midmark" > \n«$mark»

   314

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

   315

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

   316

              mode="code_from_descs";

   317

        ||

   318

            return res;

   319

        }

   320

        ||

   321

        */

   322

   323

        | var hmi_widgets = {

   324

        foreach "$hmi_elements" {

   325

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

   326

            | "«@id»": {

   327

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

   328

            |     args: [

   329

            foreach "$widget/arg"

   330

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

   331

            |     ],

   332

            |     indexes: [

   333

            foreach "$widget/path" {

   334

                const "hmipath","@value";

   335

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

   336

                choose {

   337

                    when "count($hmitree_match) = 0" {

   338

                        warning > No match for path "«$hmipath»" in HMI tree

   339

                    }

   340

                    otherwise {

   341

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

   342

                    }

   343

                }

   344

            }

   345

            |     ],

   346

            |     element: document.getElementById("«@id»"),

   347

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

   348

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

   349

        }

   350

        | }

   351

        |

   352

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

   353

        |

   354

        | var hmitree_types = [

   355

   356

        foreach "$indexed_hmitree/*" {

   357

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

   358

        }

   359

   360

        | ]

   361

        |

   363

        | var page_desc = {

   364

   365

        foreach "$hmi_pages" {

   366

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

   376

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

   377

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

   378

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

   379

            |         widgets: [

   380

            foreach "$all_page_ids" {

   381

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

   382

            }

   383

            |         ]

   389

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

   390

        }

   391

        | }

   392

   393

        |

   394

        | var default_page = "«$default_page»";

   395

        | var svg_root = document.getElementById("«$svg_root_id»");

   396

        include text svghmi.js

   397

        | //})();

   398

    }

   399

   400

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

   401

    //     ||

   402

    //     {

   403

    //         var path, role, name, priv;

   404

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

   405

    //     ||

   406

   407

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

   408

    //     if "@inkscape:label"

   409

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

   410

   411

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

   412

   413

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

   414

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

   415

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

   416

   417

    //     ||

   418

   419

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

   420

    //         res.push({

   421

    //             path:path,

   422

    //             role:role,

   423

    //             name:name,

   424

    //             priv:priv

   425

    //         })

   426

    //     }

   427

    //     ||

   428

    // }

   429

   430

   431

    /**/

   432

    template "bbox", mode="testgeo"{

   433

        | ID: «@Id» x: «@x» y: «@y» w: «@w» h: «@h»

   434

    }

   435

   436

    template "*", mode="testtree"{

   437

        param "indent", "''";

   438

        > «$indent» «local-name()» 

   439

        foreach "@*" > «local-name()»=«.» 

   440

        > \n

   441

        apply "*", mode="testtree" {

   442

            with "indent" value "concat($indent,'>')"

   443

        };

   444

    }

   445

    /**/

   446

   447

    function "defs_by_labels" {

   448

        param "labels","''";

   449

        param "mandatory","'yes'";

   450

        param "hmi_element";

   451

        const "widget_type","@type";

   452

        foreach "str:split($labels)" {

   453

            const "name",".";

   454

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

   455

            choose {

   456

                when "not($elt_id)" {

   457

                    if "$mandatory='yes'" {

   458

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

   459

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

   460

                    }

   461

                    // otherwise produce nothing 

   462

                }

   463

                otherwise {

   464

                    | «$name»_elt: document.getElementById("«$elt_id»"),

   465

                }

   466

            }

   467

        }

   468

    }

   469

   470

   471

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

   472

        param "hmi_element";

   473

        | frequency: 5,

   474

        | dispatch: function(value) {

   475

        choose {

   476

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

   477

            // TODO : care about <tspan> ?

   478

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

   479

            }

   480

            otherwise {

   481

                warning > Display widget as a group not implemented

   482

            }

   483

        }

   484

        | },

   485

   486

    }

   487

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

   488

        param "hmi_element";

   489

        | frequency: 10,