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:svg="http://www.w3.org/2000/svg" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" version="1.0" extension-element-prefixes="ns func exsl regexp str dyn" exclude-result-prefixes="ns func exsl regexp str dyn svg inkscape">

     3

  <xsl:output method="xml"/>

     4

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

     5

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

     6

  <xsl:variable name="newline">

     7

    <xsl:text>

     8

</xsl:text>

     9

  </xsl:variable>

    10

  <xsl:variable name="twonewlines" select="concat($newline,$newline)"/>

    11

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

    12

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

    13

    <xsl:variable name="desc" select="svg:desc"/>

    14

    <xsl:variable name="len" select="string-length($label)"/>

    15

    <xsl:variable name="has_continuation" select="substring($label,$len,1)='\'"/>

    16

    <xsl:variable name="full_decl">

    17

      <xsl:choose>

    18

        <xsl:when test="$has_continuation">

    19

          <xsl:variable name="_continuation" select="substring-before($desc, $twonewlines)"/>

    20

          <xsl:variable name="continuation">

    21

            <xsl:choose>

    22

              <xsl:when test="$_continuation">

    23

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

    24

              </xsl:when>

    25

              <xsl:otherwise>

    26

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

    27

              </xsl:otherwise>

    28

            </xsl:choose>

    29

          </xsl:variable>

    30

          <xsl:value-of select="concat(substring($label,1,$len - 1),translate($continuation,$newline,''))"/>

    31

        </xsl:when>

    32

        <xsl:otherwise>

    33

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

    34

        </xsl:otherwise>

    35

      </xsl:choose>

    36

    </xsl:variable>

    37

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

    38

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

    39

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

    40

    <xsl:variable name="args">

    41

      <xsl:choose>

    42

        <xsl:when test="$_args">

    43

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

    44

        </xsl:when>

    45

        <xsl:otherwise>

    46

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

    47

        </xsl:otherwise>

    48

      </xsl:choose>

    49

    </xsl:variable>

    50

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

    51

    <xsl:variable name="typefreq">

    52

      <xsl:choose>

    53

        <xsl:when test="$_typefreq">

    54

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

    55

        </xsl:when>

    56

        <xsl:otherwise>

    57

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

    58

        </xsl:otherwise>

    59

      </xsl:choose>

    60

    </xsl:variable>

    61

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

    62

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

    63

    <xsl:variable name="type">

    64

      <xsl:choose>

    65

        <xsl:when test="$_type">

    66

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

    67

        </xsl:when>

    68

        <xsl:otherwise>

    69

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

    70

        </xsl:otherwise>

    71

      </xsl:choose>

    72

    </xsl:variable>

    73

    <xsl:if test="$type">

    74

      <widget>

    75

        <xsl:attribute name="id">

    76

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

    77

        </xsl:attribute>

    78

        <xsl:attribute name="type">

    79

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

    80

        </xsl:attribute>

    81

        <xsl:if test="$freq">

    82

          <xsl:if test="not(regexp:test($freq,'^[0-9]*(\.[0-9]+)?[smh]?'))">

    83

            <xsl:message terminate="yes">

    84

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

    85

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

    86

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

    87

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

    88

              <xsl:text> has wrong syntax of frequency forcing </xsl:text>

    89

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

    90

            </xsl:message>

    91

          </xsl:if>

    92

          <xsl:attribute name="freq">

    93

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

    94

          </xsl:attribute>

    95

        </xsl:if>

    96

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

    97

        <xsl:variable name="taillen" select="string-length($tail)"/>

    98

        <xsl:variable name="has_enable" select="contains($tail, '#')"/>

    99

        <xsl:variable name="paths">

   100

          <xsl:choose>

   101

            <xsl:when test="$has_enable">

   102

              <xsl:value-of select="substring-before($tail,'#')"/>

   103

            </xsl:when>

   104

            <xsl:otherwise>

   105

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

   106

            </xsl:otherwise>

   107

          </xsl:choose>

   108

        </xsl:variable>

   109

        <xsl:if test="$has_enable">

   110

          <xsl:variable name="enable_expr" select="substring-after($tail,'#')"/>

   111

          <xsl:attribute name="enable_expr">

   112

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

   113

          </xsl:attribute>

   114

        </xsl:if>

   115

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

   116

          <arg>

   117

            <xsl:attribute name="value">

   118

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

   119

            </xsl:attribute>

   120

          </arg>

   121

        </xsl:for-each>

   122

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

   123

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

   124

            <path>

   125

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

   126

              <xsl:variable name="pathassign" select="substring-before($path_match[2],'=')"/>

   127

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

   128

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

   129

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

   130

              <xsl:if test="not($path)">

   131

                <xsl:message terminate="yes">

   132

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

   133

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

   134

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

   135

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

   136

                  <xsl:text> has wrong syntax</xsl:text>

   137

                </xsl:message>

   138

              </xsl:if>

   139

              <xsl:attribute name="value">

   140

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

   141

              </xsl:attribute>

   142

              <xsl:if test="$pathassign">

   143

                <xsl:attribute name="assign">

   144

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

   145

                </xsl:attribute>

   146

              </xsl:if>

   147

              <xsl:choose>

   148

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

   149

                  <xsl:attribute name="min">

   150

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

   151

                  </xsl:attribute>

   152

                  <xsl:attribute name="max">

   153

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

   154

                  </xsl:attribute>

   155

                </xsl:when>

   156

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

   157

                  <xsl:message terminate="yes">

   158

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

   159

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

   160

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

   161

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

   162

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

   163

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

   164

                  </xsl:message>

   165

                </xsl:when>

   166

              </xsl:choose>

   167

              <xsl:if test="$indexed_hmitree">

   168

                <xsl:choose>

   169

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

   170

                    <xsl:attribute name="type">

   171

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

   172

                    </xsl:attribute>

   173

                  </xsl:when>

   174

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

   175

                    <xsl:attribute name="type">

   176

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

   177

                    </xsl:attribute>

   178

                  </xsl:when>

   179

                  <xsl:otherwise>

   180

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

   181

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

   182

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

   183

                      <xsl:message terminate="yes">

   184

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

   185

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

   186

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

   187

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

   188

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

   189

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

   190

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

   191

                      </xsl:message>

   192

                    </xsl:if>

   193

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

   194

                      <xsl:attribute name="index">

   195

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

   196

                      </xsl:attribute>

   197

                      <xsl:attribute name="type">

   198

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

   199

                      </xsl:attribute>

   200

                    </xsl:if>

   201

                  </xsl:otherwise>

   202

                </xsl:choose>

   203

              </xsl:if>

   204

            </path>

   205

          </xsl:if>

   206

        </xsl:for-each>

   207

        <xsl:choose>

   208

          <xsl:when test="$has_continuation">

   209

            <xsl:variable name="_continuation" select="substring-after($desc, $twonewlines)"/>

   210

            <xsl:if test="$_continuation">

   211

              <desc>

   212

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

   213

              </desc>

   214

            </xsl:if>

   215

          </xsl:when>

   216

          <xsl:otherwise>

   217

            <xsl:if test="$desc">

   218

              <desc>

   219

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

   220

              </desc>

   221

            </xsl:if>

   222

          </xsl:otherwise>

   223

        </xsl:choose>

   224

      </widget>

   225

    </xsl:if>

   226

  </xsl:template>

   227

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

   228

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

   229

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

   230

  </xsl:template>

   231

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

   232

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

   233

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

   234

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

   235

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

   236

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

   237

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

   238

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

   239

    </xsl:if>

   240

  </xsl:template>

   241

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

   242

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

   243

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

   244

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

   245

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

   246

  </xsl:template>

   247

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

   248

  <xsl:template match="widget[@type='AnimateRotation']" mode="widget_desc">

   249

    <type>

   250

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

   251

    </type>

   252

    <longdesc>

   253

      <xsl:text>AnimateRotation - DEPRECATED, do not use.

   254

