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="substring(local-name(), 5)"/>

    49

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

    50

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

    51

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

    52

      </xsl:if>

    53

      <xsl:text>

    54

</xsl:text>

    55

    </xsl:for-each>

    56

    <xsl:text>];

    57

</xsl:text>

    58

    <xsl:text>

    59

</xsl:text>

    60

    <xsl:text>var hmitree_paths = [

    61

</xsl:text>

    62

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

    63

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

    64

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

    65

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

    66

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

    67

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

    68

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

    69

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

    70

      </xsl:if>

    71

      <xsl:text>

    72

</xsl:text>

    73

    </xsl:for-each>

    74

    <xsl:text>];

    75

</xsl:text>

    76

    <xsl:text>

    77

</xsl:text>

    78

    <xsl:text>

    79

</xsl:text>

    80

  </xsl:template>

    81

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

    82

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

    83

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

    84

    <xsl:variable name="content">

    85

      <xsl:variable name="path">

    86

        <xsl:choose>

    87

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

    88

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

    89

          </xsl:when>

    90

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

    91

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

    92

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

    93

          </xsl:when>

    94

          <xsl:otherwise>

    95

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

    96

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

    97

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

    98

          </xsl:otherwise>

    99

        </xsl:choose>

   100

      </xsl:variable>

   101

      <xsl:choose>

   102

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

   103

          <xsl:copy>

   104

            <xsl:attribute name="index">

   105

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

   106

            </xsl:attribute>

   107

            <xsl:attribute name="hmipath">

   108

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

   109

            </xsl:attribute>

   110

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

   111

              <xsl:copy/>

   112

            </xsl:for-each>

   113

          </xsl:copy>

   114

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

   115

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

   116

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

   117

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

   118

            </xsl:with-param>

   119

          </xsl:apply-templates>

   120

        </xsl:when>

   121

        <xsl:otherwise>

   122

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

   123

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

   124

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

   125

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

   126

            </xsl:with-param>

   127

          </xsl:apply-templates>

   128

        </xsl:otherwise>

   129

      </xsl:choose>

   130

    </xsl:variable>

   131

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

   132

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

   133

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

   134

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

   135

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

   136

      </xsl:with-param>

   137

    </xsl:apply-templates>

   138

  </xsl:template>

   139

  <xsl:variable name="pathregex" select="'^([^\[,]+)(\[[^\]]+\])?([\d,]*)$'"/>

   140

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

   141

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

   142

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

   143

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

   144

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

   145

    <xsl:variable name="args">

   146

      <xsl:choose>

   147

        <xsl:when test="$_args">

   148

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

   149

        </xsl:when>

   150

        <xsl:otherwise>

   151

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

   152

        </xsl:otherwise>

   153

      </xsl:choose>

   154

    </xsl:variable>

   155

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

   156

    <xsl:variable name="type">

   157

      <xsl:choose>

   158

        <xsl:when test="$_type">

   159

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

   160

        </xsl:when>

   161

        <xsl:otherwise>

   162

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

   163

        </xsl:otherwise>

   164

      </xsl:choose>

   165

    </xsl:variable>

   166

    <xsl:if test="$type">

   167

      <widget>

   168

        <xsl:attribute name="id">

   169

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

   170

        </xsl:attribute>

   171

        <xsl:attribute name="type">

   172

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

   173

        </xsl:attribute>

   174

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

   175

          <arg>

   176

            <xsl:attribute name="value">

   177

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

   178

            </xsl:attribute>

   179

          </arg>

   180

        </xsl:for-each>

   181

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

   182

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

   183

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

   184

            <path>

   185

              <xsl:variable name="path_match" select="regexp:match(.,$pathregex)"/>

   186

              <xsl:variable name="pathminmax" select="str:split($path_match[4],',')"/>

   187

              <xsl:variable name="path" select="$path_match[2]"/>

   188

              <xsl:variable name="path_accepts" select="$path_match[3]"/>

   189

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

   190

              <xsl:attribute name="value">

   191

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

   192

              </xsl:attribute>

   193

              <xsl:if test="string-length($path_accepts)">

   194

                <xsl:attribute name="accepts">

   195

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

   196

                </xsl:attribute>

   197

              </xsl:if>

   198

              <xsl:choose>

   199

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

   200

                  <xsl:attribute name="min">

   201

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

   202

                  </xsl:attribute>

   203

                  <xsl:attribute name="max">

   204

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

   205

                  </xsl:attribute>

   206

                </xsl:when>

   207

                <xsl:when test="$pathminmaxcount = 1 or $pathminmaxcount &gt; 2">

   208

                  <xsl:message terminate="yes">

   209

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

   210

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

   211

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

   212

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

   213

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

   214

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

   215

                  </xsl:message>

   216

                </xsl:when>

   217

              </xsl:choose>

   218

              <xsl:if test="$indexed_hmitree">

   219

                <xsl:choose>

   220

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

   221

                    <xsl:attribute name="type">

   222

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

   223

                    </xsl:attribute>

   224

                  </xsl:when>

   225

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

   226

                    <xsl:attribute name="type">

   227

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

   228

                    </xsl:attribute>

   229

                  </xsl:when>

   230

                  <xsl:otherwise>

   231

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

   232

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

   233

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

   234

                      <xsl:message terminate="yes">

   235

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

   236

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

   237

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

   238

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

   239

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

   240

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

   241

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

   242

                      </xsl:message>

   243

                    </xsl:if>

   244

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

   245

                      <xsl:attribute name="index">

   246

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

   247

                      </xsl:attribute>

   248

                      <xsl:attribute name="type">

   249

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

   250

                      </xsl:attribute>

   251

                    </xsl:if>

   252

                  </xsl:otherwise>

   253

                </xsl:choose>

   254

              </xsl:if>

   255

            </path>

   256

          </xsl:if>

   257

        </xsl:for-each>

   258

        <xsl:if test="svg:desc">

   259

          <desc>

   260

            <xsl:value-of select="svg:desc/text()"/>

   261

          </desc>

   262

        </xsl:if>

   263

      </widget>

   264

    </xsl:if>

   265

  </xsl:template>

   266

  <xsl:template mode="genlabel" match="arg">

   267

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

   268

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

   269

  </xsl:template>

   270

  <xsl:template mode="genlabel" match="path">

   271

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

   272

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

   273

    <xsl:if test="string-length(@min)&gt;0 or string-length(@max)&gt;0">

   274

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

   275

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

   276

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

   277

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

   278

    </xsl:if>

   279

  </xsl:template>

   280

  <xsl:template mode="genlabel" match="widget">

   281

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

   282

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

   283

    <xsl:apply-templates mode="genlabel" select="arg"/>

   284

    <xsl:apply-templates mode="genlabel" select="path"/>

   285

  </xsl:template>

   286

  <xsl:variable name="_parsed_widgets">

   287

    <widget type="VarInitPersistent">

   288

      <arg value="0"/>

   289

      <path value="lang"/>

   290

    </widget>

   291

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

   292

  </xsl:variable>

   293

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

   294

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

   295

    <xsl:param name="id"/>

   296

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

   297

  </func:function>

   298

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

   299

    <xsl:param name="descend"/>

   300

    <xsl:param name="ancest"/>

   301

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

   302

  </func:function>

   303

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

   304

    <xsl:param name="a"/>

   305

    <xsl:param name="b"/>

   306

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

   307

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

   308

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

   309

  </func:function>

   310

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

   311

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

   312

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

   313

    <xsl:text> </xsl:text>

   314

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

   315

    <xsl:text> </xsl:text>

   316

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

   317

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

   318

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

   319

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

   320

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

   321

    </xsl:for-each>

   322

    <xsl:text>

   323

