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()"/>

     9

  <xsl:variable name="_categories">

    10

    <noindex>

    11

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

    12

    </noindex>

    13

    <noindex>

    14

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

    15

    </noindex>

    16

    <noindex>

    17

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

    18

    </noindex>

    19

    <noindex>

    20

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

    21

    </noindex>

    22

    <noindex>

    23

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

    24

    </noindex>

    25

  </xsl:variable>

    26

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

    27

  <xsl:variable name="_indexed_hmitree">

    28

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

    29

  </xsl:variable>

    30

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

    31

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

    32

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

    33

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

    34

    <xsl:variable name="content">

    35

      <xsl:variable name="path">

    36

        <xsl:choose>

    37

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

    38

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

    39

          </xsl:when>

    40

          <xsl:otherwise>

    41

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

    42

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

    43

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

    44

          </xsl:otherwise>

    45

        </xsl:choose>

    46

      </xsl:variable>

    47

      <xsl:choose>

    48

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

    49

          <xsl:copy>

    50

            <xsl:attribute name="index">

    51

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

    52

            </xsl:attribute>

    53

            <xsl:attribute name="hmipath">

    54

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

    55

            </xsl:attribute>

    56

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

    57

              <xsl:copy/>

    58

            </xsl:for-each>

    59

          </xsl:copy>

    60

        </xsl:when>

    61

        <xsl:otherwise>

    62

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

    63

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

    64

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

    65

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

    66

            </xsl:with-param>

    67

          </xsl:apply-templates>

    68

        </xsl:otherwise>

    69

      </xsl:choose>

    70

    </xsl:variable>

    71

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

    72

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

    73

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

    74

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

    75

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

    76

      </xsl:with-param>

    77

    </xsl:apply-templates>

    78

  </xsl:template>

    79

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

    80

    <xsl:copy>

    81

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

    82

    </xsl:copy>

    83

  </xsl:template>

    84

  <xsl:template match="/">

    85

    <xsl:comment>

    86

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

    87

    </xsl:comment>

    88

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

    89

      <head/>

    90

      <body style="margin:0;">

    91

        <xsl:copy>

    92

          <xsl:comment>

    94

          </xsl:comment>

    95

          <xsl:comment>

    96

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

    97

          </xsl:comment>

    98

          <xsl:comment>

    99

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

   100

          </xsl:comment>

   101

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

   102

        </xsl:copy>

   103

        <script>

   104

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

   105

        </script>

   106

      </body>

   107

    </html>

   108

  </xsl:template>

   109

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

   110

    <xsl:param name="label"/>

   111

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

   112

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

   113

    <xsl:variable name="args">

   114

      <xsl:choose>

   115

        <xsl:when test="$_args">

   116

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

   117

        </xsl:when>

   118

        <xsl:otherwise>

   119

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

   120

        </xsl:otherwise>

   121

      </xsl:choose>

   122

    </xsl:variable>

   123

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

   124

    <xsl:variable name="type">

   125

      <xsl:choose>

   126

        <xsl:when test="$_type">

   127

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

   128

        </xsl:when>

   129

        <xsl:otherwise>

   130

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

   131

        </xsl:otherwise>

   132

      </xsl:choose>

   133

    </xsl:variable>

   134

    <xsl:variable name="ast">

   135

      <xsl:if test="$type">

   136

        <widget>

   137

          <xsl:attribute name="type">

   138

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

   139

          </xsl:attribute>

   141

            <arg>

   142

              <xsl:attribute name="value">

   143

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

   144

              </xsl:attribute>

   145

            </arg>

   146

          </xsl:for-each>

   147

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

   148

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

   149

            <path>

   150

              <xsl:attribute name="value">

   151

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

   152

              </xsl:attribute>

   153

            </path>

   154

          </xsl:for-each>

   155

        </widget>

   156

      </xsl:if>

   157

    </xsl:variable>

   158

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

   159

  </func:function>

   160

  <xsl:template name="scripts">

   161

    <xsl:text>var hmi_index = {

   162

</xsl:text>

   163

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

   164

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

   165

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

   166

      <xsl:text>: {

   167

</xsl:text>

   168

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

   169

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

   170

      <xsl:text>",

   171

</xsl:text>

   172

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

   173

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

   174

      <xsl:text>"

   175

</xsl:text>

   176

      <xsl:text>    ids: [

   177

</xsl:text>

   178

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

   179

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

   180

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

   181

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

   182

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

   183

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

   184

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

   185

        </xsl:if>

   186

        <xsl:text>

   187

</xsl:text>

   188

      </xsl:for-each>

   189

      <xsl:text>    ]

   190

</xsl:text>

   191

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

   192

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

   193

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

   194

      </xsl:if>

   195

      <xsl:text>

   196

</xsl:text>

   197

    </xsl:for-each>

   198

    <xsl:text>}

   199

</xsl:text>

   200

    <xsl:text>

   201

</xsl:text>

   202

    <xsl:text>var page_desc = {

   203

</xsl:text>

   230

    </xsl:for-each>

   231

    <xsl:text>}

   232

</xsl:text>

   233

    <xsl:text>// svghmi.js

   234

</xsl:text>

   235

    <xsl:text>

   236

</xsl:text>

   237

    <xsl:text>(function(){

   238

</xsl:text>

   239

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

   240

</xsl:text>

   241

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

   242

</xsl:text>

   243

    <xsl:text>

   244

</xsl:text>

   245

    <xsl:text>    // Register message reception handler 

   246

</xsl:text>

   247

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

   248

</xsl:text>

   249

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

   250

</xsl:text>

   251

    <xsl:text>

   252

</xsl:text>

   253

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

   254

</xsl:text>

   255

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

   256

</xsl:text>

   257

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

   258

</xsl:text>

   259

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

   260

</xsl:text>

   261

    <xsl:text>    };

   262

</xsl:text>

   263

    <xsl:text>

   264

</xsl:text>

   265

    <xsl:text>    // Once connection established

   266

</xsl:text>

   267

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

   268

</xsl:text>

   269

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

   270

</xsl:text>

   271

    <xsl:text>        //        show main page

   272

</xsl:text>

   273

    <xsl:text>

   274

</xsl:text>

   275

    <xsl:text>

   276

</xsl:text>

   277

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

   278

</xsl:text>

   279

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

   280

</xsl:text>

   281

    <xsl:text>    };

   282

</xsl:text>

   283

    <xsl:text>

   284

</xsl:text>

   285

    <xsl:text>    var pending_updates = {};

   286

</xsl:text>

   287

    <xsl:text>    

   288

</xsl:text>

   289

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

   290

</xsl:text>

   291

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

   292

</xsl:text>

   293

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

   294

</xsl:text>

   295

    <xsl:text>

   296

</xsl:text>

   297

    <xsl:text>

   298

</xsl:text>

   299

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

   300

</xsl:text>

   301

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

   302

</xsl:text>

   303

    <xsl:text>    var subscribers = {};

   304

</xsl:text>

   305

    <xsl:text>

   306

</xsl:text>

   307

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

   308

</xsl:text>

   309

    <xsl:text>    function update_subscriptions() {

   310

</xsl:text>

   311

    <xsl:text>        let delta = [];

   312

</xsl:text>

   313

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

   314

</xsl:text>

   315

    <xsl:text>

   316

</xsl:text>

   317

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

   318

</xsl:text>

   319

    <xsl:text>            delete subscriptions[index];

   320

</xsl:text>

   321

    <xsl:text>

   322

</xsl:text>

   323

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

   324

</xsl:text>

   325

    <xsl:text>

   326

</xsl:text>

   327

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

   328

</xsl:text>

   329

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

   330

</xsl:text>

   331

    <xsl:text>        })

   332