</xsl:text>

   255

      <xsl:text>Doesn't follow WYSIWYG principle, and forces user to add animateTransform tag in SVG (using inkscape XML editor for exemple)

   256

</xsl:text>

   257

    </longdesc>

   258

    <shortdesc>

   259

      <xsl:text>AnimateRotation - DEPRECATED</xsl:text>

   260

    </shortdesc>

   261

    <path name="speed" accepts="HMI_INT,HMI_REAL">

   262

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

   263

    </path>

   264

  </xsl:template>

   265

  <xsl:template match="widget[@type='Assign']" mode="widget_desc">

   266

    <type>

   267

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

   268

    </type>

   269

    <longdesc>

   270

      <xsl:text>

   271

</xsl:text>

   272

      <xsl:text>Arguments are either:

   273

</xsl:text>

   274

      <xsl:text>

   275

</xsl:text>

   276

      <xsl:text>- name=value: setting variable with literal value.

   277

</xsl:text>

   278

      <xsl:text>- name=other_name: copy variable content into another

   279

</xsl:text>

   280

      <xsl:text>

   281

</xsl:text>

   282

      <xsl:text>"active"+"inactive" labeled elements can be provided to show feedback when pressed

   283

</xsl:text>

   284

      <xsl:text>

   285

</xsl:text>

   286

      <xsl:text>Exemples:

   287

</xsl:text>

   288

      <xsl:text>

   289

</xsl:text>

   290

      <xsl:text>HMI:Assign:notify=1@notify=/PLCVAR

   291

</xsl:text>

   292

      <xsl:text>HMI:Assign:ack=2:notify=1@ack=.local_var@notify=/PLCVAR

   293