</xsl:text>

   324

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

   325

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

   326

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

   327

      </xsl:with-param>

   328

    </xsl:apply-templates>

   329

  </xsl:template>

   330

  <debug:hmi-tree/>

   331

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

   332

    <xsl:text>

   333

</xsl:text>

   334

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

   335

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

   336

    <xsl:text> */

   337

</xsl:text>

   338

    <xsl:text>

   339

</xsl:text>

   340

    <xsl:text>Raw HMI tree

   341

</xsl:text>

   342

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

   343

    <xsl:text>

   344

</xsl:text>

   345

    <xsl:text>Indexed HMI tree

   346

</xsl:text>

   347

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

   348

    <xsl:text>

   349

</xsl:text>

   350

    <xsl:text>Parsed Widgets

   351

</xsl:text>

   352

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

   353

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

   354

    <xsl:text>

   355

</xsl:text>

   356

  </xsl:template>

   357

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

   358

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

   359

  <xsl:variable name="geometry" select="$all_geometry[not(@Id = $defs/@id)]"/>

   360

  <debug:geometry/>

   361

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

   362

    <xsl:text>

   363

</xsl:text>

   364

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

   365

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

   366

    <xsl:text> */

   367

</xsl:text>

   368

    <xsl:text>

   369

</xsl:text>

   370

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

   371

