1

<?xml version="1.0"?>

     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>

    58

    <xsl:text>];

    59

</xsl:text>

    60

    <xsl:text>

    61

</xsl:text>

    62

    <xsl:text>

    63

</xsl:text>

    64

  </xsl:template>

    65

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

    66

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

    67

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

    68

    <xsl:variable name="content">

    69

      <xsl:variable name="path">

    70

        <xsl:choose>

    71

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

    72

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

    73

          </xsl:when>

    74

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

    75

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

    76

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

    77

          </xsl:when>

    78

          <xsl:otherwise>

    79

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

    80

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

    81

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

    82

          </xsl:otherwise>

    83

        </xsl:choose>

    84

      </xsl:variable>

    85

      <xsl:choose>

    86

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

    87

          <xsl:copy>

    88

            <xsl:attribute name="index">

    89

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

    90

            </xsl:attribute>

    91

            <xsl:attribute name="hmipath">

    92

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

    93

            </xsl:attribute>

    94

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

    95

              <xsl:copy/>

    96

            </xsl:for-each>

    97

          </xsl:copy>

    98

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

    99

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

   100

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

   101

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

   102

            </xsl:with-param>

   103

          </xsl:apply-templates>

   104

        </xsl:when>

   105

        <xsl:otherwise>

   106

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

   107

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

   108

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

   109

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

   110

            </xsl:with-param>

   111

          </xsl:apply-templates>

   112

        </xsl:otherwise>

   113

      </xsl:choose>

   114

    </xsl:variable>

   115

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

   116

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

   117

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

   118

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

   119

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

   120

      </xsl:with-param>

   121

    </xsl:apply-templates>

   122

  </xsl:template>

   123

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

   124

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

   125

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

   126

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

   127

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

   128

    <xsl:variable name="args">

   129

      <xsl:choose>

   130

        <xsl:when test="$_args">

   131

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

   132

        </xsl:when>

   133

        <xsl:otherwise>

   134

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

   135

        </xsl:otherwise>

   136

      </xsl:choose>

   137

    </xsl:variable>

   138

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

   139

    <xsl:variable name="type">

   140

      <xsl:choose>

   141

        <xsl:when test="$_type">

   142

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

   143

        </xsl:when>

   144

        <xsl:otherwise>

   145

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

   146

        </xsl:otherwise>

   147

      </xsl:choose>

   148

    </xsl:variable>

   149

    <xsl:if test="$type">

   150

      <widget>

   151

        <xsl:attribute name="id">

   152

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

   153

        </xsl:attribute>

   154

        <xsl:attribute name="type">

   155

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

   156

        </xsl:attribute>

   157

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

   158

          <arg>

   159

            <xsl:attribute name="value">

   160

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

   161

            </xsl:attribute>

   162

          </arg>

   163

        </xsl:for-each>

   164

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

   165

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

   166

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

   167

            <path>

   168

              <xsl:variable name="pathminmax" select="str:split(.,',')"/>

   169

              <xsl:variable name="path" select="$pathminmax[1]"/>

   170

              <xsl:variable name="pathminmaxcount" select="count($pathminmax)"/>

   171

              <xsl:attribute name="value">

   172

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

   173

              </xsl:attribute>

   174

              <xsl:choose>

   175

                <xsl:when test="$pathminmaxcount = 3">

   176

                  <xsl:attribute name="min">

   177

                    <xsl:value-of select="$pathminmax[2]"/>

   178

                  </xsl:attribute>

   179

                  <xsl:attribute name="max">

   180

                    <xsl:value-of select="$pathminmax[3]"/>

   181

                  </xsl:attribute>

   182

                </xsl:when>

   183

                <xsl:when test="$pathminmaxcount = 2">

   184

                  <xsl:message terminate="yes">

   185

                    <xsl:text>Widget id:</xsl:text>

   186

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

   187

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

   188

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

   189

                    <xsl:text> has wrong syntax of path section </xsl:text>

   190

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

   191

                  </xsl:message>

   192

                </xsl:when>

   193

              </xsl:choose>

   194

              <xsl:choose>

   195

                <xsl:when test="regexp:test($path,'^\.[a-zA-Z0-9_]+$')">

   196

                  <xsl:attribute name="type">

   197

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

   198

                  </xsl:attribute>

   199

                </xsl:when>

   200

                <xsl:when test="regexp:test($path,'^[a-zA-Z0-9_]+$')">

   201

                  <xsl:attribute name="type">

   202

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

   203

                  </xsl:attribute>

   204

                </xsl:when>

   205

                <xsl:otherwise>

   206

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

   207

                  <xsl:variable name="pathtype" select="local-name($item)"/>

   208

                  <xsl:if test="$pathminmaxcount = 3 and not($pathtype = 'HMI_INT' or $pathtype = 'HMI_REAL')">

   209

                    <xsl:message terminate="yes">

   210

                      <xsl:text>Widget id:</xsl:text>

   211

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

   212

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

   213

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

   214

                      <xsl:text> path section </xsl:text>

   215

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

   216

                      <xsl:text> use min and max on non mumeric value</xsl:text>

   217

                    </xsl:message>

   218

                  </xsl:if>

   219

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

   220

                    <xsl:attribute name="index">

   221

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

   222

                    </xsl:attribute>

   223

                    <xsl:attribute name="type">

   224

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

   225

                    </xsl:attribute>

   226

                  </xsl:if>

   227

                </xsl:otherwise>

   228

              </xsl:choose>

   229

            </path>

   230

          </xsl:if>

   231

        </xsl:for-each>

   232

      </widget>

   233

    </xsl:if>

   234

  </xsl:template>

   235

  <xsl:variable name="_parsed_widgets">

   236

    <widget type="VarInitPersistent">

   237

      <arg value="0"/>

   238

      <path value="lang"/>

   239

    </widget>

   240

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

   241

  </xsl:variable>

   242

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

   243

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

   244

    <xsl:param name="id"/>

   245

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

   246

  </func:function>

   247

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

   248

    <xsl:param name="descend"/>

   249

    <xsl:param name="ancest"/>

   250

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

   251

  </func:function>

   252

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

   253

    <xsl:param name="a"/>

   254

    <xsl:param name="b"/>

   255

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

   256

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

   257

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

   258

  </func:function>

   259

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

   260

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

   261

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

   262

    <xsl:text> </xsl:text>

   263

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

   264

    <xsl:text> </xsl:text>

   265

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

   266

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

   267

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

   268

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

   269

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

   270

    </xsl:for-each>

   271

    <xsl:text>

   272

