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

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

    51

    <xsl:param name="elems"/>

    52

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

    53

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

    54

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

    55

    <xsl:choose>

    56

      <xsl:when test="$originals">

    57

        <func:result select="$descend | func:refered_elements($originals)"/>

    58

      </xsl:when>

    59

      <xsl:otherwise>

    60

        <func:result select="$descend"/>

    61

      </xsl:otherwise>

    62

    </xsl:choose>

    63

  </func:function>

    64

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

    65

    <xsl:param name="a0"/>

    66

    <xsl:param name="a1"/>

    67

    <xsl:param name="b0"/>

    68

    <xsl:param name="b1"/>

    69

    <xsl:variable name="d0" select="$a0 &gt;= $b0"/>

    70

    <xsl:variable name="d1" select="$a1 &gt;= $b1"/>

    71

    <xsl:choose>

    72

      <xsl:when test="not($d0) and $d1">

    73

        <func:result select="3"/>

    74

      </xsl:when>

    75

      <xsl:when test="$d0 and not($d1)">

    76

        <func:result select="2"/>

    77

      </xsl:when>

    78

      <xsl:when test="$d0 and $d1 and $a0 &lt; $b1">

    79

        <func:result select="1"/>

    80

      </xsl:when>

    81

      <xsl:when test="not($d0) and not($d1) and $b0 &lt; $a1">

    82

        <func:result select="1"/>

    83

      </xsl:when>

    84

      <xsl:otherwise>

    85

        <func:result select="0"/>

    86

      </xsl:otherwise>

    87

    </xsl:choose>

    88

  </func:function>

    89

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

    90

    <xsl:param name="a"/>

    91

    <xsl:param name="b"/>

    92

    <xsl:variable name="x_intersect" select="func:intersect_1d($a/@x, $a/@x+$a/@w, $b/@x, $b/@x+$b/@w)"/>

    93

    <xsl:choose>

    94

      <xsl:when test="$x_intersect != 0">

    95

        <xsl:variable name="y_intersect" select="func:intersect_1d($a/@y, $a/@y+$a/@h, $b/@y, $b/@y+$b/@h)"/>

    96

        <func:result select="$x_intersect * $y_intersect"/>

    97

      </xsl:when>

    98

      <xsl:otherwise>

    99

        <func:result select="0"/>

   100

      </xsl:otherwise>

   101

    </xsl:choose>

   102

  </func:function>

   103

  <xsl:variable name="groups" select="/svg:svg | //svg:g"/>

   104

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

   105

    <xsl:param name="elt"/>

   106

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

   107

    <xsl:variable name="candidates" select="$geometry[@Id != $elt/@id]"/>

   108

    <func:result select="$candidates[(@Id = $groups/@id and (func:intersect($g, .) = 9)) or &#10;                              (not(@Id = $groups/@id) and (func:intersect($g, .) &gt; 0 ))]"/>

   109

  </func:function>

   110

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

   111

    <xsl:param name="page"/>

   112

    <xsl:variable name="page_overlapping_geometry" select="func:overlapping_geometry($page)"/>

   113

    <xsl:variable name="page_overlapping_elements" select="//svg:*[@id = $page_overlapping_geometry/@Id]"/>

   114

    <xsl:variable name="page_sub_elements" select="func:refered_elements($page | $page_overlapping_elements)"/>

   115

    <func:result select="$page_sub_elements"/>

   116

  </func:function>

   117

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

   118

    <xsl:param name="pages"/>

   119

    <xsl:choose>

   120

      <xsl:when test="$pages">

   121

        <func:result select="func:all_related_elements($pages[1])&#10;                          | func:required_elements($pages[position()!=1])"/>

   122

      </xsl:when>

   123

      <xsl:otherwise>

   124

        <func:result select="/.."/>

   125

      </xsl:otherwise>

   126

    </xsl:choose>

   127

  </func:function>

   128

  <xsl:variable name="required_elements" select="//svg:defs/descendant-or-self::svg:*&#10;           | func:required_elements($hmi_pages)/ancestor-or-self::svg:*"/>

   129

  <xsl:variable name="discardable_elements" select="//svg:*[not(@id = $required_elements/@id)]"/>

   130

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

   131

    <xsl:param name="elements"/>

   132

    <xsl:variable name="short_list" select="$elements[not(ancestor::*/@id = $elements/@id)]"/>

   133

    <xsl:variable name="filled_groups" select="$short_list/parent::svg:*[&#10;            not(descendant::*[&#10;                not(self::svg:g) and &#10;                not(@id = $discardable_elements/@id) and&#10;                not(@id = $short_list/descendant-or-self::*[not(self::svg:g)]/@id)&#10;            ])]"/>

   134

    <xsl:variable name="groups_to_add" select="$filled_groups[not(ancestor::*/@id = $filled_groups/@id)]"/>

   135

    <func:result select="$groups_to_add | $short_list[not(ancestor::svg:g/@id = $filled_groups/@id)]"/>

   136

  </func:function>

   137

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

   138

    <xsl:param name="pages"/>

   139

    <xsl:choose>

   140

      <xsl:when test="$pages">

   141

        <func:result select="func:sumarized_elements(func:all_related_elements($pages[1]))&#10;                          | func:detachable_elements($pages[position()!=1])"/>

   142

      </xsl:when>

   143

      <xsl:otherwise>

   144

        <func:result select="/.."/>

   145

      </xsl:otherwise>

   146

    </xsl:choose>

   147

  </func:function>

   148

  <xsl:variable name="detachable_elements" select="func:detachable_elements($hmi_pages)"/>

   149

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

   150

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

   151

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

   152

    <xsl:variable name="content">

   153

      <xsl:variable name="path">

   154

        <xsl:choose>

   155

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

   156

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

   157

          </xsl:when>

   158

          <xsl:otherwise>

   159

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

   160

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

   161

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

   162

          </xsl:otherwise>

   163

        </xsl:choose>

   164

      </xsl:variable>

   165

      <xsl:choose>

   166

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

   167

          <xsl:copy>

   168

            <xsl:attribute name="index">

   169

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

   170

            </xsl:attribute>

   171

            <xsl:attribute name="hmipath">

   172

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

   173

            </xsl:attribute>

   174

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

   175

              <xsl:copy/>

   176

            </xsl:for-each>

   177

          </xsl:copy>

   178

        </xsl:when>

   179

        <xsl:otherwise>

   180

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

   181

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

   182

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

   183

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

   184

            </xsl:with-param>

   185

          </xsl:apply-templates>

   186

        </xsl:otherwise>

   187

      </xsl:choose>

   188

    </xsl:variable>

   189

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

   190

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

   191

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

   192

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

   193

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

   194

      </xsl:with-param>

   195

    </xsl:apply-templates>

   196

  </xsl:template>

   197

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

   198

    <xsl:if test="not(@id = $discardable_elements/@id)">

   199

      <xsl:copy>

   200

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

   201

      </xsl:copy>

   202

    </xsl:if>

   203

  </xsl:template>

   204

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

   205

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

   206

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

   207

    <svg>

   208

      <xsl:attribute name="preserveAspectRatio">

   209

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

   210

      </xsl:attribute>

   211

      <xsl:attribute name="height">

   212

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

   213

      </xsl:attribute>

   214

      <xsl:attribute name="width">

   215

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

   216

      </xsl:attribute>

   217

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

   218

    </svg>

   219

  </xsl:template>

   220

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

   221

    <xsl:message terminate="yes">

   222

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

   223

    </xsl:message>

   224

  </xsl:template>

   225

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

   226

    <xsl:message terminate="yes">

   227

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

   228

    </xsl:message>

   229

  </xsl:template>

   230

  <xsl:template match="/">

   231

    <xsl:comment>

   232

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

   233

    </xsl:comment>

   234

    <xsl:comment>

   235

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

   236

    </xsl:comment>

   237

    <xsl:comment>

   238

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

   239

    </xsl:comment>

   240

    <xsl:comment>

   241

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

   242

    </xsl:comment>

   243

    <xsl:comment>

   244

      <xsl:text>Detachable :

   245