</xsl:text>

   333

    <xsl:text>        return result;

   334

</xsl:text>

   335

    <xsl:text>    }

   336

</xsl:text>

   337

    <xsl:text>

   338

</xsl:text>

   339

    <xsl:text>

   340

</xsl:text>

   341

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

   342

</xsl:text>

   343

    <xsl:text>

   344

</xsl:text>

   345

    <xsl:text>    };

   346

</xsl:text>

   347

    <xsl:text>

   348

</xsl:text>

   349

    <xsl:text>    function switch_page(page_name) {

   350

</xsl:text>

   351

    <xsl:text>

   352

</xsl:text>

   353

    <xsl:text>    };

   354

</xsl:text>

   355

    <xsl:text>

   356

</xsl:text>

   357

    <xsl:text>})();

   358

</xsl:text>

   359

  </xsl:template>

   360

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

   361

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

   362

    <xsl:text>{

   363

</xsl:text>

   364

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

   365

</xsl:text>

   366

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

   367

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

   368

    <xsl:text>";

   369

</xsl:text>

   370

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

   371

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

   372

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

   373

      <xsl:text>";

   374

</xsl:text>

   375

    </xsl:if>

   376

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

   377

</xsl:text>

   378

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

   379

    <xsl:text>

   380

</xsl:text>

   381

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

   382

</xsl:text>

   383

    <xsl:text>    res.push({

   384

</xsl:text>

   385

    <xsl:text>        path:path,

   386

</xsl:text>

   387

    <xsl:text>        role:role,

   388

</xsl:text>

   389

    <xsl:text>        name:name,

   390

</xsl:text>

   391

    <xsl:text>        priv:priv

   392

</xsl:text>

   393

    <xsl:text>    })

   394

</xsl:text>

   395

    <xsl:text>}

   396

</xsl:text>

   397

  </xsl:template>

   398

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

   399

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

   400

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

   401

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

   402

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

   403

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

   404

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

   405

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

   406

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

   407

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

   408

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

   409

    <xsl:text>

   410

</xsl:text>

   411

  </xsl:template>

   412

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

   413

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

   414

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

   415

    <xsl:text> </xsl:text>

   416

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

   417

    <xsl:text> </xsl:text>

   418

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

   419

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

   420

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

   421

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

   422

      <xsl:text> </xsl:text>

   423

    </xsl:for-each>

   424

    <xsl:text>

   425

</xsl:text>

   426

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

   427

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

   428

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

   429

      </xsl:with-param>

   430

    </xsl:apply-templates>

   431

  </xsl:template>

   432

</xsl:stylesheet>