4

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

   135

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

   136

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

   137

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

   138

    <xsl:text> </xsl:text>

   139

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

   140

    <xsl:text> </xsl:text>

   141

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

   142

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

   143

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

   144

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

   145

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

   146

    </xsl:for-each>

   147

    <xsl:text>

   148

</xsl:text>

   149

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

   150

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

   151

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

   152

      </xsl:with-param>

   153

    </xsl:apply-templates>

   154

  </xsl:template>

   155

  <xsl:template name="debug_hmitree">

   156

    <xsl:text>Raw HMI tree

   157

</xsl:text>

   158

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

   159

    <xsl:text>

   160

</xsl:text>

   161

    <xsl:text>Indexed HMI tree

   162

</xsl:text>

   163

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

   164

  </xsl:template>

   165

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

   166

  <xsl:template name="debug_geometry">

   167

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

   168

</xsl:text>

   169

    <xsl:for-each select="$geometry[@Id = $hmi_elements/@id]">

   170

      <xsl:text> </xsl:text>

   171

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

   172

      <xsl:text> </xsl:text>

   173

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

   174

      <xsl:text> </xsl:text>

   175

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

   176

      <xsl:text> </xsl:text>

   177

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

   178

      <xsl:text> </xsl:text>

   179

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

   180

      <xsl:text>

   181

</xsl:text>

   182

    </xsl:for-each>

   183

  </xsl:template>

   184

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

   185

    <xsl:param name="a0"/>

   186

    <xsl:param name="a1"/>

   187

    <xsl:param name="b0"/>

   188

    <xsl:param name="b1"/>

   189

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

   190

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

   191

    <xsl:choose>

   192

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

   193

        <func:result select="3"/>

   194

      </xsl:when>

   195

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

   196

        <func:result select="2"/>

   197

      </xsl:when>

   198

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

   199

        <func:result select="1"/>

   200

      </xsl:when>

   201

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

   202

        <func:result select="1"/>

   203

      </xsl:when>

   204

      <xsl:otherwise>

   205

        <func:result select="0"/>

   206

      </xsl:otherwise>

   207

    </xsl:choose>

   208

  </func:function>

   209

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

   210

    <xsl:param name="a"/>

   211

    <xsl:param name="b"/>

   212

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

   213

    <xsl:choose>

   214

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

   215

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

   216

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

   217

      </xsl:when>

   218

      <xsl:otherwise>

   219

        <func:result select="0"/>

   220

      </xsl:otherwise>

   221

    </xsl:choose>

   222

  </func:function>

   223

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

   224

    <xsl:param name="elt"/>

   225

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

   226

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

   227

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

   228

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

   229

  </func:function>

   230

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

   231

  <xsl:variable name="hmi_elements" select="//svg:*[starts-with(@inkscape:label, 'HMI:')]"/>

   232

  <xsl:variable name="hmi_pages" select="$hmi_elements[func:parselabel(@inkscape:label)/widget/@type = 'Page']"/>

   233

  <xsl:variable name="default_page">

   234

    <xsl:choose>

   235

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

   236

        <xsl:variable name="Home_page" select="$hmi_pages[func:parselabel(@inkscape:label)/widget/arg[1]/@value = 'Home']"/>

   237

        <xsl:choose>

   238

          <xsl:when test="$Home_page">

   239

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

   240

          </xsl:when>

   241

          <xsl:otherwise>

   242

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

   243

          </xsl:otherwise>

   244

        </xsl:choose>

   245

      </xsl:when>

   246

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

   247

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

   248

      </xsl:when>

   249

      <xsl:otherwise>

   250

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

   251

      </xsl:otherwise>

   252

    </xsl:choose>

   253

  </xsl:variable>

   254

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

   255

    <xsl:param name="elems"/>

   256

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

   257

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

   258

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

   259

    <xsl:choose>

   260

      <xsl:when test="$originals">

   261

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

   262

      </xsl:when>

   263

      <xsl:otherwise>

   264

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

   265

      </xsl:otherwise>

   266

    </xsl:choose>

   267

  </func:function>

   268

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

   269

    <xsl:param name="page"/>

   270

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

   271

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

   272

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

   273

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

   274

  </func:function>

   275

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

   276

    <xsl:param name="pages"/>

   277

    <xsl:choose>

   278

      <xsl:when test="$pages">

   279

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

   280

      </xsl:when>

   281

      <xsl:otherwise>

   282

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

   283

      </xsl:otherwise>

   284

    </xsl:choose>

   285

  </func:function>

   286

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

   287

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

   288

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

   289

    <xsl:param name="elements"/>

   290

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

   291

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

   292

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

   293

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

   294

  </func:function>

   295

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

   296

    <xsl:param name="pages"/>

   297

    <xsl:choose>

   298

      <xsl:when test="$pages">

   299

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

   300

      </xsl:when>

   301

      <xsl:otherwise>

   302

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

   303

      </xsl:otherwise>

   304

    </xsl:choose>

   305

  </func:function>

   306

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

   307

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

   308

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

   309

    <xsl:param name="descend"/>

   310

    <xsl:param name="ancest"/>

   311

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

   312

  </func:function>

   313

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

   314

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

   315

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

   316

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

   317

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

   318

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

   319

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

   320

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

   321

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

   322

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

   323

    <xsl:text>": {

   324