</xsl:text>

   246

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

   247

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

   248

        <xsl:text>

   249

</xsl:text>

   250

      </xsl:for-each>

   251

    </xsl:comment>

   252

    <xsl:comment>

   253

      <xsl:text>Discardable :

   254

</xsl:text>

   255

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

   256

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

   257

        <xsl:text>

   258

</xsl:text>

   259

      </xsl:for-each>

   260

    </xsl:comment>

   261

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

   262

      <head/>

   263

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

   269

        <script>

   271

        </script>

   272

      </body>

   273

    </html>

   274

  </xsl:template>

   275

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

   276

    <xsl:param name="label"/>

   277

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

   278

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

   279

    <xsl:variable name="args">

   280

      <xsl:choose>

   281

        <xsl:when test="$_args">

   282

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

   283

        </xsl:when>

   284

        <xsl:otherwise>

   285

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

   286

        </xsl:otherwise>

   287

      </xsl:choose>

   288

    </xsl:variable>

   289

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

   290

    <xsl:variable name="type">

   291

      <xsl:choose>

   292

        <xsl:when test="$_type">

   293

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

   294

        </xsl:when>

   295

        <xsl:otherwise>

   296

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

   297

        </xsl:otherwise>

   298

      </xsl:choose>

   299

    </xsl:variable>

   300

    <xsl:variable name="ast">

   301

      <xsl:if test="$type">

   302

        <widget>

   303

          <xsl:attribute name="type">

   304

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

   305

          </xsl:attribute>

   306

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

   307

            <arg>

   308

              <xsl:attribute name="value">

   309

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

   310

              </xsl:attribute>

   311

            </arg>

   312

          </xsl:for-each>

   313

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

   314

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

   315

            <path>

   316

              <xsl:attribute name="value">

   317

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

   318

              </xsl:attribute>

   319

            </path>

   320

          </xsl:for-each>

   321

        </widget>

   322

      </xsl:if>

   323

    </xsl:variable>

   324

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

   325

  </func:function>

   327

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

   328

