1

<?xml version="1.0"?>

     2

<xsl:stylesheet xmlns:func="http://exslt.org/functions" xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape" xmlns:svg="http://www.w3.org/2000/svg" xmlns:str="http://exslt.org/strings" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:exsl="http://exslt.org/common" xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd" xmlns:ns="beremiz" xmlns:cc="http://creativecommons.org/ns#" xmlns:regexp="http://exslt.org/regular-expressions" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:dc="http://purl.org/dc/elements/1.1/" extension-element-prefixes="ns func" version="1.0" exclude-result-prefixes="ns str regexp exsl func">

     3

  <xsl:output method="xml" cdata-section-elements="script"/>

     4

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

     5

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

     6

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

     7

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

     8

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

     9

  <xsl:variable name="default_page">

    10

    <xsl:choose>

    11

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

    12

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

    13

        <xsl:choose>

    14

          <xsl:when test="$Home_page">

    15

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

    16

          </xsl:when>

    17

          <xsl:otherwise>

    18

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

    19

          </xsl:otherwise>

    20

        </xsl:choose>

    21

      </xsl:when>

    22

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

    23

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

    24

      </xsl:when>

    25

      <xsl:otherwise>

    26

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

    27

      </xsl:otherwise>

    28

    </xsl:choose>

    29

  </xsl:variable>

    30

  <xsl:variable name="_categories">

    31

    <noindex>

    32

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

    33

    </noindex>

    34

    <noindex>

    35

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

    36

    </noindex>

    37

    <noindex>

    38

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

    39

    </noindex>

    40

    <noindex>

    41

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

    42

    </noindex>

    43

    <noindex>

    44

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

    45

    </noindex>

    46

  </xsl:variable>

    47

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

    48

  <xsl:variable name="_indexed_hmitree">

    49

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

    50

  </xsl:variable>

    51

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

    52

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

    53

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

    54

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

    55

    <xsl:variable name="content">

    56

      <xsl:variable name="path">

    57

        <xsl:choose>

    58

          <xsl:when test="local-name() = 'HMI_ROOT'">

    59

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

    60

          </xsl:when>

    61

          <xsl:otherwise>

    62

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

    63

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

    64

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

    65

          </xsl:otherwise>

    66

        </xsl:choose>

    67

      </xsl:variable>

    68

      <xsl:choose>

    69

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

    70

          <xsl:copy>

    71

            <xsl:attribute name="index">

    72

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

    73

            </xsl:attribute>

    74

            <xsl:attribute name="hmipath">

    75

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

    76

            </xsl:attribute>

    77

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

    78

              <xsl:copy/>

    79

            </xsl:for-each>

    80

          </xsl:copy>

    81

        </xsl:when>

    82

        <xsl:otherwise>

    83

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

    84

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

    85

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

    86

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

    87

            </xsl:with-param>

    88

          </xsl:apply-templates>

    89

        </xsl:otherwise>

    90

      </xsl:choose>

    91

    </xsl:variable>

    92

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

    93

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

    94

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

    95

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

    96

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

    97

      </xsl:with-param>

    98

    </xsl:apply-templates>

    99

  </xsl:template>

   100

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

   101

    <xsl:copy>

   102

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

   103

    </xsl:copy>

   104

  </xsl:template>

   105

  <xsl:template match="/">

   106

    <xsl:comment>

   107

      <xsl:text>Made with SVGHMI. https://beremiz.org</xsl:text>

   108

    </xsl:comment>

   109

    <html xmlns="http://www.w3.org/1999/xhtml">

   110

      <head/>

   111

      <body style="margin:0;">

   112

        <xsl:copy>

   113

          <xsl:comment>

   114

            <xsl:apply-templates mode="testgeo" select="$hmi_geometry"/>

   115

          </xsl:comment>

   116

          <xsl:comment>

   117

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

   118

          </xsl:comment>

   119

          <xsl:comment>

   120

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

   121

          </xsl:comment>

   122

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

   123

        </xsl:copy>

   124

        <script>

   125

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

   126

        </script>

   127

      </body>

   128

    </html>

   129

  </xsl:template>

   130

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

   131

    <xsl:param name="label"/>

   132

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

   133

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

   134

    <xsl:variable name="args">

   135

      <xsl:choose>

   136

        <xsl:when test="$_args">

   137

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

   138

        </xsl:when>

   139

        <xsl:otherwise>

   140

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

   141

        </xsl:otherwise>

   142

      </xsl:choose>

   143

    </xsl:variable>

   144

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

   145

    <xsl:variable name="type">

   146

      <xsl:choose>

   147

        <xsl:when test="$_type">

   148

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

   149

        </xsl:when>

   150

        <xsl:otherwise>

   151

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

   152

        </xsl:otherwise>

   153

      </xsl:choose>

   154

    </xsl:variable>

   155

    <xsl:variable name="ast">

   156

      <xsl:if test="$type">

   157

        <widget>

   158

          <xsl:attribute name="type">

   159

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

   160

          </xsl:attribute>

   161

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

   162

            <arg>

   163

              <xsl:attribute name="value">

   164

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

   165

              </xsl:attribute>

   166

            </arg>

   167

          </xsl:for-each>

   168

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

   169

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

   170

            <path>

   171

              <xsl:attribute name="value">

   172

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

   173

              </xsl:attribute>

   174

            </path>

   175

          </xsl:for-each>

   176

        </widget>

   177

      </xsl:if>

   178

    </xsl:variable>

   179

    <func:result select="exsl:node-set($ast)"/>

   180

  </func:function>

   181

  <xsl:template name="scripts">

   182

    <xsl:text>var hmi_index = {

   183

</xsl:text>

   184

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

   185

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

   186

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

   187

      <xsl:text>: {

   188

</xsl:text>

   189

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

   190

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

   191

      <xsl:text>",

   192

</xsl:text>

   193

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

   194

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

   195

      <xsl:text>"

   196

</xsl:text>

   197

      <xsl:text>    ids: [

   198

</xsl:text>

   199

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

   200

      <xsl:for-each select="$svg//*[substring-after(@inkscape:label,'@') = $hmipath]">

   201

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

   202

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

   203

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

   204

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

   205

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

   206

        </xsl:if>

   207

        <xsl:text>

   208

</xsl:text>

   209

      </xsl:for-each>

   210

      <xsl:text>    ]

   211

</xsl:text>

   212

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

   213

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

   214

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

   215

      </xsl:if>

   216

      <xsl:text>

   217

</xsl:text>

   218

    </xsl:for-each>

   219

    <xsl:text>}

   220

</xsl:text>

   221

    <xsl:text>

   222

</xsl:text>

   223

    <xsl:text>var page_desc = {

   224

</xsl:text>

   225

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

   226

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

   227

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

   228

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

   229

      <xsl:text>": {

   230

</xsl:text>

   231

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

   232

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

   233

      <xsl:text>",

   234

</xsl:text>

   235

      <xsl:text>        widgets: [

   236

</xsl:text>

   237

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

   238

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

   240

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

   241

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

   242

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

   243

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

   244

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

   245

        </xsl:if>

   246

        <xsl:text>

   247

</xsl:text>

   248

      </xsl:for-each>

   249

      <xsl:text>        ]

   250

</xsl:text>

   251

    </xsl:for-each>

   252

    <xsl:text>}

   253

</xsl:text>

   254

    <xsl:text>

   255

</xsl:text>

   256

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

   257

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

   258

    <xsl:text>";

   259

</xsl:text>

   260

    <xsl:text>// svghmi.js

   261

</xsl:text>

   262

    <xsl:text>

   263

</xsl:text>

   264

    <xsl:text>(function(){

   265

</xsl:text>

   266

    <xsl:text>    // Open WebSocket to relative "/ws" address

   267

</xsl:text>

   268

    <xsl:text>    var ws = new WebSocket(window.location.href.replace(/^http(s?:\/\/[^\/]*)\/.*$/, 'ws$1/ws'));

   269

</xsl:text>

   270

    <xsl:text>

   271

</xsl:text>

   272

    <xsl:text>    // Register message reception handler 

   273

</xsl:text>

   274

    <xsl:text>    ws.onmessage = function (evt) {

   275

</xsl:text>

   276

    <xsl:text>        // TODO : dispatch and cache hmi tree updates

   277

</xsl:text>

   278

    <xsl:text>

   279

</xsl:text>

   280

    <xsl:text>        var received_msg = evt.data;

   281

</xsl:text>

   282

    <xsl:text>        // TODO : check for hmitree hash header

   283

</xsl:text>

   284

    <xsl:text>        //        if not matching, reload page

   285

</xsl:text>

   286

    <xsl:text>        alert("Message is received..."+received_msg); 

   287

</xsl:text>

   288

    <xsl:text>    };

   289

</xsl:text>

   290

    <xsl:text>

   291

</xsl:text>

   292

    <xsl:text>    // Once connection established

   293

</xsl:text>

   294

    <xsl:text>    ws.onopen = function (evt) {

   295

</xsl:text>

   296

    <xsl:text>        // TODO : enable the HMI (was previously offline, or just starts)

   297

</xsl:text>

   298

    <xsl:text>        //        show main page

   299

</xsl:text>

   300

    <xsl:text>

   301

</xsl:text>

   302

    <xsl:text>

   303

</xsl:text>

   304

    <xsl:text>        // TODO : prefix with hmitree hash header

   305

</xsl:text>

   306

    <xsl:text>        ws.send("test");

   307

</xsl:text>

   308

    <xsl:text>    };

   309

</xsl:text>

   310

    <xsl:text>

   311

</xsl:text>

   312

    <xsl:text>    var pending_updates = {};

   313

</xsl:text>

   314

    <xsl:text>    

   315

</xsl:text>

   316

    <xsl:text>    // subscription state, as it should be in hmi server

   317

</xsl:text>

   318

    <xsl:text>    // expected {index:period}

   319

</xsl:text>

   320

    <xsl:text>    const subscriptions = new Map();

   321

</xsl:text>

   322

    <xsl:text>

   323

</xsl:text>

   324

    <xsl:text>

   325

</xsl:text>

   326

    <xsl:text>    // subscription state as needed by widget now

   327

</xsl:text>

   328

    <xsl:text>    // expected {index:[widgets]};

   329

</xsl:text>

   330

    <xsl:text>    var subscribers = {};

   331

</xsl:text>

   332

    <xsl:text>

   333

</xsl:text>

   334

    <xsl:text>    // return the diff in between curently subscribed and subscription

   335

</xsl:text>

   336

    <xsl:text>    function update_subscriptions() {

   337

</xsl:text>

   338

    <xsl:text>        let delta = [];

   339

</xsl:text>

   340

    <xsl:text>        Object.keys(subscribers).forEach(index =&gt; {

   341

</xsl:text>

   342

    <xsl:text>

   343

</xsl:text>

   344

    <xsl:text>            let previous_period = subscriptions.get(index);

   345

</xsl:text>

   346

    <xsl:text>            delete subscriptions[index];

   347

</xsl:text>

   348

    <xsl:text>

   349

</xsl:text>

   350

    <xsl:text>            let new_period = Math.min(...widgets.map(widget =&gt; widget.period));

   351

</xsl:text>

   352

    <xsl:text>

   353

</xsl:text>

   354

    <xsl:text>            if(previous_period != new_period) 

   355

</xsl:text>

   356

    <xsl:text>                delta.push({index: index, period: new_period});

   357

</xsl:text>

   358

    <xsl:text>        })

   359

</xsl:text>

   360

    <xsl:text>        return result;

   361

</xsl:text>

   362

    <xsl:text>    }

   363

</xsl:text>

   364

    <xsl:text>

   365

</xsl:text>

   366

    <xsl:text>

   367

</xsl:text>

   368

    <xsl:text>    function update_value(index, value) {

   369

</xsl:text>

   370

    <xsl:text>

   371

</xsl:text>

   372

    <xsl:text>    };

   373

</xsl:text>

   374

    <xsl:text>

   375

</xsl:text>

   376

    <xsl:text>    function switch_page(page_name) {

   377

</xsl:text>

   378

    <xsl:text>

   379

</xsl:text>

   380

    <xsl:text>    };

   381

</xsl:text>

   382

    <xsl:text>

   383

</xsl:text>

   384

    <xsl:text>})();

   385

</xsl:text>

   386

  </xsl:template>

   387

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

   388

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

   389

    <xsl:text>{

   390

</xsl:text>

   391

    <xsl:text>    var path, role, name, priv;

   392

</xsl:text>

   393

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

   394

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

   395

    <xsl:text>";

   396

</xsl:text>

   397

    <xsl:if test="@inkscape:label">

   398

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

   399

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

   400

      <xsl:text>";

   401

</xsl:text>

   402

    </xsl:if>

   403

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

   404

</xsl:text>

   405

    <xsl:value-of select="substring-after(svg:desc, $mark)"/>

   406

    <xsl:text>

   407

</xsl:text>

   408

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

   409

</xsl:text>

   410

    <xsl:text>    res.push({

   411

</xsl:text>

   412

    <xsl:text>        path:path,

   413

</xsl:text>

   414

    <xsl:text>        role:role,

   415

</xsl:text>

   416

    <xsl:text>        name:name,

   417

</xsl:text>

   418

    <xsl:text>        priv:priv

   419

</xsl:text>

   420

    <xsl:text>    })

   421

</xsl:text>

   422

    <xsl:text>}

   423

</xsl:text>

   424

  </xsl:template>

   425

  <xsl:template mode="testgeo" match="bbox">

   426

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

   427

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

   428

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

   429

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

   430

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

   431

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

   432

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

   433

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

   434

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

   435

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

   436

    <xsl:text>

   437

</xsl:text>

   438

  </xsl:template>

   439

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

   440

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

   441

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

   442

    <xsl:text> </xsl:text>

   443

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

   444

    <xsl:text> </xsl:text>

   445

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

   446

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

   447

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

   448

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

   449

      <xsl:text> </xsl:text>

   450

    </xsl:for-each>

   451

    <xsl:text>

   452

</xsl:text>

   453

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

   454

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

   455

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

   456

      </xsl:with-param>

   457

    </xsl:apply-templates>

   458

  </xsl:template>

   459

</xsl:stylesheet>