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:param name="instance_name"/>

     7

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

     8

  <xsl:variable name="_categories">

     9

    <noindex>

    10

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

    11

    </noindex>

    12

    <noindex>

    13

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

    14

    </noindex>

    15

  </xsl:variable>

    16

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

    17

  <xsl:variable name="_indexed_hmitree">

    18

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

    19

  </xsl:variable>

    20

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

    21

  <preamble:hmi-tree/>

    22

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

    23

    <xsl:text>

    24

</xsl:text>

    25

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

    26

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

    27

    <xsl:text> */

    28

</xsl:text>

    29

    <xsl:text>

    30

</xsl:text>

    31

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

    32

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

    33

    <xsl:text>];

    34

</xsl:text>

    35

    <xsl:text>

    36

</xsl:text>

    37

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

    38

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

    39

    <xsl:text>;

    40

</xsl:text>

    41

    <xsl:text>

    42

</xsl:text>

    43

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

    44

    <xsl:value-of select="$indexed_hmitree/*[@hmipath = concat('/CURRENT_PAGE_', $instance_name)]/@index"/>

    45

    <xsl:text>;

    46

</xsl:text>

    47

    <xsl:text>

    48

</xsl:text>

    49

    <xsl:text>var hmitree_types = [

    50

</xsl:text>

    51

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

    52

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

    53

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

    54

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

    55

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

    56

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

    57

      </xsl:if>

    58

      <xsl:text>

    59

</xsl:text>

    60

    </xsl:for-each>

    61

    <xsl:text>];

    62

</xsl:text>

    63

    <xsl:text>

    64

</xsl:text>

    65

    <xsl:text>var hmitree_paths = [

    66

</xsl:text>

    67

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

    68

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

    69

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

    70

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

    71

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

    72

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

    73

      </xsl:if>

    74

      <xsl:text>

    75

</xsl:text>

    76

    </xsl:for-each>

    77

    <xsl:text>];

    78

</xsl:text>

    79

    <xsl:text>

    80

</xsl:text>

    81

    <xsl:text>var hmitree_nodes = {

    82

</xsl:text>

    83

    <xsl:for-each select="$indexed_hmitree/*[local-name() = 'HMI_NODE']">

    84

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

    85

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

    86

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

    87

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

    88

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

    89

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

    90

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

    91

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

    92

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

    93

      </xsl:if>

    94

      <xsl:text>

    95

</xsl:text>

    96

    </xsl:for-each>

    97

    <xsl:text>};

    98

</xsl:text>

    99

    <xsl:text>

   100

</xsl:text>

   101

    <xsl:text>

   102