</xsl:text>

   325

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

   326

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

   327

    <xsl:text>"],

   328

</xsl:text>

   329

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

   330

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

   331

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

   332

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

   333

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

   334

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

   335

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

   336

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

   337

    <xsl:text>],

   338

</xsl:text>

   339

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

   340

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

   341

        <xsl:message terminate="no">

   342

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

   343

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

   344

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

   345

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

   346

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

   347

        </xsl:message>

   348

      </xsl:if>

   349

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

   350

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

   351

      <xsl:text>,

   352

</xsl:text>

   353

    </xsl:if>

   354

    <xsl:text>    relative_widgets: [

   355

</xsl:text>

   356

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

   357

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

   358

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

   359

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

   360

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

   361

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

   362

      </xsl:if>

   363

      <xsl:text>

   364

</xsl:text>

   365

    </xsl:for-each>

   366

    <xsl:text>    ],

   367

</xsl:text>

   368

    <xsl:text>    absolute_widgets: [

   369

</xsl:text>

   370

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

   371

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

   372

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

   373

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

   374

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

   375

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

   376

      </xsl:if>

   377

      <xsl:text>

   378

</xsl:text>

   379

    </xsl:for-each>

   380

    <xsl:text>    ],

   381

</xsl:text>

   382

    <xsl:text>    required_detachables: {

   383

</xsl:text>

   384

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

   385

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

   386

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

   387

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

   388

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

   389

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

   390

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

   391

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

   392

      </xsl:if>

   393

      <xsl:text>

   394

</xsl:text>

   395

    </xsl:for-each>

   396

    <xsl:text>    }

   397

</xsl:text>

   398

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

   399

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

   400

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

   401

    </xsl:if>

   402

    <xsl:text>

   403

</xsl:text>

   404

  </xsl:template>

   405

  <xsl:template name="debug_detachables">

   406

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

   407

      <xsl:text> </xsl:text>

   408

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

   409

      <xsl:text>

   410

</xsl:text>

   411

    </xsl:for-each>

   412

  </xsl:template>

   413

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

   414

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

   415

      <xsl:copy>

   416

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

   417

      </xsl:copy>

   418

    </xsl:if>

   419

  </xsl:template>

   420

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

   421

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

   422

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

   423

    <svg>

   424

      <xsl:attribute name="preserveAspectRatio">

   425

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

   426

      </xsl:attribute>

   427

      <xsl:attribute name="height">

   428

        <xsl:text>100vh</xsl:text>

   429

      </xsl:attribute>

   430

      <xsl:attribute name="width">

   431

        <xsl:text>100vw</xsl:text>

   432

      </xsl:attribute>

   433

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

   434

    </svg>

   435

  </xsl:template>

   436

  <xsl:template mode="inline_svg" match="svg:svg[@viewBox!=concat('0 0 ', @width, ' ', @height)]">

   437

    <xsl:message terminate="yes">

   438

      <xsl:text>ViewBox settings other than X=0, Y=0 and Scale=1 are not supported</xsl:text>

   439

    </xsl:message>

   440

  </xsl:template>

   441

  <xsl:template mode="inline_svg" match="sodipodi:namedview[@units!='px' or @inkscape:document-units!='px']">

   442

    <xsl:message terminate="yes">

   443

      <xsl:text>All units must be set to "px" in Inkscape's document properties</xsl:text>

   444

    </xsl:message>

   445

  </xsl:template>

   446

  <xsl:variable name="to_unlink" select="$hmi_elements[not(@id = $hmi_pages)]//svg:use"/>

   447

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

   448

    <xsl:choose>

   449

      <xsl:when test="@id = $to_unlink/@id">

   450

        <xsl:call-template name="unlink_clone"/>

   451

      </xsl:when>

   452

      <xsl:otherwise>

   453

        <xsl:copy>

   454

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

   455

        </xsl:copy>

   456

      </xsl:otherwise>

   457

    </xsl:choose>

   458

  </xsl:template>

   459

  <xsl:variable name="_excluded_use_attrs">

   460

    <name>

   461

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

   462

    </name>

   463

    <name>

   464

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

   465

    </name>

   466

    <name>

   467

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

   468

    </name>

   469

    <name>

   470

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

   471

    </name>

   472

    <name>

   473

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

   474

    </name>

   475

  </xsl:variable>

   476

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

   477

  <xsl:template xmlns="http://www.w3.org/2000/svg" name="unlink_clone">

   478

    <g>

   479

      <xsl:for-each select="@*[not(local-name() = $excluded_use_attrs/name)]">

   480

        <xsl:attribute name="{name()}">

   481

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

   482

        </xsl:attribute>

   483

      </xsl:for-each>

   484

      <xsl:variable name="targetid" select="substring-after(@xlink:href,'#')"/>

   485

      <xsl:apply-templates mode="unlink_clone" select="//svg:*[@id = $targetid]">

   486

        <xsl:with-param name="seed" select="@id"/>

   487

      </xsl:apply-templates>

   488

    </g>

   489

  </xsl:template>

   490

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

   491

    <xsl:param name="seed"/>

   492

    <xsl:attribute name="id">

   493

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

   494

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

   495