</xsl:text>

   273

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

   274

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

   275

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

   276

      </xsl:with-param>

   277

    </xsl:apply-templates>

   278

  </xsl:template>

   279

  <debug:hmi-tree/>

   280

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

   281

    <xsl:text>

   282

</xsl:text>

   283

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

   284

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

   285

    <xsl:text> */

   286

</xsl:text>

   287

    <xsl:text>

   288

</xsl:text>

   289

    <xsl:text>Raw HMI tree

   290

</xsl:text>

   291

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

   292

    <xsl:text>

   293

</xsl:text>

   294

    <xsl:text>Indexed HMI tree

   295

</xsl:text>

   296

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

   297

    <xsl:text>

   298

</xsl:text>

   299

    <xsl:text>Parsed Widgets

   300

</xsl:text>

   301

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

   302

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

   303

    <xsl:text>

   304

</xsl:text>

   305

  </xsl:template>

   306

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

   307

  <debug:geometry/>

   308

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

   309

    <xsl:text>

   310

</xsl:text>

   311

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

   312

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

   313

    <xsl:text> */

   314

</xsl:text>

   315

    <xsl:text>

   316

</xsl:text>

   317

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

   318

</xsl:text>

   319

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

   320

      <xsl:text> </xsl:text>

   321

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

   322

      <xsl:text> </xsl:text>

   323

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

   324

      <xsl:text> </xsl:text>

   325

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

   326

      <xsl:text> </xsl:text>

   327

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

   328

      <xsl:text> </xsl:text>

   329

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

   330

      <xsl:text>

   331

</xsl:text>

   332

    </xsl:for-each>

   333

    <xsl:text>

   334

