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 exsl regexp str dyn" version="1.0" exclude-result-prefixes="ns str regexp exsl func dyn">

     3

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

     4

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

     5

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

     6

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

     7

  <xsl:variable name="default_page">

     8

    <xsl:choose>

     9

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

    10

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

    11

        <xsl:choose>

    12

          <xsl:when test="$Home_page">

    13

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

    14

          </xsl:when>

    15

          <xsl:otherwise>

    16

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

    17

          </xsl:otherwise>

    18

        </xsl:choose>

    19

      </xsl:when>

    20

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

    21

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

    22

      </xsl:when>

    23

      <xsl:otherwise>

    24

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

    25

      </xsl:otherwise>

    26

    </xsl:choose>

    27

  </xsl:variable>

    28

  <xsl:variable name="_categories">

    29

    <noindex>

    30

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

    31

    </noindex>

    32

    <noindex>

    33

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

    34

    </noindex>

    35

    <noindex>

    36

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

    37

    </noindex>

    38

  </xsl:variable>

    39

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

    40

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

    41

  <xsl:template name="debug_geometry">

    42

    <xsl:text>ID, x, y, w, h

    43

</xsl:text>

    44

    <xsl:for-each select="$geometry[@Id = $hmi_elements/@id]">

    45

      <xsl:text> </xsl:text>

    46

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

    47

      <xsl:text> </xsl:text>

    48

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

    49

      <xsl:text> </xsl:text>

    50

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

    51

      <xsl:text> </xsl:text>

    52

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

    53

      <xsl:text> </xsl:text>

    54

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

    55

      <xsl:text>

    56

</xsl:text>

    57

    </xsl:for-each>

    58

  </xsl:template>

    59

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

    60

    <xsl:param name="a0"/>

    61

    <xsl:param name="a1"/>

    62

    <xsl:param name="b0"/>

    63

    <xsl:param name="b1"/>

    64

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

    65

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

    66

    <xsl:choose>

    67

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

    68

        <func:result select="3"/>

    69

      </xsl:when>

    70

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

    71

        <func:result select="2"/>

    72

      </xsl:when>

    73

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

    74

        <func:result select="1"/>

    75

      </xsl:when>

    76

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

    77

        <func:result select="1"/>

    78

      </xsl:when>

    79

      <xsl:otherwise>

    80

        <func:result select="0"/>

    81

      </xsl:otherwise>

    82

    </xsl:choose>

    83

  </func:function>

    84

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

    85

    <xsl:param name="a"/>

    86

    <xsl:param name="b"/>

    87

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

    88

    <xsl:choose>

    89

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

    90

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

    91

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

    92

      </xsl:when>

    93

      <xsl:otherwise>

    94

        <func:result select="0"/>

    95

      </xsl:otherwise>

    96

    </xsl:choose>

    97

  </func:function>

    98

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

    99

    <xsl:param name="elt"/>

   100

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

   101

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

   102

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

   103

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

   104

  </func:function>

   105

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

   106

    <xsl:param name="elems"/>

   107

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

   108

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

   109

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

   110

    <xsl:choose>

   111

      <xsl:when test="$originals">

   112

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

   113

      </xsl:when>

   114

      <xsl:otherwise>

   115

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

   116

      </xsl:otherwise>

   117

    </xsl:choose>

   118

  </func:function>

   119

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

   120

    <xsl:param name="page"/>

   121

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

   122

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

   123

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

   124

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

   125

  </func:function>

   126

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

   127

    <xsl:param name="pages"/>

   128

    <xsl:choose>

   129

      <xsl:when test="$pages">

   130

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

   131

      </xsl:when>

   132

      <xsl:otherwise>

   133

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

   134

      </xsl:otherwise>

   135

    </xsl:choose>

   136

  </func:function>

   137

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

   138

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

   139

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

   140

    <xsl:param name="elements"/>

   141

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

   142

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

   143

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

   144

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

   145

  </func:function>

   146

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

   147

    <xsl:param name="pages"/>

   148

    <xsl:choose>

   149

      <xsl:when test="$pages">

   150

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

   151

      </xsl:when>

   152

      <xsl:otherwise>

   153

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

   154

      </xsl:otherwise>

   155

    </xsl:choose>

   156

  </func:function>

   157

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

   158

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

   167

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

   168

  <xsl:variable name="_indexed_hmitree">

   169

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

   170

  </xsl:variable>

   171

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

   172

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

   173

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

   174

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

   175

    <xsl:variable name="content">

   176

      <xsl:variable name="path">

   177

        <xsl:choose>

   178

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

   179

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

   180

          </xsl:when>

   181

          <xsl:otherwise>

   182

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

   183

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

   184

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

   185

          </xsl:otherwise>

   186

        </xsl:choose>

   187

      </xsl:variable>

   188

      <xsl:choose>

   189

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

   190

          <xsl:copy>

   191

            <xsl:attribute name="index">

   192

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

   193

            </xsl:attribute>

   194

            <xsl:attribute name="hmipath">

   195

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

   196

            </xsl:attribute>

   197

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

   198

              <xsl:copy/>

   199

            </xsl:for-each>

   200

          </xsl:copy>

   201

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

   202

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

   203

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

   204

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

   205

            </xsl:with-param>

   206

          </xsl:apply-templates>

   207

        </xsl:when>

   208

        <xsl:otherwise>

   209

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

   210

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

   211

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

   212

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

   213

            </xsl:with-param>

   214

          </xsl:apply-templates>

   215

        </xsl:otherwise>

   216

      </xsl:choose>

   217

    </xsl:variable>

   218

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

   219

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

   220

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

   221

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

   222

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

   223

      </xsl:with-param>

   224

    </xsl:apply-templates>

   225

  </xsl:template>

   226

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

   227

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

   228

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

   229

    <xsl:text> </xsl:text>

   230

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

   231

    <xsl:text> </xsl:text>

   232

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

   233

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

   234

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

   235

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

   236

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

   237

    </xsl:for-each>

   238

    <xsl:text>

   239

