Edouard@2753: <?xml version="1.0"?>
Edouard@2798: <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:xhtml="http://www.w3.org/1999/xhtml" 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@2798:   <xsl:output method="xml" cdata-section-elements="xhtml:script"/>
Edouard@2753:   <xsl:variable name="geometry" select="ns:GetSVGGeometry()"/>
Edouard@2763:   <xsl:variable name="hmitree" select="ns:GetHMITree()"/>
Edouard@2808:   <xsl:variable name="svg_root_id" select="/svg:svg/@id"/>
Edouard@2797:   <xsl:variable name="hmi_elements" select="//svg:*[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@2814:       <xsl:text>HMI_NODE</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@2808:   <xsl:template mode="inline_svg" match="@* | node()">
Edouard@2753:     <xsl:copy>
Edouard@2808:       <xsl:apply-templates mode="inline_svg" select="@* | node()"/>
Edouard@2808:     </xsl:copy>
Edouard@2808:   </xsl:template>
Edouard@2808:   <xsl:template mode="inline_svg" match="svg:svg/@width"/>
Edouard@2808:   <xsl:template mode="inline_svg" match="svg:svg/@height"/>
Edouard@2808:   <xsl:template mode="inline_svg" match="svg:svg">
Edouard@2808:     <xsl:copy>
Edouard@2808:       <xsl:attribute name="preserveAspectRatio">
Edouard@2808:         <xsl:text>none</xsl:text>
Edouard@2808:       </xsl:attribute>
Edouard@2808:       <xsl:attribute name="height">
Edouard@2808:         <xsl:text>100vh</xsl:text>
Edouard@2808:       </xsl:attribute>
Edouard@2808:       <xsl:attribute name="width">
Edouard@2808:         <xsl:text>100vw</xsl:text>
Edouard@2808:       </xsl:attribute>
Edouard@2808:       <xsl:apply-templates mode="inline_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@2814:     <xsl:comment>
Edouard@2814:       <xsl:apply-templates mode="testgeo" select="$hmi_geometry"/>
Edouard@2814:     </xsl:comment>
Edouard@2814:     <xsl:comment>
Edouard@2814:       <xsl:apply-templates mode="testtree" select="$hmitree"/>
Edouard@2814:     </xsl:comment>
Edouard@2814:     <xsl:comment>
Edouard@2814:       <xsl:apply-templates mode="testtree" select="$indexed_hmitree"/>
Edouard@2814:     </xsl:comment>
Edouard@2779:     <html xmlns="http://www.w3.org/1999/xhtml">
Edouard@2779:       <head/>
Edouard@2808:       <body style="margin:0;overflow:hidden;">
Edouard@2808:         <xsl:apply-templates mode="inline_svg" select="svg:svg"/>
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@2799:     <xsl:text>//(function(){
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>
Edouard@2798: </xsl:text>
Edouard@2797:     <xsl:text>var hmi_hash = [</xsl:text>
Edouard@2797:     <xsl:value-of select="$hmitree/@hash"/>
Edouard@2797:     <xsl:text>]; 
Edouard@2797: </xsl:text>
Edouard@2797:     <xsl:text>var hmi_widgets = {
Edouard@2797: </xsl:text>
Edouard@2797:     <xsl:for-each select="$hmi_elements">
Edouard@2797:       <xsl:variable name="widget" select="func:parselabel(@inkscape:label)/widget"/>
Edouard@2797:       <xsl:value-of select="@id"/>
Edouard@2793:       <xsl:text>: {
Edouard@2793: </xsl:text>
Edouard@2797:       <xsl:text>    type: "</xsl:text>
Edouard@2797:       <xsl:value-of select="$widget/@type"/>
Edouard@2793:       <xsl:text>",
Edouard@2793: </xsl:text>
Edouard@2797:       <xsl:text>    args: [
Edouard@2797: </xsl:text>
Edouard@2797:       <xsl:for-each select="$widget/arg">
Edouard@2793:         <xsl:text>        "</xsl:text>
Edouard@2797:         <xsl:value-of select="@value"/>
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@2797:       <xsl:text>    ],
Edouard@2797: </xsl:text>
Edouard@2798:       <xsl:text>    indexes: [
Edouard@2797: </xsl:text>
Edouard@2797:       <xsl:for-each select="$widget/path">
Edouard@2797:         <xsl:variable name="hmipath" select="@value"/>
Edouard@2797:         <xsl:variable name="hmitree_match" select="$indexed_hmitree/*[@hmipath = $hmipath]"/>
Edouard@2797:         <xsl:if test="count($hmitree_match) = 0">
Edouard@2797:           <xsl:message terminate="yes">
Edouard@2814:             <xsl:text>No match for path "</xsl:text>
Edouard@2797:             <xsl:value-of select="$hmipath"/>
Edouard@2814:             <xsl:text>" in HMI tree</xsl:text>
Edouard@2797:           </xsl:message>
Edouard@2797:         </xsl:if>
Edouard@2797:         <xsl:text>        </xsl:text>
Edouard@2797:         <xsl:value-of select="$hmitree_match/@index"/>
Edouard@2797:         <xsl:if test="position()!=last()">
Edouard@2797:           <xsl:text>,</xsl:text>
Edouard@2797:         </xsl:if>
Edouard@2797:         <xsl:text>
Edouard@2797: </xsl:text>
Edouard@2797:       </xsl:for-each>
Edouard@2800:       <xsl:text>    ],
Edouard@2800: </xsl:text>
Edouard@2800:       <xsl:text>    element: document.getElementById("</xsl:text>
Edouard@2800:       <xsl:value-of select="@id"/>
Edouard@2800:       <xsl:text>"),
Edouard@2800: </xsl:text>
Edouard@2800:       <xsl:apply-templates mode="widget_defs" select="$widget">
Edouard@2800:         <xsl:with-param name="hmi_element" select="."/>
Edouard@2800:       </xsl:apply-templates>
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@2822:     <xsl:text>var heartbeat_index = </xsl:text>
Edouard@2822:     <xsl:value-of select="$indexed_hmitree/*[@hmipath = '/HEARTBEAT']/@index"/>
Edouard@2822:     <xsl:text>;
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>
Edouard@2822: </xsl:text>
Edouard@2798:     <xsl:text>var hmitree_types = [
Edouard@2798: </xsl:text>
Edouard@2797:     <xsl:for-each select="$indexed_hmitree/*">
Edouard@2798:       <xsl:text>/* </xsl:text>
Edouard@2797:       <xsl:value-of select="@index"/>
Edouard@2797:       <xsl:text>  </xsl:text>
Edouard@2797:       <xsl:value-of select="@hmipath"/>
Edouard@2798:       <xsl:text> */ "</xsl:text>
Edouard@2798:       <xsl:value-of select="substring(local-name(), 5)"/>
Edouard@2798:       <xsl:text>"</xsl:text>
Edouard@2797:       <xsl:if test="position()!=last()">
Edouard@2797:         <xsl:text>,</xsl:text>
Edouard@2797:       </xsl:if>
Edouard@2797:       <xsl:text>
Edouard@2797: </xsl:text>
Edouard@2797:     </xsl:for-each>
Edouard@2797:     <xsl:text>]
Edouard@2797: </xsl:text>
Edouard@2797:     <xsl:text>
Edouard@2797: </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@2797:       <xsl:variable name="page" select="."/>
Edouard@2797:       <xsl:variable name="p" select="$hmi_geometry[@Id = $page/@id]"/>
Edouard@2797:       <xsl:variable name="page_ids" 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]/@Id"/>
Edouard@2797:       <xsl:variable name="page_elements" select="$hmi_elements[@id = $page_ids]"/>
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@2808:       <xsl:text>        bbox: [</xsl:text>
Edouard@2808:       <xsl:value-of select="$p/@x"/>
Edouard@2808:       <xsl:text>, </xsl:text>
Edouard@2808:       <xsl:value-of select="$p/@y"/>
Edouard@2808:       <xsl:text>, </xsl:text>
Edouard@2808:       <xsl:value-of select="$p/@w"/>
Edouard@2808:       <xsl:text>, </xsl:text>
Edouard@2808:       <xsl:value-of select="$p/@h"/>
Edouard@2808:       <xsl:text>],
Edouard@2808: </xsl:text>
Edouard@2794:       <xsl:text>        widgets: [
Edouard@2794: </xsl:text>
Edouard@2797:       <xsl:for-each select="$page_ids">
Edouard@2798:         <xsl:text>            hmi_widgets.</xsl:text>
Edouard@2797:         <xsl:value-of select="."/>
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@2797:       <xsl:text>    }</xsl:text>
Edouard@2797:       <xsl:if test="position()!=last()">
Edouard@2797:         <xsl:text>,</xsl:text>
Edouard@2797:       </xsl:if>
Edouard@2797:       <xsl:text>
Edouard@2797: </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@2808:     <xsl:text>var svg_root = document.getElementById("</xsl:text>
Edouard@2808:     <xsl:value-of select="$svg_root_id"/>
Edouard@2808:     <xsl:text>");
Edouard@2808: </xsl:text>
Edouard@2793:     <xsl:text>// svghmi.js
Edouard@2793: </xsl:text>
Edouard@2793:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2803:     <xsl:text>var cache = hmitree_types.map(_ignored =&gt; undefined);
Edouard@2803: </xsl:text>
Edouard@2803:     <xsl:text>
Edouard@2803: </xsl:text>
Edouard@2811:     <xsl:text>function dispatch_value_to_widget(widget, index, value, oldval) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let idxidx = widget.indexes.indexOf(index);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    if(idxidx == -1){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        throw new Error("Dispatching to widget not interested, should not happen.");
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let d = widget.dispatch;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    if(typeof(d) == "function" &amp;&amp; idxidx == 0){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        return d.call(widget, value, oldval);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    }else if(typeof(d) == "object" &amp;&amp; d.length &gt;= idxidx){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        return d[idxidx].call(widget, value, oldval);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    }/* else dispatch_0, ..., dispatch_n ? */
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    /*else {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        throw new Error("Dunno how to dispatch to widget at index = " + index);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    }*/
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>}
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2798:     <xsl:text>function dispatch_value(index, value) {
Edouard@2798: </xsl:text>
Edouard@2800:     <xsl:text>    let widgets = subscribers[index];
Edouard@2800: </xsl:text>
Edouard@2800:     <xsl:text>
Edouard@2800: </xsl:text>
Edouard@2805:     <xsl:text>    let oldval = cache[index];
Edouard@2805: </xsl:text>
Edouard@2805:     <xsl:text>    cache[index] = value;
Edouard@2805: </xsl:text>
Edouard@2805:     <xsl:text>
Edouard@2805: </xsl:text>
Edouard@2803:     <xsl:text>    if(widgets.size &gt; 0) {
Edouard@2803: </xsl:text>
Edouard@2803:     <xsl:text>        for(let widget of widgets){
Edouard@2803: </xsl:text>
Edouard@2811:     <xsl:text>            dispatch_value_to_widget(widget, index, value, oldval);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>function init_widgets() {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    Object.keys(hmi_widgets).forEach(function(id) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        let widget = hmi_widgets[id];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        let init = widget.init;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        if(typeof(init) == "function"){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            return init.call(widget);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    });
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>// Open WebSocket to relative "/ws" address
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>var ws = new WebSocket(window.location.href.replace(/^http(s?:\/\/[^\/]*)\/.*$/, 'ws$1/ws'));
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>ws.binaryType = 'arraybuffer';
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>const dvgetters = {
Edouard@2811: </xsl:text>
edouard@2826:     <xsl:text>    INT: (dv,offset) =&gt; [dv.getInt16(offset, true), 2],
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>    BOOL: (dv,offset) =&gt; [dv.getInt8(offset, true), 1],
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>    STRING: (dv, offset) =&gt; {
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>        size = dv.getInt8(offset);
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>        return [
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>            String.fromCharCode.apply(null, new Uint8Array(
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>                dv.buffer, /* original buffer */
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>                offset + 1, /* string starts after size*/
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>                size /* size of string */
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>            )), size + 1]; /* total increment */
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>    }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2829:     <xsl:text>// Register message reception handler
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>ws.onmessage = function (evt) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let data = evt.data;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let dv = new DataView(data);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let i = 0;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    try {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        for(let hash_int of hmi_hash) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            if(hash_int != dv.getUint8(i)){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                throw new Error("Hash doesn't match");
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            };
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            i++;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        };
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        while(i &lt; data.byteLength){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            let index = dv.getUint32(i, true);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            i += 4;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            let iectype = hmitree_types[index];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            if(iectype != undefined){
Edouard@2811: </xsl:text>
edouard@2826:     <xsl:text>                let dvgetter = dvgetters[iectype];
edouard@2826: </xsl:text>
edouard@2826:     <xsl:text>                let [value, bytesize] = dvgetter(dv,i);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                dispatch_value(index, value);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                i += bytesize;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            } else {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                throw new Error("Unknown index "+index)
Edouard@2803: </xsl:text>
Edouard@2803:     <xsl:text>            }
Edouard@2803: </xsl:text>
Edouard@2811:     <xsl:text>        };
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    } catch(err) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        // 1003 is for "Unsupported Data"
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        // ws.close(1003, err.message);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        // TODO : remove debug alert ?
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        alert("Error : "+err.message+"\nHMI will be reloaded.");
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        // force reload ignoring cache
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        location.reload(true);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>function send_blob(data) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    if(data.length &gt; 0) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        ws.send(new Blob([new Uint8Array(hmi_hash)].concat(data)));
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    };
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>const typedarray_types = {
Edouard@2811: </xsl:text>
Edouard@2829:     <xsl:text>    INT: (number) =&gt; new Int16Array([number]),
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>    BOOL: (truth) =&gt; new Int16Array([truth]),
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>    STRING: (str) =&gt; {
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        // beremiz default string max size is 128
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        str = str.slice(0,128);
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        binary = new Uint8Array(str.length + 1);
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        binary[0] = str.length;
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        for(var i = 0; i &lt; str.length; i++){
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>            binary[i+1] = str.charCodeAt(i);
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        }
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        return binary;
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>    }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    /* TODO */
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>function send_reset() {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    send_blob(new Uint8Array([1])); /* reset = 1 */
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>// subscription state, as it should be in hmi server
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>// hmitree indexed array of integers
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>var subscriptions =  hmitree_types.map(_ignored =&gt; 0);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>// subscription state as needed by widget now
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>// hmitree indexed array of Sets of widgets objects
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>var subscribers = hmitree_types.map(_ignored =&gt; new Set());
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2822:     <xsl:text>// artificially subscribe the watchdog widget to "/heartbeat" hmi variable
Edouard@2822: </xsl:text>
Edouard@2829:     <xsl:text>// Since dispatch directly calls change_hmi_value,
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>// PLC will periodically send variable at given frequency
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>subscribers[heartbeat_index].add({
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>    /* type: "Watchdog", */
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>    frequency: 1,
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>    indexes: [heartbeat_index],
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>    dispatch: function(value) {
Edouard@2822: </xsl:text>
Edouard@2828:     <xsl:text>        // console.log("Heartbeat" + value);
Edouard@2822: </xsl:text>
Edouard@2829:     <xsl:text>        change_hmi_value(heartbeat_index, "+1");
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>    }
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>});
Edouard@2822: </xsl:text>
Edouard@2822:     <xsl:text>
Edouard@2822: </xsl:text>
Edouard@2811:     <xsl:text>function update_subscriptions() {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let delta = [];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    for(let index = 0; index &lt; subscribers.length; index++){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        let widgets = subscribers[index];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        // periods are in ms
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        let previous_period = subscriptions[index];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2822:     <xsl:text>        // subscribing with a zero period is unsubscribing
Edouard@2822: </xsl:text>
Edouard@2811:     <xsl:text>        let new_period = 0;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        if(widgets.size &gt; 0) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            let maxfreq = 0;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            for(let widget of widgets)
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                if(maxfreq &lt; widget.frequency)
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                    maxfreq = widget.frequency;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            if(maxfreq != 0)
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                new_period = 1000/maxfreq;
Edouard@2803: </xsl:text>
Edouard@2803:     <xsl:text>        }
Edouard@2803: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        if(previous_period != new_period) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            subscriptions[index] = new_period;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            delta.push(
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                new Uint8Array([2]), /* subscribe = 2 */
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                new Uint32Array([index]),
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                new Uint16Array([new_period]));
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        }
Edouard@2811: </xsl:text>
Edouard@2803:     <xsl:text>    }
Edouard@2803: </xsl:text>
Edouard@2811:     <xsl:text>    send_blob(delta);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>function send_hmi_value(index, value) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let iectype = hmitree_types[index];
Edouard@2811: </xsl:text>
Edouard@2829:     <xsl:text>    let tobinary = typedarray_types[iectype];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    send_blob([
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        new Uint8Array([0]),  /* setval = 0 */
Edouard@2811: </xsl:text>
Edouard@2829:     <xsl:text>        new Uint32Array([index]),
Edouard@2829: </xsl:text>
Edouard@2829:     <xsl:text>        tobinary(value)]);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    cache[index] = value;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>};
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>function change_hmi_value(index, opstr) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let op = opstr[0];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let given_val = opstr.slice(1);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let old_val = cache[index]
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let new_val;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    switch(op){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>      case "=":
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        eval("new_val"+opstr);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        break;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>      case "+":
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>      case "-":
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>      case "*":
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>      case "/":
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        if(old_val != undefined)
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            new_val = eval("old_val"+opstr);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        break;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    if(new_val != undefined &amp;&amp; old_val != new_val)
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        send_hmi_value(index, new_val);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    return new_val;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>}
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>var current_page;
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>function switch_page(page_name) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let old_desc = page_desc[current_page];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    let new_desc = page_desc[page_name];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    /* TODO hide / show widgets */
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    /* remove subsribers of previous page if any */
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    if(old_desc) for(let widget of old_desc.widgets){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        for(let index of widget.indexes){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            subscribers[index].delete(widget);
Edouard@2803: </xsl:text>
Edouard@2803:     <xsl:text>        }
Edouard@2803: </xsl:text>
Edouard@2811:     <xsl:text>    }
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>    if(new_desc) {
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        /* add new subsribers if any */
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>        for(let widget of new_desc.widgets){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>            for(let index of widget.indexes){
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                subscribers[index].add(widget);
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                let cached_val = cache[index];
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                if(cached_val != undefined)
Edouard@2811: </xsl:text>
Edouard@2811:     <xsl:text>                    dispatch_value_to_widget(widget, index, cached_val, cached_val);
Edouard@2811: </xsl:text>
Edouard@2800:     <xsl:text>            }
Edouard@2800: </xsl:text>
Edouard@2800:     <xsl:text>        }
Edouard@2800: </xsl:text>
Edouard@2808:     <xsl:text>        svg_root.setAttribute('viewBox',new_desc.bbox.join(" "));
Edouard@2808: </xsl:text>
Edouard@2811:     <xsl:text>        // TODO dispatch current cache in newly opened page
Edouard@2811: </xsl:text>
Edouard@2798:     <xsl:text>    }
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>    current_page = page_name;
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>    update_subscriptions();
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>};
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>// Once connection established
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>ws.onopen = function (evt) {
Edouard@2798: </xsl:text>
Edouard@2801:     <xsl:text>    init_widgets();
Edouard@2801: </xsl:text>
Edouard@2798:     <xsl:text>    send_reset();
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>    // show main page
Edouard@2798: </xsl:text>
Edouard@2798:     <xsl:text>    switch_page(default_page);
Edouard@2798: </xsl:text>
Edouard@2799:     <xsl:text>};
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>ws.onclose = function (evt) {
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>    // TODO : add visible notification while waiting for reload
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>    console.log("Connection closed. code:"+evt.code+" reason:"+evt.reason+" wasClean:"+evt.wasClean+" Reload in 10s.");
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>    // TODO : re-enable auto reload when not in debug
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>    //window.setTimeout(() =&gt; location.reload(true), 10000);
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>    alert("Connection closed. code:"+evt.code+" reason:"+evt.reason+" wasClean:"+evt.wasClean+".");
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>};
Edouard@2799: </xsl:text>
Edouard@2799:     <xsl:text>//})();
Edouard@2793: </xsl:text>
Edouard@2792:   </xsl:template>
Edouard@2814:   <xsl:template mode="testgeo" match="bbox">
Edouard@2814:     <xsl:text>ID: </xsl:text>
Edouard@2814:     <xsl:value-of select="@Id"/>
Edouard@2814:     <xsl:text> x: </xsl:text>
Edouard@2814:     <xsl:value-of select="@x"/>
Edouard@2814:     <xsl:text> y: </xsl:text>
Edouard@2814:     <xsl:value-of select="@y"/>
Edouard@2814:     <xsl:text> w: </xsl:text>
Edouard@2814:     <xsl:value-of select="@w"/>
Edouard@2814:     <xsl:text> h: </xsl:text>
Edouard@2814:     <xsl:value-of select="@h"/>
Edouard@2814:     <xsl:text>
Edouard@2814: </xsl:text>
Edouard@2814:   </xsl:template>
Edouard@2814:   <xsl:template mode="testtree" match="*">
Edouard@2814:     <xsl:param name="indent" select="''"/>
Edouard@2814:     <xsl:value-of select="$indent"/>
Edouard@2814:     <xsl:text> </xsl:text>
Edouard@2814:     <xsl:value-of select="local-name()"/>
Edouard@2814:     <xsl:text> </xsl:text>
Edouard@2814:     <xsl:for-each select="@*">
Edouard@2814:       <xsl:value-of select="local-name()"/>
Edouard@2814:       <xsl:text>=</xsl:text>
Edouard@2814:       <xsl:value-of select="."/>
Edouard@2814:       <xsl:text> </xsl:text>
Edouard@2814:     </xsl:for-each>
Edouard@2814:     <xsl:text>
Edouard@2814: </xsl:text>
Edouard@2814:     <xsl:apply-templates mode="testtree" select="*">
Edouard@2814:       <xsl:with-param name="indent">
Edouard@2814:         <xsl:value-of select="concat($indent,'&gt;')"/>
Edouard@2814:       </xsl:with-param>
Edouard@2814:     </xsl:apply-templates>
Edouard@2814:   </xsl:template>
Edouard@2808:   <xsl:template name="defs_by_labels">
Edouard@2808:     <xsl:param name="labels" select="''"/>
Edouard@2808:     <xsl:param name="mandatory" select="'yes'"/>
Edouard@2800:     <xsl:param name="hmi_element"/>
Edouard@2808:     <xsl:for-each select="str:split($labels)">
Edouard@2807:       <xsl:variable name="name" select="."/>
Edouard@2807:       <xsl:variable name="elt_id" select="$hmi_element//*[@inkscape:label=$name][1]/@id"/>
Edouard@2808:       <xsl:if test="$mandatory='yes' and not($elt_id)">
Edouard@2807:         <xsl:message terminate="yes">
Edouard@2807:           <xsl:text>Meter widget must have a </xsl:text>
Edouard@2807:           <xsl:value-of select="$name"/>
Edouard@2807:           <xsl:text> element</xsl:text>
Edouard@2807:         </xsl:message>
Edouard@2807:       </xsl:if>
Edouard@2807:       <xsl:value-of select="$name"/>
Edouard@2807:       <xsl:text>_elt: document.getElementById("</xsl:text>
Edouard@2807:       <xsl:value-of select="$elt_id"/>
Edouard@2807:       <xsl:text>"),
Edouard@2807: </xsl:text>
Edouard@2807:     </xsl:for-each>
Edouard@2808:   </xsl:template>
Edouard@2808:   <xsl:template mode="widget_defs" match="widget[@type='Display']">
Edouard@2808:     <xsl:param name="hmi_element"/>
Edouard@2808:     <xsl:text>frequency: 5,
Edouard@2808: </xsl:text>
Edouard@2808:     <xsl:text>dispatch: function(value) {
Edouard@2808: </xsl:text>
Edouard@2808:     <xsl:choose>
Edouard@2808:       <xsl:when test="$hmi_element[self::svg:text]">
Edouard@2808:         <xsl:text>  this.element.textContent = String(value);
Edouard@2808: </xsl:text>
Edouard@2808:       </xsl:when>
Edouard@2808:       <xsl:otherwise>
Edouard@2808:         <xsl:message terminate="yes">
Edouard@2808:           <xsl:text>Display widget as a group not implemented</xsl:text>
Edouard@2808:         </xsl:message>
Edouard@2808:       </xsl:otherwise>
Edouard@2808:     </xsl:choose>
Edouard@2808:     <xsl:text>},
Edouard@2808: </xsl:text>
Edouard@2808:   </xsl:template>
Edouard@2808:   <xsl:template mode="widget_defs" match="widget[@type='Meter']">
Edouard@2808:     <xsl:param name="hmi_element"/>
Edouard@2808:     <xsl:text>frequency: 10,
Edouard@2808: </xsl:text>
Edouard@2808:     <xsl:call-template name="defs_by_labels">
Edouard@2808:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2808:       <xsl:with-param name="labels">
Edouard@2810:         <xsl:text>value min max needle range</xsl:text>
Edouard@2808:       </xsl:with-param>
Edouard@2808:     </xsl:call-template>
Edouard@2807:     <xsl:text>dispatch: function(value) {
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>    this.value_elt.textContent = String(value);
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>    let [min,max,totallength] = this.range;
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>    let length = Math.max(0,Math.min(totallength,(Number(value)-min)*totallength/(max-min)));
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>    let tip = this.range_elt.getPointAtLength(length);
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>    this.needle_elt.setAttribute('d', "M "+this.origin.x+","+this.origin.y+" "+tip.x+","+tip.y);
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>},
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>origin: undefined,
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>range: undefined,
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>init: function() {
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>    this.range = [Number(this.min_elt.textContent), Number(this.max_elt.textContent), this.range_elt.getTotalLength()]
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>    this.origin = this.needle_elt.getPointAtLength(0);
Edouard@2807: </xsl:text>
Edouard@2807:     <xsl:text>},
Edouard@2807: </xsl:text>
Edouard@2800:   </xsl:template>
Edouard@2829:   <func:function name="func:escape_quotes">
Edouard@2829:     <xsl:param name="txt"/>
Edouard@2829:     <xsl:variable name="frst" select="substring-before($txt,'&quot;')"/>
Edouard@2829:     <xsl:variable name="frstln" select="string-length($frst)"/>
Edouard@2829:     <xsl:choose>
Edouard@2829:       <xsl:when test="$frstln &gt; 0 and string-length($txt) &gt; $frstln">
Edouard@2829:         <func:result select="concat($frst,'\&quot;',func:escape_quotes(substring-after($txt,'&quot;')))"/>
Edouard@2829:       </xsl:when>
Edouard@2829:       <xsl:otherwise>
Edouard@2829:         <func:result select="$txt"/>
Edouard@2829:       </xsl:otherwise>
Edouard@2829:     </xsl:choose>
Edouard@2829:   </func:function>
Edouard@2800:   <xsl:template mode="widget_defs" match="widget[@type='Input']">
Edouard@2801:     <xsl:param name="hmi_element"/>
Edouard@2801:     <xsl:text>frequency: 5,
Edouard@2801: </xsl:text>
Edouard@2808:     <xsl:call-template name="defs_by_labels">
Edouard@2808:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2808:       <xsl:with-param name="labels">
Edouard@2810:         <xsl:text>value</xsl:text>
Edouard@2808:       </xsl:with-param>
Edouard@2808:     </xsl:call-template>
Edouard@2801:     <xsl:text>dispatch: function(value) {
Edouard@2801: </xsl:text>
Edouard@2801:     <xsl:text>    this.value_elt.textContent = String(value);
Edouard@2801: </xsl:text>
Edouard@2801:     <xsl:text>},
Edouard@2801: </xsl:text>
Edouard@2801:     <xsl:variable name="edit_elt_id" select="$hmi_element/*[@inkscape:label='edit'][1]/@id"/>
Edouard@2801:     <xsl:text>init: function() {
Edouard@2801: </xsl:text>
Edouard@2801:     <xsl:if test="$edit_elt_id">
Edouard@2801:       <xsl:text>    document.getElementById("</xsl:text>
Edouard@2801:       <xsl:value-of select="$edit_elt_id"/>
Edouard@2801:       <xsl:text>").addEventListener(
Edouard@2801: </xsl:text>
Edouard@2801:       <xsl:text>        "click", 
Edouard@2801: </xsl:text>
Edouard@2801:       <xsl:text>        evt =&gt; alert('XXX TODO : Edit value'));
Edouard@2801: </xsl:text>
Edouard@2801:     </xsl:if>
Edouard@2829:     <xsl:for-each select="$hmi_element/*[regexp:test(@inkscape:label,'^[=+\-].+')]">
Edouard@2801:       <xsl:text>    document.getElementById("</xsl:text>
Edouard@2801:       <xsl:value-of select="@id"/>
Edouard@2801:       <xsl:text>").addEventListener(
Edouard@2801: </xsl:text>
Edouard@2801:       <xsl:text>        "click", 
Edouard@2801: </xsl:text>
Edouard@2806:       <xsl:text>        evt =&gt; {let new_val = change_hmi_value(this.indexes[0], "</xsl:text>
Edouard@2829:       <xsl:value-of select="func:escape_quotes(@inkscape:label)"/>
Edouard@2806:       <xsl:text>");
Edouard@2806: </xsl:text>
Edouard@2806:       <xsl:text>                this.value_elt.textContent = String(new_val);});
Edouard@2801: </xsl:text>
Edouard@2801:     </xsl:for-each>
Edouard@2801:     <xsl:text>},
Edouard@2801: </xsl:text>
Edouard@2801:   </xsl:template>
Edouard@2801:   <xsl:template mode="widget_defs" match="widget[@type='Button']"/>
Edouard@2801:   <xsl:template mode="widget_defs" match="widget[@type='Toggle']">
Edouard@2800:     <xsl:text>    frequency: 5,
Edouard@2800: </xsl:text>
Edouard@2797:   </xsl:template>
Edouard@2801:   <xsl:template mode="widget_defs" match="widget[@type='Change']">
Edouard@2801:     <xsl:text>    frequency: 5,
Edouard@2801: </xsl:text>
Edouard@2801:   </xsl:template>
Edouard@2808:   <xsl:template mode="widget_defs" match="widget[@type='Jump']">
Edouard@2808:     <xsl:text>init: function() {
Edouard@2808: </xsl:text>
Edouard@2808:     <xsl:text>    this.element.addEventListener(
Edouard@2808: </xsl:text>
Edouard@2808:     <xsl:text>        "click", 
Edouard@2808: </xsl:text>
Edouard@2808:     <xsl:text>        evt =&gt; switch_page(this.args[0]));
Edouard@2808: </xsl:text>
Edouard@2808:     <xsl:text>},
Edouard@2808: </xsl:text>
Edouard@2808:   </xsl:template>
Edouard@2753: </xsl:stylesheet>