1

<?xml version="1.0"?>

     2

<xsl:stylesheet xmlns:func="http://exslt.org/functions" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:svg="http://www.w3.org/2000/svg" xmlns:str="http://exslt.org/strings" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:exsl="http://exslt.org/common" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:ns="beremiz" xmlns:cc="http://creativecommons.org/ns#" xmlns:regexp="http://exslt.org/regular-expressions" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:dc="http://purl.org/dc/elements/1.1/" extension-element-prefixes="ns func" version="1.0" exclude-result-prefixes="ns str regexp exsl func">

     3

  <xsl:output method="xml" cdata-section-elements="xhtml:script"/>

     4

  <xsl:variable name="geometry" select="ns:GetSVGGeometry()"/>

     5

  <xsl:variable name="hmitree" select="ns:GetHMITree()"/>

     6

  <xsl:variable name="svg_root_id" select="/svg:svg/@id"/>

     7

  <xsl:variable name="hmi_elements" select="//svg:*[starts-with(@inkscape:label, 'HMI:')]"/>

     8

  <xsl:variable name="hmi_geometry" select="$geometry[@Id = $hmi_elements/@id]"/>

     9

  <xsl:variable name="hmi_pages" select="$hmi_elements[func:parselabel(@inkscape:label)/widget/@type = 'Page']"/>

    10

  <xsl:variable name="default_page">

    11

    <xsl:choose>

    12

      <xsl:when test="count($hmi_pages) &gt; 1">

    13

        <xsl:variable name="Home_page" select="$hmi_pages[func:parselabel(@inkscape:label)/widget/arg[1]/@value = 'Home']"/>

    14

        <xsl:choose>

    15

          <xsl:when test="$Home_page">

    16

            <xsl:text>Home</xsl:text>

    17

          </xsl:when>

    18

          <xsl:otherwise>

    19

            <xsl:message terminate="yes">No Home page defined!</xsl:message>

    20

          </xsl:otherwise>

    21

        </xsl:choose>

    22

      </xsl:when>

    23

      <xsl:when test="count($hmi_pages) = 0">

    24

        <xsl:message terminate="yes">No page defined!</xsl:message>

    25

      </xsl:when>

    26

      <xsl:otherwise>

    27

        <xsl:value-of select="func:parselabel($hmi_pages/@inkscape:label)/widget/arg[1]/@value"/>

    28

      </xsl:otherwise>

    29

    </xsl:choose>

    30

  </xsl:variable>

    31

  <xsl:variable name="_categories">

    32

    <noindex>

    33

      <xsl:text>HMI_ROOT</xsl:text>

    34

    </noindex>

    35

    <noindex>

    36

      <xsl:text>HMI_NODE</xsl:text>

    37

    </noindex>

    38

    <noindex>

    39

      <xsl:text>HMI_PLC_STATUS</xsl:text>

    40

    </noindex>

    41

    <noindex>

    42

      <xsl:text>HMI_CURRENT_PAGE</xsl:text>

    43

    </noindex>

    44

  </xsl:variable>

    45

  <xsl:variable name="categories" select="exsl:node-set($_categories)"/>

    46

  <xsl:variable name="_indexed_hmitree">

    47

    <xsl:apply-templates mode="index" select="$hmitree"/>

    48

  </xsl:variable>

    49

  <xsl:variable name="indexed_hmitree" select="exsl:node-set($_indexed_hmitree)"/>

    50

  <xsl:template mode="index" match="*">

    51

    <xsl:param name="index" select="0"/>

    52

    <xsl:param name="parentpath" select="''"/>

    53

    <xsl:variable name="content">

    54

      <xsl:variable name="path">

    55

        <xsl:choose>

    56

          <xsl:when test="local-name() = 'HMI_ROOT'">

    57

            <xsl:value-of select="$parentpath"/>

    58

          </xsl:when>

    59

          <xsl:otherwise>

    60

            <xsl:value-of select="$parentpath"/>

    61

            <xsl:text>/</xsl:text>

    62

            <xsl:value-of select="@name"/>

    63

          </xsl:otherwise>

    64

        </xsl:choose>

    65

      </xsl:variable>

    66

      <xsl:choose>

    67

        <xsl:when test="not(local-name() = $categories/noindex)">

    68

          <xsl:copy>

    69

            <xsl:attribute name="index">

    70

              <xsl:value-of select="$index"/>

    71

            </xsl:attribute>

    72

            <xsl:attribute name="hmipath">

    73

              <xsl:value-of select="$path"/>

    74

            </xsl:attribute>

    75

            <xsl:for-each select="@*">

    76

              <xsl:copy/>

    77

            </xsl:for-each>

    78

          </xsl:copy>

    79

        </xsl:when>

    80

        <xsl:otherwise>

    81

          <xsl:apply-templates mode="index" select="*[1]">

    82

            <xsl:with-param name="index" select="$index"/>

    83

            <xsl:with-param name="parentpath">

    84

              <xsl:value-of select="$path"/>

    85

            </xsl:with-param>

    86

          </xsl:apply-templates>

    87

        </xsl:otherwise>

    88

      </xsl:choose>

    89

    </xsl:variable>

    90

    <xsl:copy-of select="$content"/>

    91

    <xsl:apply-templates mode="index" select="following-sibling::*[1]">

    92

      <xsl:with-param name="index" select="$index + count(exsl:node-set($content)/*)"/>

    93

      <xsl:with-param name="parentpath">

    94

        <xsl:value-of select="$parentpath"/>

    95

      </xsl:with-param>

    96

    </xsl:apply-templates>

    97

  </xsl:template>

    98

  <xsl:template mode="inline_svg" match="@* | node()">

    99

    <xsl:copy>

   100

      <xsl:apply-templates mode="inline_svg" select="@* | node()"/>

   101

    </xsl:copy>

   102

  </xsl:template>

   103

  <xsl:template mode="inline_svg" match="svg:svg/@width"/>

   104

  <xsl:template mode="inline_svg" match="svg:svg/@height"/>

   105

  <xsl:template xmlns="http://www.w3.org/2000/svg" mode="inline_svg" match="svg:svg">

   106

    <svg>

   107

      <xsl:attribute name="preserveAspectRatio">

   108

        <xsl:text>none</xsl:text>

   109

      </xsl:attribute>

   110

      <xsl:attribute name="height">

   111

        <xsl:text>100vh</xsl:text>

   112

      </xsl:attribute>

   113

      <xsl:attribute name="width">

   114

        <xsl:text>100vw</xsl:text>

   115

      </xsl:attribute>

   116

      <xsl:apply-templates mode="inline_svg" select="@* | node()"/>

   117

    </svg>

   118

  </xsl:template>

   119

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

   120

    <xsl:message terminate="yes">

   121

      <xsl:text>ViewBox settings other than X=0, Y=0 and Scale=1 are not supported</xsl:text>

   122

    </xsl:message>

   123

  </xsl:template>

   124

  <xsl:template mode="inline_svg" match="sodipodi:namedview[@units!='px' or @inkscape:document-units!='px']">

   125

    <xsl:message terminate="yes">

   126

      <xsl:text>All units must be set to "px" in Inkscape's document properties</xsl:text>

   127

    </xsl:message>

   128

  </xsl:template>

   129

  <xsl:template match="/">

   130

    <xsl:comment>

   131

      <xsl:text>Made with SVGHMI. https://beremiz.org</xsl:text>

   132

    </xsl:comment>

   133

    <xsl:comment>

   134

      <xsl:apply-templates mode="testgeo" select="$hmi_geometry"/>

   135

    </xsl:comment>

   136

    <xsl:comment>

   137

      <xsl:apply-templates mode="testtree" select="$hmitree"/>

   138

    </xsl:comment>

   139

    <xsl:comment>

   140

      <xsl:apply-templates mode="testtree" select="$indexed_hmitree"/>

   141

    </xsl:comment>

   142

    <html xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns="http://www.w3.org/1999/xhtml">

   143

      <head/>

   144

      <body style="margin:0;overflow:hidden;">

   145

        <xsl:apply-templates mode="inline_svg" select="svg:svg"/>

   146

        <script>

   147

          <xsl:call-template name="scripts"/>

   148

        </script>

   149

      </body>

   150

    </html>

   151

  </xsl:template>

   152

  <func:function name="func:parselabel">

   153

    <xsl:param name="label"/>

   154

    <xsl:variable name="description" select="substring-after($label,'HMI:')"/>

   155

    <xsl:variable name="_args" select="substring-before($description,'@')"/>

   156

    <xsl:variable name="args">

   157

      <xsl:choose>

   158

        <xsl:when test="$_args">

   159

          <xsl:value-of select="$_args"/>

   160

        </xsl:when>

   161

        <xsl:otherwise>

   162

          <xsl:value-of select="$description"/>

   163

        </xsl:otherwise>

   164

      </xsl:choose>

   165

    </xsl:variable>

   166

    <xsl:variable name="_type" select="substring-before($args,':')"/>

   167

    <xsl:variable name="type">

   168

      <xsl:choose>

   169

        <xsl:when test="$_type">

   170

          <xsl:value-of select="$_type"/>

   171

        </xsl:when>

   172

        <xsl:otherwise>

   173

          <xsl:value-of select="$args"/>

   174

        </xsl:otherwise>

   175

      </xsl:choose>

   176

    </xsl:variable>

   177

    <xsl:variable name="ast">

   178

      <xsl:if test="$type">

   179

        <widget>

   180

          <xsl:attribute name="type">

   181

            <xsl:value-of select="$type"/>

   182

          </xsl:attribute>

   183

          <xsl:for-each select="str:split(substring-after($args, ':'), ':')">

   184

            <arg>

   185

              <xsl:attribute name="value">

   186

                <xsl:value-of select="."/>

   187

              </xsl:attribute>

   188

            </arg>

   189

          </xsl:for-each>

   190

          <xsl:variable name="paths" select="substring-after($description,'@')"/>

   191

          <xsl:for-each select="str:split($paths, '@')">

   192

            <path>

   193

              <xsl:attribute name="value">

   194

                <xsl:value-of select="."/>

   195

              </xsl:attribute>

   196

            </path>

   197

          </xsl:for-each>

   198

        </widget>

   199

      </xsl:if>

   200

    </xsl:variable>

   201

    <func:result select="exsl:node-set($ast)"/>

   202

  </func:function>

   203

  <func:function name="func:refered_elements">

   204

    <xsl:param name="elems"/>

   205

    <xsl:variable name="descend" select="$elems/descendant-or-self::svg:*"/>

   206

    <xsl:variable name="clones" select="$descend[self::svg:use]"/>

   207

    <xsl:variable name="originals" select="//svg:*[concat('#',@id) = $clones/@xlink:href]"/>

   208

    <xsl:choose>

   209

      <xsl:when test="$originals">

   211

      </xsl:when>

   212

      <xsl:otherwise>

   214

      </xsl:otherwise>

   215

    </xsl:choose>

   216

  </func:function>

   236

  <xsl:template name="scripts">

   237

    <xsl:text>//(function(){

   238

