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="hmi_elements" select="//svg:*[starts-with(@inkscape:label, 'HMI:')]"/>

     5

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

     6

  <xsl:variable name="_categories">

     7

    <noindex>

     8

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

     9

    </noindex>

    10

    <noindex>

    11

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

    12

    </noindex>

    13

    <noindex>

    14

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

    15

    </noindex>

    16

  </xsl:variable>

    17

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

    18

  <xsl:variable name="_indexed_hmitree">

    19

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

    20

  </xsl:variable>

    21

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

    22

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

    23

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

    24

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

    25

    <xsl:variable name="content">

    26

      <xsl:variable name="path">

    27

        <xsl:choose>

    28

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

    29

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

    30

          </xsl:when>

    31

          <xsl:otherwise>

    32

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

    33

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

    34

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

    35

          </xsl:otherwise>

    36

        </xsl:choose>

    37

      </xsl:variable>

    38

      <xsl:choose>

    39

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

    40

          <xsl:copy>

    41

            <xsl:attribute name="index">

    42

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

    43

            </xsl:attribute>

    44

            <xsl:attribute name="hmipath">

    45

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

    46

            </xsl:attribute>

    47

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

    48

              <xsl:copy/>

    49

            </xsl:for-each>

    50

          </xsl:copy>

    51

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

    52

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

    53

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

    54

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

    55

            </xsl:with-param>

    56

          </xsl:apply-templates>

    57

        </xsl:when>

    58

        <xsl:otherwise>

    59

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

    60

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

    61

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

    62

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

    63

            </xsl:with-param>

    64

          </xsl:apply-templates>

    65

        </xsl:otherwise>

    66

      </xsl:choose>

    67

    </xsl:variable>

    68

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

    69

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

    70

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

    71

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

    72

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

    73

      </xsl:with-param>

    74

    </xsl:apply-templates>

    75

  </xsl:template>

    78

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

    79

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

    80

    <xsl:variable name="args">

    81

      <xsl:choose>

    82

        <xsl:when test="$_args">

    83

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

    84

        </xsl:when>

    85

        <xsl:otherwise>

    86

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

    87

        </xsl:otherwise>

    88

      </xsl:choose>

    89

    </xsl:variable>

    90

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

    91

    <xsl:variable name="type">

    92

      <xsl:choose>

    93

        <xsl:when test="$_type">

    94

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

    95

        </xsl:when>

    96

        <xsl:otherwise>

    97

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

    98

        </xsl:otherwise>

    99

      </xsl:choose>

   100

    </xsl:variable>

   120

              <xsl:attribute name="value">

   121

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

   122

              </xsl:attribute>

   128

                </xsl:attribute>

   143

  </func:function>

   144

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

   145

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

   146

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

   147

    <xsl:text> </xsl:text>

   148

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

   149

    <xsl:text> </xsl:text>

   150

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

   151

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

   152

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

   153

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

   154

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

   155

    </xsl:for-each>

   156

    <xsl:text>

   157

</xsl:text>

   158

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

   159

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

   160

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

   161

      </xsl:with-param>

   162

    </xsl:apply-templates>

   163

  </xsl:template>

   164

  <xsl:template name="debug_hmitree">

   165

    <xsl:text>Raw HMI tree

   166

</xsl:text>

   167

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

   168

    <xsl:text>

   169

</xsl:text>

   170

    <xsl:text>Indexed HMI tree

   171

</xsl:text>

   172

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

   179

  </xsl:template>

   180

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

   181

  <xsl:template name="debug_geometry">

   182

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

   183

</xsl:text>

   184

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

   185

      <xsl:text> </xsl:text>

   186

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

   187

      <xsl:text> </xsl:text>

   188

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

   189

      <xsl:text> </xsl:text>

   190

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

   191

      <xsl:text> </xsl:text>

   192

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

   193

      <xsl:text> </xsl:text>

   194

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

   195

      <xsl:text>

   196