</xsl:text>

   103

  </xsl:template>

   104

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

   105

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

   106

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

   107

    <xsl:variable name="content">

   108

      <xsl:variable name="path">

   109

        <xsl:choose>

   110

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

   111

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

   112

          </xsl:when>

   113

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

   114

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

   115

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

   116

          </xsl:when>

   117

          <xsl:otherwise>

   118

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

   119

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

   120

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

   121

          </xsl:otherwise>

   122

        </xsl:choose>

   123

      </xsl:variable>

   124

      <xsl:choose>

   125

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

   126

          <xsl:copy>

   127

            <xsl:attribute name="index">

   128

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

   129

            </xsl:attribute>

   130

            <xsl:attribute name="hmipath">

   131

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

   132

            </xsl:attribute>

   133

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

   134

              <xsl:copy/>

   135

            </xsl:for-each>

   136

          </xsl:copy>

   137

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

   138

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

   139

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

   140

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

   141

            </xsl:with-param>

   142

          </xsl:apply-templates>

   143

        </xsl:when>

   144

        <xsl:otherwise>

   145

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

   146

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

   147

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

   148

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

   149

            </xsl:with-param>

   150

          </xsl:apply-templates>

   151

        </xsl:otherwise>

   152

      </xsl:choose>

   153

    </xsl:variable>

   154

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

   155

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

   156

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

   157

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

   158

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

   159

      </xsl:with-param>

   160

    </xsl:apply-templates>

   161

  </xsl:template>

   162

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

   163

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

   164

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

   165

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

   166

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

   167

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

   168

    <xsl:variable name="args">

   169

      <xsl:choose>

   170

        <xsl:when test="$_args">

   171

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

   172

        </xsl:when>

   173

        <xsl:otherwise>

   174

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

   175

        </xsl:otherwise>

   176

      </xsl:choose>

   177

    </xsl:variable>

   178

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

   179

    <xsl:variable name="typefreq">

   180

      <xsl:choose>

   181

        <xsl:when test="$_typefreq">

   182

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

   183

        </xsl:when>

   184

        <xsl:otherwise>

   185

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

   186

        </xsl:otherwise>

   187

      </xsl:choose>

   188

    </xsl:variable>

   189

    <xsl:variable name="freq" select="substring-after($typefreq,':')"/>

   190

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

   191

    <xsl:variable name="type">

   192

      <xsl:choose>

   193

        <xsl:when test="$_type">

   194

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

   195

        </xsl:when>

   196

        <xsl:otherwise>

   197

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

   198

        </xsl:otherwise>

   199

      </xsl:choose>

   200

    </xsl:variable>

   201

    <xsl:if test="$type">

   202

      <widget>

   203

        <xsl:attribute name="id">

   204

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

   205

        </xsl:attribute>

   206

        <xsl:attribute name="type">

   207

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

   208

        </xsl:attribute>

   209

        <xsl:if test="freq">

   210

          <xsl:attribute name="frequency">

   211

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

   212

          </xsl:attribute>

   213

        </xsl:if>

   214

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

   215

          <arg>

   216

            <xsl:attribute name="value">

   217

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

   218

            </xsl:attribute>

   219

          </arg>

   220

        </xsl:for-each>

   221

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

   222

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

   223

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

   224

            <path>

   225

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

   226

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

   227

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

   228

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

   229

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

   230

              <xsl:attribute name="value">

   231

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

   232

              </xsl:attribute>

   233

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

   234

                <xsl:attribute name="accepts">

   235

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

   236

                </xsl:attribute>

   237

              </xsl:if>

   238

              <xsl:choose>

   239

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

   240

                  <xsl:attribute name="min">

   241

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

   242

                  </xsl:attribute>

   243

                  <xsl:attribute name="max">

   244

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

   245

                  </xsl:attribute>

   246

                </xsl:when>

   247

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

   248

                  <xsl:message terminate="yes">

   249

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

   250

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

   251

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

   252

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

   253

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

   254

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

   255

                  </xsl:message>

   256

                </xsl:when>

   257

              </xsl:choose>

   258

              <xsl:if test="$indexed_hmitree">

   259

                <xsl:choose>

   260

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

   261

                    <xsl:attribute name="type">

   262

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

   263

                    </xsl:attribute>

   264

                  </xsl:when>

   265

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

   266

                    <xsl:attribute name="type">

   267

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

   268

                    </xsl:attribute>

   269

                  </xsl:when>

   270

                  <xsl:otherwise>

   271

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

   272

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

   273

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

   274

                      <xsl:message terminate="yes">

   275

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

   276

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

   277

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

   278

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

   279

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

   280

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

   281

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

   282

                      </xsl:message>

   283

                    </xsl:if>

   284

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

   285

                      <xsl:attribute name="index">

   286

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

   287

                      </xsl:attribute>

   288

                      <xsl:attribute name="type">

   289

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

   290

                      </xsl:attribute>

   291

                    </xsl:if>

   292

                  </xsl:otherwise>

   293

                </xsl:choose>

   294

              </xsl:if>

   295

            </path>

   296

          </xsl:if>

   297

        </xsl:for-each>

   298

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

   299

          <desc>

   300

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

   301

          </desc>

   302

        </xsl:if>

   303

      </widget>

   304

    </xsl:if>

   305

  </xsl:template>

   306

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

   307

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

   308

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

   309

  </xsl:template>

   310

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

   311

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

   312

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

   313

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

   314

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

   315

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

   316

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

   317

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

   318

    </xsl:if>

   319

  </xsl:template>

   320

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

   321

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

   322

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

   323

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

   324

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

   325

  </xsl:template>

   326

  <xsl:variable name="_parsed_widgets">

   327

    <widget type="VarInitPersistent">

   328

      <arg value="0"/>

   329

      <path value="lang"/>

   330

    </widget>

   331

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

   332

  </xsl:variable>

   333

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

   334

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

   335

    <xsl:param name="id"/>

   336

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

   337

  </func:function>

   338

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

   339

    <xsl:param name="descend"/>

   340

    <xsl:param name="ancest"/>

   341

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

   342

  </func:function>

   343

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

   344

    <xsl:param name="a"/>

   345

    <xsl:param name="b"/>

   346

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

   347

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

   348

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

   349

  </func:function>

   350

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

   351

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

   352

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

   353

    <xsl:text> </xsl:text>

   354

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

   355

    <xsl:text> </xsl:text>

   356

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

   357

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

   358

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

   359

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

   360

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

   361

    </xsl:for-each>

   362

    <xsl:text>

   363

