1

<?xml version="1.0"?>

     2

<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:exsl="http://exslt.org/common" xmlns:regexp="http://exslt.org/regular-expressions" xmlns:str="http://exslt.org/strings" xmlns:func="http://exslt.org/functions" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:cc="http://creativecommons.org/ns#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:debug="debug" xmlns:preamble="preamble" xmlns:declarations="declarations" xmlns:definitions="definitions" xmlns:epilogue="epilogue" xmlns:ns="beremiz" version="1.0" extension-element-prefixes="ns func exsl regexp str dyn" exclude-result-prefixes="ns func exsl regexp str dyn debug preamble epilogue declarations definitions">

     3

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

     4

  <xsl:variable name="svg" select="/svg:svg"/>

     5

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

     6

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

     7

  <xsl:variable name="_categories">

     8

    <noindex>

     9

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

    10

    </noindex>

    11

    <noindex>

    12

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

    13

    </noindex>

    14

  </xsl:variable>

    15

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

    16

  <xsl:variable name="_indexed_hmitree">

    17

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

    18

  </xsl:variable>

    19

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

    20

  <preamble:hmi-tree/>

    21

  <xsl:template match="preamble:hmi-tree">

    22

    <xsl:text>

    23

</xsl:text>

    24

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

    25

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

    26

    <xsl:text> */

    27

</xsl:text>

    28

    <xsl:text>

    29

</xsl:text>

    30

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

    31

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

    32

    <xsl:text>];

    33

</xsl:text>

    34

    <xsl:text>

    35

</xsl:text>

    36

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

    37

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

    38

    <xsl:text>;

    39

</xsl:text>

    40

    <xsl:text>

    41

