1

<?xml version="1.0"?>

     2

<xsl:stylesheet xmlns:func="http://exslt.org/functions" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" xmlns:epilogue="epilogue" 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:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:preamble="preamble" 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:debug="debug" 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 func exsl regexp str dyn debug preamble epilogue">

     3

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

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

    55

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

    56

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

    57

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

    58

    <xsl:variable name="content">

    59

      <xsl:variable name="path">

    60

        <xsl:choose>

    61

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

    62

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

    63

          </xsl:when>

    64

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

    65

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

    66

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

    67

          </xsl:when>

    68

          <xsl:otherwise>

    69

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

    70

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

    71

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

    72

          </xsl:otherwise>

    73

        </xsl:choose>

    74

      </xsl:variable>

    75

      <xsl:choose>

    76

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

    77

          <xsl:copy>

    78

            <xsl:attribute name="index">

    79

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

    80

            </xsl:attribute>

    81

            <xsl:attribute name="hmipath">

    82

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

    83

            </xsl:attribute>

    84

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

    85

              <xsl:copy/>

    86

            </xsl:for-each>

    87

          </xsl:copy>

    88

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

    89

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

    90

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

    91

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

    92

            </xsl:with-param>

    93

          </xsl:apply-templates>

    94

        </xsl:when>

    95

        <xsl:otherwise>

    96

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

    97

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

    98

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

    99

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

   100

            </xsl:with-param>

   101

          </xsl:apply-templates>

   102

        </xsl:otherwise>

   103

      </xsl:choose>

   104

    </xsl:variable>

   105

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

   106

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

   107

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

   108

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

   109

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

   110

      </xsl:with-param>

   111

    </xsl:apply-templates>

   112

  </xsl:template>

   113

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

   114

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

   115

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

   116

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

   117

    <xsl:variable name="args">

   118

      <xsl:choose>

   119

        <xsl:when test="$_args">

   120

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

   121

        </xsl:when>

   122

        <xsl:otherwise>

   123

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

   124

        </xsl:otherwise>

   125

      </xsl:choose>

   126

    </xsl:variable>

   127

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

   128

    <xsl:variable name="type">

   129

      <xsl:choose>

   130

        <xsl:when test="$_type">

   131

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

   132

        </xsl:when>

   133

        <xsl:otherwise>

   134

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

   135

        </xsl:otherwise>

   136

      </xsl:choose>

   137

    </xsl:variable>

   138

    <xsl:if test="$type">

   139

      <widget>

   140

        <xsl:attribute name="id">

   141

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

   142

        </xsl:attribute>

   143

        <xsl:attribute name="type">

   144

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

   145

        </xsl:attribute>

   146

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

   147

          <arg>

   148

            <xsl:attribute name="value">

   149

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

   150

            </xsl:attribute>

   151

          </arg>

   152

        </xsl:for-each>

   153

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

   154

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

   155

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

   156

            <path>

   157

              <xsl:attribute name="value">

   158

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

   159

              </xsl:attribute>

   160

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

   161

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

   162

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

   163

                <xsl:attribute name="index">

   164

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

   165

                </xsl:attribute>

   166

                <xsl:attribute name="type">

   167

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

   168

                </xsl:attribute>

   169

              </xsl:if>

   170

            </path>

   171

          </xsl:if>

   172

        </xsl:for-each>

   173

      </widget>

   174

    </xsl:if>

   175

  </xsl:template>

   176

  <xsl:variable name="_parsed_widgets">

   177

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

   178

  </xsl:variable>

   179

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

   180

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

   181

    <xsl:param name="id"/>

   182

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

   183

  </func:function>

   184

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

   185

    <xsl:param name="descend"/>

   186

    <xsl:param name="ancest"/>

   187

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

   188

  </func:function>

   189

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

   190

    <xsl:param name="a"/>

   191

    <xsl:param name="b"/>

   192

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

   193

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

   194

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

   195

  </func:function>

   196

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

   197

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

   198

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

   199

    <xsl:text> </xsl:text>

   200

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

   201

    <xsl:text> </xsl:text>

   202

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

   203

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

   204

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

   205

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

   206

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

   207

    </xsl:for-each>

   208

    <xsl:text>

   209

</xsl:text>

   210

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

   211

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

   212

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

   213

      </xsl:with-param>

   214

    </xsl:apply-templates>

   215

  </xsl:template>

   216

  <debug:hmi-tree/>

   217

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

   218

    <xsl:text>Raw HMI tree

   219

</xsl:text>

   220

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

   221

    <xsl:text>

   222

</xsl:text>

   223

    <xsl:text>Indexed HMI tree

   224

</xsl:text>

   225

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

   226

    <xsl:text>

   227

</xsl:text>

   228

    <xsl:text>Parsed Widgets

   229

</xsl:text>

   230

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

   231

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

   232

  </xsl:template>

   233

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

   234

  <debug:geometry/>

   235

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

   236

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

   237

</xsl:text>

   238

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

   239

      <xsl:text> </xsl:text>

   240

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

   241

      <xsl:text> </xsl:text>

   242

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

   243

      <xsl:text> </xsl:text>

   244

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

   245

      <xsl:text> </xsl:text>

   246

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

   247

      <xsl:text> </xsl:text>

   248

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

   249

      <xsl:text>

   250

