Edouard@2753: <?xml version="1.0"?>
Edouard@2793: <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">
Edouard@2779:   <xsl:output method="xml" cdata-section-elements="script"/>
Edouard@2753:   <xsl:variable name="geometry" select="ns:GetSVGGeometry()"/>
Edouard@2763:   <xsl:variable name="hmitree" select="ns:GetHMITree()"/>
Edouard@2794:   <xsl:variable name="hmi_elements" select="//*[starts-with(@inkscape:label, 'HMI:')]"/>
Edouard@2794:   <xsl:variable name="hmi_geometry" select="$geometry[@Id = $hmi_elements/@id]"/>
Edouard@2794:   <xsl:variable name="hmi_pages" select="$hmi_elements[func:parselabel(@inkscape:label)/widget/@type = 'Page']"/>
Edouard@2795:   <xsl:variable name="default_page">
Edouard@2795:     <xsl:choose>
Edouard@2795:       <xsl:when test="count($hmi_pages) &gt; 1">
Edouard@2795:         <xsl:variable name="Home_page" select="$hmi_pages[func:parselabel(@inkscape:label)/widget/arg[1]/@value = 'Home']"/>
Edouard@2795:         <xsl:choose>
Edouard@2795:           <xsl:when test="$Home_page">
Edouard@2795:             <xsl:text>Home</xsl:text>
Edouard@2795:           </xsl:when>
Edouard@2795:           <xsl:otherwise>
Edouard@2795:             <xsl:message terminate="yes">No Home page defined!</xsl:message>
Edouard@2795:           </xsl:otherwise>
Edouard@2795:         </xsl:choose>
Edouard@2795:       </xsl:when>
Edouard@2795:       <xsl:when test="count($hmi_pages) = 0">
Edouard@2795:         <xsl:message terminate="yes">No page defined!</xsl:message>
Edouard@2795:       </xsl:when>
Edouard@2795:       <xsl:otherwise>
Edouard@2795:         <xsl:value-of select="func:parselabel($hmi_pages/@inkscape:label)/widget/arg[1]/@value"/>
Edouard@2795:       </xsl:otherwise>
Edouard@2795:     </xsl:choose>
Edouard@2795:   </xsl:variable>
Edouard@2790:   <xsl:variable name="_categories">
Edouard@2790:     <noindex>
Edouard@2790:       <xsl:text>HMI_ROOT</xsl:text>
Edouard@2790:     </noindex>
Edouard@2790:     <noindex>
Edouard@2790:       <xsl:text>HMI_LABEL</xsl:text>
Edouard@2790:     </noindex>
Edouard@2790:     <noindex>
Edouard@2790:       <xsl:text>HMI_CLASS</xsl:text>
Edouard@2790:     </noindex>
Edouard@2790:     <noindex>
Edouard@2790:       <xsl:text>HMI_PLC_STATUS</xsl:text>
Edouard@2790:     </noindex>
Edouard@2790:     <noindex>
Edouard@2790:       <xsl:text>HMI_CURRENT_PAGE</xsl:text>
Edouard@2790:     </noindex>
Edouard@2790:   </xsl:variable>
Edouard@2790:   <xsl:variable name="categories" select="exsl:node-set($_categories)"/>
Edouard@2791:   <xsl:variable name="_indexed_hmitree">
Edouard@2790:     <xsl:apply-templates mode="index" select="$hmitree"/>
Edouard@2790:   </xsl:variable>
Edouard@2791:   <xsl:variable name="indexed_hmitree" select="exsl:node-set($_indexed_hmitree)"/>
Edouard@2791:   <xsl:template mode="index" match="*">
Edouard@2790:     <xsl:param name="index" select="0"/>
Edouard@2791:     <xsl:param name="parentpath" select="''"/>
Edouard@2790:     <xsl:variable name="content">
Edouard@2791:       <xsl:variable name="path">
Edouard@2791:         <xsl:choose>
Edouard@2791:           <xsl:when test="local-name() = 'HMI_ROOT'">
Edouard@2791:             <xsl:value-of select="$parentpath"/>
Edouard@2791:           </xsl:when>
Edouard@2791:           <xsl:otherwise>
Edouard@2791:             <xsl:value-of select="$parentpath"/>
Edouard@2791:             <xsl:text>/</xsl:text>
Edouard@2791:             <xsl:value-of select="@name"/>
Edouard@2791:           </xsl:otherwise>
Edouard@2791:         </xsl:choose>
Edouard@2791:       </xsl:variable>
Edouard@2790:       <xsl:choose>
Edouard@2790:         <xsl:when test="not(local-name() = $categories/noindex)">
Edouard@2790:           <xsl:copy>
Edouard@2790:             <xsl:attribute name="index">
Edouard@2790:               <xsl:value-of select="$index"/>
Edouard@2790:             </xsl:attribute>
Edouard@2791:             <xsl:attribute name="hmipath">
Edouard@2791:               <xsl:value-of select="$path"/>
Edouard@2791:             </xsl:attribute>
Edouard@2790:             <xsl:for-each select="@*">
Edouard@2790:               <xsl:copy/>
Edouard@2790:             </xsl:for-each>
Edouard@2790:           </xsl:copy>
Edouard@2790:         </xsl:when>
Edouard@2790:         <xsl:otherwise>
Edouard@2790:           <xsl:apply-templates mode="index" select="*[1]">
Edouard@2790:             <xsl:with-param name="index" select="$index"/>
Edouard@2791:             <xsl:with-param name="parentpath">
Edouard@2791:               <xsl:value-of select="$path"/>
Edouard@2791:             </xsl:with-param>
Edouard@2790:           </xsl:apply-templates>
Edouard@2790:         </xsl:otherwise>
Edouard@2790:       </xsl:choose>
Edouard@2790:     </xsl:variable>
Edouard@2790:     <xsl:copy-of select="$content"/>
Edouard@2790:     <xsl:apply-templates mode="index" select="following-sibling::*[1]">
Edouard@2790:       <xsl:with-param name="index" select="$index + count(exsl:node-set($content)/*)"/>
Edouard@2791:       <xsl:with-param name="parentpath">
Edouard@2791:         <xsl:value-of select="$parentpath"/>
Edouard@2791:       </xsl:with-param>
Edouard@2790:     </xsl:apply-templates>
Edouard@2790:   </xsl:template>
Edouard@2791:   <xsl:template mode="identity_svg" match="@* | node()">
Edouard@2753:     <xsl:copy>
Edouard@2791:       <xsl:apply-templates mode="identity_svg" select="@* | node()"/>
Edouard@2753:     </xsl:copy>
Edouard@2753:   </xsl:template>
Edouard@2753:   <xsl:template match="/">
Edouard@2793:     <xsl:comment>
Edouard@2793:       <xsl:text>Made with SVGHMI. https://beremiz.org</xsl:text>
Edouard@2793:     </xsl:comment>
Edouard@2779:     <html xmlns="http://www.w3.org/1999/xhtml">
Edouard@2779:       <head/>
Edouard@2779:       <body style="margin:0;">
Edouard@2779:         <xsl:copy>
Edouard@2779:           <xsl:comment>
Edouard@2794:             <xsl:apply-templates mode="testgeo" select="$hmi_geometry"/>
Edouard@2779:           </xsl:comment>
Edouard@2779:           <xsl:comment>
Edouard@2779:             <xsl:apply-templates mode="testtree" select="$hmitree"/>
Edouard@2779:           </xsl:comment>
Edouard@2790:           <xsl:comment>
Edouard@2791:             <xsl:apply-templates mode="testtree" select="$indexed_hmitree"/>
Edouard@2790:           </xsl:comment>
Edouard@2791:           <xsl:apply-templates mode="identity_svg" select="@* | node()"/>
Edouard@2779:         </xsl:copy>
Edouard@2779:         <script>
Edouard@2792:           <xsl:call-template name="scripts"/>
Edouard@2779:         </script>
Edouard@2779:       </body>
Edouard@2779:     </html>
Edouard@2753:   </xsl:template>
Edouard@2793:   <func:function name="func:parselabel">
Edouard@2792:     <xsl:param name="label"/>
Edouard@2792:     <xsl:variable name="description" select="substring-after($label,'HMI:')"/>
Edouard@2792:     <xsl:variable name="_args" select="substring-before($description,'@')"/>
Edouard@2792:     <xsl:variable name="args">
Edouard@2792:       <xsl:choose>
Edouard@2792:         <xsl:when test="$_args">
Edouard@2792:           <xsl:value-of select="$_args"/>
Edouard@2792:         </xsl:when>
Edouard@2792:         <xsl:otherwise>
Edouard@2792:           <xsl:value-of select="$description"/>
Edouard@2792:         </xsl:otherwise>
Edouard@2792:       </xsl:choose>
Edouard@2792:     </xsl:variable>
Edouard@2792:     <xsl:variable name="_type" select="substring-before($args,':')"/>
Edouard@2792:     <xsl:variable name="type">
Edouard@2792:       <xsl:choose>
Edouard@2792:         <xsl:when test="$_type">
Edouard@2792:           <xsl:value-of select="$_type"/>
Edouard@2792:         </xsl:when>
Edouard@2792:         <xsl:otherwise>
Edouard@2792:           <xsl:value-of select="$args"/>
Edouard@2792:         </xsl:otherwise>
Edouard@2792:       </xsl:choose>
Edouard@2792:     </xsl:variable>
Edouard@2793:     <xsl:variable name="ast">
Edouard@2793:       <xsl:if test="$type">
Edouard@2793:         <widget>
Edouard@2793:           <xsl:attribute name="type">
Edouard@2793:             <xsl:value-of select="$type"/>
Edouard@2793:           </xsl:attribute>
Edouard@2794:           <xsl:for-each select="str:split(substring-after($args, ':'), ':')">
Edouard@2793:             <arg>
Edouard@2793:               <xsl:attribute name="value">
Edouard@2793:                 <xsl:value-of select="."/>
Edouard@2793:               </xsl:attribute>
Edouard@2793:             </arg>
Edouard@2793:           </xsl:for-each>
Edouard@2793:           <xsl:variable name="paths" select="substring-after($description,'@')"/>
Edouard@2793:           <xsl:for-each select="str:split($paths, '@')">
Edouard@2793:             <path>
Edouard@2793:               <xsl:attribute name="value">
Edouard@2793:                 <xsl:value-of select="."/>
Edouard@2793:               </xsl:attribute>
Edouard@2793:             </path>
Edouard@2793:           </xsl:for-each>
Edouard@2793:         </widget>
Edouard@2793:       </xsl:if>
Edouard@2793:     </xsl:variable>
Edouard@2793:     <func:result select="exsl:node-set($ast)"/>
Edouard@2793:   </func:function>
Edouard@2793:   <xsl:template name="scripts">
Edouard@2793:     <xsl:text>var hmi_index = {
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:variable name="svg" select="/"/>
Edouard@2793:     <xsl:for-each select="$indexed_hmitree/*">
Edouard@2793:       <xsl:value-of select="@index"/>
Edouard@2793:       <xsl:text>: {
Edouard@2793: </xsl:text>
Edouard@2793:       <xsl:text>    name: "</xsl:text>
Edouard@2793:       <xsl:value-of select="@name"/>
Edouard@2793:       <xsl:text>",
Edouard@2793: </xsl:text>
Edouard@2793:       <xsl:text>    hmipath: "</xsl:text>
Edouard@2793:       <xsl:value-of select="@hmipath"/>
Edouard@2793:       <xsl:text>"
Edouard@2793: </xsl:text>
Edouard@2793:       <xsl:text>    ids: [
Edouard@2793: </xsl:text>
Edouard@2793:       <xsl:variable name="hmipath" select="@hmipath"/>
Edouard@2793:       <xsl:for-each select="$svg//*[substring-after(@inkscape:label,'@') = $hmipath]">
Edouard@2793:         <xsl:text>        "</xsl:text>
Edouard@2793:         <xsl:value-of select="@id"/>
Edouard@2793:         <xsl:text>"</xsl:text>
Edouard@2793:         <xsl:if test="position()!=last()">
Edouard@2793:           <xsl:text>,</xsl:text>
Edouard@2793:         </xsl:if>
Edouard@2793:         <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:       </xsl:for-each>
Edouard@2793:       <xsl:text>    ]
Edouard@2793: </xsl:text>
Edouard@2793:       <xsl:text>}</xsl:text>
Edouard@2793:       <xsl:if test="position()!=last()">
Edouard@2793:         <xsl:text>,</xsl:text>
Edouard@2793:       </xsl:if>
Edouard@2793:       <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     </xsl:for-each>
Edouard@2793:     <xsl:text>}
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>var page_desc = {
Edouard@2793: </xsl:text>
Edouard@2794:     <xsl:for-each select="$hmi_pages">
Edouard@2794:       <xsl:variable name="desc" select="func:parselabel(@inkscape:label)/widget"/>
Edouard@2794:       <xsl:text>    "</xsl:text>
Edouard@2794:       <xsl:value-of select="$desc/arg[1]/@value"/>
Edouard@2794:       <xsl:text>": {
Edouard@2794: </xsl:text>
Edouard@2794:       <xsl:text>        id: "</xsl:text>
Edouard@2794:       <xsl:value-of select="@id"/>
Edouard@2795:       <xsl:text>",
Edouard@2794: </xsl:text>
Edouard@2794:       <xsl:text>        widgets: [
Edouard@2794: </xsl:text>
Edouard@2794:       <xsl:variable name="page" select="."/>
Edouard@2794:       <xsl:variable name="p" select="$hmi_geometry[@Id = $page/@id]"/>
Edouard@2796:       <xsl:for-each select="$hmi_geometry[@Id != $page/@id and &#10;                       @x &gt;= $p/@x and @y &gt;= $p/@y and &#10;                       @x+@w &lt;= $p/@x+$p/@w and @y+@h &lt;= $p/@y+$p/@h]">
Edouard@2794:         <xsl:text>            "</xsl:text>
Edouard@2794:         <xsl:value-of select="@Id"/>
Edouard@2794:         <xsl:text>"</xsl:text>
Edouard@2794:         <xsl:if test="position()!=last()">
Edouard@2794:           <xsl:text>,</xsl:text>
Edouard@2794:         </xsl:if>
Edouard@2794:         <xsl:text>
Edouard@2794: </xsl:text>
Edouard@2794:       </xsl:for-each>
Edouard@2794:       <xsl:text>        ]
Edouard@2794: </xsl:text>
Edouard@2793:     </xsl:for-each>
Edouard@2793:     <xsl:text>}
Edouard@2793: </xsl:text>
Edouard@2795:     <xsl:text>
Edouard@2795: </xsl:text>
Edouard@2795:     <xsl:text>var default_page = "</xsl:text>
Edouard@2795:     <xsl:value-of select="$default_page"/>
Edouard@2795:     <xsl:text>";
Edouard@2795: </xsl:text>
Edouard@2793:     <xsl:text>// svghmi.js
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>(function(){
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // Open WebSocket to relative "/ws" address
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    var ws = new WebSocket(window.location.href.replace(/^http(s?:\/\/[^\/]*)\/.*$/, 'ws$1/ws'));
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // Register message reception handler 
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    ws.onmessage = function (evt) {
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        // TODO : dispatch and cache hmi tree updates
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        var received_msg = evt.data;
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        // TODO : check for hmitree hash header
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        //        if not matching, reload page
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        alert("Message is received..."+received_msg); 
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    };
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // Once connection established
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    ws.onopen = function (evt) {
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        // TODO : enable the HMI (was previously offline, or just starts)
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        //        show main page
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        // TODO : prefix with hmitree hash header
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        ws.send("test");
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    };
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    var pending_updates = {};
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // subscription state, as it should be in hmi server
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // expected {index:period}
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    const subscriptions = new Map();
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // subscription state as needed by widget now
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // expected {index:[widgets]};
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    var subscribers = {};
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    // return the diff in between curently subscribed and subscription
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    function update_subscriptions() {
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        let delta = [];
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        Object.keys(subscribers).forEach(index =&gt; {
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>            let previous_period = subscriptions.get(index);
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>            delete subscriptions[index];
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>            let new_period = Math.min(...widgets.map(widget =&gt; widget.period));
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>            if(previous_period != new_period) 
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>                delta.push({index: index, period: new_period});
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        })
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>        return result;
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    }
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    function update_value(index, value) {
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    };
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    function switch_page(page_name) {
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>    };
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>})();
Edouard@2793: </xsl:text>
Edouard@2792:   </xsl:template>
Edouard@2792:   <xsl:template mode="page_desc" match="*"/>
Edouard@2782:   <xsl:template mode="code_from_descs" match="*">
Edouard@2783:     <xsl:text>{
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>    var path, role, name, priv;
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>    var id = "</xsl:text>
Edouard@2782:     <xsl:value-of select="@id"/>
Edouard@2783:     <xsl:text>";
Edouard@2782: </xsl:text>
Edouard@2789:     <xsl:if test="@inkscape:label">
Edouard@2783:       <xsl:text>name = "</xsl:text>
Edouard@2783:       <xsl:value-of select="@inkscape:label"/>
Edouard@2783:       <xsl:text>";
Edouard@2782: </xsl:text>
Edouard@2783:     </xsl:if>
Edouard@2783:     <xsl:text>/* -------------- */
Edouard@2782: </xsl:text>
Edouard@2782:     <xsl:value-of select="substring-after(svg:desc, $mark)"/>
Edouard@2782:     <xsl:text>
Edouard@2782: </xsl:text>
Edouard@2783:     <xsl:text>    /* -------------- */
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>    res.push({
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>        path:path,
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>        role:role,
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>        name:name,
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>        priv:priv
Edouard@2783: </xsl:text>
Edouard@2783:     <xsl:text>    })
Edouard@2783: </xsl:text>
Edouard@2782:     <xsl:text>}
Edouard@2782: </xsl:text>
Edouard@2782:   </xsl:template>
Edouard@2753:   <xsl:template mode="testgeo" match="bbox">
Edouard@2763:     <xsl:text>ID: </xsl:text>
Edouard@2763:     <xsl:value-of select="@Id"/>
Edouard@2763:     <xsl:text> x: </xsl:text>
Edouard@2763:     <xsl:value-of select="@x"/>
Edouard@2763:     <xsl:text> y: </xsl:text>
Edouard@2763:     <xsl:value-of select="@y"/>
Edouard@2763:     <xsl:text> w: </xsl:text>
Edouard@2763:     <xsl:value-of select="@w"/>
Edouard@2763:     <xsl:text> h: </xsl:text>
Edouard@2763:     <xsl:value-of select="@h"/>
Edouard@2763:     <xsl:text>
Edouard@2763: </xsl:text>
Edouard@2763:   </xsl:template>
Edouard@2763:   <xsl:template mode="testtree" match="*">
Edouard@2763:     <xsl:param name="indent" select="''"/>
Edouard@2763:     <xsl:value-of select="$indent"/>
Edouard@2763:     <xsl:text> </xsl:text>
Edouard@2763:     <xsl:value-of select="local-name()"/>
Edouard@2763:     <xsl:text> </xsl:text>
Edouard@2790:     <xsl:for-each select="@*">
Edouard@2790:       <xsl:value-of select="local-name()"/>
Edouard@2790:       <xsl:text>=</xsl:text>
Edouard@2790:       <xsl:value-of select="."/>
Edouard@2790:       <xsl:text> </xsl:text>
Edouard@2790:     </xsl:for-each>
Edouard@2763:     <xsl:text>
Edouard@2763: </xsl:text>
Edouard@2763:     <xsl:apply-templates mode="testtree" select="*">
Edouard@2763:       <xsl:with-param name="indent">
Edouard@2763:         <xsl:value-of select="concat($indent,'&gt;')"/>
Edouard@2763:       </xsl:with-param>
Edouard@2763:     </xsl:apply-templates>
Edouard@2753:   </xsl:template>
Edouard@2753: </xsl:stylesheet>