</xsl:text>

   335

  </xsl:template>

   336

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

   337

    <xsl:param name="a0"/>

   338

    <xsl:param name="a1"/>

   339

    <xsl:param name="b0"/>

   340

    <xsl:param name="b1"/>

   341

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

   342

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

   343

    <xsl:choose>

   344

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

   345

        <func:result select="3"/>

   346

      </xsl:when>

   347

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

   348

        <func:result select="2"/>

   349

      </xsl:when>

   350

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

   351

        <func:result select="1"/>

   352

      </xsl:when>

   353

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

   354

        <func:result select="1"/>

   355

      </xsl:when>

   356

      <xsl:otherwise>

   357

        <func:result select="0"/>

   358

      </xsl:otherwise>

   359

    </xsl:choose>

   360

  </func:function>

   361

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

   362

    <xsl:param name="a"/>

   363

    <xsl:param name="b"/>

   364

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

   365

    <xsl:choose>

   366

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

   367

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

   368

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

   369

      </xsl:when>

   370

      <xsl:otherwise>

   371

        <func:result select="0"/>

   372

      </xsl:otherwise>

   373

    </xsl:choose>

   374

  </func:function>

   375

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

   376

    <xsl:param name="elt"/>

   377

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

   378

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

   379

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

   380

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

   381

  </func:function>

   382

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

   383

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

   384

  <xsl:variable name="default_page">

   385

    <xsl:choose>

   386

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

   387

        <xsl:choose>

   388

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

   389

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

   390

          </xsl:when>

   391

          <xsl:otherwise>

   392

            <xsl:message terminate="yes">

   393

              <xsl:text>No Home page defined!</xsl:text>

   394

            </xsl:message>

   395

          </xsl:otherwise>

   396

        </xsl:choose>

   397

      </xsl:when>

   398

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

   399

        <xsl:message terminate="yes">

   400

          <xsl:text>No page defined!</xsl:text>

   401

        </xsl:message>

   402

      </xsl:when>

   403

      <xsl:otherwise>

   404

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

   405

      </xsl:otherwise>

   406

    </xsl:choose>

   407

  </xsl:variable>

   408

  <preamble:default-page/>

   409

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

   410

    <xsl:text>

   411

</xsl:text>

   412

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

   413

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

   414

    <xsl:text> */

   415

</xsl:text>

   416

    <xsl:text>

   417

</xsl:text>

   418

    <xsl:text>

   419

</xsl:text>

   420

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

   421

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

   422

    <xsl:text>";

   423

</xsl:text>

   424

    <xsl:text>

   425

</xsl:text>

   426

  </xsl:template>

   427

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

   428

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

   429

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

   430

    <xsl:param name="elems"/>

   431

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

   432

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

   433

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

   434

    <xsl:choose>

   435

      <xsl:when test="$originals">

   436

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

   437

      </xsl:when>

   438

      <xsl:otherwise>

   439

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

   440

      </xsl:otherwise>

   441

    </xsl:choose>

   442

  </func:function>

   443

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

   444

    <xsl:param name="page"/>

   445

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

   446

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

   447

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

   448

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

   449

  </func:function>

   450

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

   451

    <xsl:param name="pages"/>

   452

    <xsl:choose>

   453

      <xsl:when test="$pages">

   454

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

   455

      </xsl:when>

   456

      <xsl:otherwise>

   457

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

   458

      </xsl:otherwise>

   459

    </xsl:choose>

   460

  </func:function>

   461

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

   462

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

   463

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

   464

    <xsl:param name="elements"/>

   465

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

   466

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

   467

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

   468

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

   469

  </func:function>

   470

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

   471

    <xsl:param name="pages"/>

   472

    <xsl:choose>

   473

      <xsl:when test="$pages">

   474

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

   475

      </xsl:when>

   476

      <xsl:otherwise>

   477

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

   478

      </xsl:otherwise>

   479

    </xsl:choose>

   480

  </func:function>

   481

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

   482

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

   483

  <declarations:detachable-elements/>

   484

  <xsl:template match="declarations:detachable-elements">

   485

    <xsl:text>

   486

</xsl:text>

   487

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

   488

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

   489

    <xsl:text> */