1

<?xml version="1.0"?>

     2

<xsl:stylesheet xmlns:func="http://exslt.org/functions" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" 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:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" 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_LABEL</xsl:text>

    37

    </noindex>

    38

    <noindex>

    39

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

    40

    </noindex>

    41

    <noindex>

    42

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

    43

    </noindex>

    44

    <noindex>

    45

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

    46

    </noindex>

    47

  </xsl:variable>

    48

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

    49

  <xsl:variable name="_indexed_hmitree">

    50

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

    51

  </xsl:variable>

    52

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

    53

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

    54

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

    55

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

    56

    <xsl:variable name="content">

    57

      <xsl:variable name="path">

    58

        <xsl:choose>

    59

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

    60

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

    61

          </xsl:when>

    62

          <xsl:otherwise>

    63

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

    64

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

    65

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

    66

          </xsl:otherwise>

    67

        </xsl:choose>

    68

      </xsl:variable>

    69

      <xsl:choose>

    70

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

    71

          <xsl:copy>

    72

            <xsl:attribute name="index">

    73

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

    74

            </xsl:attribute>

    75

            <xsl:attribute name="hmipath">

    76

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

    77

            </xsl:attribute>

    78

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

    79

              <xsl:copy/>

    80

            </xsl:for-each>

    81

          </xsl:copy>

    82

        </xsl:when>

    83

        <xsl:otherwise>

    84

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

    85

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

    86

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

    87

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

    88

            </xsl:with-param>

    89

          </xsl:apply-templates>

    90

        </xsl:otherwise>

    91

      </xsl:choose>

    92

    </xsl:variable>

    93

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

    94

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

    95

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

    96

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

    97

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

    98

      </xsl:with-param>

    99

    </xsl:apply-templates>

   100

  </xsl:template>

   101

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

   102

    <xsl:copy>

   103

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

   104

    </xsl:copy>

   105

  </xsl:template>

   106

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

   107

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

   108

  <xsl:template mode="inline_svg" match="svg:svg">

   109

    <xsl:copy>

   110

      <xsl:attribute name="preserveAspectRatio">

   111

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

   112

      </xsl:attribute>

   113

      <xsl:attribute name="height">

   114

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

   115

      </xsl:attribute>

   116

      <xsl:attribute name="width">

   117

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

   118

      </xsl:attribute>

   119

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

   120

    </xsl:copy>

   121

  </xsl:template>

   122

  <xsl:template match="/">

   123

    <xsl:comment>

   124

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

   125

    </xsl:comment>

   126

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

   127

      <head/>

   128

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

   129

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

   130

        <script>

   131

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

   132

        </script>

   133

      </body>

   134

    </html>

   135

  </xsl:template>

   136

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

   137

    <xsl:param name="label"/>

   138

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

   139

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

   140

    <xsl:variable name="args">

   141

      <xsl:choose>

   142

        <xsl:when test="$_args">

   143

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

   144

        </xsl:when>

   145

        <xsl:otherwise>

   146

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

   147

        </xsl:otherwise>

   148

      </xsl:choose>

   149

    </xsl:variable>

   150

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

   151

    <xsl:variable name="type">

   152

      <xsl:choose>

   153

        <xsl:when test="$_type">

   154

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

   155

        </xsl:when>

   156

        <xsl:otherwise>

   157

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

   158

        </xsl:otherwise>

   159

      </xsl:choose>

   160

    </xsl:variable>

   161

    <xsl:variable name="ast">

   162

      <xsl:if test="$type">

   163

        <widget>

   164

          <xsl:attribute name="type">

   165

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

   166

          </xsl:attribute>

   167

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

   168

            <arg>

   169

              <xsl:attribute name="value">

   170

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

   171

              </xsl:attribute>

   172

            </arg>

   173

          </xsl:for-each>

   174

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

   175

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

   176

            <path>

   177

              <xsl:attribute name="value">

   178

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

   179

              </xsl:attribute>

   180

            </path>

   181

          </xsl:for-each>

   182

        </widget>

   183

      </xsl:if>

   184

    </xsl:variable>

   185

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

   186

  </func:function>

   187

  <xsl:template name="scripts">

   188

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

   189

</xsl:text>

   190

    <xsl:text>

   191

</xsl:text>

   192

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

   193

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

   194

    <xsl:text>]; 

   195