</xsl:text>

   240

    <xsl:apply-templates mode="testtree" select="*">

   241

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

   242

        <xsl:value-of select="concat($indent,'&gt;')"/>

   243

      </xsl:with-param>

   244

    </xsl:apply-templates>

   245

  </xsl:template>

   246

  <xsl:template name="debug_hmitree">

   247

    <xsl:text>Raw HMI tree

   248

</xsl:text>

   249

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

   250

    <xsl:text>

   251

</xsl:text>

   252

    <xsl:text>Indexed HMI tree

   253

</xsl:text>

   254

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

   255

  </xsl:template>

   256

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

   257

    <xsl:param name="descend"/>

   258

    <xsl:param name="ancest"/>

   259

    <func:result select="string-length($ancest) &gt; 0 and starts-with($descend,$ancest)"/>

   260

  </func:function>

   261

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

   262

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

   263

      <xsl:copy>

   264

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

   265

      </xsl:copy>

   266

    </xsl:if>

   267

  </xsl:template>

   268

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

   269

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

   270

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

   271

    <svg>

   272

      <xsl:attribute name="preserveAspectRatio">

   273

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

   274

      </xsl:attribute>

   275

      <xsl:attribute name="height">

   276

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

   277

      </xsl:attribute>

   278

      <xsl:attribute name="width">

   279

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

   280

      </xsl:attribute>

   281

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

   282

    </svg>

   283

  </xsl:template>

   284

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

   285

    <xsl:message terminate="yes">

   286

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

   287

    </xsl:message>

   288

  </xsl:template>

   289

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

   290

    <xsl:message terminate="yes">

   291

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

   292

    </xsl:message>

   293

  </xsl:template>

   294

  <xsl:variable name="to_unlink" select="$hmi_elements[not(@id = $hmi_pages)]//svg:use"/>

   295

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

   296

    <xsl:choose>

   297

      <xsl:when test="@id = $to_unlink/@id">

   298

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

   299

      </xsl:when>

   300

      <xsl:otherwise>

   301

        <xsl:copy>

   302

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

   303

        </xsl:copy>

   304

      </xsl:otherwise>

   305

    </xsl:choose>

   306

  </xsl:template>

   307

  <xsl:variable name="_excluded_use_attrs">

   308

    <name>

   309

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

   310

    </name>

   311

    <name>

   312

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

   313

    </name>

   314

    <name>

   315

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

   316

    </name>

   317

    <name>

   318

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

   319

    </name>

   320

    <name>

   321

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

   322

    </name>

   323

  </xsl:variable>

   324

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

   325

  <xsl:template xmlns="http://www.w3.org/2000/svg" name="unlink_clone">

   326

    <g>

   327

      <xsl:for-each select="@*[not(local-name() = $excluded_use_attrs/name)]">

   328

        <xsl:attribute name="{name()}">

   329

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

   330

        </xsl:attribute>

   331

      </xsl:for-each>

   332

      <xsl:variable name="targetid" select="substring-after(@xlink:href,'#')"/>

   333

      <xsl:apply-templates mode="unlink_clone" select="//svg:*[@id = $targetid]">

   334

        <xsl:with-param name="seed" select="@id"/>

   335

      </xsl:apply-templates>

   336

    </g>

   337

  </xsl:template>

   338

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

   339

    <xsl:param name="seed"/>

   340

    <xsl:attribute name="id">

   341

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

   342

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

   343

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

   344

    </xsl:attribute>

   345

  </xsl:template>

   346

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

   347

    <xsl:copy/>

   348

  </xsl:template>

   349

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

   350

    <xsl:param name="seed"/>

   351

    <xsl:choose>

   352

      <xsl:when test="@id = $hmi_elements/@id">

   353

        <use>

   354

          <xsl:attribute name="xlink:href">

   355

            <xsl:value-of select="concat('#',@id)"/>

   356

          </xsl:attribute>

   357

        </use>

   358

      </xsl:when>

   359

      <xsl:otherwise>

   360

        <xsl:copy>

   361

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

   362

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

   363

          </xsl:apply-templates>

   364

        </xsl:copy>

   365

      </xsl:otherwise>

   366

    </xsl:choose>

   367

  </xsl:template>

   368

  <xsl:variable name="result_svg">

   369

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

   370

  </xsl:variable>

   371

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

   372

  <xsl:template match="/">

   373

    <xsl:comment>

   374

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

   375

    </xsl:comment>

   376

    <xsl:comment>

   377

      <xsl:text>

   378