</xsl:text>

   294

      <xsl:text>

   295

</xsl:text>

   296

    </longdesc>

   297

    <shortdesc>

   298

      <xsl:text>Assign variables on click</xsl:text>

   299

    </shortdesc>

   300

  </xsl:template>

   301

  <xsl:template match="widget[@type='Back']" mode="widget_desc">

   302

    <type>

   303

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

   304

    </type>

   305

    <longdesc>

   306

      <xsl:text>Back widget brings focus back to previous page in history when clicked.

   307

</xsl:text>

   308

    </longdesc>

   309

    <shortdesc>

   310

      <xsl:text>Jump to previous page</xsl:text>

   311

    </shortdesc>

   312

  </xsl:template>

   313

  <xsl:template match="widget[@type='Button']" mode="widget_desc">

   314

    <type>

   315

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

   316

    </type>

   317

    <longdesc>

   318

      <xsl:text>Button widget takes one boolean variable path, and reflect current true

   319

</xsl:text>

   320

      <xsl:text>or false value by showing "active" or "inactive" labeled element

   321

</xsl:text>

   322

      <xsl:text>respectively. Pressing and releasing button changes variable to true and

   323

</xsl:text>

   324

      <xsl:text>false respectively. Potential inconsistency caused by quick consecutive

   325

</xsl:text>

   326

      <xsl:text>presses on the button is mitigated by using a state machine that wait for

   327

</xsl:text>

   328

      <xsl:text>previous state change to be reflected on variable before applying next one.

   329

</xsl:text>

   330

    </longdesc>

   331

    <shortdesc>

   332

      <xsl:text>Push button reflecting consistently given boolean variable</xsl:text>

   333

    </shortdesc>

   334

    <path name="value" accepts="HMI_BOOL">

   335

      <xsl:text>Boolean variable</xsl:text>

   336

    </path>

   337

  </xsl:template>

   338

  <xsl:template name="generated_button_class">

   339

    <xsl:param name="fsm"/>

   340

    <xsl:text>    state = "init";

   341

</xsl:text>

   342

    <xsl:text>    dispatch(value) {

   343

</xsl:text>

   344

    <xsl:apply-templates mode="dispatch_transition" select="$fsm"/>

   345

    <xsl:text>    }

   346

</xsl:text>

   347

    <xsl:text>    onmouseup(evt) {

   348

</xsl:text>

   349

    <xsl:text>        svg_root.removeEventListener("pointerup", this.bound_onmouseup, true);

   350

</xsl:text>

   351

    <xsl:apply-templates mode="mouse_transition" select="$fsm">

   352

      <xsl:with-param name="position" select="'up'"/>

   353

    </xsl:apply-templates>

   354

    <xsl:text>    }

   355

</xsl:text>

   356

    <xsl:text>    onmousedown(evt) {

   357

</xsl:text>

   358

    <xsl:text>        svg_root.addEventListener("pointerup", this.bound_onmouseup, true);

   359

</xsl:text>

   360

    <xsl:apply-templates mode="mouse_transition" select="$fsm">

   361

      <xsl:with-param name="position" select="'down'"/>

   362

    </xsl:apply-templates>

   363

    <xsl:text>    }

   364

</xsl:text>

   365

    <xsl:apply-templates mode="actions" select="$fsm"/>

   366

    <xsl:text>    init() {

   367

</xsl:text>

   368

    <xsl:text>        this.bound_onmouseup = this.onmouseup.bind(this);

   369

</xsl:text>

   370

    <xsl:text>        this.element.addEventListener("pointerdown", this.onmousedown.bind(this));

   371

</xsl:text>

   372

    <xsl:text>        this.activity_state = undefined;

   373

</xsl:text>

   374

    <xsl:text>    }

   375

</xsl:text>

   376

  </xsl:template>

   377

  <xsl:template match="widget[@type='CircularBar']" mode="widget_desc">

   378

    <type>

   379

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

   380

    </type>

   381

    <longdesc>

   382

      <xsl:text>CircularBar widget changes the end angle of a "path" labeled arc according

   383

</xsl:text>

   384

      <xsl:text>to value of the single accepted variable.

   385

</xsl:text>

   386

      <xsl:text>

   387

</xsl:text>

   388

      <xsl:text>If "min" a "max" labeled texts are provided, then they are used as

   389

</xsl:text>

   390

      <xsl:text>respective minimum and maximum value. Otherwise, value is expected to be

   391

</xsl:text>

   392

      <xsl:text>in between 0 and 100.

   393

