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:ns="beremiz" version="1.0" extension-element-prefixes="ns func exsl regexp str dyn" exclude-result-prefixes="ns func exsl regexp str dyn">

     3

  <xsl:output method="xml"/>

     4

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

     5

  <xsl:variable name="widgetparams" select="ns:GetWidgetParams()"/>

     6

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

     7

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

     8

  <xsl:variable name="newline">

     9

    <xsl:text>

    10

</xsl:text>

    11

  </xsl:variable>

    12

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

    13

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

    14

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

    15

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

    16

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

    17

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

    18

    <xsl:variable name="full_decl">

    19

      <xsl:choose>

    20

        <xsl:when test="$has_continuation">

    21

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

    22

          <xsl:variable name="continuation">

    23

            <xsl:choose>

    24

              <xsl:when test="$_continuation">

    25

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

    26

              </xsl:when>

    27

              <xsl:otherwise>

    28

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

    29

              </xsl:otherwise>

    30

            </xsl:choose>

    31

          </xsl:variable>

    32

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

    33

        </xsl:when>

    34

        <xsl:otherwise>

    35

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

    36

        </xsl:otherwise>

    37

      </xsl:choose>

    38

    </xsl:variable>

    39

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

    40

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

    41

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

    42

    <xsl:variable name="args">

    43

      <xsl:choose>

    44

        <xsl:when test="$_args">

    45

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

    46

        </xsl:when>

    47

        <xsl:otherwise>

    48

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

    49

        </xsl:otherwise>

    50

      </xsl:choose>

    51

    </xsl:variable>

    52

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

    53

    <xsl:variable name="typefreq">

    54

      <xsl:choose>

    55

        <xsl:when test="$_typefreq">

    56

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

    57

        </xsl:when>

    58

        <xsl:otherwise>

    59

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

    60

        </xsl:otherwise>

    61

      </xsl:choose>

    62

    </xsl:variable>

    63

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

    64

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

    65

    <xsl:variable name="type">

    66

      <xsl:choose>

    67

        <xsl:when test="$_type">

    68

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

    69

        </xsl:when>

    70

        <xsl:otherwise>

    71

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

    72

        </xsl:otherwise>

    73

      </xsl:choose>

    74

    </xsl:variable>

    75

    <xsl:if test="$type">

    76

      <widget>

    77

        <xsl:attribute name="id">

    78

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

    79

        </xsl:attribute>

    80

        <xsl:attribute name="type">

    81

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

    82

        </xsl:attribute>

    83

        <xsl:if test="$freq">

    84

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

    85

            <xsl:message terminate="yes">

    86

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

    87

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

    88

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

    89

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

    90

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

    91

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

    92

            </xsl:message>

    93

          </xsl:if>

    94

          <xsl:attribute name="freq">

    95

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

    96

          </xsl:attribute>

    97

        </xsl:if>

    98

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

    99

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

   100

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

   101

        <xsl:variable name="paths">

   102

          <xsl:choose>

   103

            <xsl:when test="$has_enable">

   104

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

   105

            </xsl:when>

   106

            <xsl:otherwise>

   107

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

   108

            </xsl:otherwise>

   109

          </xsl:choose>

   110

        </xsl:variable>

   111

        <xsl:if test="$has_enable">

   112

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

   113

          <xsl:attribute name="enable_expr">

   114

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

   115

          </xsl:attribute>

   116

        </xsl:if>

   117

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

   118

          <arg>

   119

            <xsl:attribute name="value">

   120

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

   121

            </xsl:attribute>

   122

          </arg>

   123

        </xsl:for-each>

   124

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

   125

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

   126

            <path>

   127

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

   128

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

   129

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

   130

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

   131

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

   132

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

   133

                <xsl:message terminate="yes">

   134

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

   135

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

   136

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

   137

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

   138

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

   139

                </xsl:message>

   140

              </xsl:if>

   141

              <xsl:attribute name="value">

   142

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

   143

              </xsl:attribute>

   144

              <xsl:if test="$pathassign">

   145

                <xsl:attribute name="assign">

   146

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

   147

                </xsl:attribute>

   148

              </xsl:if>

   149

              <xsl:choose>

   150

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

   151

                  <xsl:attribute name="min">

   152

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

   153

                  </xsl:attribute>

   154

                  <xsl:attribute name="max">

   155

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

   156

                  </xsl:attribute>

   157

                </xsl:when>

   158

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

   159

                  <xsl:message terminate="yes">

   160

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

   161

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

   162

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

   163

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

   164

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

   165

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

   166

                  </xsl:message>

   167

                </xsl:when>

   168

              </xsl:choose>

   169

              <xsl:if test="$indexed_hmitree">

   170

                <xsl:choose>

   171

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

   172

                    <xsl:attribute name="type">

   173

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

   174

                    </xsl:attribute>

   175

                  </xsl:when>

   176

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

   177

                    <xsl:attribute name="type">

   178

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

   179

                    </xsl:attribute>

   180

                  </xsl:when>

   181

                  <xsl:otherwise>

   182

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

   183

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

   184

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

   185

                      <xsl:message terminate="yes">

   186

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

   187

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

   188

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

   189

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

   190

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

   191

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

   192

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

   193

                      </xsl:message>

   194

                    </xsl:if>

   195

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

   196

                      <xsl:attribute name="index">

   197

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

   198

                      </xsl:attribute>

   199

                      <xsl:attribute name="type">

   200

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

   201

                      </xsl:attribute>

   202

                    </xsl:if>

   203

                  </xsl:otherwise>

   204

                </xsl:choose>

   205

              </xsl:if>

   206

            </path>

   207

          </xsl:if>

   208

        </xsl:for-each>

   209

        <xsl:choose>

   210

          <xsl:when test="$has_continuation">

   211

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

   212

            <xsl:if test="$_continuation">

   213

              <desc>

   214

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

   215

              </desc>

   216

            </xsl:if>

   217

          </xsl:when>

   218

          <xsl:otherwise>

   219

            <xsl:if test="$desc">

   220

              <desc>

   221

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

   222

              </desc>

   223

            </xsl:if>

   224

          </xsl:otherwise>

   225

        </xsl:choose>

   226

      </widget>

   227

    </xsl:if>

   228

  </xsl:template>

   229

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

   230

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

   231

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

   232

  </xsl:template>

   233

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

   234

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

   235

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

   236

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

   237

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

   238

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

   239

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

   240

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

   241

    </xsl:if>

   242

  </xsl:template>

   243

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

   244

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

   245

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

   246

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

   247

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

   248

  </xsl:template>

   249

  <xsl:variable name="_parsed_widgets">

   250

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

   251

  </xsl:variable>

   252

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

   253

  <xsl:variable name="svg_widget" select="$parsed_widgets/widget[1]"/>

   254

  <xsl:variable name="svg_widget_type" select="$svg_widget/@type"/>

   255

  <xsl:variable name="svg_widget_path" select="$svg_widget/@path"/>

   256

  <xsl:variable name="svg_widget_count" select="count($parsed_widgets/widget)"/>

   257

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

   258

    <xsl:copy>

   259

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

   260

    </xsl:copy>

   261

  </xsl:template>

   262

  <xsl:template mode="replace_params" match="arg"/>

   263

  <xsl:template mode="replace_params" match="path"/>

   264

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

   265

    <xsl:copy>

   266

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

   267

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

   268

    </xsl:copy>

   269

  </xsl:template>

   270

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

   271

    <xsl:copy/>

   272

  </xsl:template>

   273

  <xsl:template xmlns="http://www.w3.org/2000/svg" mode="inline_svg" match="@inkscape:label[starts-with(., 'HMI:')]"/>

   274

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

   275

    <xsl:copy>

   276

      <xsl:if test="@id = $svg_widget/@id">

   277

        <xsl:variable name="substituted_widget">

   278

          <xsl:apply-templates mode="replace_params" select="$svg_widget"/>

   279

        </xsl:variable>

   280

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

   281

        <xsl:variable name="new_label">

   282

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

   283

        </xsl:variable>

   284

        <xsl:attribute name="inkscape:label">

   285

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

   286

        </xsl:attribute>

   287

      </xsl:if>

   288

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

   289

    </xsl:copy>

   290

  </xsl:template>

   291

  <xsl:template match="/">

   292

    <xsl:comment>

   293

      <xsl:text>Widget dropped in Inkscape from Beremiz</xsl:text>

   294

    </xsl:comment>

   295

    <xsl:choose>

   296

      <xsl:when test="$svg_widget_count &lt; 1">

   297

        <xsl:message terminate="yes">

   298

          <xsl:text>No widget detected on selected SVG</xsl:text>

   299

        </xsl:message>

   300

      </xsl:when>

   301

      <xsl:when test="$svg_widget_count &gt; 1">

   302

        <xsl:message terminate="yes">

   303

          <xsl:text>Multiple widget DnD not yet supported</xsl:text>

   304

        </xsl:message>

   305

      </xsl:when>

   306

    </xsl:choose>

   307

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

   308

  </xsl:template>

   309

</xsl:stylesheet>