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_PLC_STATUS</xsl:text>

     9

    </noindex>

    10

    <noindex>

    11

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

    12

    </noindex>

    13

  </xsl:variable>

    14

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

    15

  <xsl:variable name="_indexed_hmitree">

    16

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

    17

  </xsl:variable>

    18

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

    19

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

    20

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

    21

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

    22

    <xsl:variable name="content">

    23

      <xsl:variable name="path">

    24

        <xsl:choose>

    25

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

    26

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

    27

          </xsl:when>

    28

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

    29

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

    30

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

    31

          </xsl:when>

    32

          <xsl:otherwise>

    33

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

    34

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

    35

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

    36

          </xsl:otherwise>

    37

        </xsl:choose>

    38

      </xsl:variable>

    39

      <xsl:choose>

    40

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

    41

          <xsl:copy>

    42

            <xsl:attribute name="index">

    43

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

    44

            </xsl:attribute>

    45

            <xsl:attribute name="hmipath">

    46

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

    47

            </xsl:attribute>

    48

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

    49

              <xsl:copy/>

    50

            </xsl:for-each>

    51

          </xsl:copy>

    52

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

    53

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

    54

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

    55

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

    56

            </xsl:with-param>

    57

          </xsl:apply-templates>

    58

        </xsl:when>

    59

        <xsl:otherwise>

    60

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

    61

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

    62

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

    63

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

    64

            </xsl:with-param>

    65

          </xsl:apply-templates>

    66

        </xsl:otherwise>

    67

      </xsl:choose>

    68

    </xsl:variable>

    69

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

    70

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

    71

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

    72

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

    73

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

    74

      </xsl:with-param>

    75

    </xsl:apply-templates>

    76

  </xsl:template>

   120

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

   121

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

   122

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

   123

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

   124

    <xsl:variable name="args">

   125

      <xsl:choose>

   126

        <xsl:when test="$_args">

   127

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

   128

        </xsl:when>

   129

        <xsl:otherwise>

   130

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

   131

        </xsl:otherwise>

   132

      </xsl:choose>

   133

    </xsl:variable>

   134

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

   135

    <xsl:variable name="type">

   136

      <xsl:choose>

   137

        <xsl:when test="$_type">

   138

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

   139

        </xsl:when>

   140

        <xsl:otherwise>

   141

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

   142

        </xsl:otherwise>

   143

      </xsl:choose>

   144

    </xsl:variable>

   145

    <xsl:if test="$type">

   146

      <widget>

   147

        <xsl:attribute name="id">

   148

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

   149

        </xsl:attribute>

   150

        <xsl:attribute name="type">

   151

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

   152

        </xsl:attribute>

   153

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

   154

          <arg>

   155

            <xsl:attribute name="value">

   156

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

   157

            </xsl:attribute>

   158

          </arg>

   159

        </xsl:for-each>

   160

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

   161

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

   162

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

   163

            <path>

   164

              <xsl:attribute name="value">

   165

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

   166

              </xsl:attribute>

   167

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

   168

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

   169

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

   170

                <xsl:attribute name="index">

   171

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

   172

                </xsl:attribute>

   173

              </xsl:if>

   174

            </path>

   175

          </xsl:if>

   176

        </xsl:for-each>

   177

      </widget>

   178

    </xsl:if>

   179

  </xsl:template>

   180

  <xsl:variable name="_parsed_widgets">

   181

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

   182

  </xsl:variable>

   183

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

   184

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

   185

    <xsl:param name="id"/>

   186

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

   187

  </func:function>

   188

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

   189

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

   190

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

   191

    <xsl:text> </xsl:text>

   192

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

   193

    <xsl:text> </xsl:text>

   194

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

   195

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

   196

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

   197

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

   198

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

   199

    </xsl:for-each>

   200

    <xsl:text>

   201

</xsl:text>

   202

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

   203

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

   204

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

   205

      </xsl:with-param>

   206

    </xsl:apply-templates>

   207

  </xsl:template>

   208

  <xsl:template name="debug_hmitree">

   209

    <xsl:text>Raw HMI tree

   210

</xsl:text>

   211

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

   212

    <xsl:text>

   213

</xsl:text>

   214

    <xsl:text>Indexed HMI tree

   215

</xsl:text>

   216

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

   217

    <xsl:text>

   218

</xsl:text>

   219

    <xsl:text>Parsed Widgets

   220

</xsl:text>

   221

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

   222

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

   223

  </xsl:template>

   224

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

   225

  <xsl:template name="debug_geometry">

   226

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

   227

</xsl:text>

   228

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

   229

      <xsl:text> </xsl:text>

   230

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

   231

      <xsl:text> </xsl:text>

   232

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

   233

      <xsl:text> </xsl:text>

   234

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

   235

      <xsl:text> </xsl:text>

   236

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

   237

      <xsl:text> </xsl:text>

   238

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

   239

      <xsl:text>

   240