</xsl:text>

   239

    <xsl:text>

   240

</xsl:text>

   241

    <xsl:text>var hmi_hash = [</xsl:text>

   242

    <xsl:value-of select="$hmitree/@hash"/>

   243

    <xsl:text>]; 

   244

</xsl:text>

   245

    <xsl:text>var hmi_widgets = {

   246

</xsl:text>

   247

    <xsl:for-each select="$hmi_elements">

   248

      <xsl:variable name="widget" select="func:parselabel(@inkscape:label)/widget"/>

   249

      <xsl:text>"</xsl:text>

   250

      <xsl:value-of select="@id"/>

   251

      <xsl:text>": {

   252

</xsl:text>

   253

      <xsl:text>    type: "</xsl:text>

   254

      <xsl:value-of select="$widget/@type"/>

   255

      <xsl:text>",

   256

</xsl:text>

   257

      <xsl:text>    args: [

   258

</xsl:text>

   259

      <xsl:for-each select="$widget/arg">

   260

        <xsl:text>        "</xsl:text>

   261

        <xsl:value-of select="@value"/>

   262

        <xsl:text>"</xsl:text>

   263

        <xsl:if test="position()!=last()">

   264

          <xsl:text>,</xsl:text>

   265

        </xsl:if>

   266

        <xsl:text>

   267

</xsl:text>

   268

      </xsl:for-each>

   269

      <xsl:text>    ],

   270

</xsl:text>

   271

      <xsl:text>    indexes: [

   272

</xsl:text>

   273

      <xsl:for-each select="$widget/path">

   274

        <xsl:variable name="hmipath" select="@value"/>

   275

        <xsl:variable name="hmitree_match" select="$indexed_hmitree/*[@hmipath = $hmipath]"/>

   276

        <xsl:choose>

   277

          <xsl:when test="count($hmitree_match) = 0">

   278

            <xsl:message terminate="no">

   279

              <xsl:text>No match for path "</xsl:text>

   280

              <xsl:value-of select="$hmipath"/>

   281

              <xsl:text>" in HMI tree</xsl:text>

   282

            </xsl:message>

   283

          </xsl:when>

   284

          <xsl:otherwise>

   285

            <xsl:text>        </xsl:text>

   286

            <xsl:value-of select="$hmitree_match/@index"/>

   287

            <xsl:if test="position()!=last()">

   288

              <xsl:text>,</xsl:text>

   289

            </xsl:if>

   290

            <xsl:text>

   291

</xsl:text>

   292

          </xsl:otherwise>

   293

        </xsl:choose>

   294

      </xsl:for-each>

   295

      <xsl:text>    ],

   296

</xsl:text>

   297

      <xsl:text>    element: document.getElementById("</xsl:text>

   298

      <xsl:value-of select="@id"/>

   299

      <xsl:text>"),

   300

</xsl:text>

   301

      <xsl:apply-templates mode="widget_defs" select="$widget">

   302

        <xsl:with-param name="hmi_element" select="."/>

   303

      </xsl:apply-templates>

   304

      <xsl:text>}</xsl:text>

   305

      <xsl:if test="position()!=last()">

   306

        <xsl:text>,</xsl:text>

   307

      </xsl:if>

   308

      <xsl:text>

   309

</xsl:text>

   310

    </xsl:for-each>

   311

    <xsl:text>}

   312

