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)"/>

   134

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

   135

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

   136

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

   137

    <xsl:variable name="content">

   138

      <xsl:variable name="path">

   139

        <xsl:choose>

   140

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

   141

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

   142

          </xsl:when>

   143

          <xsl:otherwise>

   144

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

   145

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

   146

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

   147

          </xsl:otherwise>

   148

        </xsl:choose>

   149

      </xsl:variable>

   150

      <xsl:choose>

   151

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

   152

          <xsl:copy>

   153

            <xsl:attribute name="index">

   154

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

   155

            </xsl:attribute>

   156

            <xsl:attribute name="hmipath">

   157

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

   158

            </xsl:attribute>

   159

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

   160

              <xsl:copy/>

   161

            </xsl:for-each>

   162

          </xsl:copy>

   163

        </xsl:when>

   164

        <xsl:otherwise>

   165

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

   166

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

   167

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

   168

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

   169

            </xsl:with-param>

   170

          </xsl:apply-templates>

   171

        </xsl:otherwise>

   172

      </xsl:choose>

   173

    </xsl:variable>

   174

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

   175

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

   176

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

   177

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

   178

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

   179

      </xsl:with-param>

   180

    </xsl:apply-templates>

   181

  </xsl:template>

   182

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

   183

    <xsl:copy>

   184

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

   185

    </xsl:copy>

   186

  </xsl:template>

   187

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

   188

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

   189

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

   190

    <svg>

   191

      <xsl:attribute name="preserveAspectRatio">

   192

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

   193

      </xsl:attribute>

   194

      <xsl:attribute name="height">

   195

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

   196

      </xsl:attribute>

   197

      <xsl:attribute name="width">

   198

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

   199

      </xsl:attribute>

   200

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

   201

    </svg>

   202

  </xsl:template>

   203

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

   204

    <xsl:message terminate="yes">

   205

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

   206

    </xsl:message>

   207

  </xsl:template>

   208

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

   209

    <xsl:message terminate="yes">

   210

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

   211

    </xsl:message>

   212

  </xsl:template>

   213

  <xsl:template match="/">

   214

    <xsl:comment>

   215

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

   216

    </xsl:comment>

   217

    <xsl:comment>

   218

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

   219

    </xsl:comment>

   220

    <xsl:comment>

   221

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

   222

    </xsl:comment>

   223

    <xsl:comment>

   224

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

   225

    </xsl:comment>

   244

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

   245

      <head/>

   246

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

   247

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

   248

        <script>

   249

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

   250

        </script>

   251

      </body>

   252

    </html>

   253

  </xsl:template>

   254

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

   255

    <xsl:param name="label"/>

   256

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

   257

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

   258

    <xsl:variable name="args">

   259

      <xsl:choose>

   260

        <xsl:when test="$_args">

   261

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

   262

        </xsl:when>

   263

        <xsl:otherwise>

   264

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

   265

        </xsl:otherwise>

   266

      </xsl:choose>

   267

    </xsl:variable>

   268

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

   269

    <xsl:variable name="type">

   270

      <xsl:choose>

   271

        <xsl:when test="$_type">

   272

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

   273

        </xsl:when>

   274

        <xsl:otherwise>

   275

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

   276

        </xsl:otherwise>

   277

      </xsl:choose>

   278

    </xsl:variable>

   279

    <xsl:variable name="ast">

   280

      <xsl:if test="$type">

   281

        <widget>

   282

          <xsl:attribute name="type">

   283

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

   284

          </xsl:attribute>

   285

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

   286

            <arg>

   287

              <xsl:attribute name="value">

   288

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

   289

              </xsl:attribute>

   290

            </arg>

   291

          </xsl:for-each>

   292

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

   293

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

   294

            <path>

   295

              <xsl:attribute name="value">

   296

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

   297

              </xsl:attribute>

   298

            </path>

   299

          </xsl:for-each>

   300

        </widget>

   301

      </xsl:if>

   302

    </xsl:variable>

   303

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

   304

  </func:function>

   305

  <xsl:template name="scripts">

   306

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

   307

</xsl:text>

   308

    <xsl:text>

   309

</xsl:text>

   310

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

   311

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

   312

    <xsl:text>]; 

   313