</xsl:text>

    42

    <xsl:text>var hmitree_types = [

    43

</xsl:text>

    44

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

    45

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

    46

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

    47

      <xsl:text>  </xsl:text>

    48

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

    49

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

    50

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

    51

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

    52

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

    53

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

    54

      </xsl:if>

    55

      <xsl:text>

    56

</xsl:text>

    57

    </xsl:for-each>

    79

</xsl:text>

    80

    <xsl:text>

    81

</xsl:text>

    82

    <xsl:text>

    83

</xsl:text>

    84

  </xsl:template>

    85

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

    86

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

    87

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

    88

    <xsl:variable name="content">

    89

      <xsl:variable name="path">

    90

        <xsl:choose>

    91

          <xsl:when test="count(ancestor::*)=0">

    92

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

    93

          </xsl:when>

    94

          <xsl:when test="count(ancestor::*)=1">

    95

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

    96

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

    97

          </xsl:when>

    98

          <xsl:otherwise>

    99

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

   100

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

   101

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

   102

          </xsl:otherwise>

   103

        </xsl:choose>

   104

      </xsl:variable>

   105

      <xsl:choose>

   106

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

   107

          <xsl:copy>

   108

            <xsl:attribute name="index">

   109

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

   110

            </xsl:attribute>

   111

            <xsl:attribute name="hmipath">

   112

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

   113

            </xsl:attribute>

   114

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

   115

              <xsl:copy/>

   116

            </xsl:for-each>

   117

          </xsl:copy>

   118

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

   119

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

   120

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

   121

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

   122

            </xsl:with-param>

   123

          </xsl:apply-templates>

   124

        </xsl:when>

   125

        <xsl:otherwise>

   126

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

   127

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

   128

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

   129

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

   130

            </xsl:with-param>

   131

          </xsl:apply-templates>

   132

        </xsl:otherwise>

   133

      </xsl:choose>

   134

    </xsl:variable>

   135

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

   136

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

   137

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

   138

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

   139

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

   140

      </xsl:with-param>

   141

    </xsl:apply-templates>

   142

  </xsl:template>

   143

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

   144

    <xsl:variable name="label" select="@inkscape:label"/>

   146

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

   147

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

   148

    <xsl:variable name="args">

   149

      <xsl:choose>

   150

        <xsl:when test="$_args">

   151

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

   152

        </xsl:when>

   153

        <xsl:otherwise>

   154

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

   155

        </xsl:otherwise>

   156

      </xsl:choose>

   157

    </xsl:variable>

   158

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

   159

    <xsl:variable name="type">

   160

      <xsl:choose>

   161

        <xsl:when test="$_type">

   162

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

   163

        </xsl:when>

   164

        <xsl:otherwise>

   165

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

   166

        </xsl:otherwise>

   167

      </xsl:choose>

   168

    </xsl:variable>

   169

    <xsl:if test="$type">

   170

      <widget>

   171

        <xsl:attribute name="id">

   173

        </xsl:attribute>

   174

        <xsl:attribute name="type">

   175

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

   176

        </xsl:attribute>

   177

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

   178

          <arg>

   179

            <xsl:attribute name="value">

   180

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

   181

            </xsl:attribute>

   182

          </arg>

   183

        </xsl:for-each>

   184

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

   185

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

   186

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

   187

            <path>

   191

              <xsl:attribute name="value">

   193

              </xsl:attribute>

   194

              <xsl:choose>

   198

                  </xsl:attribute>

   216

                  <xsl:attribute name="type">

   223

                  </xsl:attribute>

   224

                </xsl:when>

   225

                <xsl:otherwise>

   247

                </xsl:otherwise>

   248

              </xsl:choose>

   249

            </path>

   250

          </xsl:if>

   251

        </xsl:for-each>

   252

      </widget>

   253

    </xsl:if>

   254

  </xsl:template>

   255

  <xsl:variable name="_parsed_widgets">

   256

    <xsl:apply-templates mode="parselabel" select="$hmi_elements"/>

   257

  </xsl:variable>

   258

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

   259

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

   260

    <xsl:param name="id"/>

   261

    <func:result select="$parsed_widgets/widget[@id = $id]"/>

   262

  </func:function>

   263

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

   264

    <xsl:param name="descend"/>

   265

    <xsl:param name="ancest"/>

   266

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

   267

  </func:function>

   268

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

   269

    <xsl:param name="a"/>

   270

    <xsl:param name="b"/>

   271

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

   272

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

   273

    <func:result select="$class_a and $class_b and $class_a = $class_b"/>

   274

  </func:function>

   275

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

   276

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

   277

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

   278

    <xsl:text> </xsl:text>

   279

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

   280

    <xsl:text> </xsl:text>

   281

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

   282

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

   283

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

   284

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

   285

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

   286

    </xsl:for-each>

   287

    <xsl:text>

   288

</xsl:text>

   289

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

   290

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

   291

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

   292

      </xsl:with-param>

   293

    </xsl:apply-templates>

   294

  </xsl:template>

   295

  <debug:hmi-tree/>

   296

  <xsl:template match="debug:hmi-tree">

   297

    <xsl:text>

   298

</xsl:text>

   299

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

   300

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

   301

    <xsl:text> */

   302

</xsl:text>

   303

    <xsl:text>

   304

</xsl:text>

   305

    <xsl:text>Raw HMI tree

   306

</xsl:text>

   307

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

   308

    <xsl:text>

   309

</xsl:text>

   310

    <xsl:text>Indexed HMI tree

   311

</xsl:text>

   312

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

   313

    <xsl:text>

   314

</xsl:text>

   315

    <xsl:text>Parsed Widgets

   316

</xsl:text>

   317

    <xsl:copy-of select="_parsed_widgets"/>

   318

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

   319

    <xsl:text>

   320

</xsl:text>

   321

  </xsl:template>

   322

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

   323

  <debug:geometry/>

   324

  <xsl:template match="debug:geometry">

   325

    <xsl:text>

   326

</xsl:text>

   327

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

   328

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

   329

    <xsl:text> */

   330

</xsl:text>

   331

    <xsl:text>

   332

</xsl:text>

   333

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

   334

</xsl:text>

   335

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

   336

      <xsl:text> </xsl:text>

   337

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

   338

      <xsl:text> </xsl:text>

   339

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

   340

      <xsl:text> </xsl:text>

   341

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

   342

      <xsl:text> </xsl:text>

   343

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

   344

      <xsl:text> </xsl:text>

   345

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

   346

      <xsl:text>

   347

</xsl:text>

   348

    </xsl:for-each>

   349

    <xsl:text>

   350

</xsl:text>

   351

  </xsl:template>

   352

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

   353

    <xsl:param name="a0"/>

   354

    <xsl:param name="a1"/>

   355

    <xsl:param name="b0"/>

   356

    <xsl:param name="b1"/>

   357

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

   358

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

   359

    <xsl:choose>

   360

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

   361

        <func:result select="3"/>

   362

      </xsl:when>

   363

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

   364

        <func:result select="2"/>

   365

      </xsl:when>

   366

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

   367

        <func:result select="1"/>

   368

      </xsl:when>

   369

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

   370

        <func:result select="1"/>

   371

      </xsl:when>

   372

      <xsl:otherwise>

   373

        <func:result select="0"/>

   374

      </xsl:otherwise>

   375

    </xsl:choose>

   376

  </func:function>

   377

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

   378

    <xsl:param name="a"/>

   379

    <xsl:param name="b"/>

   380

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

   381

    <xsl:choose>

   382

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

   383

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

   384

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

   385

      </xsl:when>

   386

      <xsl:otherwise>

   387

        <func:result select="0"/>

   388

      </xsl:otherwise>

   389

    </xsl:choose>

   390

  </func:function>

   391

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

   392

    <xsl:param name="elt"/>

   393

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

   394

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

   395

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

   396

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

   397

  </func:function>

   398

  <xsl:variable name="hmi_pages_descs" select="$parsed_widgets/widget[@type = 'Page']"/>

   399

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

   400

  <xsl:variable name="default_page">

   401

    <xsl:choose>

   402

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

   403

        <xsl:choose>

   404

          <xsl:when test="$hmi_pages_descs/arg[1]/@value = 'Home'">

   405

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

   406

          </xsl:when>

   407

          <xsl:otherwise>

   408

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

   409

          </xsl:otherwise>

   410

        </xsl:choose>

   411

      </xsl:when>

   412

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

   413

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

   414

      </xsl:when>

   415

      <xsl:otherwise>

   416

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

   417

      </xsl:otherwise>

   418

    </xsl:choose>

   419

  </xsl:variable>

   420

  <preamble:default-page/>

   421

  <xsl:template match="preamble:default-page">

   422

    <xsl:text>

   423

</xsl:text>

   424

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

   425

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

   426

    <xsl:text> */

   427

</xsl:text>

   428

    <xsl:text>

   429

</xsl:text>

   430

    <xsl:text>

   431

</xsl:text>

   432

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

   433

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

   434

    <xsl:text>";

   435

</xsl:text>

   436

    <xsl:text>

   437

</xsl:text>

   438

  </xsl:template>

   439

  <xsl:variable name="keypads_descs" select="$parsed_widgets/widget[@type = 'Keypad']"/>

   440

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

   441

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

   442

    <xsl:param name="elems"/>

   443

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

   444

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

   445

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

   446

    <xsl:choose>

   447

      <xsl:when test="$originals">

   448

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

   449

      </xsl:when>

   450

      <xsl:otherwise>

   451

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

   452

      </xsl:otherwise>

   453

    </xsl:choose>

   454

  </func:function>

   455

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

   456

    <xsl:param name="page"/>

   457

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

   458

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

   459

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

   460

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

   461

  </func:function>

   462

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

   463

    <xsl:param name="pages"/>

   464

    <xsl:choose>

   465

      <xsl:when test="$pages">

   466

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

   467

      </xsl:when>

   468

      <xsl:otherwise>

   469

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

   470

      </xsl:otherwise>

   471

    </xsl:choose>

   472

  </func:function>

   473

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

   474

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

   475

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

   476

    <xsl:param name="elements"/>

   477

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

   478

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

   479

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

   480

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

   481

  </func:function>

   482

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

   483

    <xsl:param name="pages"/>

   484

    <xsl:choose>

   485

      <xsl:when test="$pages">

   486

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

   487

      </xsl:when>

   488

      <xsl:otherwise>

   489

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

   490

      </xsl:otherwise>