</xsl:text>

   329

    <xsl:text>

   330

</xsl:text>

   331

    <xsl:text>id = idstr =&gt; document.getElementById(idstr);

   332

</xsl:text>

   333

    <xsl:text>

   334

</xsl:text>

   335

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

   336

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

   337

    <xsl:text>]; 

   338

</xsl:text>

   339

    <xsl:text>var hmi_widgets = {

   340

</xsl:text>

   341

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

   342

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

   344

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

   345

      <xsl:text>": {

   346

</xsl:text>

   348

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

   349

      <xsl:text>",

   350

</xsl:text>

   352

</xsl:text>

   353

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

   355

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

   356

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

   357

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

   358

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

   359

        </xsl:if>

   360

        <xsl:text>

   361

</xsl:text>

   362

      </xsl:for-each>

   366

</xsl:text>

   367

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

   368

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

   369

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

   370

        <xsl:choose>

   371

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

   372

            <xsl:message terminate="no">

   373

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

   374

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

   375

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

   376

            </xsl:message>

   377

          </xsl:when>

   378

          <xsl:otherwise>

   379

            <xsl:text>            </xsl:text>

   380

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

   381

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

   382

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

   383

            </xsl:if>

   384

            <xsl:text>

   385

</xsl:text>

   386

          </xsl:otherwise>

   387

        </xsl:choose>

   388

      </xsl:for-each>

   389

      <xsl:text>        ],

   390

</xsl:text>

   391

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

   392

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

   393

      <xsl:text>"),

   394

</xsl:text>

   395

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

   396

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

   397

      </xsl:apply-templates>

   398

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

   399

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

   400

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

   401

      </xsl:if>

   402

      <xsl:text>

   403

</xsl:text>

   404

    </xsl:for-each>

   405

    <xsl:text>}

   406

</xsl:text>

   407

    <xsl:text>

   408

</xsl:text>

   409

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

   410

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

   411

    <xsl:text>;

   412

</xsl:text>

   413

    <xsl:text>

   414

</xsl:text>

   415

    <xsl:text>var hmitree_types = [

   416

</xsl:text>

   417

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

   418

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

   419

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

   420

      <xsl:text>  </xsl:text>

   421

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

   422

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

   423

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

   424

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

   425

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

   426

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

   427

      </xsl:if>

   428

      <xsl:text>

   429

</xsl:text>

   430

    </xsl:for-each>

   431

    <xsl:text>]

   432

</xsl:text>

   433

    <xsl:text>

   434

</xsl:text>

   435

    <xsl:text>var detachable_elements = {

   436

</xsl:text>

   437

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

   438

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

   439

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

   440

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

   441

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

   442

      <xsl:text>"), id("</xsl:text>

   443

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

   444

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

   445

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

   446

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

   447

      </xsl:if>

   448

      <xsl:text>

   449

</xsl:text>

   450

    </xsl:for-each>

   451

    <xsl:text>}

   452

</xsl:text>

   453

    <xsl:text>

   454

</xsl:text>

   455

    <xsl:text>var page_desc = {

   456

</xsl:text>

   457

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

   458

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

   459

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

   460

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

   461

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

   462

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

   463

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

   465

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

   466

      <xsl:text>": {

   467

</xsl:text>

   469

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

   470

      <xsl:text>"],

   471

</xsl:text>

   473

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

   474

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

   475

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

   476

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

   477

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

   478

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

   479

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

   480

      <xsl:text>],

   481

</xsl:text>

   483

</xsl:text>

   484

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

   486

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

   487

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

   488

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

   489