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

    75

   168

   169

    template "*", mode="index" {

   170

        param "index", "0";

   171

        param "parentpath", "''";

   172

        const "content" {

   173

            const "path"

   174

                choose {

   175

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

   176

                    otherwise > «$parentpath»/«@name»

   177

                }

   178

            choose {

   179

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

   180

                    xsl:copy {

   181

                        attrib "index" > «$index»

   182

                        attrib "hmipath" > «$path»

   183

                        foreach "@*" xsl:copy;

   184

                    }

   185

                    /* no node expected below value nodes */

   186

                }

   187

                otherwise {

   188

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

   189

                        with "index", "$index";

   190

                        with "parentpath" > «$path»

   191

                    }

   192

                }

   193

            }

   194

        }

   195

   196

        copy "$content";

   197

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

   198

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

   199

            with "parentpath" > «$parentpath»

   200

        }

   201

    }

   202

   203

    /* Identity template :

   204

     *  - copy every attributes 

   205

     *  - copy every sub-elements

   206

     */

   207

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

   208

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

   209

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

   210

      /* TODO filter out globally discardable elements */

   211

    }

   212

   213

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

   214

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

   215

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

   216

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

   217

        attrib "preserveAspectRatio" > none

   218

        attrib "height" > 100vh

   219

        attrib "width" > 100vw

   220

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

   221

    }

   222

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

   223

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

   224

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

   225

    }

   226

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

   227

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

   228

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

   229

    }

   230

   231

   232

    //// Commented out before implementing runtime DOM remove/append on page switch - would have side effect

   233

    ////

   234

    //// /* clone unlinkink until widget for better perf with webkit */

   235

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

   236

    //// {

   237

    ////     g{

   238

    ////         attrib "style" > «@style»

   239

    ////         attrib "transform" > «@transform»

   240

    ////         /* keep same id and label in case it is a widget */

   241

    ////         //attrib "inkscape:label","@inkscape:label";

   242

    ////         attrib "id" > «@id»

   243

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

   244

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

   245

    ////     }

   246

    //// }

   247

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

   248

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

   249

    ////     choose {

   250

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

   251

    ////             use{

   252

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

   253

    ////             }

   254

    ////         }

   255

    ////         otherwise {

   256

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

   257

    ////         }

   258

    ////     }

   259

    //// }

   260

   261

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

   262

    //     attrib "style" > all:initial;

   263

    //     //«.»

   264

    // }

   265

   266

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

   267

    //     attrib "style" > all:unset;

   268

    //     //«.»

   269

    // }

   270

   271

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

   272

   273

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

   274

    template "/" { 

   275

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

   276

        /* DEBUG DATA */

   277

        comment {

   278

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

   279

        }

   280

        comment {

   281

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

   282

        }

   283

        comment {

   284

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

   285

        }

   298

        /**/

   299

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

   300

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

   301

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

   302

            head;

   303

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

   304

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

   305

                script{

   306

                    call "scripts";

   307

                }

   308

            }

   309

        }

   310

    }

   311

   312

    /*

   313

        Parses:

   314

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

   315

   316

        Into:

   317

        widget type="WidgetType" {

   318

            arg value="param1";

   319

            arg value="param2";

   320

            path value="path1";

   321

            path value="path2";

   322

        }

   323

    */

   324

   325

    def "func:parselabel" {

   326

        param "label";

   327

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

   328

   329

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

   330

        const "args" choose {

   331

            when "$_args" value "$_args";

   332

            otherwise value "$description";

   333

        }

   334

   335

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

   336

        const "type" choose {

   337

            when "$_type" value "$_type";

   338

            otherwise value "$args";

   339

        }

   340

   341

        const "ast" if "$type" widget {

   342

            attrib "type" > «$type»

   343

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

   344

                arg {

   345

                    attrib "value" > «.»

   346

                }

   347

            }

   348

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

   349

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

   350

                path {

   351

                    attrib "value" > «.»

   352

                }

   353

            }

   354

        }

   355

   356

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

   357

    }

   358

   359

    function "scripts"

   360

    {

   361

        | //(function(){

   362

        |

   363

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

   364

   365

        /* TODO re-enable

   366

        ||

   367

        function evaluate_js_from_descriptions() {

   368

            var Page;

   369

            var Input;

   370

            var Display;

   371

            var res = [];

   372

        ||

   373

        const "midmark" > \n«$mark»

   374

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

   375

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

   376

              mode="code_from_descs";

   377

        ||

   378

            return res;

   379

        }

   380

        ||

   381

        */

   382

   383

        | var hmi_widgets = {

   384

        foreach "$hmi_elements" {

   385

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

   386

            | "«@id»": {

   387

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

   388

            |     args: [

   389

            foreach "$widget/arg"

   390

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

   391

            |     ],

   392

            |     indexes: [

   393

            foreach "$widget/path" {

   394

                const "hmipath","@value";

   395

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

   396

                choose {

   397

                    when "count($hmitree_match) = 0" {

   398

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

   399

                    }

   400

                    otherwise {

   401

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

   402

                    }

   403

                }

   404

            }

   405

            |     ],

   406

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

   407

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

   408

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

   409

        }

   410

        | }

   411

        |

   412

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

   413

        |

   414

        | var hmitree_types = [

   415

   416

        foreach "$indexed_hmitree/*" {

   417

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

   418

        }

   419

   420

        | ]

   421

        |

   422

   423

        | var page_desc = {

   424

   425

        foreach "$hmi_pages" {

   426

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

   427

            const "page", ".";

   428

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

   429

   430

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

   431

   432

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

   433

   434

            const "shorter_list", "func:sumarized_elements($page_all_elements)";

   435

   436

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

   437

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

   438

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

   439

            |         widgets: [

   440

            foreach "$all_page_ids" {

   441

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

   442

            }

   444

            |         required_elements: [

   445

            foreach "$shorter_list" {

   446

            |             "«@id»",

   447

            }

   448

            |         ]

   449

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

   450

        }

   451

        | }

   452

   453

        |

   454

        | var default_page = "«$default_page»";

   455

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

   456

        include text svghmi.js

   457

        | //})();

   458

    }

   459

   460

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

   461

    //     ||

   462

    //     {

   463

    //         var path, role, name, priv;

   464

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

   465

    //     ||

   466

   467

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

   468

    //     if "@inkscape:label"

   469

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

   470

   471

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

   472

   473

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

   474

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

   475

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

   476

   477

    //     ||

   478

   479

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

   480

    //         res.push({

   481

    //             path:path,

   482

    //             role:role,

   483

    //             name:name,

   484

    //             priv:priv

   485

    //         })

   486

    //     }

   487

    //     ||

   488

    // }

   489

   490