</xsl:text>

   251

    </xsl:for-each>

   252

  </xsl:template>

   253

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

   254

    <xsl:param name="a0"/>

   255

    <xsl:param name="a1"/>

   256

    <xsl:param name="b0"/>

   257

    <xsl:param name="b1"/>

   258

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

   259

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

   260

    <xsl:choose>

   261

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

   262

        <func:result select="3"/>

   263

      </xsl:when>

   264

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

   265

        <func:result select="2"/>

   266

      </xsl:when>

   267

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

   268

        <func:result select="1"/>

   269

      </xsl:when>

   270

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

   271

        <func:result select="1"/>

   272

      </xsl:when>

   273

      <xsl:otherwise>

   274

        <func:result select="0"/>

   275

      </xsl:otherwise>

   276

    </xsl:choose>

   277

  </func:function>

   278

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

   279

    <xsl:param name="a"/>

   280

    <xsl:param name="b"/>

   281

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

   282

    <xsl:choose>

   283

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

   284

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

   285

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

   286

      </xsl:when>

   287

      <xsl:otherwise>

   288

        <func:result select="0"/>

   289

      </xsl:otherwise>

   290

    </xsl:choose>

   291

  </func:function>

   292

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

   293

    <xsl:param name="elt"/>

   294

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

   295

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

   296

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

   297

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

   298

  </func:function>

   299

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

   300

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

   301

  <xsl:variable name="default_page">

   302

    <xsl:choose>

   303

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

   304

        <xsl:choose>

   305

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

   306

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

   307

          </xsl:when>

   308

          <xsl:otherwise>

   309

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

   310

          </xsl:otherwise>

   311

        </xsl:choose>

   312

      </xsl:when>

   313

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

   314

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

   315

      </xsl:when>

   316

      <xsl:otherwise>

   317

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

   318

      </xsl:otherwise>

   319

    </xsl:choose>

   320

  </xsl:variable>

   332

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

   333

    <xsl:param name="elems"/>

   334

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

   335

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

   336

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

   337

    <xsl:choose>

   338

      <xsl:when test="$originals">

   339

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

   340

      </xsl:when>

   341

      <xsl:otherwise>

   342

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

   343

      </xsl:otherwise>

   344

    </xsl:choose>

   345

  </func:function>

   346

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

   347

    <xsl:param name="page"/>

   348

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

   349

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

   350

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

   351

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

   352

  </func:function>

   353

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

   354

    <xsl:param name="pages"/>

   355

    <xsl:choose>

   356

      <xsl:when test="$pages">

   357

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

   358

      </xsl:when>

   359

      <xsl:otherwise>

   360

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

   361

      </xsl:otherwise>

   362

    </xsl:choose>

   363

  </func:function>

   364

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

   365

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

   366

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

   367

    <xsl:param name="elements"/>

   368

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

   369

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

   370

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

   371

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

   372

  </func:function>

   373

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

   374

    <xsl:param name="pages"/>

   375

    <xsl:choose>

   376

      <xsl:when test="$pages">

   377

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

   378

      </xsl:when>

   379

      <xsl:otherwise>

   380

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

   381

      </xsl:otherwise>

   382

    </xsl:choose>

   383

  </func:function>

   384

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

   385

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

   409

  <xsl:variable name="forEach_widgets_ids" select="$parsed_widgets/widget[@type = 'ForEach']/@id"/>

   410

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

   411

  <xsl:variable name="in_forEach_widget_ids" select="func:refered_elements($forEach_widgets)[not(@id = $forEach_widgets_ids)]/@id"/>

   412

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

   413

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

   414

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

   415

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

   416

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

   417

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

   418

    <xsl:variable name="page_managed_widgets" select="$all_page_widgets[not(@id=$in_forEach_widget_ids)]"/>

   419

    <xsl:variable name="page_relative_widgets" select="$page_managed_widgets[func:is_descendant_path(func:widget(@id)/path/@value, $desc/path/@value)]"/>

   420

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

   421

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

   422

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

   423

    <xsl:text>": {

   424

</xsl:text>

   425

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

   426

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

   427

    <xsl:text>"],

   428

</xsl:text>

   429

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

   430

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

   431

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

   432

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

   433

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

   434

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

   435

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

   436

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

   437

    <xsl:text>],

   438

</xsl:text>

   439

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

   440

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

   441

        <xsl:message terminate="no">

   442

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

   443

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

   444

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

   445

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

   446

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

   447

        </xsl:message>

   448

      </xsl:if>

   449

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

   450

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

   451

      <xsl:text>,

   452

</xsl:text>

   453

    </xsl:if>

   454

    <xsl:text>    relative_widgets: [

   455

</xsl:text>

   456

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

   457

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

   458

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

   459

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

   460

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

   461

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

   462

      </xsl:if>

   463

      <xsl:text>

   464

</xsl:text>

   465

    </xsl:for-each>

   466

    <xsl:text>    ],

   467

</xsl:text>

   468

    <xsl:text>    absolute_widgets: [

   469

</xsl:text>

   470

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

   471

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

   472

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

   473

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

   474

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

   475

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

   476

      </xsl:if>

   477

      <xsl:text>

   478

</xsl:text>

   479

    </xsl:for-each>

   480

    <xsl:text>    ],

   481

</xsl:text>

   482

    <xsl:text>    jumps: [

   483

</xsl:text>

   484

    <xsl:for-each select="$parsed_widgets/widget[@id = $all_page_widgets/@id and @type='Jump']">

   485

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

   486

      <xsl:variable name="opts">

   487

        <xsl:call-template name="jump_widget_activity">

   488

          <xsl:with-param name="hmi_element" select="$hmi_elements[@id=$_id]"/>

   489

        </xsl:call-template>

   490

      </xsl:variable>

   491

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

   492

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