</xsl:text>

   372

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

   373

      <xsl:text> </xsl:text>

   374

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

   375

      <xsl:text> </xsl:text>

   376

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

   377

      <xsl:text> </xsl:text>

   378

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

   379

      <xsl:text> </xsl:text>

   380

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

   381

      <xsl:text> </xsl:text>

   382

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

   383

      <xsl:text>

   384

</xsl:text>

   385

    </xsl:for-each>

   386

    <xsl:text>

   387

</xsl:text>

   388

  </xsl:template>

   389

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

   390

    <xsl:param name="a0"/>

   391

    <xsl:param name="a1"/>

   392

    <xsl:param name="b0"/>

   393

    <xsl:param name="b1"/>

   394

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

   395

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

   396

    <xsl:choose>

   397

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

   398

        <func:result select="3"/>

   399

      </xsl:when>

   400

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

   401

        <func:result select="2"/>

   402

      </xsl:when>

   403

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

   404

        <func:result select="1"/>

   405

      </xsl:when>

   406

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

   407

        <func:result select="1"/>

   408

      </xsl:when>

   409

      <xsl:otherwise>

   410

        <func:result select="0"/>

   411

      </xsl:otherwise>

   412

    </xsl:choose>

   413

  </func:function>

   414

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

   415

    <xsl:param name="a"/>

   416

    <xsl:param name="b"/>

   417

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

   418

    <xsl:choose>

   419

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

   420

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

   421

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

   422

      </xsl:when>

   423

      <xsl:otherwise>

   424

        <func:result select="0"/>

   425

      </xsl:otherwise>

   426

    </xsl:choose>

   427

  </func:function>

   428

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

   429

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

   430

    <xsl:param name="elt"/>

   431

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

   432

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

   433

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

   434

  </func:function>

   435

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

   436

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

   437

  <xsl:variable name="default_page">

   438

    <xsl:choose>

   439

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

   440

        <xsl:choose>

   441

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

   442

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

   443

          </xsl:when>

   444

          <xsl:otherwise>

   445

            <xsl:message terminate="yes">

   446

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

   447

            </xsl:message>

   448

          </xsl:otherwise>

   449

        </xsl:choose>

   450

      </xsl:when>

   451

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

   452

        <xsl:message terminate="yes">

   453

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

   454

        </xsl:message>

   455

      </xsl:when>

   456

      <xsl:otherwise>

   457

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

   458

      </xsl:otherwise>

   459

    </xsl:choose>

   460

  </xsl:variable>

   461

  <preamble:default-page/>

   462

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

   463

    <xsl:text>

   464

</xsl:text>

   465

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

   466

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

   467

    <xsl:text> */

   468

</xsl:text>

   469

    <xsl:text>

   470

</xsl:text>

   471

    <xsl:text>

   472

</xsl:text>

   473

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

   474

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

   475

    <xsl:text>";

   476

</xsl:text>

   477

    <xsl:text>

   478

</xsl:text>

   479

  </xsl:template>

   480

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

   481

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

   482

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

   483

    <xsl:param name="elems"/>

   484

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

   485

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

   486

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

   487

    <xsl:choose>

   488

      <xsl:when test="$originals">

   489