</xsl:text>

   196

    <xsl:text>var hmi_widgets = {

   197

</xsl:text>

   198

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

   199

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

   200

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

   201

      <xsl:text>: {

   202

</xsl:text>

   203

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

   204

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

   205

      <xsl:text>",

   206

</xsl:text>

   207

      <xsl:text>    args: [

   208

</xsl:text>

   209

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

   210

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

   211

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

   212

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

   213

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

   214

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

   215

        </xsl:if>

   216

        <xsl:text>

   217

</xsl:text>

   218

      </xsl:for-each>

   219

      <xsl:text>    ],

   220

</xsl:text>

   221

      <xsl:text>    indexes: [

   222

</xsl:text>

   223

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

   224

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

   225

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

   226

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

   227

          <xsl:message terminate="yes">

   228

            <xsl:text>No match for HMI </xsl:text>

   229

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

   230

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

   231

          </xsl:message>

   232

        </xsl:if>

   233

        <xsl:text>        </xsl:text>

   234

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

   235

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

   236

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

   237

        </xsl:if>

   238

        <xsl:text>

   239

</xsl:text>

   240

      </xsl:for-each>

   241

      <xsl:text>    ],

   242

</xsl:text>

   243

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

   244

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

   245

      <xsl:text>"),

   246

</xsl:text>

   247

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

   248

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

   249

      </xsl:apply-templates>

   250

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

   251

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

   252

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

   253

      </xsl:if>

   254

      <xsl:text>

   255

</xsl:text>

   256

    </xsl:for-each>

   257

    <xsl:text>}

   258

</xsl:text>

   259

    <xsl:text>

   260

</xsl:text>

   261

    <xsl:text>var hmitree_types = [

   262

</xsl:text>

   263

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

   264

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

   265

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

   266

      <xsl:text>  </xsl:text>

   267

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

   268

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

   269

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

   270

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

   271

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

   272

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

   273

      </xsl:if>

   274

      <xsl:text>

   275

</xsl:text>

   276

    </xsl:for-each>

   277

    <xsl:text>]

   278

</xsl:text>

   279

    <xsl:text>

   280

</xsl:text>

   281

    <xsl:text>var page_desc = {

   282

</xsl:text>

   283

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

   284

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

   285

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

   286

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

   287

      <xsl:variable name="page_ids" select="$hmi_geometry[@Id != $page/@id and &#10;                                @x &gt;= $p/@x and @y &gt;= $p/@y and &#10;                                @x+@w &lt;= $p/@x+$p/@w and @y+@h &lt;= $p/@y+$p/@h]/@Id"/>

   288

      <xsl:variable name="page_elements" select="$hmi_elements[@id = $page_ids]"/>

   289

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

   290

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

   291

      <xsl:text>": {

   292

</xsl:text>

   293

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

   294

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

   295

      <xsl:text>",

   296

</xsl:text>

   297

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

   298

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

   299

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

   300

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

   301

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

   302

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

   303

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

   304

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

   305

      <xsl:text>],

   306

</xsl:text>

   307

      <xsl:text>        widgets: [

   308

</xsl:text>

   309

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

   310

        <xsl:text>            hmi_widgets.</xsl:text>

   311

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

   312

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

   313

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

   314

        </xsl:if>

   315

        <xsl:text>

   316

</xsl:text>

   317

      </xsl:for-each>

   318

      <xsl:text>        ]

   319

</xsl:text>

   320

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

   321

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

   322

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

   323

      </xsl:if>

   324

      <xsl:text>

   325

</xsl:text>

   326

    </xsl:for-each>

   327

    <xsl:text>}

   328

</xsl:text>

   329

    <xsl:text>

   330

</xsl:text>

   331

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

   332

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

   333

    <xsl:text>";

   334

</xsl:text>

   335

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

   336

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

   337

    <xsl:text>");

   338

</xsl:text>

   339

    <xsl:text>// svghmi.js

   340

</xsl:text>

   341

    <xsl:text>

   342

</xsl:text>

   343

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

   344

</xsl:text>

   345

    <xsl:text>

   346

</xsl:text>

   379

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

   380

</xsl:text>

   381

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

   382

</xsl:text>

   383

    <xsl:text>

   384

</xsl:text>

   385

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

   386

</xsl:text>

   387

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

   388

</xsl:text>

   389

    <xsl:text>

   390

</xsl:text>

   391

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

   392

</xsl:text>

   393

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

   394

</xsl:text>