</xsl:text>

   314

    <xsl:text>var hmi_widgets = {

   315

</xsl:text>

   316

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

   317

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

   318

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

   319

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

   320

      <xsl:text>": {

   321

</xsl:text>

   322

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

   323

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

   324

      <xsl:text>",

   325

</xsl:text>

   326

      <xsl:text>    args: [

   327

</xsl:text>

   328

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

   329

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

   330

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

   331

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

   332

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

   333

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

   334

        </xsl:if>

   335

        <xsl:text>

   336

</xsl:text>

   337

      </xsl:for-each>

   338

      <xsl:text>    ],

   339

</xsl:text>

   340

      <xsl:text>    indexes: [

   341

</xsl:text>

   342

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

   343

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

   344

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

   345

        <xsl:choose>

   346

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

   347

            <xsl:message terminate="no">

   348

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

   349

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

   350

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

   351

            </xsl:message>

   352

          </xsl:when>

   353

          <xsl:otherwise>

   354

            <xsl:text>        </xsl:text>

   355

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

   356

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

   357

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

   358

            </xsl:if>

   359

            <xsl:text>

   360

</xsl:text>

   361

          </xsl:otherwise>

   362

        </xsl:choose>

   363

      </xsl:for-each>

   364

      <xsl:text>    ],

   365

</xsl:text>

   366

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

   367

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

   368

      <xsl:text>"),

   369

</xsl:text>

   370

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

   371

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

   372

      </xsl:apply-templates>

   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>

   382

    <xsl:text>

   383

</xsl:text>

   384

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

   385

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

   386

    <xsl:text>;

   387

</xsl:text>

   388

    <xsl:text>

   389

</xsl:text>

   390

    <xsl:text>var hmitree_types = [

   391

</xsl:text>

   392

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

   393

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

   394

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

   395

      <xsl:text>  </xsl:text>

   396

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

   397

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

   398

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

   399

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

   400

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

   401

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

   402

      </xsl:if>

   403

      <xsl:text>

   404

</xsl:text>

   405

    </xsl:for-each>

   406

    <xsl:text>]

   407

</xsl:text>

   408

    <xsl:text>

   409

</xsl:text>

   410

    <xsl:text>var page_desc = {

   411

</xsl:text>

   412

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

   413

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

   414

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

   415

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

   416

      <xsl:variable name="page_all_elements" select="func:all_related_elements($page)"/>

   417

      <xsl:variable name="all_page_ids" select="$page_all_elements[@id = $hmi_elements/@id and @id != $page/@id]/@id"/>

   418

      <xsl:variable name="shorter_list" select="func:sumarized_elements($page_all_elements)"/>

   419

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

   420

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

   421

      <xsl:text>": {

   422

</xsl:text>

   423

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

   424

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

   425

      <xsl:text>"],

   426

</xsl:text>

   427

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

   428

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

   429

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

   430

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

   431

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

   432

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

   433

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

   434

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

   435

      <xsl:text>],

   436

</xsl:text>

   437

      <xsl:text>        widgets: [

   438

</xsl:text>

   439

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

   440

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

   441

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

   442

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

   443

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

   444

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

   445

        </xsl:if>

   446

        <xsl:text>

   447

</xsl:text>

   448

      </xsl:for-each>

   450

</xsl:text>

   451

      <xsl:text>        required_elements: [

   452

</xsl:text>

   453

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

   454

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

   455

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

   456

        <xsl:text>",

   457

</xsl:text>

   458

      </xsl:for-each>

   459

      <xsl:text>        ]

   460

</xsl:text>

   461

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

   462

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

   463

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

   464

      </xsl:if>

   465

      <xsl:text>

   466

</xsl:text>

   467

    </xsl:for-each>

   468

    <xsl:text>}

   469

</xsl:text>

   470

    <xsl:text>

   471

</xsl:text>

   472

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

   473

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

   474

    <xsl:text>";

   475

</xsl:text>

   476

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

   477

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

   478

    <xsl:text>");

   479

</xsl:text>

   480

    <xsl:text>// svghmi.js

   481

</xsl:text>

   482

    <xsl:text>

   483

</xsl:text>

   484

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

   485

</xsl:text>

   486

    <xsl:text>

   487

</xsl:text>

   488

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

   489

</xsl:text>

   490