</xsl:text>

   241

    </xsl:for-each>

   242

  </xsl:template>

   243

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

   244

    <xsl:param name="a0"/>

   245

    <xsl:param name="a1"/>

   246

    <xsl:param name="b0"/>

   247

    <xsl:param name="b1"/>

   248

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

   249

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

   250

    <xsl:choose>

   251

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

   252

        <func:result select="3"/>

   253

      </xsl:when>

   254

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

   255

        <func:result select="2"/>

   256

      </xsl:when>

   257

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

   258

        <func:result select="1"/>

   259

      </xsl:when>

   260

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

   261

        <func:result select="1"/>

   262

      </xsl:when>

   263

      <xsl:otherwise>

   264

        <func:result select="0"/>

   265

      </xsl:otherwise>

   266

    </xsl:choose>

   267

  </func:function>

   268

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

   269

    <xsl:param name="a"/>

   270

    <xsl:param name="b"/>

   271

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

   272

    <xsl:choose>

   273

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

   274

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

   275

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

   276

      </xsl:when>

   277

      <xsl:otherwise>

   278

        <func:result select="0"/>

   279

      </xsl:otherwise>

   280

    </xsl:choose>

   281

  </func:function>

   282

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

   283

    <xsl:param name="elt"/>

   284

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

   285

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

   286

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

   287

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

   288

  </func:function>

   289

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

   290

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

   291

  <xsl:variable name="default_page">

   292

    <xsl:choose>

   293

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

   294

        <xsl:choose>

   295

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

   296

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

   297

          </xsl:when>

   298

          <xsl:otherwise>

   299

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

   300

          </xsl:otherwise>

   301

        </xsl:choose>

   302

      </xsl:when>

   303

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

   304

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

   305

      </xsl:when>

   306

      <xsl:otherwise>

   307

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

   308

      </xsl:otherwise>

   309

    </xsl:choose>

   310

  </xsl:variable>

   311

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

   312

    <xsl:param name="elems"/>

   313

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

   314

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

   315

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

   316

    <xsl:choose>

   317

      <xsl:when test="$originals">

   318

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

   319

      </xsl:when>

   320

      <xsl:otherwise>

   321

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

   322

      </xsl:otherwise>

   323

    </xsl:choose>

   324

  </func:function>

   325

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

   326

    <xsl:param name="page"/>

   327

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

   328

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

   329

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

   330

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

   331

  </func:function>

   332

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

   333

    <xsl:param name="pages"/>

   334

    <xsl:choose>

   335

      <xsl:when test="$pages">

   336

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

   337

      </xsl:when>

   338

      <xsl:otherwise>

   339

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

   340

      </xsl:otherwise>

   341

    </xsl:choose>

   342

  </func:function>

   343

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

   344

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

   345

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

   346

    <xsl:param name="elements"/>

   347

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

   348

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

   349

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

   350

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

   351

  </func:function>

   352

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

   353

    <xsl:param name="pages"/>

   354

    <xsl:choose>

   355

      <xsl:when test="$pages">

   356

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

   357

      </xsl:when>

   358

      <xsl:otherwise>

   359

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

   360

      </xsl:otherwise>

   361

    </xsl:choose>

   362

  </func:function>

   363

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

   364

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

   365

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

   366

    <xsl:param name="descend"/>

   367

    <xsl:param name="ancest"/>

   368

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

   369

  </func:function>

   370

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

   371

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

   372

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

   373

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

   374

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

   375

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

   376

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

   377

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

   378

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

   379

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

   380

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

   381

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

   382

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

   383

    <xsl:text>": {

   384

</xsl:text>

   385

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

   386

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

   387

    <xsl:text>"],

   388

</xsl:text>

   389

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

   390

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

   391

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

   392

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

   393

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

   394

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

   395

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

   396

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

   397

    <xsl:text>],

   398

</xsl:text>

   399

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

   400

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

   401

        <xsl:message terminate="no">

   402

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

   403

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

   404

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

   405

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

   406

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

   407

        </xsl:message>

   408

      </xsl:if>

   409

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

   410

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

   411

      <xsl:text>,

   412

</xsl:text>

   413

    </xsl:if>

   414

    <xsl:text>    relative_widgets: [

   415

</xsl:text>

   416

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

   417

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

   418

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

   419

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

   420

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

   421

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

   422

      </xsl:if>

   423

      <xsl:text>

   424

</xsl:text>

   425

    </xsl:for-each>

   426

    <xsl:text>    ],

   427

</xsl:text>

   428

    <xsl:text>    absolute_widgets: [

   429

</xsl:text>

   430

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

   431

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

   432

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

   433

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

   434

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

   435

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

   436

      </xsl:if>

   437

      <xsl:text>

   438

</xsl:text>

   439

    </xsl:for-each>

   440

    <xsl:text>    ],

   441

</xsl:text>

   442

    <xsl:text>    required_detachables: {

   443

</xsl:text>

   444

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

   445

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

   446

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

   447

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

   448

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

   449

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

   450

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

   451

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

   452

      </xsl:if>

   453

      <xsl:text>

   454

</xsl:text>

   455

    </xsl:for-each>

   456

    <xsl:text>    }

   457

</xsl:text>

   458

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

   459

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

   460

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

   461

    </xsl:if>

   462

    <xsl:text>

   463

</xsl:text>

   464

  </xsl:template>

   465

  <xsl:template name="debug_detachables">

   466

    <xsl:text>DETACHABLES:

   467

</xsl:text>

   468

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

   469

      <xsl:text> </xsl:text>

   470

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

   471

      <xsl:text>

   472

</xsl:text>

   473

    </xsl:for-each>

   474

    <xsl:text>In Foreach:

   475

</xsl:text>

   476

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

   477

      <xsl:text> </xsl:text>

   478

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

   479

      <xsl:text>

   480

</xsl:text>

   481

    </xsl:for-each>

   482

  </xsl:template>

   483

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

   484

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

   485

      <xsl:copy>

   486

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

   487

      </xsl:copy>

   488

    </xsl:if>

   489

  </xsl:template>

   490

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

   491

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

   492

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

   493

    <svg>