edouard@3221: <?xml version="1.0"?>
edouard@3234: <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">
edouard@3221:   <xsl:output method="xml"/>
edouard@3221:   <xsl:variable name="hmi_elements" select="//svg:*[starts-with(@inkscape:label, 'HMI:')]"/>
Edouard@3264:   <xsl:variable name="widgetparams" select="ns:GetWidgetParams()"/>
edouard@3222:   <xsl:variable name="indexed_hmitree" select="/.."/>
edouard@3234:   <xsl:variable name="pathregex" select="'^([^\[,]+)(\[[^\]]+\])?([\d,]*)$'"/>
edouard@3221:   <xsl:template mode="parselabel" match="*">
edouard@3221:     <xsl:variable name="label" select="@inkscape:label"/>
edouard@3221:     <xsl:variable name="id" select="@id"/>
edouard@3221:     <xsl:variable name="description" select="substring-after($label,'HMI:')"/>
edouard@3221:     <xsl:variable name="_args" select="substring-before($description,'@')"/>
edouard@3221:     <xsl:variable name="args">
edouard@3221:       <xsl:choose>
edouard@3221:         <xsl:when test="$_args">
edouard@3221:           <xsl:value-of select="$_args"/>
edouard@3221:         </xsl:when>
edouard@3221:         <xsl:otherwise>
edouard@3221:           <xsl:value-of select="$description"/>
edouard@3221:         </xsl:otherwise>
edouard@3221:       </xsl:choose>
edouard@3221:     </xsl:variable>
Edouard@3410:     <xsl:variable name="_typefreq" select="substring-before($args,':')"/>
Edouard@3410:     <xsl:variable name="typefreq">
Edouard@3410:       <xsl:choose>
Edouard@3410:         <xsl:when test="$_typefreq">
Edouard@3410:           <xsl:value-of select="$_typefreq"/>
Edouard@3410:         </xsl:when>
Edouard@3410:         <xsl:otherwise>
Edouard@3410:           <xsl:value-of select="$args"/>
Edouard@3410:         </xsl:otherwise>
Edouard@3410:       </xsl:choose>
Edouard@3410:     </xsl:variable>
Edouard@3410:     <xsl:variable name="freq" select="substring-after($typefreq,':')"/>
Edouard@3410:     <xsl:variable name="_type" select="substring-before($typefreq,'|')"/>
edouard@3221:     <xsl:variable name="type">
edouard@3221:       <xsl:choose>
edouard@3221:         <xsl:when test="$_type">
edouard@3221:           <xsl:value-of select="$_type"/>
edouard@3221:         </xsl:when>
edouard@3221:         <xsl:otherwise>
Edouard@3410:           <xsl:value-of select="$typefreq"/>
edouard@3221:         </xsl:otherwise>
edouard@3221:       </xsl:choose>
edouard@3221:     </xsl:variable>
edouard@3221:     <xsl:if test="$type">
edouard@3221:       <widget>
edouard@3221:         <xsl:attribute name="id">
edouard@3221:           <xsl:value-of select="$id"/>
edouard@3221:         </xsl:attribute>
edouard@3221:         <xsl:attribute name="type">
edouard@3221:           <xsl:value-of select="$type"/>
edouard@3221:         </xsl:attribute>
Edouard@3410:         <xsl:if test="freq">
Edouard@3410:           <xsl:attribute name="frequency">
Edouard@3410:             <xsl:value-of select="$freq"/>
Edouard@3410:           </xsl:attribute>
Edouard@3410:         </xsl:if>
edouard@3221:         <xsl:for-each select="str:split(substring-after($args, ':'), ':')">
edouard@3221:           <arg>
edouard@3221:             <xsl:attribute name="value">
edouard@3221:               <xsl:value-of select="."/>
edouard@3221:             </xsl:attribute>
edouard@3221:           </arg>
edouard@3221:         </xsl:for-each>
edouard@3221:         <xsl:variable name="paths" select="substring-after($description,'@')"/>
edouard@3221:         <xsl:for-each select="str:split($paths, '@')">
edouard@3221:           <xsl:if test="string-length(.) &gt; 0">
edouard@3221:             <path>
edouard@3234:               <xsl:variable name="path_match" select="regexp:match(.,$pathregex)"/>
edouard@3234:               <xsl:variable name="pathminmax" select="str:split($path_match[4],',')"/>
edouard@3234:               <xsl:variable name="path" select="$path_match[2]"/>
edouard@3234:               <xsl:variable name="path_accepts" select="$path_match[3]"/>
edouard@3221:               <xsl:variable name="pathminmaxcount" select="count($pathminmax)"/>
edouard@3221:               <xsl:attribute name="value">
edouard@3221:                 <xsl:value-of select="$path"/>
edouard@3221:               </xsl:attribute>
edouard@3234:               <xsl:if test="string-length($path_accepts)">
edouard@3234:                 <xsl:attribute name="accepts">
edouard@3234:                   <xsl:value-of select="$path_accepts"/>
edouard@3234:                 </xsl:attribute>
edouard@3234:               </xsl:if>
edouard@3221:               <xsl:choose>
edouard@3234:                 <xsl:when test="$pathminmaxcount = 2">
edouard@3221:                   <xsl:attribute name="min">
edouard@3234:                     <xsl:value-of select="$pathminmax[1]"/>
edouard@3234:                   </xsl:attribute>
edouard@3234:                   <xsl:attribute name="max">
edouard@3221:                     <xsl:value-of select="$pathminmax[2]"/>
edouard@3221:                   </xsl:attribute>
edouard@3221:                 </xsl:when>
edouard@3234:                 <xsl:when test="$pathminmaxcount = 1 or $pathminmaxcount &gt; 2">
edouard@3221:                   <xsl:message terminate="yes">
edouard@3221:                     <xsl:text>Widget id:</xsl:text>
edouard@3221:                     <xsl:value-of select="$id"/>
edouard@3221:                     <xsl:text> label:</xsl:text>
edouard@3221:                     <xsl:value-of select="$label"/>
edouard@3221:                     <xsl:text> has wrong syntax of path section </xsl:text>
edouard@3221:                     <xsl:value-of select="$pathminmax"/>
edouard@3221:                   </xsl:message>
edouard@3221:                 </xsl:when>
edouard@3221:               </xsl:choose>
edouard@3229:               <xsl:if test="$indexed_hmitree">
edouard@3229:                 <xsl:choose>
edouard@3229:                   <xsl:when test="regexp:test($path,'^\.[a-zA-Z0-9_]+$')">
edouard@3229:                     <xsl:attribute name="type">
edouard@3229:                       <xsl:text>PAGE_LOCAL</xsl:text>
edouard@3221:                     </xsl:attribute>
edouard@3229:                   </xsl:when>
edouard@3229:                   <xsl:when test="regexp:test($path,'^[a-zA-Z0-9_]+$')">
edouard@3221:                     <xsl:attribute name="type">
edouard@3229:                       <xsl:text>HMI_LOCAL</xsl:text>
edouard@3221:                     </xsl:attribute>
edouard@3229:                   </xsl:when>
edouard@3229:                   <xsl:otherwise>
edouard@3229:                     <xsl:variable name="item" select="$indexed_hmitree/*[@hmipath = $path]"/>
edouard@3229:                     <xsl:variable name="pathtype" select="local-name($item)"/>
edouard@3229:                     <xsl:if test="$pathminmaxcount = 3 and not($pathtype = 'HMI_INT' or $pathtype = 'HMI_REAL')">
edouard@3229:                       <xsl:message terminate="yes">
edouard@3229:                         <xsl:text>Widget id:</xsl:text>
edouard@3229:                         <xsl:value-of select="$id"/>
edouard@3229:                         <xsl:text> label:</xsl:text>
edouard@3229:                         <xsl:value-of select="$label"/>
edouard@3229:                         <xsl:text> path section </xsl:text>
edouard@3229:                         <xsl:value-of select="$pathminmax"/>
edouard@3229:                         <xsl:text> use min and max on non mumeric value</xsl:text>
edouard@3229:                       </xsl:message>
edouard@3229:                     </xsl:if>
edouard@3229:                     <xsl:if test="count($item) = 1">
edouard@3229:                       <xsl:attribute name="index">
edouard@3229:                         <xsl:value-of select="$item/@index"/>
edouard@3229:                       </xsl:attribute>
edouard@3229:                       <xsl:attribute name="type">
edouard@3229:                         <xsl:value-of select="$pathtype"/>
edouard@3229:                       </xsl:attribute>
edouard@3229:                     </xsl:if>
edouard@3229:                   </xsl:otherwise>
edouard@3229:                 </xsl:choose>
edouard@3229:               </xsl:if>
edouard@3221:             </path>
edouard@3221:           </xsl:if>
edouard@3221:         </xsl:for-each>
Edouard@3264:         <xsl:if test="svg:desc">
Edouard@3264:           <desc>
Edouard@3264:             <xsl:value-of select="svg:desc/text()"/>
Edouard@3264:           </desc>
Edouard@3264:         </xsl:if>
edouard@3221:       </widget>
edouard@3221:     </xsl:if>
edouard@3221:   </xsl:template>
edouard@3229:   <xsl:template mode="genlabel" match="arg">
edouard@3229:     <xsl:text>:</xsl:text>
edouard@3229:     <xsl:value-of select="@value"/>
edouard@3229:   </xsl:template>
edouard@3229:   <xsl:template mode="genlabel" match="path">
edouard@3229:     <xsl:text>@</xsl:text>
edouard@3229:     <xsl:value-of select="@value"/>
edouard@3229:     <xsl:if test="string-length(@min)&gt;0 or string-length(@max)&gt;0">
edouard@3234:       <xsl:text>,</xsl:text>
edouard@3229:       <xsl:value-of select="@min"/>
edouard@3234:       <xsl:text>,</xsl:text>
edouard@3229:       <xsl:value-of select="@max"/>
edouard@3229:     </xsl:if>
edouard@3229:   </xsl:template>
edouard@3229:   <xsl:template mode="genlabel" match="widget">
edouard@3229:     <xsl:text>HMI:</xsl:text>
edouard@3229:     <xsl:value-of select="@type"/>
edouard@3229:     <xsl:apply-templates mode="genlabel" select="arg"/>
edouard@3229:     <xsl:apply-templates mode="genlabel" select="path"/>
edouard@3229:   </xsl:template>
edouard@3222:   <xsl:variable name="_parsed_widgets">
edouard@3222:     <xsl:apply-templates mode="parselabel" select="$hmi_elements"/>
edouard@3222:   </xsl:variable>
edouard@3222:   <xsl:variable name="parsed_widgets" select="exsl:node-set($_parsed_widgets)"/>
edouard@3223:   <xsl:variable name="svg_widget" select="$parsed_widgets/widget[1]"/>
edouard@3223:   <xsl:variable name="svg_widget_type" select="$svg_widget/@type"/>
edouard@3223:   <xsl:variable name="svg_widget_path" select="$svg_widget/@path"/>
edouard@3223:   <xsl:variable name="svg_widget_count" select="count($parsed_widgets/widget)"/>
Edouard@3264:   <xsl:template mode="replace_params" match="@* | node()">
edouard@3229:     <xsl:copy>
Edouard@3264:       <xsl:apply-templates mode="replace_params" select="@* | node()"/>
edouard@3229:     </xsl:copy>
edouard@3229:   </xsl:template>
Edouard@3264:   <xsl:template mode="replace_params" match="arg"/>
Edouard@3264:   <xsl:template mode="replace_params" match="path"/>
Edouard@3264:   <xsl:template mode="replace_params" match="widget">
Edouard@3264:     <xsl:copy>
Edouard@3264:       <xsl:apply-templates mode="replace_params" select="@* | node()"/>
Edouard@3264:       <xsl:copy-of select="$widgetparams/*"/>
Edouard@3264:     </xsl:copy>
edouard@3229:   </xsl:template>
edouard@3221:   <xsl:template xmlns="http://www.w3.org/2000/svg" mode="inline_svg" match="@*">
edouard@3221:     <xsl:copy/>
edouard@3221:   </xsl:template>
edouard@3229:   <xsl:template xmlns="http://www.w3.org/2000/svg" mode="inline_svg" match="@inkscape:label[starts-with(., 'HMI:')]"/>
edouard@3221:   <xsl:template mode="inline_svg" match="node()">
edouard@3221:     <xsl:copy>
edouard@3229:       <xsl:if test="@id = $svg_widget/@id">
edouard@3229:         <xsl:variable name="substituted_widget">
Edouard@3264:           <xsl:apply-templates mode="replace_params" select="$svg_widget"/>
edouard@3229:         </xsl:variable>
edouard@3229:         <xsl:variable name="substituted_widget_ns" select="exsl:node-set($substituted_widget)"/>
edouard@3229:         <xsl:variable name="new_label">
edouard@3229:           <xsl:apply-templates mode="genlabel" select="$substituted_widget_ns"/>
edouard@3229:         </xsl:variable>
edouard@3229:         <xsl:attribute name="inkscape:label">
edouard@3229:           <xsl:value-of select="$new_label"/>
edouard@3229:         </xsl:attribute>
edouard@3229:       </xsl:if>
edouard@3221:       <xsl:apply-templates mode="inline_svg" select="@* | node()"/>
edouard@3221:     </xsl:copy>
edouard@3221:   </xsl:template>
edouard@3221:   <xsl:template match="/">
edouard@3221:     <xsl:comment>
edouard@3221:       <xsl:text>Widget dropped in Inkscape from Beremiz</xsl:text>
edouard@3221:     </xsl:comment>
edouard@3222:     <xsl:choose>
edouard@3222:       <xsl:when test="$svg_widget_count &lt; 1">
edouard@3222:         <xsl:message terminate="yes">
edouard@3222:           <xsl:text>No widget detected on selected SVG</xsl:text>
edouard@3222:         </xsl:message>
edouard@3222:       </xsl:when>
edouard@3222:       <xsl:when test="$svg_widget_count &gt; 1">
edouard@3222:         <xsl:message terminate="yes">
edouard@3222:           <xsl:text>Multiple widget DnD not yet supported</xsl:text>
edouard@3222:         </xsl:message>
edouard@3222:       </xsl:when>
edouard@3222:     </xsl:choose>
edouard@3221:     <xsl:apply-templates mode="inline_svg" select="/"/>
edouard@3221:   </xsl:template>
edouard@3221: </xsl:stylesheet>