</xsl:text>

   394

    </longdesc>

   395

    <shortdesc>

   396

      <xsl:text>Change end angle of Inkscape's arc</xsl:text>

   397

    </shortdesc>

   398

    <arg name="min" count="optional" accepts="int,real">

   399

      <xsl:text>minimum value</xsl:text>

   400

    </arg>

   401

    <arg name="max" count="optional" accepts="int,real">

   402

      <xsl:text>maximum value</xsl:text>

   403

    </arg>

   404

    <path name="value" accepts="HMI_INT,HMI_REAL">

   405

      <xsl:text>Value to display</xsl:text>

   406

    </path>

   407

  </xsl:template>

   408

  <xsl:template match="widget[@type='CircularSlider']" mode="widget_desc">

   409

    <type>

   410

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

   411

    </type>

   412

    <longdesc>

   413

      <xsl:text>CircularSlider - DEPRECATED, to be replaced by PathSlider

   414

</xsl:text>

   415

      <xsl:text>This widget moves "handle" labeled group along "range" labeled

   416

</xsl:text>

   417

      <xsl:text>arc, according to value of the single accepted variable.

   418

</xsl:text>

   419

      <xsl:text>

   420

</xsl:text>

   421

      <xsl:text>If "min" a "max" labeled texts are provided, or if first and second

   422

</xsl:text>

   423

      <xsl:text>argument are given, then they are used as respective minimum and maximum

   424

</xsl:text>

   425

      <xsl:text>value. Otherwise, value is expected to be in between 0 and 100.

   426

</xsl:text>

   427

      <xsl:text>

   428

</xsl:text>

   429

      <xsl:text>If "value" labeled text is found, then its content is replaced by value.

   430

</xsl:text>

   431

      <xsl:text>During drag, "setpoint" labeled group is moved to position defined by user

   432

</xsl:text>

   433

      <xsl:text>while "handle" reflects current value from variable.

   434

</xsl:text>

   435

    </longdesc>

   436

    <shortdesc>

   437

      <xsl:text>CircularSlider - DEPRECATED</xsl:text>

   438

    </shortdesc>

   439

    <arg name="min" count="optional" accepts="int,real">

   440

      <xsl:text>minimum value</xsl:text>

   441

    </arg>

   442

    <arg name="min" count="optional" accepts="int,real">

   443

      <xsl:text>maximum value</xsl:text>

   444

    </arg>

   445

    <path name="value" accepts="HMI_INT,HMI_REAL">

   446

      <xsl:text>Value to display</xsl:text>

   447

    </path>

   448

  </xsl:template>

   449

  <xsl:template match="widget[@type='CustomHtml']" mode="widget_desc">

   450

    <type>

   451

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

   452

    </type>

   453

    <longdesc>

   454

      <xsl:text>CustomHtml widget allows insertion of HTML code in a svg:foreignObject.

   455

</xsl:text>

   456

      <xsl:text>Widget content is replaced by foreignObject. HTML code is obtained from

   457

</xsl:text>

   458

      <xsl:text>"code" labeled text content. HTML insert position and size is given with

   459

</xsl:text>

   460

      <xsl:text>"container" labeled element.

   461

</xsl:text>

   462

    </longdesc>

   463

    <shortdesc>

   464

      <xsl:text>Custom HTML insert</xsl:text>

   465

    </shortdesc>

   466

  </xsl:template>

   467

  <xsl:template match="widget[@type='Display']" mode="widget_desc">

   468

    <type>

   469

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

   470

    </type>

   471

    <longdesc>

   472

      <xsl:text>If Display widget is a svg:text element, then text content is replaced by

   473

</xsl:text>

   474

      <xsl:text>value of given variables, space separated.

   475

</xsl:text>

   476

      <xsl:text>

   477

</xsl:text>

   478

      <xsl:text>Otherwise, if Display widget is a group containing a svg:text element

   479

</xsl:text>

   480

      <xsl:text>labelled "format", then text content is replaced by printf-like formated

   481

</xsl:text>

   482

      <xsl:text>string. In other words, if "format" labeled text is "%d %s %f", then 3

   483

</xsl:text>

   484

      <xsl:text>variables paths are expected : HMI_IN, HMI_STRING and HMI_REAL.

   485

</xsl:text>

   486

      <xsl:text>

   487

</xsl:text>

   488

      <xsl:text>In case Display widget is a svg::text element, it is also possible to give

   489

</xsl:text>

   490

      <xsl:text>format string as first argument.

   491

</xsl:text>

   492

    </longdesc>

   493

    <shortdesc>

   494

      <xsl:text>Printf-like formated text display</xsl:text>

   495

    </shortdesc>

   496

    <arg name="format" count="optional" accepts="string">

   497

      <xsl:text>printf-like format string when not given as svg:text</xsl:text>

   498

    </arg>

   499

    <path name="fields" count="many" accepts="HMI_INT,HMI_REAL,HMI_STRING,HMI_BOOL">

   500

      <xsl:text>variables to be displayed</xsl:text>

   501

    </path>