</xsl:text>

   364

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

   365

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

   366

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

   367

      </xsl:with-param>

   368

    </xsl:apply-templates>

   369

  </xsl:template>

   370

  <debug:hmi-tree/>

   371

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

   372

    <xsl:text>

   373

</xsl:text>

   374

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

   375

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

   376

    <xsl:text> */

   377

</xsl:text>

   378

    <xsl:text>

   379

</xsl:text>

   380

    <xsl:text>Raw HMI tree

   381

</xsl:text>

   382

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

   383

    <xsl:text>

   384

</xsl:text>

   385

    <xsl:text>Indexed HMI tree

   386

</xsl:text>

   387

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

   388

    <xsl:text>

   389

</xsl:text>

   390

    <xsl:text>Parsed Widgets

   391

</xsl:text>

   392

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

   393

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

   394

    <xsl:text>

   395

</xsl:text>

   396

  </xsl:template>

   397

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

   398

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

   399

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

   400

  <debug:geometry/>

   401

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

   402

    <xsl:text>

   403

</xsl:text>

   404

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

   405

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

   406

    <xsl:text> */

   407

</xsl:text>

   408

    <xsl:text>

   409

</xsl:text>

   410

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

   411

</xsl:text>

   412

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

   413

      <xsl:text> </xsl:text>

   414

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

   415

      <xsl:text> </xsl:text>

   416

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

   417

      <xsl:text> </xsl:text>

   418

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

   419

      <xsl:text> </xsl:text>

   420

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

   421

      <xsl:text> </xsl:text>

   422

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

   423

      <xsl:text>

   424

</xsl:text>

   425

    </xsl:for-each>

   426

    <xsl:text>

   427

</xsl:text>

   428

  </xsl:template>

   429

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

   430

    <xsl:param name="a0"/>

   431

    <xsl:param name="a1"/>

   432

    <xsl:param name="b0"/>

   433

    <xsl:param name="b1"/>

   434

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

   435

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

   436

    <xsl:choose>

   437

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

   438

        <func:result select="3"/>

   439

      </xsl:when>

   440

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

   441

        <func:result select="2"/>

   442

      </xsl:when>

   443

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

   444

        <func:result select="1"/>

   445

      </xsl:when>

   446

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

   447

        <func:result select="1"/>

   448

      </xsl:when>

   449

      <xsl:otherwise>

   450

        <func:result select="0"/>

   451

      </xsl:otherwise>

   452

    </xsl:choose>

   453

  </func:function>

   454

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

   455

    <xsl:param name="a"/>

   456

    <xsl:param name="b"/>

   457

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

   458

    <xsl:choose>

   459

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

   460

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

   461

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

   462

      </xsl:when>

   463

      <xsl:otherwise>

   464

        <func:result select="0"/>

   465

      </xsl:otherwise>

   466

    </xsl:choose>

   467

  </func:function>

   468

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

   469

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

   470

    <xsl:param name="elt"/>

   471

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

   472

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

   473

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

   474

  </func:function>

   475

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

   476

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

   477

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

   478

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

   479

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

   480

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

   481

  <xsl:variable name="textstylelist_related">

   482

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

   483

      <list>

   484

        <xsl:attribute name="listid">

   485

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

   486

        </xsl:attribute>

   487

        <xsl:for-each select="func:refered_elements(.)">

   488

          <elt>

   489

            <xsl:attribute name="eltid">