</xsl:text>

   313

    <xsl:text>

   314

</xsl:text>

   315

    <xsl:text>var heartbeat_index = </xsl:text>

   316

    <xsl:value-of select="$indexed_hmitree/*[@hmipath = '/HEARTBEAT']/@index"/>

   317

    <xsl:text>;

   318

</xsl:text>

   319

    <xsl:text>

   320

</xsl:text>

   321

    <xsl:text>var hmitree_types = [

   322

</xsl:text>

   323

    <xsl:for-each select="$indexed_hmitree/*">

   324

      <xsl:text>/* </xsl:text>

   325

      <xsl:value-of select="@index"/>

   326

      <xsl:text>  </xsl:text>

   327

      <xsl:value-of select="@hmipath"/>

   328

      <xsl:text> */ "</xsl:text>

   329

      <xsl:value-of select="substring(local-name(), 5)"/>

   330

      <xsl:text>"</xsl:text>

   331

      <xsl:if test="position()!=last()">

   332

        <xsl:text>,</xsl:text>

   333

      </xsl:if>

   334

      <xsl:text>

   335

</xsl:text>

   336

    </xsl:for-each>

   337

    <xsl:text>]

   338

</xsl:text>

   339

    <xsl:text>

   340

</xsl:text>

   341

    <xsl:text>var page_desc = {

   342

</xsl:text>

   343

    <xsl:for-each select="$hmi_pages">

   344

      <xsl:variable name="desc" select="func:parselabel(@inkscape:label)/widget"/>

   345

      <xsl:variable name="page" select="."/>

   350

      <xsl:text>    "</xsl:text>

   351

      <xsl:value-of select="$desc/arg[1]/@value"/>

   352

      <xsl:text>": {

   353

</xsl:text>

   354

      <xsl:text>        widget: hmi_widgets["</xsl:text>

   355

      <xsl:value-of select="@id"/>

   356

      <xsl:text>"],

   357

</xsl:text>

   358

      <xsl:text>        bbox: [</xsl:text>

   359

      <xsl:value-of select="$p/@x"/>

   360

      <xsl:text>, </xsl:text>

   361

      <xsl:value-of select="$p/@y"/>

   362

      <xsl:text>, </xsl:text>

   363

      <xsl:value-of select="$p/@w"/>

   364

      <xsl:text>, </xsl:text>

   365

      <xsl:value-of select="$p/@h"/>

   366

      <xsl:text>],

   367

</xsl:text>

   368

      <xsl:text>        widgets: [

   369

</xsl:text>

   370

      <xsl:for-each select="$all_page_ids">

   371

        <xsl:text>            hmi_widgets["</xsl:text>

   372

        <xsl:value-of select="."/>

   373

        <xsl:text>"]</xsl:text>

   374

        <xsl:if test="position()!=last()">

   375

          <xsl:text>,</xsl:text>

   376

        </xsl:if>

   377

        <xsl:text>

   378

</xsl:text>

   379

      </xsl:for-each>

   380

      <xsl:text>        ]

   381

</xsl:text>

   392

      <xsl:text>    }</xsl:text>

   393

      <xsl:if test="position()!=last()">

   394

        <xsl:text>,</xsl:text>

   395

      </xsl:if>

   396

      <xsl:text>

   397

</xsl:text>

   398

    </xsl:for-each>

   399

    <xsl:text>}

   400

</xsl:text>

   401

    <xsl:text>

   402

</xsl:text>

   403

    <xsl:text>var default_page = "</xsl:text>

   404

    <xsl:value-of select="$default_page"/>

   405

    <xsl:text>";

   406

</xsl:text>

   407

    <xsl:text>var svg_root = document.getElementById("</xsl:text>

   408

    <xsl:value-of select="$svg_root_id"/>

   409

    <xsl:text>");

   410

</xsl:text>

   411

    <xsl:text>// svghmi.js

   412

</xsl:text>

   413

    <xsl:text>

   414

</xsl:text>

   415

    <xsl:text>var cache = hmitree_types.map(_ignored =&gt; undefined);

   416

</xsl:text>

   417

    <xsl:text>

   418

</xsl:text>

   419

    <xsl:text>function dispatch_value_to_widget(widget, index, value, oldval) {

   420

</xsl:text>

   421

    <xsl:text>    try {

   422

</xsl:text>

   423

    <xsl:text>        let idxidx = widget.indexes.indexOf(index);

   424

</xsl:text>

   425

    <xsl:text>        let d = widget.dispatch;

   426

</xsl:text>

   427

    <xsl:text>        if(typeof(d) == "function" &amp;&amp; idxidx == 0){

   428

</xsl:text>

   429

    <xsl:text>            d.call(widget, value, oldval);

   430

</xsl:text>

   431

    <xsl:text>        }else if(typeof(d) == "object" &amp;&amp; d.length &gt;= idxidx){

   432

</xsl:text>

   433

    <xsl:text>            d[idxidx].call(widget, value, oldval);

   434

</xsl:text>

   435

    <xsl:text>        }/* else dispatch_0, ..., dispatch_n ? */

   436

</xsl:text>

   437

    <xsl:text>        /*else {

   438

</xsl:text>

   439

    <xsl:text>            throw new Error("Dunno how to dispatch to widget at index = " + index);

   440

</xsl:text>

   441

    <xsl:text>        }*/

   442

</xsl:text>

   443

    <xsl:text>    } catch(err) {

   444

</xsl:text>

   445

    <xsl:text>        console.log(err);

   446

</xsl:text>

   447

    <xsl:text>    }

   448

</xsl:text>

   449

    <xsl:text>}

   450

</xsl:text>

   451

    <xsl:text>

   452

</xsl:text>

   453

    <xsl:text>function dispatch_value(index, value) {

   454

</xsl:text>

   455

    <xsl:text>    let widgets = subscribers[index];

   456

</xsl:text>

   457

    <xsl:text>

   458

</xsl:text>

   459

    <xsl:text>    let oldval = cache[index];

   460

</xsl:text>

   461

    <xsl:text>    cache[index] = value;

   462

</xsl:text>

   463

    <xsl:text>

   464

</xsl:text>

   465

    <xsl:text>    if(widgets.size &gt; 0) {

   466

</xsl:text>

   467

    <xsl:text>        for(let widget of widgets){

   468

</xsl:text>

   469

    <xsl:text>            dispatch_value_to_widget(widget, index, value, oldval);

   470

</xsl:text>

   471

    <xsl:text>        }

   472

</xsl:text>

   473

    <xsl:text>    }

   474

</xsl:text>

   475

    <xsl:text>};

   476

</xsl:text>

   477

    <xsl:text>

   478

</xsl:text>

   479

    <xsl:text>function init_widgets() {

   480

</xsl:text>

   481

    <xsl:text>    Object.keys(hmi_widgets).forEach(function(id) {

   482

</xsl:text>

   483

    <xsl:text>        let widget = hmi_widgets[id];

   484

</xsl:text>

   485

    <xsl:text>        let init = widget.init;

   486

</xsl:text>

   487

    <xsl:text>        if(typeof(init) == "function"){

   488

</xsl:text>

   489

    <xsl:text>            try {