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="'^([^\[,]+)(\[[^\]]+\])?([-.\d,]*)$'"/>

     8

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

     9

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

    10

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

    11

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

    12

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

    13

    <xsl:variable name="args">

    14

      <xsl:choose>

    15

        <xsl:when test="$_args">

    16

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

    17

        </xsl:when>

    18

        <xsl:otherwise>

    19

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

    20

        </xsl:otherwise>

    21

      </xsl:choose>

    22

    </xsl:variable>

    23

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

    24

    <xsl:variable name="typefreq">

    25

      <xsl:choose>

    26

        <xsl:when test="$_typefreq">

    27

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

    28

        </xsl:when>

    29

        <xsl:otherwise>

    30

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

    31

        </xsl:otherwise>

    32

      </xsl:choose>

    33

    </xsl:variable>

    34

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

    35

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

    36

    <xsl:variable name="type">

    37

      <xsl:choose>

    38

        <xsl:when test="$_type">

    39

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

    40

        </xsl:when>

    41

        <xsl:otherwise>

    42

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

    43

        </xsl:otherwise>

    44

      </xsl:choose>

    45

    </xsl:variable>

    46

    <xsl:if test="$type">

    47

      <widget>

    48

        <xsl:attribute name="id">

    49

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

    50

        </xsl:attribute>

    51

        <xsl:attribute name="type">

    52

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

    53

        </xsl:attribute>

    54

        <xsl:if test="$freq">

    55

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

    56

            <xsl:message terminate="yes">

    57

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

    58

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

    59

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

    60

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

    61

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

    62

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

    63

            </xsl:message>

    64

          </xsl:if>

    65

          <xsl:attribute name="freq">

    66

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

    67

          </xsl:attribute>

    68

        </xsl:if>

    69

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

    70

          <arg>

    71

            <xsl:attribute name="value">

    72

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

    73

            </xsl:attribute>

    74

          </arg>

    75

        </xsl:for-each>

    76

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

    77

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

    78

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

    79

            <path>

    80

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

    81

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

    82

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

    83

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

    84

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

    85

              <xsl:attribute name="value">

    86

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

    87

              </xsl:attribute>

    88

              <xsl:if test="string-length($path_accepts)">

    89

                <xsl:attribute name="accepts">

    90

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

    91

                </xsl:attribute>

    92

              </xsl:if>

    93

              <xsl:choose>

    94

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

    95

                  <xsl:attribute name="min">

    96

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

    97

                  </xsl:attribute>

    98

                  <xsl:attribute name="max">

    99

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

   100

                  </xsl:attribute>

   101

                </xsl:when>

   102

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

   103

                  <xsl:message terminate="yes">

   104

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

   105

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

   106

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

   107

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

   108

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

   109

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

   110

                  </xsl:message>

   111

                </xsl:when>

   112

              </xsl:choose>

   113

              <xsl:if test="$indexed_hmitree">

   114

                <xsl:choose>

   115

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

   116

                    <xsl:attribute name="type">

   117

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

   118

                    </xsl:attribute>

   119

                  </xsl:when>

   120

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

   121

                    <xsl:attribute name="type">

   122

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

   123

                    </xsl:attribute>

   124

                  </xsl:when>

   125

                  <xsl:otherwise>

   126

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

   127

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

   128

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

   129

                      <xsl:message terminate="yes">

   130

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

   131

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

   132

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

   133

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

   134

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

   135

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

   136

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

   137

                      </xsl:message>

   138

                    </xsl:if>

   139

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

   140

                      <xsl:attribute name="index">

   141

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

   142

                      </xsl:attribute>

   143

                      <xsl:attribute name="type">

   144

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

   145

                      </xsl:attribute>

   146

                    </xsl:if>

   147

                  </xsl:otherwise>

   148

                </xsl:choose>

   149

              </xsl:if>

   150

            </path>

   151

          </xsl:if>

   152

        </xsl:for-each>

   153

        <xsl:if test="svg:desc">

   154

          <desc>

   155

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

   156

          </desc>

   157

        </xsl:if>

   158

      </widget>

   159

    </xsl:if>

   160

  </xsl:template>

   161

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

   162

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

   163

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

   164

  </xsl:template>

   165

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

   166

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

   167

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

   168

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

   169

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

   170

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

   171

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

   172

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

   173

    </xsl:if>

   174

  </xsl:template>

   175

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

   176

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

   177

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

   178

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

   179

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

   180

  </xsl:template>

   181

  <xsl:variable name="_parsed_widgets">

   182

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

   183

  </xsl:variable>

   184

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

   185

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

   186

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

   187

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

   188

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

   189

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

   190

    <xsl:copy>

   191

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

   192

    </xsl:copy>

   193

  </xsl:template>

   194

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

   195

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

   196

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

   197

    <xsl:copy>

   198

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

   199

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

   200

    </xsl:copy>

   201

  </xsl:template>

   202

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

   203

    <xsl:copy/>

   204

  </xsl:template>

   205

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

   206

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

   207

    <xsl:copy>

   208

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

   209

        <xsl:variable name="substituted_widget">

   210

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

   211

        </xsl:variable>

   212

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

   213

        <xsl:variable name="new_label">

   214

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

   215

        </xsl:variable>

   216

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

   217

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

   218

        </xsl:attribute>

   219

      </xsl:if>

   220

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

   221

    </xsl:copy>

   222

  </xsl:template>

   223

  <xsl:template match="/">

   224

    <xsl:comment>

   225

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

   226

    </xsl:comment>

   227

    <xsl:choose>

   228

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

   229

        <xsl:message terminate="yes">

   230

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

   231

        </xsl:message>

   232

      </xsl:when>

   233

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

   234

        <xsl:message terminate="yes">

   235

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

   236

        </xsl:message>

   237

      </xsl:when>

   238

    </xsl:choose>

   239

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

   240

  </xsl:template>

   241

</xsl:stylesheet>