</xsl:text>

   379

      <xsl:text>debug_geometry:

   380

</xsl:text>

   381

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

   382

      <xsl:text>

   383

</xsl:text>

   384

    </xsl:comment>

   385

    <xsl:comment>

   386

      <xsl:text>

   387

</xsl:text>

   397

      <xsl:text>debug_hmitree:

   398

</xsl:text>

   399

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

   400

      <xsl:text>

   401

</xsl:text>

   402

    </xsl:comment>

   403

    <xsl:comment>

   404

      <xsl:text>Unlinked :

   405

</xsl:text>

   406

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

   407

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

   408

        <xsl:text>

   409

</xsl:text>

   410

      </xsl:for-each>

   411

    </xsl:comment>

   412

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

   413

      <head/>

   414

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

   415

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

   416

        <script>

   417

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

   418

        </script>

   419

      </body>

   420

    </html>

   421

  </xsl:template>

   422

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

   423

    <xsl:param name="label"/>

   424

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

   425

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

   426

    <xsl:variable name="args">

   427

      <xsl:choose>

   428

        <xsl:when test="$_args">

   429

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

   430

        </xsl:when>

   431

        <xsl:otherwise>

   432

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

   433

        </xsl:otherwise>

   434

      </xsl:choose>

   435

    </xsl:variable>

   436

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

   437

    <xsl:variable name="type">

   438

      <xsl:choose>

   439

        <xsl:when test="$_type">

   440

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

   441

        </xsl:when>

   442

        <xsl:otherwise>

   443

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

   444

        </xsl:otherwise>

   445

      </xsl:choose>

   446

    </xsl:variable>

   447

    <xsl:variable name="ast">

   448

      <xsl:if test="$type">

   449

        <widget>

   450

          <xsl:attribute name="type">

   451

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

   452

          </xsl:attribute>

   453

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

   454

            <arg>

   455

              <xsl:attribute name="value">

   456

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

   457

              </xsl:attribute>

   458

            </arg>

   459

          </xsl:for-each>

   460

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

   461

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

   462

            <xsl:if test="string-length(.) &gt; 0">

   463

              <path>

   464

                <xsl:attribute name="value">

   465

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

   466

                </xsl:attribute>

   467

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

   468

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

   469

                <xsl:if test="count($item) = 1">

   470

                  <xsl:attribute name="index">

   471

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

   472

                  </xsl:attribute>

   473

                </xsl:if>

   474

              </path>

   475

            </xsl:if>

   476

          </xsl:for-each>

   477

        </widget>

   478

      </xsl:if>

   479

    </xsl:variable>

   480

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

   481

  </func:function>

   482

  <xsl:template name="scripts">

   483

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

   484

</xsl:text>

   485

    <xsl:text>

   486

</xsl:text>

   487

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

   488

</xsl:text>

   489

    <xsl:text>

   490

</xsl:text>