</xsl:text>

   197

    </xsl:for-each>

   198

  </xsl:template>

   199

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

   200

    <xsl:param name="a0"/>

   201

    <xsl:param name="a1"/>

   202

    <xsl:param name="b0"/>

   203

    <xsl:param name="b1"/>

   204

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

   205

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

   206

    <xsl:choose>

   207

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

   208

        <func:result select="3"/>

   209

      </xsl:when>

   210

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

   211

        <func:result select="2"/>

   212

      </xsl:when>

   213

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

   214

        <func:result select="1"/>

   215

      </xsl:when>

   216

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

   217

        <func:result select="1"/>

   218

      </xsl:when>

   219

      <xsl:otherwise>

   220

        <func:result select="0"/>

   221

      </xsl:otherwise>

   222

    </xsl:choose>

   223

  </func:function>

   224

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

   225

    <xsl:param name="a"/>

   226

    <xsl:param name="b"/>

   227

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

   228

    <xsl:choose>

   229

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

   230

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

   231

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

   232

      </xsl:when>

   233

      <xsl:otherwise>

   234

        <func:result select="0"/>

   235

      </xsl:otherwise>

   236

    </xsl:choose>

   237

  </func:function>

   238

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

   239

    <xsl:param name="elt"/>

   240

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

   241

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

   242

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

   243

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

   244

  </func:function>

   247

  <xsl:variable name="default_page">

   248

    <xsl:choose>

   249

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

   251

        <xsl:choose>

   252

          <xsl:when test="$Home_page">

   253

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

   254

          </xsl:when>

   255

          <xsl:otherwise>

   256

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

   257

          </xsl:otherwise>

   258

        </xsl:choose>

   259

      </xsl:when>

   260

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

   261

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

   262

      </xsl:when>

   263

      <xsl:otherwise>

   265

      </xsl:otherwise>

   266

    </xsl:choose>

   267

  </xsl:variable>

   268

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

   269

    <xsl:param name="elems"/>

   270

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

   271

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

   272

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

   273

    <xsl:choose>

   274

      <xsl:when test="$originals">

   275

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

   276

      </xsl:when>

   277

      <xsl:otherwise>

   278

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

   279

      </xsl:otherwise>

   280

    </xsl:choose>

   281

  </func:function>

   282

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

   283

    <xsl:param name="page"/>

   284

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

   285

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

   286

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

   287

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

   288

  </func:function>

   289

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

   290

    <xsl:param name="pages"/>

   291

    <xsl:choose>

   292

      <xsl:when test="$pages">

   293

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

   294

      </xsl:when>

   295

      <xsl:otherwise>

   296

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

   297

      </xsl:otherwise>

   298

    </xsl:choose>

   299

  </func:function>

   300

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

   301

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

   302

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

   303

    <xsl:param name="elements"/>

   304

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

   305

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

   306

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

   307

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

   308

  </func:function>

   309

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

   310

    <xsl:param name="pages"/>

   311

    <xsl:choose>

   312

      <xsl:when test="$pages">

   313

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

   314

      </xsl:when>

   315

      <xsl:otherwise>

   316

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

   317

      </xsl:otherwise>

   318

    </xsl:choose>

   319

  </func:function>

   320

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

   321

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

   322

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

   323

    <xsl:param name="descend"/>

   324

    <xsl:param name="ancest"/>

   325

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

   326

  </func:function>

   327

  <xsl:template mode="page_desc" match="svg:*">

   329

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

   330

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

   331

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

   334

    <xsl:variable name="required_detachables" select="func:sumarized_elements($page_all_elements)/&#10;           ancestor-or-self::*[@id = $detachable_elements/@id]"/>

   335

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

   336

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

   337

    <xsl:text>": {

   338

</xsl:text>

   339

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

   340

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

   341

    <xsl:text>"],

   342

</xsl:text>

   343

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

   344

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

   345

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

   346

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

   347

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

   348

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

   349

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

   350

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

   351

    <xsl:text>],

   352

</xsl:text>

   353

    <xsl:if test="$desc/path/@value">

   354

      <xsl:if test="count($desc/path/@index)=0">

   355

        <xsl:message terminate="no">

   356

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

   357

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

   358

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

   359

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

   360

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

   361

        </xsl:message>

   362

      </xsl:if>

   363

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

   364

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

   365

      <xsl:text>,

   366

</xsl:text>

   367

    </xsl:if>

   368

    <xsl:text>    relative_widgets: [

   369

</xsl:text>

   370

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

   371

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

   372

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

   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>    absolute_widgets: [

   383

</xsl:text>

   384

    <xsl:for-each select="$all_page_widgets[not(@id = $page_relative_widgets/@id)]">

   385

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

   386

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

   387

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

   388

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

   389

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

   390

      </xsl:if>

   391

      <xsl:text>

   392

</xsl:text>

   393

    </xsl:for-each>

   394

    <xsl:text>    ],

   395

</xsl:text>

   396

    <xsl:text>    required_detachables: {

   397

</xsl:text>

   398

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

   399

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

   400

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

   401

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

   402

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

   403

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

   404

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

   405

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

   406

      </xsl:if>

   407

      <xsl:text>

   408

</xsl:text>

   409

    </xsl:for-each>

   410

    <xsl:text>    }

   411

</xsl:text>

   412

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

   413

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

   414

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

   415

    </xsl:if>

   416

    <xsl:text>

   417

</xsl:text>

   418

  </xsl:template>

   419

  <xsl:template name="debug_detachables">

   420

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

   421

      <xsl:text> </xsl:text>

   422

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

   423

      <xsl:text>

   424

</xsl:text>

   425

    </xsl:for-each>

   426

  </xsl:template>

   427

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

   428

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

   429

      <xsl:copy>

   430

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

   431

      </xsl:copy>

   432

    </xsl:if>

   433

  </xsl:template>

   434

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

   435

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

   436

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

   437

    <svg>

   438

      <xsl:attribute name="preserveAspectRatio">

   439

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

   440

      </xsl:attribute>

   441

      <xsl:attribute name="height">

   442

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

   443

      </xsl:attribute>

   444

      <xsl:attribute name="width">

   445

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

   446

      </xsl:attribute>

   447

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

   448

    </svg>

   449

  </xsl:template>

   450

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

   451

    <xsl:message terminate="yes">

   452

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

   453

    </xsl:message>

   454

  </xsl:template>

   455

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

   456

    <xsl:message terminate="yes">

   457

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

   458

    </xsl:message>

   459

  </xsl:template>

   460

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

   461

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

   462

    <xsl:choose>

   463

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

   464

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

   465

      </xsl:when>

   466

      <xsl:otherwise>

   467

        <xsl:copy>

   468

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

   469

        </xsl:copy>

   470

      </xsl:otherwise>

   471

    </xsl:choose>

   472

  </xsl:template>

   473

  <xsl:variable name="_excluded_use_attrs">

   474

    <name>

   475

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

   476

    </name>

   477

    <name>

   478

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

   479

    </name>

   480

    <name>

   481

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

   482

    </name>

   483

    <name>

   484

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

   485

    </name>

   486

    <name>

   487

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

   488

    </name>

   489

  </xsl:variable>

   490

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

   491

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

   492

    <g>

   493

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