Edouard@2753: <?xml version="1.0"?>
edouard@2994: <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:xhtml="http://www.w3.org/1999/xhtml" xmlns:debug="debug" xmlns:preamble="preamble" xmlns:declarations="declarations" xmlns:definitions="definitions" xmlns:epilogue="epilogue" xmlns:ns="beremiz" version="1.0" extension-element-prefixes="ns func exsl regexp str dyn" exclude-result-prefixes="ns func exsl regexp str dyn debug preamble epilogue declarations definitions">
edouard@2994:   <xsl:output cdata-section-elements="xhtml:script" method="xml"/>
edouard@2941:   <xsl:variable name="svg" select="/svg:svg"/>
Edouard@2879:   <xsl:variable name="hmi_elements" select="//svg:*[starts-with(@inkscape:label, 'HMI:')]"/>
Edouard@2877:   <xsl:variable name="hmitree" select="ns:GetHMITree()"/>
Edouard@2790:   <xsl:variable name="_categories">
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@2867:   <xsl:variable name="_indexed_hmitree">
Edouard@2867:     <xsl:apply-templates mode="index" select="$hmitree"/>
Edouard@2867:   </xsl:variable>
Edouard@2867:   <xsl:variable name="indexed_hmitree" select="exsl:node-set($_indexed_hmitree)"/>
edouard@2941:   <preamble:hmi-tree/>
edouard@2941:   <xsl:template match="preamble:hmi-tree">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:     <xsl:text>var hmi_hash = [</xsl:text>
edouard@2941:     <xsl:value-of select="$hmitree/@hash"/>
edouard@2941:     <xsl:text>];
edouard@2941: </xsl:text>
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:     <xsl:text>var heartbeat_index = </xsl:text>
edouard@2941:     <xsl:value-of select="$indexed_hmitree/*[@hmipath = '/HEARTBEAT']/@index"/>
edouard@2941:     <xsl:text>;
edouard@2941: </xsl:text>
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:     <xsl:text>var hmitree_types = [
edouard@2941: </xsl:text>
edouard@2941:     <xsl:for-each select="$indexed_hmitree/*">
edouard@2941:       <xsl:text>    /* </xsl:text>
edouard@2941:       <xsl:value-of select="@index"/>
edouard@2941:       <xsl:text>  </xsl:text>
edouard@2941:       <xsl:value-of select="@hmipath"/>
edouard@2941:       <xsl:text> */ "</xsl:text>
edouard@2941:       <xsl:value-of select="substring(local-name(), 5)"/>
edouard@2941:       <xsl:text>"</xsl:text>
edouard@2941:       <xsl:if test="position()!=last()">
edouard@2941:         <xsl:text>,</xsl:text>
edouard@2941:       </xsl:if>
edouard@2941:       <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:     </xsl:for-each>
edouard@2941:     <xsl:text>]
edouard@2941: </xsl:text>
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:   </xsl:template>
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@2890:           <xsl:when test="count(ancestor::*)=0">
edouard@2890:             <xsl:text>/</xsl:text>
edouard@2890:           </xsl:when>
edouard@2890:           <xsl:when test="count(ancestor::*)=1">
edouard@2890:             <xsl:text>/</xsl:text>
edouard@2890:             <xsl:value-of select="@name"/>
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@2867:           <xsl:apply-templates mode="index" select="*[1]">
Edouard@2867:             <xsl:with-param name="index" select="$index + 1"/>
Edouard@2867:             <xsl:with-param name="parentpath">
Edouard@2867:               <xsl:value-of select="$path"/>
Edouard@2867:             </xsl:with-param>
Edouard@2867:           </xsl:apply-templates>
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@2886:   <xsl:template mode="parselabel" match="*">
edouard@2886:     <xsl:variable name="label" select="@inkscape: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@2886:     <xsl:if test="$type">
edouard@2886:       <widget>
edouard@2886:         <xsl:attribute name="id">
edouard@2886:           <xsl:value-of select="@id"/>
edouard@2886:         </xsl:attribute>
edouard@2886:         <xsl:attribute name="type">
edouard@2886:           <xsl:value-of select="$type"/>
edouard@2886:         </xsl:attribute>
edouard@2886:         <xsl:for-each select="str:split(substring-after($args, ':'), ':')">
edouard@2886:           <arg>
edouard@2886:             <xsl:attribute name="value">
edouard@2886:               <xsl:value-of select="."/>
edouard@2886:             </xsl:attribute>
edouard@2886:           </arg>
edouard@2886:         </xsl:for-each>
edouard@2886:         <xsl:variable name="paths" select="substring-after($description,'@')"/>
edouard@2886:         <xsl:for-each select="str:split($paths, '@')">
edouard@2886:           <xsl:if test="string-length(.) &gt; 0">
edouard@2886:             <path>
Edouard@2793:               <xsl:attribute name="value">
Edouard@2793:                 <xsl:value-of select="."/>
Edouard@2793:               </xsl:attribute>
edouard@2886:               <xsl:variable name="path" select="."/>
edouard@2886:               <xsl:variable name="item" select="$indexed_hmitree/*[@hmipath = $path]"/>
edouard@2886:               <xsl:if test="count($item) = 1">
edouard@2886:                 <xsl:attribute name="index">
edouard@2886:                   <xsl:value-of select="$item/@index"/>
Edouard@2869:                 </xsl:attribute>
Edouard@2913:                 <xsl:attribute name="type">
Edouard@2913:                   <xsl:value-of select="local-name($item)"/>
Edouard@2913:                 </xsl:attribute>
edouard@2886:               </xsl:if>
edouard@2886:             </path>
edouard@2886:           </xsl:if>
edouard@2886:         </xsl:for-each>
edouard@2886:       </widget>
edouard@2886:     </xsl:if>
edouard@2886:   </xsl:template>
edouard@2886:   <xsl:variable name="_parsed_widgets">
edouard@2886:     <xsl:apply-templates mode="parselabel" select="$hmi_elements"/>
edouard@2886:   </xsl:variable>
edouard@2886:   <xsl:variable name="parsed_widgets" select="exsl:node-set($_parsed_widgets)"/>
edouard@2886:   <func:function name="func:widget">
edouard@2886:     <xsl:param name="id"/>
edouard@2886:     <func:result select="$parsed_widgets/widget[@id = $id]"/>
Edouard@2885:   </func:function>
edouard@2894:   <func:function name="func:is_descendant_path">
edouard@2894:     <xsl:param name="descend"/>
edouard@2894:     <xsl:param name="ancest"/>
edouard@2894:     <func:result select="string-length($ancest) &gt; 0 and starts-with($descend,$ancest)"/>
edouard@2894:   </func:function>
Edouard@2901:   <func:function name="func:same_class_paths">
Edouard@2901:     <xsl:param name="a"/>
Edouard@2901:     <xsl:param name="b"/>
Edouard@2901:     <xsl:variable name="class_a" select="$indexed_hmitree/*[@hmipath = $a]/@class"/>
Edouard@2901:     <xsl:variable name="class_b" select="$indexed_hmitree/*[@hmipath = $b]/@class"/>
Edouard@2901:     <func:result select="$class_a and $class_b and $class_a = $class_b"/>
Edouard@2901:   </func:function>
Edouard@2877:   <xsl:template mode="testtree" match="*">
Edouard@2877:     <xsl:param name="indent" select="''"/>
Edouard@2877:     <xsl:value-of select="$indent"/>
Edouard@2877:     <xsl:text> </xsl:text>
Edouard@2877:     <xsl:value-of select="local-name()"/>
Edouard@2877:     <xsl:text> </xsl:text>
Edouard@2877:     <xsl:for-each select="@*">
Edouard@2877:       <xsl:value-of select="local-name()"/>
Edouard@2877:       <xsl:text>="</xsl:text>
Edouard@2877:       <xsl:value-of select="."/>
Edouard@2877:       <xsl:text>" </xsl:text>
Edouard@2877:     </xsl:for-each>
Edouard@2877:     <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:apply-templates mode="testtree" select="*">
Edouard@2877:       <xsl:with-param name="indent">
Edouard@2877:         <xsl:value-of select="concat($indent,'&gt;')"/>
Edouard@2877:       </xsl:with-param>
Edouard@2877:     </xsl:apply-templates>
Edouard@2877:   </xsl:template>
edouard@2940:   <debug:hmi-tree/>
edouard@2940:   <xsl:template match="debug:hmi-tree">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
Edouard@2877:     <xsl:text>Raw HMI tree
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:apply-templates mode="testtree" select="$hmitree"/>
Edouard@2877:     <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:text>Indexed HMI tree
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:apply-templates mode="testtree" select="$indexed_hmitree"/>
edouard@2886:     <xsl:text>
edouard@2886: </xsl:text>
edouard@2886:     <xsl:text>Parsed Widgets
edouard@2886: </xsl:text>
edouard@2886:     <xsl:copy-of select="_parsed_widgets"/>
edouard@2886:     <xsl:apply-templates mode="testtree" select="$parsed_widgets"/>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:variable name="geometry" select="ns:GetSVGGeometry()"/>
edouard@2939:   <debug:geometry/>
edouard@2940:   <xsl:template match="debug:geometry">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
Edouard@2877:     <xsl:text>ID, x, y, w, h
Edouard@2877: </xsl:text>
Edouard@2879:     <xsl:for-each select="$geometry">
Edouard@2877:       <xsl:text> </xsl:text>
Edouard@2877:       <xsl:value-of select="@Id"/>
Edouard@2877:       <xsl:text> </xsl:text>
Edouard@2877:       <xsl:value-of select="@x"/>
Edouard@2877:       <xsl:text> </xsl:text>
Edouard@2877:       <xsl:value-of select="@y"/>
Edouard@2877:       <xsl:text> </xsl:text>
Edouard@2877:       <xsl:value-of select="@w"/>
Edouard@2877:       <xsl:text> </xsl:text>
Edouard@2877:       <xsl:value-of select="@h"/>
Edouard@2877:       <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:     </xsl:for-each>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
Edouard@2877:   </xsl:template>
Edouard@2877:   <func:function name="func:intersect_1d">
Edouard@2877:     <xsl:param name="a0"/>
Edouard@2877:     <xsl:param name="a1"/>
Edouard@2877:     <xsl:param name="b0"/>
Edouard@2877:     <xsl:param name="b1"/>
Edouard@2877:     <xsl:variable name="d0" select="$a0 &gt;= $b0"/>
Edouard@2877:     <xsl:variable name="d1" select="$a1 &gt;= $b1"/>
Edouard@2877:     <xsl:choose>
Edouard@2877:       <xsl:when test="not($d0) and $d1">
Edouard@2877:         <func:result select="3"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:when test="$d0 and not($d1)">
Edouard@2877:         <func:result select="2"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:when test="$d0 and $d1 and $a0 &lt; $b1">
Edouard@2877:         <func:result select="1"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:when test="not($d0) and not($d1) and $b0 &lt; $a1">
Edouard@2877:         <func:result select="1"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
Edouard@2877:         <func:result select="0"/>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </func:function>
Edouard@2877:   <func:function name="func:intersect">
Edouard@2877:     <xsl:param name="a"/>
Edouard@2877:     <xsl:param name="b"/>
Edouard@2877:     <xsl:variable name="x_intersect" select="func:intersect_1d($a/@x, $a/@x+$a/@w, $b/@x, $b/@x+$b/@w)"/>
Edouard@2877:     <xsl:choose>
Edouard@2877:       <xsl:when test="$x_intersect != 0">
Edouard@2877:         <xsl:variable name="y_intersect" select="func:intersect_1d($a/@y, $a/@y+$a/@h, $b/@y, $b/@y+$b/@h)"/>
Edouard@2877:         <func:result select="$x_intersect * $y_intersect"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
Edouard@2877:         <func:result select="0"/>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </func:function>
Edouard@2877:   <func:function name="func:overlapping_geometry">
Edouard@2877:     <xsl:param name="elt"/>
Edouard@2877:     <xsl:variable name="groups" select="/svg:svg | //svg:g"/>
Edouard@2877:     <xsl:variable name="g" select="$geometry[@Id = $elt/@id]"/>
Edouard@2877:     <xsl:variable name="candidates" select="$geometry[@Id != $elt/@id]"/>
Edouard@2877:     <func:result select="$candidates[(@Id = $groups/@id and (func:intersect($g, .) = 9)) or &#10;                          (not(@Id = $groups/@id) and (func:intersect($g, .) &gt; 0 ))]"/>
Edouard@2877:   </func:function>
Edouard@2887:   <xsl:variable name="hmi_pages_descs" select="$parsed_widgets/widget[@type = 'Page']"/>
Edouard@2887:   <xsl:variable name="hmi_pages" select="$hmi_elements[@id = $hmi_pages_descs/@id]"/>
Edouard@2877:   <xsl:variable name="default_page">
Edouard@2877:     <xsl:choose>
Edouard@2877:       <xsl:when test="count($hmi_pages) &gt; 1">
Edouard@2877:         <xsl:choose>
Edouard@2887:           <xsl:when test="$hmi_pages_descs/arg[1]/@value = 'Home'">
Edouard@2877:             <xsl:text>Home</xsl:text>
Edouard@2877:           </xsl:when>
Edouard@2877:           <xsl:otherwise>
Edouard@2877:             <xsl:message terminate="yes">No Home page defined!</xsl:message>
Edouard@2877:           </xsl:otherwise>
Edouard@2877:         </xsl:choose>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:when test="count($hmi_pages) = 0">
Edouard@2877:         <xsl:message terminate="yes">No page defined!</xsl:message>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
edouard@2886:         <xsl:value-of select="func:widget($hmi_pages/@id)/arg[1]/@value"/>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </xsl:variable>
edouard@2941:   <preamble:default-page/>
edouard@2941:   <xsl:template match="preamble:default-page">
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:     <xsl:text>var default_page = "</xsl:text>
edouard@2941:     <xsl:value-of select="$default_page"/>
edouard@2941:     <xsl:text>";
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:   </xsl:template>
edouard@2941:   <xsl:variable name="keypads_descs" select="$parsed_widgets/widget[@type = 'Keypad']"/>
edouard@2941:   <xsl:variable name="keypads" select="$hmi_elements[@id = $keypads_descs/@id]"/>
Edouard@2877:   <func:function name="func:refered_elements">
Edouard@2877:     <xsl:param name="elems"/>
Edouard@2877:     <xsl:variable name="descend" select="$elems/descendant-or-self::svg:*"/>
Edouard@2877:     <xsl:variable name="clones" select="$descend[self::svg:use]"/>
Edouard@2877:     <xsl:variable name="originals" select="//svg:*[concat('#',@id) = $clones/@xlink:href]"/>
Edouard@2877:     <xsl:choose>
Edouard@2877:       <xsl:when test="$originals">
Edouard@2877:         <func:result select="$descend | func:refered_elements($originals)"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
Edouard@2877:         <func:result select="$descend"/>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </func:function>
Edouard@2877:   <func:function name="func:all_related_elements">
Edouard@2877:     <xsl:param name="page"/>
Edouard@2877:     <xsl:variable name="page_overlapping_geometry" select="func:overlapping_geometry($page)"/>
Edouard@2877:     <xsl:variable name="page_overlapping_elements" select="//svg:*[@id = $page_overlapping_geometry/@Id]"/>
Edouard@2877:     <xsl:variable name="page_sub_elements" select="func:refered_elements($page | $page_overlapping_elements)"/>
Edouard@2877:     <func:result select="$page_sub_elements"/>
Edouard@2877:   </func:function>
Edouard@2877:   <func:function name="func:required_elements">
Edouard@2877:     <xsl:param name="pages"/>
Edouard@2877:     <xsl:choose>
Edouard@2877:       <xsl:when test="$pages">
Edouard@2877:         <func:result select="func:all_related_elements($pages[1])&#10;                      | func:required_elements($pages[position()!=1])"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
Edouard@2877:         <func:result select="/.."/>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </func:function>
Edouard@2913:   <xsl:variable name="required_elements" select="//svg:defs/descendant-or-self::svg:*&#10;       | func:required_elements($hmi_pages | $keypads)/ancestor-or-self::svg:*"/>
Edouard@2877:   <xsl:variable name="discardable_elements" select="//svg:*[not(@id = $required_elements/@id)]"/>
Edouard@2877:   <func:function name="func:sumarized_elements">
Edouard@2877:     <xsl:param name="elements"/>
Edouard@2877:     <xsl:variable name="short_list" select="$elements[not(ancestor::*/@id = $elements/@id)]"/>
Edouard@2877:     <xsl:variable name="filled_groups" select="$short_list/parent::svg:*[&#10;        not(descendant::*[&#10;            not(self::svg:g) and&#10;            not(@id = $discardable_elements/@id) and&#10;            not(@id = $short_list/descendant-or-self::*[not(self::svg:g)]/@id)&#10;        ])]"/>
Edouard@2877:     <xsl:variable name="groups_to_add" select="$filled_groups[not(ancestor::*/@id = $filled_groups/@id)]"/>
Edouard@2877:     <func:result select="$groups_to_add | $short_list[not(ancestor::svg:g/@id = $filled_groups/@id)]"/>
Edouard@2877:   </func:function>
Edouard@2877:   <func:function name="func:detachable_elements">
Edouard@2877:     <xsl:param name="pages"/>
Edouard@2877:     <xsl:choose>
Edouard@2877:       <xsl:when test="$pages">
Edouard@2877:         <func:result select="func:sumarized_elements(func:all_related_elements($pages[1]))&#10;                      | func:detachable_elements($pages[position()!=1])"/>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
Edouard@2877:         <func:result select="/.."/>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </func:function>
Edouard@2913:   <xsl:variable name="_detachable_elements" select="func:detachable_elements($hmi_pages | $keypads)"/>
Edouard@2877:   <xsl:variable name="detachable_elements" select="$_detachable_elements[not(ancestor::*/@id = $_detachable_elements/@id)]"/>
edouard@2943:   <declarations:detachable-elements/>
edouard@2943:   <xsl:template match="declarations:detachable-elements">
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:     <xsl:text>var detachable_elements = {
edouard@2941: </xsl:text>
edouard@2941:     <xsl:for-each select="$detachable_elements">
edouard@2941:       <xsl:text>    "</xsl:text>
edouard@2941:       <xsl:value-of select="@id"/>
edouard@2941:       <xsl:text>":[id("</xsl:text>
edouard@2941:       <xsl:value-of select="@id"/>
edouard@2941:       <xsl:text>"), id("</xsl:text>
edouard@2941:       <xsl:value-of select="../@id"/>
edouard@2941:       <xsl:text>")]</xsl:text>
edouard@2941:       <xsl:if test="position()!=last()">
edouard@2941:         <xsl:text>,</xsl:text>
edouard@2941:       </xsl:if>
edouard@2941:       <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:     </xsl:for-each>
edouard@2941:     <xsl:text>}
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:   </xsl:template>
Edouard@2888:   <xsl:variable name="forEach_widgets_ids" select="$parsed_widgets/widget[@type = 'ForEach']/@id"/>
Edouard@2888:   <xsl:variable name="forEach_widgets" select="$hmi_elements[@id = $forEach_widgets_ids]"/>
Edouard@2888:   <xsl:variable name="in_forEach_widget_ids" select="func:refered_elements($forEach_widgets)[not(@id = $forEach_widgets_ids)]/@id"/>
Edouard@2877:   <xsl:template mode="page_desc" match="svg:*">
edouard@2886:     <xsl:variable name="desc" select="func:widget(@id)"/>
Edouard@2877:     <xsl:variable name="page" select="."/>
Edouard@2877:     <xsl:variable name="p" select="$geometry[@Id = $page/@id]"/>
Edouard@2877:     <xsl:variable name="page_all_elements" select="func:all_related_elements($page)"/>
Edouard@2901:     <xsl:variable name="all_page_widgets" select="$hmi_elements[@id = $page_all_elements/@id and @id != $page/@id]"/>
Edouard@2901:     <xsl:variable name="page_managed_widgets" select="$all_page_widgets[not(@id=$in_forEach_widget_ids)]"/>
Edouard@2901:     <xsl:variable name="page_relative_widgets" select="$page_managed_widgets[func:is_descendant_path(func:widget(@id)/path/@value, $desc/path/@value)]"/>
Edouard@2877:     <xsl:variable name="required_detachables" select="func:sumarized_elements($page_all_elements)/&#10;           ancestor-or-self::*[@id = $detachable_elements/@id]"/>
Edouard@2877:     <xsl:text>  "</xsl:text>
Edouard@2877:     <xsl:value-of select="$desc/arg[1]/@value"/>
Edouard@2877:     <xsl:text>": {
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:text>    bbox: [</xsl:text>
Edouard@2877:     <xsl:value-of select="$p/@x"/>
Edouard@2877:     <xsl:text>, </xsl:text>
Edouard@2877:     <xsl:value-of select="$p/@y"/>
Edouard@2877:     <xsl:text>, </xsl:text>
Edouard@2877:     <xsl:value-of select="$p/@w"/>
Edouard@2877:     <xsl:text>, </xsl:text>
Edouard@2877:     <xsl:value-of select="$p/@h"/>
Edouard@2877:     <xsl:text>],
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:if test="$desc/path/@value">
Edouard@2877:       <xsl:if test="count($desc/path/@index)=0">
Edouard@2877:         <xsl:message terminate="no">
Edouard@2877:           <xsl:text>Page id="</xsl:text>
Edouard@2877:           <xsl:value-of select="$page/@id"/>
Edouard@2877:           <xsl:text>" : No match for path "</xsl:text>
Edouard@2877:           <xsl:value-of select="$desc/path/@value"/>
Edouard@2877:           <xsl:text>" in HMI tree</xsl:text>
Edouard@2877:         </xsl:message>
Edouard@2877:       </xsl:if>
Edouard@2877:       <xsl:text>    page_index: </xsl:text>
Edouard@2877:       <xsl:value-of select="$desc/path/@index"/>
Edouard@2877:       <xsl:text>,
Edouard@2877: </xsl:text>
Edouard@2877:     </xsl:if>
Edouard@2877:     <xsl:text>    relative_widgets: [
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:for-each select="$page_relative_widgets">
Edouard@2877:       <xsl:text>        hmi_widgets["</xsl:text>
Edouard@2877:       <xsl:value-of select="@id"/>
Edouard@2877:       <xsl:text>"]</xsl:text>
Edouard@2877:       <xsl:if test="position()!=last()">
Edouard@2877:         <xsl:text>,</xsl:text>
Edouard@2877:       </xsl:if>
Edouard@2877:       <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:     </xsl:for-each>
Edouard@2877:     <xsl:text>    ],
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:text>    absolute_widgets: [
Edouard@2877: </xsl:text>
Edouard@2901:     <xsl:for-each select="$page_managed_widgets[not(@id = $page_relative_widgets/@id)]">
Edouard@2877:       <xsl:text>        hmi_widgets["</xsl:text>
Edouard@2877:       <xsl:value-of select="@id"/>
Edouard@2877:       <xsl:text>"]</xsl:text>
Edouard@2877:       <xsl:if test="position()!=last()">
Edouard@2877:         <xsl:text>,</xsl:text>
Edouard@2877:       </xsl:if>
Edouard@2877:       <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:     </xsl:for-each>
Edouard@2877:     <xsl:text>    ],
Edouard@2877: </xsl:text>
Edouard@2903:     <xsl:text>    jumps: [
Edouard@2903: </xsl:text>
Edouard@2903:     <xsl:for-each select="$parsed_widgets/widget[@id = $all_page_widgets/@id and @type='Jump']">
Edouard@2903:       <xsl:variable name="_id" select="@id"/>
Edouard@2903:       <xsl:variable name="opts">
Edouard@2903:         <xsl:call-template name="jump_widget_activity">
Edouard@2903:           <xsl:with-param name="hmi_element" select="$hmi_elements[@id=$_id]"/>
Edouard@2903:         </xsl:call-template>
Edouard@2903:       </xsl:variable>
Edouard@2903:       <xsl:if test="string-length($opts)&gt;0">
Edouard@2903:         <xsl:text>        hmi_widgets["</xsl:text>
Edouard@2903:         <xsl:value-of select="@id"/>
Edouard@2903:         <xsl:text>"]</xsl:text>
Edouard@2903:         <xsl:if test="position()!=last()">
Edouard@2903:           <xsl:text>,</xsl:text>
Edouard@2903:         </xsl:if>
Edouard@2903:         <xsl:text>
Edouard@2903: </xsl:text>
Edouard@2903:       </xsl:if>
Edouard@2903:     </xsl:for-each>
Edouard@2903:     <xsl:text>    ],
Edouard@2903: </xsl:text>
Edouard@2877:     <xsl:text>    required_detachables: {
Edouard@2877: </xsl:text>
Edouard@2877:     <xsl:for-each select="$required_detachables">
Edouard@2877:       <xsl:text>        "</xsl:text>
Edouard@2877:       <xsl:value-of select="@id"/>
Edouard@2877:       <xsl:text>": detachable_elements["</xsl:text>
Edouard@2877:       <xsl:value-of select="@id"/>
Edouard@2877:       <xsl:text>"]</xsl:text>
Edouard@2877:       <xsl:if test="position()!=last()">
Edouard@2877:         <xsl:text>,</xsl:text>
Edouard@2877:       </xsl:if>
Edouard@2877:       <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:     </xsl:for-each>
Edouard@2877:     <xsl:text>    }
Edouard@2877: </xsl:text>
Edouard@2901:     <xsl:apply-templates mode="per_page_widget_template" select="$parsed_widgets/widget[@id = $all_page_widgets/@id]">
Edouard@2901:       <xsl:with-param name="page_desc" select="$desc"/>
Edouard@2901:     </xsl:apply-templates>
Edouard@2877:     <xsl:text>  }</xsl:text>
Edouard@2877:     <xsl:if test="position()!=last()">
Edouard@2877:       <xsl:text>,</xsl:text>
Edouard@2877:     </xsl:if>
Edouard@2877:     <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:   </xsl:template>
edouard@2943:   <declarations:page-desc/>
edouard@2943:   <xsl:template match="declarations:page-desc">
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:     <xsl:text>var page_desc = {
edouard@2941: </xsl:text>
edouard@2941:     <xsl:apply-templates mode="page_desc" select="$hmi_pages"/>
edouard@2941:     <xsl:text>}
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:   </xsl:template>
Edouard@2901:   <xsl:template mode="per_page_widget_template" match="*"/>
edouard@2939:   <debug:detachable-pages/>
edouard@2940:   <xsl:template match="debug:detachable-pages">
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
Edouard@2888:     <xsl:text>DETACHABLES:
Edouard@2888: </xsl:text>
Edouard@2877:     <xsl:for-each select="$detachable_elements">
Edouard@2877:       <xsl:text> </xsl:text>
Edouard@2877:       <xsl:value-of select="@id"/>
Edouard@2877:       <xsl:text>
Edouard@2877: </xsl:text>
Edouard@2877:     </xsl:for-each>
Edouard@2888:     <xsl:text>In Foreach:
Edouard@2888: </xsl:text>
Edouard@2888:     <xsl:for-each select="$in_forEach_widget_ids">
Edouard@2888:       <xsl:text> </xsl:text>
Edouard@2888:       <xsl:value-of select="."/>
Edouard@2888:       <xsl:text>
Edouard@2888: </xsl:text>
Edouard@2888:     </xsl:for-each>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:template mode="inline_svg" match="@* | node()">
Edouard@2877:     <xsl:if test="not(@id = $discardable_elements/@id)">
Edouard@2877:       <xsl:copy>
Edouard@2877:         <xsl:apply-templates mode="inline_svg" select="@* | node()"/>
Edouard@2877:       </xsl:copy>
Edouard@2877:     </xsl:if>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:template mode="inline_svg" match="svg:svg/@width"/>
Edouard@2877:   <xsl:template mode="inline_svg" match="svg:svg/@height"/>
Edouard@2877:   <xsl:template xmlns="http://www.w3.org/2000/svg" mode="inline_svg" match="svg:svg">
Edouard@2877:     <svg>
Edouard@2877:       <xsl:attribute name="preserveAspectRatio">
Edouard@2877:         <xsl:text>none</xsl:text>
Edouard@2877:       </xsl:attribute>
Edouard@2877:       <xsl:attribute name="height">
Edouard@2877:         <xsl:text>100vh</xsl:text>
Edouard@2877:       </xsl:attribute>
Edouard@2877:       <xsl:attribute name="width">
Edouard@2877:         <xsl:text>100vw</xsl:text>
Edouard@2877:       </xsl:attribute>
Edouard@2877:       <xsl:apply-templates mode="inline_svg" select="@* | node()"/>
Edouard@2877:     </svg>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:template mode="inline_svg" match="svg:svg[@viewBox!=concat('0 0 ', @width, ' ', @height)]">
Edouard@2877:     <xsl:message terminate="yes">
Edouard@2877:       <xsl:text>ViewBox settings other than X=0, Y=0 and Scale=1 are not supported</xsl:text>
Edouard@2877:     </xsl:message>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:template mode="inline_svg" match="sodipodi:namedview[@units!='px' or @inkscape:document-units!='px']">
Edouard@2877:     <xsl:message terminate="yes">
Edouard@2877:       <xsl:text>All units must be set to "px" in Inkscape's document properties</xsl:text>
Edouard@2877:     </xsl:message>
Edouard@2877:   </xsl:template>
edouard@2996:   <xsl:variable name="hmi_lists_descs" select="$parsed_widgets/widget[@type = 'List']"/>
edouard@2996:   <xsl:variable name="hmi_lists" select="$hmi_elements[@id = $hmi_lists_descs/@id]"/>
edouard@2996:   <xsl:variable name="targets_not_to_unlink" select="$hmi_elements[@id = $hmi_lists/@id]/descendant::svg:*"/>
edouard@2996:   <xsl:variable name="to_unlink" select="$hmi_elements[not(@id = $hmi_pages/@id)]/descendant-or-self::svg:use"/>
Edouard@2877:   <xsl:template xmlns="http://www.w3.org/2000/svg" mode="inline_svg" match="svg:use">
edouard@2996:     <xsl:variable name="targetid" select="substring-after(@xlink:href,'#')"/>
Edouard@2877:     <xsl:choose>
edouard@2996:       <xsl:when test="@id = $to_unlink/@id and not($targetid = $targets_not_to_unlink/@id)">
edouard@2996:         <xsl:call-template name="unlink_clone">
edouard@2996:           <xsl:with-param name="targetid" select="$targetid"/>
edouard@2996:         </xsl:call-template>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
Edouard@2877:         <xsl:copy>
Edouard@2877:           <xsl:apply-templates mode="inline_svg" select="@* | node()"/>
Edouard@2877:         </xsl:copy>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:variable name="_excluded_use_attrs">
Edouard@2877:     <name>
Edouard@2877:       <xsl:text>href</xsl:text>
Edouard@2877:     </name>
Edouard@2877:     <name>
Edouard@2877:       <xsl:text>width</xsl:text>
Edouard@2877:     </name>
Edouard@2877:     <name>
Edouard@2877:       <xsl:text>height</xsl:text>
Edouard@2877:     </name>
Edouard@2877:     <name>
Edouard@2877:       <xsl:text>x</xsl:text>
Edouard@2877:     </name>
Edouard@2877:     <name>
Edouard@2877:       <xsl:text>y</xsl:text>
Edouard@2877:     </name>
Edouard@2877:   </xsl:variable>
Edouard@2877:   <xsl:variable name="excluded_use_attrs" select="exsl:node-set($_excluded_use_attrs)"/>
Edouard@2969:   <xsl:variable name="_merge_use_attrs">
Edouard@2969:     <name>
Edouard@2969:       <xsl:text>transform</xsl:text>
Edouard@2969:     </name>
Edouard@2969:     <name>
Edouard@2969:       <xsl:text>style</xsl:text>
Edouard@2969:     </name>
Edouard@2969:   </xsl:variable>
Edouard@2969:   <xsl:variable name="merge_use_attrs" select="exsl:node-set($_merge_use_attrs)"/>
Edouard@2877:   <xsl:template xmlns="http://www.w3.org/2000/svg" name="unlink_clone">
edouard@2996:     <xsl:param name="targetid"/>
Edouard@2969:     <xsl:variable name="target" select="//svg:*[@id = $targetid]"/>
Edouard@2877:     <g>
Edouard@2969:       <xsl:choose>
Edouard@2969:         <xsl:when test="$target[self::svg:g]">
Edouard@2969:           <xsl:for-each select="@*[not(local-name() = $excluded_use_attrs/name | $merge_use_attrs)]">
Edouard@2969:             <xsl:attribute name="{name()}">
Edouard@2969:               <xsl:value-of select="."/>
Edouard@2969:             </xsl:attribute>
Edouard@2969:           </xsl:for-each>
Edouard@2969:           <xsl:if test="@style | $target/@style">
Edouard@2969:             <xsl:attribute name="style">
Edouard@2969:               <xsl:value-of select="@style"/>
Edouard@2969:               <xsl:if test="@style and $target/@style">
Edouard@2969:                 <xsl:text>;</xsl:text>
Edouard@2969:               </xsl:if>
Edouard@2969:               <xsl:value-of select="$target/@style"/>
Edouard@2969:             </xsl:attribute>
Edouard@2969:           </xsl:if>
Edouard@2969:           <xsl:if test="@transform | $target/@transform">
Edouard@2969:             <xsl:attribute name="transform">
Edouard@2969:               <xsl:value-of select="@transform"/>
Edouard@2969:               <xsl:if test="@transform and $target/@transform">
Edouard@2969:                 <xsl:text> </xsl:text>
Edouard@2969:               </xsl:if>
Edouard@2969:               <xsl:value-of select="$target/@transform"/>
Edouard@2969:             </xsl:attribute>
Edouard@2969:           </xsl:if>
Edouard@2969:           <xsl:apply-templates mode="unlink_clone" select="$target/*">
Edouard@2969:             <xsl:with-param name="seed" select="@id"/>
Edouard@2969:           </xsl:apply-templates>
Edouard@2969:         </xsl:when>
Edouard@2969:         <xsl:otherwise>
Edouard@2969:           <xsl:for-each select="@*[not(local-name() = $excluded_use_attrs/name)]">
Edouard@2969:             <xsl:attribute name="{name()}">
Edouard@2969:               <xsl:value-of select="."/>
Edouard@2969:             </xsl:attribute>
Edouard@2969:           </xsl:for-each>
Edouard@2969:           <xsl:apply-templates mode="unlink_clone" select="$target">
Edouard@2969:             <xsl:with-param name="seed" select="@id"/>
Edouard@2969:           </xsl:apply-templates>
Edouard@2969:         </xsl:otherwise>
Edouard@2969:       </xsl:choose>
Edouard@2877:     </g>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:template xmlns="http://www.w3.org/2000/svg" mode="unlink_clone" match="@id">
Edouard@2877:     <xsl:param name="seed"/>
Edouard@2877:     <xsl:attribute name="id">
Edouard@2877:       <xsl:value-of select="$seed"/>
Edouard@2877:       <xsl:text>_</xsl:text>
Edouard@2877:       <xsl:value-of select="."/>
Edouard@2877:     </xsl:attribute>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:template xmlns="http://www.w3.org/2000/svg" mode="unlink_clone" match="@*">
Edouard@2877:     <xsl:copy/>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:template xmlns="http://www.w3.org/2000/svg" mode="unlink_clone" match="svg:*">
Edouard@2877:     <xsl:param name="seed"/>
Edouard@2877:     <xsl:choose>
Edouard@2877:       <xsl:when test="@id = $hmi_elements/@id">
Edouard@2877:         <use>
Edouard@2877:           <xsl:attribute name="xlink:href">
Edouard@2877:             <xsl:value-of select="concat('#',@id)"/>
Edouard@2877:           </xsl:attribute>
Edouard@2877:         </use>
Edouard@2877:       </xsl:when>
Edouard@2877:       <xsl:otherwise>
Edouard@2877:         <xsl:copy>
Edouard@2877:           <xsl:apply-templates mode="unlink_clone" select="@* | node()">
Edouard@2877:             <xsl:with-param name="seed" select="$seed"/>
Edouard@2877:           </xsl:apply-templates>
Edouard@2877:         </xsl:copy>
Edouard@2877:       </xsl:otherwise>
Edouard@2877:     </xsl:choose>
Edouard@2877:   </xsl:template>
Edouard@2877:   <xsl:variable name="result_svg">
Edouard@2877:     <xsl:apply-templates mode="inline_svg" select="/"/>
Edouard@2877:   </xsl:variable>
Edouard@2877:   <xsl:variable name="result_svg_ns" select="exsl:node-set($result_svg)"/>
edouard@2941:   <preamble:inline-svg/>
edouard@2941:   <xsl:template match="preamble:inline-svg">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:     <xsl:text>let id = document.getElementById.bind(document);
edouard@2941: </xsl:text>
edouard@2941:     <xsl:text>var svg_root = id("</xsl:text>
edouard@2941:     <xsl:value-of select="$svg/@id"/>
edouard@2941:     <xsl:text>");
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:   </xsl:template>
edouard@2941:   <debug:clone-unlinking/>
edouard@2941:   <xsl:template match="debug:clone-unlinking">
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2904:     <xsl:text>Unlinked :
edouard@2904: </xsl:text>
Edouard@2878:     <xsl:for-each select="$to_unlink">
Edouard@2878:       <xsl:value-of select="@id"/>
Edouard@2878:       <xsl:text>
Edouard@2878: </xsl:text>
Edouard@2878:     </xsl:for-each>
edouard@2996:     <xsl:text>Not to unlink :
edouard@2996: </xsl:text>
edouard@2996:     <xsl:for-each select="$targets_not_to_unlink">
edouard@2996:       <xsl:value-of select="@id"/>
edouard@2996:       <xsl:text>
edouard@2996: </xsl:text>
edouard@2996:     </xsl:for-each>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
Edouard@2878:   </xsl:template>
edouard@2955:   <xsl:template mode="hmi_widgets" match="svg:*">
edouard@2886:     <xsl:variable name="widget" select="func:widget(@id)"/>
Edouard@2881:     <xsl:variable name="eltid" select="@id"/>
edouard@2954:     <xsl:variable name="args">
edouard@2954:       <xsl:for-each select="$widget/arg">
edouard@2954:         <xsl:text>"</xsl:text>
edouard@2954:         <xsl:value-of select="@value"/>
edouard@2954:         <xsl:text>"</xsl:text>
edouard@2954:         <xsl:if test="position()!=last()">
edouard@2954:           <xsl:text>,</xsl:text>
edouard@2954:         </xsl:if>
edouard@2954:       </xsl:for-each>
edouard@2954:     </xsl:variable>
edouard@2954:     <xsl:variable name="indexes">
edouard@2954:       <xsl:for-each select="$widget/path">
edouard@2954:         <xsl:choose>
edouard@2954:           <xsl:when test="not(@index)">
edouard@2954:             <xsl:message terminate="no">
edouard@2954:               <xsl:text>Widget </xsl:text>
edouard@2954:               <xsl:value-of select="$widget/@type"/>
edouard@2954:               <xsl:text> id="</xsl:text>
edouard@2954:               <xsl:value-of select="$eltid"/>
edouard@2954:               <xsl:text>" : No match for path "</xsl:text>
edouard@2954:               <xsl:value-of select="@value"/>
edouard@2954:               <xsl:text>" in HMI tree</xsl:text>
edouard@2954:             </xsl:message>
edouard@2954:           </xsl:when>
edouard@2954:           <xsl:otherwise>
edouard@2954:             <xsl:value-of select="@index"/>
edouard@2954:             <xsl:if test="position()!=last()">
edouard@2954:               <xsl:text>,</xsl:text>
edouard@2954:             </xsl:if>
edouard@2954:           </xsl:otherwise>
edouard@2954:         </xsl:choose>
edouard@2954:       </xsl:for-each>
edouard@2954:     </xsl:variable>
Edouard@2881:     <xsl:text>  "</xsl:text>
Edouard@2881:     <xsl:value-of select="@id"/>
edouard@2949:     <xsl:text>": new </xsl:text>
Edouard@2881:     <xsl:value-of select="$widget/@type"/>
edouard@2954:     <xsl:text>Widget ("</xsl:text>
Edouard@2881:     <xsl:value-of select="@id"/>
edouard@2954:     <xsl:text>",[</xsl:text>
edouard@2954:     <xsl:value-of select="$args"/>
edouard@2954:     <xsl:text>],[</xsl:text>
edouard@2954:     <xsl:value-of select="$indexes"/>
edouard@2954:     <xsl:text>],{
Edouard@2881: </xsl:text>
Edouard@2881:     <xsl:apply-templates mode="widget_defs" select="$widget">
Edouard@2881:       <xsl:with-param name="hmi_element" select="."/>
Edouard@2881:     </xsl:apply-templates>
edouard@2949:     <xsl:text>  })</xsl:text>
Edouard@2881:     <xsl:if test="position()!=last()">
Edouard@2881:       <xsl:text>,</xsl:text>
Edouard@2881:     </xsl:if>
Edouard@2881:     <xsl:text>
Edouard@2793: </xsl:text>
Edouard@2792:   </xsl:template>
edouard@2949:   <func:function name="func:unique_types">
edouard@2949:     <xsl:param name="elts_with_type"/>
edouard@2949:     <xsl:choose>
edouard@2949:       <xsl:when test="count($elts_with_type) &gt; 1">
edouard@2949:         <xsl:variable name="prior_results" select="func:unique_types($elts_with_type[position()!=last()])"/>
edouard@2949:         <xsl:choose>
edouard@2949:           <xsl:when test="$elts_with_type[last()][@type = $prior_results/@type]">
edouard@2949:             <func:result select="$prior_results"/>
edouard@2949:           </xsl:when>
edouard@2949:           <xsl:otherwise>
edouard@2949:             <func:result select="$prior_results | $elts_with_type[last()]"/>
edouard@2949:           </xsl:otherwise>
edouard@2949:         </xsl:choose>
edouard@2949:       </xsl:when>
edouard@2949:       <xsl:otherwise>
edouard@2949:         <func:result select="$elts_with_type"/>
edouard@2949:       </xsl:otherwise>
edouard@2949:     </xsl:choose>
edouard@2949:   </func:function>
edouard@2949:   <preamble:widget-base-class/>
edouard@2949:   <xsl:template match="preamble:widget-base-class">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>class Widget {
edouard@2949: </xsl:text>
edouard@2962:     <xsl:text>    offset = 0;
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>    frequency = 10; /* FIXME arbitrary default max freq. Obtain from config ? */
edouard@2962: </xsl:text>
Edouard@2980:     <xsl:text>    unsubscribable = false;
Edouard@2980: </xsl:text>
edouard@2954:     <xsl:text>    constructor(elt_id,args,indexes,members){
edouard@2954: </xsl:text>
edouard@2961:     <xsl:text>        this.element_id = elt_id;
edouard@2961: </xsl:text>
edouard@2954:     <xsl:text>        this.element = id(elt_id);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.args = args;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.indexes = indexes;
edouard@2954: </xsl:text>
edouard@2949:     <xsl:text>        Object.keys(members).forEach(prop =&gt; this[prop]=members[prop]);
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>    }
edouard@2949: </xsl:text>
edouard@2961:     <xsl:text>
edouard@2961: </xsl:text>
edouard@2954:     <xsl:text>    unsub(){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        /* remove subsribers */
edouard@2954: </xsl:text>
Edouard@2980:     <xsl:text>        if(!this.unsubscribable) for(let index of this.indexes){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            let idx = index + this.offset;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            subscribers[idx].delete(this);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.offset = 0;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    sub(new_offset=0){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        /* set the offset because relative */
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.offset = new_offset;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        /* add this's subsribers */
edouard@2954: </xsl:text>
Edouard@2980:     <xsl:text>        if(!this.unsubscribable) for(let index of this.indexes){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            subscribers[index + new_offset].add(this);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        need_cache_apply.push(this); 
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    apply_cache() {
edouard@2954: </xsl:text>
Edouard@2980:     <xsl:text>        if(!this.unsubscribable) for(let index of this.indexes){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            /* dispatch current cache in newly opened page widgets */
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            let realindex = index+this.offset;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            let cached_val = cache[realindex];
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            if(cached_val != undefined)
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>                dispatch_value_to_widget(this, realindex, cached_val, cached_val);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>
edouard@2954: </xsl:text>
edouard@3003:     <xsl:text>    get_idx(index) {
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>         let orig = this.indexes[index];
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>         return this.offset ? orig + this.offset : orig;
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>    }
edouard@3003: </xsl:text>
edouard@3004:     <xsl:text>    change_hmi_value(index,opstr) {
edouard@3004: </xsl:text>
edouard@3004:     <xsl:text>        return change_hmi_value(this.get_idx(index), opstr);
edouard@3004: </xsl:text>
edouard@3004:     <xsl:text>    }
edouard@3004: </xsl:text>
edouard@3004:     <xsl:text>
edouard@3004: </xsl:text>
edouard@3004:     <xsl:text>    apply_hmi_value(index, new_val) {
edouard@3004: </xsl:text>
edouard@3004:     <xsl:text>        return apply_hmi_value(this.get_idx(0), new_val);
edouard@3004: </xsl:text>
edouard@3004:     <xsl:text>    }
edouard@3004: </xsl:text>
edouard@2949:     <xsl:text>}
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:   </xsl:template>
edouard@2949:   <preamble:hmi-classes/>
edouard@2949:   <xsl:template match="preamble:hmi-classes">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:variable name="used_widget_types" select="func:unique_types($parsed_widgets/widget)"/>
edouard@2949:     <xsl:apply-templates mode="widget_class" select="$used_widget_types"/>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:   </xsl:template>
edouard@2949:   <xsl:template mode="widget_class" match="widget">
edouard@2949:     <xsl:text>class </xsl:text>
edouard@2949:     <xsl:value-of select="@type"/>
edouard@2949:     <xsl:text>Widget extends Widget{
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>    /* empty class, as </xsl:text>
edouard@2949:     <xsl:value-of select="@type"/>
edouard@2949:     <xsl:text> widget didn't provide any */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>}
edouard@2949: </xsl:text>
edouard@2949:   </xsl:template>
edouard@2997:   <xsl:variable name="excluded_types" select="str:split('Page Lang')"/>
edouard@2955:   <xsl:variable name="excluded_ids" select="$parsed_widgets/widget[not(@type = $excluded_types)]/@id"/>
edouard@2941:   <preamble:hmi-elements/>
edouard@2941:   <xsl:template match="preamble:hmi-elements">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:     <xsl:text>var hmi_widgets = {
edouard@2941: </xsl:text>
edouard@2955:     <xsl:apply-templates mode="hmi_widgets" select="$hmi_elements[@id = $excluded_ids]"/>
edouard@2941:     <xsl:text>}
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:   </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@2920:     <xsl:param name="subelements" select="/.."/>
Edouard@2800:     <xsl:param name="hmi_element"/>
Edouard@2834:     <xsl:variable name="widget_type" select="@type"/>
Edouard@2808:     <xsl:for-each select="str:split($labels)">
Edouard@2807:       <xsl:variable name="name" select="."/>
edouard@2920:       <xsl:variable name="elt" select="$result_svg_ns//*[@id = $hmi_element/@id]//*[@inkscape:label=$name][1]"/>
Edouard@2836:       <xsl:choose>
edouard@2920:         <xsl:when test="not($elt/@id)">
Edouard@2836:           <xsl:if test="$mandatory='yes'">
edouard@2920:             <xsl:message terminate="yes">
Edouard@2836:               <xsl:value-of select="$widget_type"/>
Edouard@2836:               <xsl:text> widget must have a </xsl:text>
Edouard@2836:               <xsl:value-of select="$name"/>
Edouard@2836:               <xsl:text> element</xsl:text>
Edouard@2836:             </xsl:message>
Edouard@2836:           </xsl:if>
Edouard@2836:         </xsl:when>
Edouard@2836:         <xsl:otherwise>
Edouard@2852:           <xsl:text>    </xsl:text>
Edouard@2807:           <xsl:value-of select="$name"/>
edouard@2847:           <xsl:text>_elt: id("</xsl:text>
edouard@2920:           <xsl:value-of select="$elt/@id"/>
Edouard@2836:           <xsl:text>"),
Edouard@2836: </xsl:text>
edouard@2920:           <xsl:if test="$subelements">
edouard@2920:             <xsl:text>    </xsl:text>
edouard@2920:             <xsl:value-of select="$name"/>
edouard@2920:             <xsl:text>_sub: {
edouard@2920: </xsl:text>
edouard@2920:             <xsl:for-each select="str:split($subelements)">
edouard@2920:               <xsl:variable name="subname" select="."/>
edouard@2920:               <xsl:variable name="subelt" select="$elt/*[@inkscape:label=$subname][1]"/>
edouard@2920:               <xsl:choose>
edouard@2920:                 <xsl:when test="not($subelt/@id)">
edouard@2920:                   <xsl:if test="$mandatory='yes'">
edouard@2920:                     <xsl:message terminate="yes">
edouard@2920:                       <xsl:value-of select="$widget_type"/>
edouard@2920:                       <xsl:text> widget must have a </xsl:text>
edouard@2920:                       <xsl:value-of select="$name"/>
edouard@2920:                       <xsl:text>/</xsl:text>
edouard@2920:                       <xsl:value-of select="$subname"/>
edouard@2920:                       <xsl:text> element</xsl:text>
edouard@2920:                     </xsl:message>
edouard@2920:                   </xsl:if>
edouard@2920:                   <xsl:text>        /* missing </xsl:text>
edouard@2920:                   <xsl:value-of select="$name"/>
edouard@2920:                   <xsl:text>/</xsl:text>
edouard@2920:                   <xsl:value-of select="$subname"/>
edouard@2920:                   <xsl:text> element */
edouard@2920: </xsl:text>
edouard@2920:                 </xsl:when>
edouard@2920:                 <xsl:otherwise>
edouard@2920:                   <xsl:text>        "</xsl:text>
edouard@2920:                   <xsl:value-of select="$subname"/>
edouard@2920:                   <xsl:text>": id("</xsl:text>
edouard@2920:                   <xsl:value-of select="$subelt/@id"/>
edouard@2920:                   <xsl:text>")</xsl:text>
edouard@2920:                   <xsl:if test="position()!=last()">
edouard@2920:                     <xsl:text>,</xsl:text>
edouard@2920:                   </xsl:if>
edouard@2920:                   <xsl:text>
edouard@2920: </xsl:text>
edouard@2920:                 </xsl:otherwise>
edouard@2920:               </xsl:choose>
edouard@2920:             </xsl:for-each>
edouard@2920:             <xsl:text>    },
edouard@2920: </xsl:text>
edouard@2920:           </xsl:if>
Edouard@2836:         </xsl:otherwise>
Edouard@2836:       </xsl:choose>
Edouard@2807:     </xsl:for-each>
Edouard@2808:   </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@2961:   <xsl:template mode="widget_class" match="widget[@type='Back']">
edouard@2961:     <xsl:text>class BackWidget extends Widget{
edouard@2961: </xsl:text>
edouard@2961:     <xsl:text>    on_click(evt) {
Edouard@2902: </xsl:text>
Edouard@2902:     <xsl:text>        if(jump_history.length &gt; 1){
Edouard@2902: </xsl:text>
Edouard@2902:     <xsl:text>           jump_history.pop();
Edouard@2902: </xsl:text>
Edouard@2902:     <xsl:text>           let [page_name, index] = jump_history.pop();
Edouard@2902: </xsl:text>
Edouard@2902:     <xsl:text>           switch_page(page_name, index);
Edouard@2902: </xsl:text>
Edouard@2902:     <xsl:text>        }
Edouard@2902: </xsl:text>
edouard@2961:     <xsl:text>    }
edouard@2961: </xsl:text>
edouard@2961:     <xsl:text>    init() {
edouard@2961: </xsl:text>
edouard@2961:     <xsl:text>        this.element.setAttribute("onclick", "hmi_widgets['"+this.element_id+"'].on_click(evt)");
edouard@2961: </xsl:text>
edouard@2961:     <xsl:text>    }
edouard@2961: </xsl:text>
edouard@2961:     <xsl:text>}
edouard@2961: </xsl:text>
edouard@2961:   </xsl:template>
dgaberscek@2976:   <xsl:template mode="widget_defs" match="widget[@type='Button']">
dgaberscek@2976:     <xsl:param name="hmi_element"/>
dgaberscek@2976:     <xsl:call-template name="defs_by_labels">
dgaberscek@2976:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
dgaberscek@2976:       <xsl:with-param name="labels">
dgaberscek@2976:         <xsl:text>active inactive</xsl:text>
dgaberscek@2976:       </xsl:with-param>
dgaberscek@2976:       <xsl:with-param name="mandatory" select="'no'"/>
dgaberscek@2976:     </xsl:call-template>
dgaberscek@2976:     <xsl:text>frequency: 5,
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>on_mouse_down: function(evt) {
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>    if (this.active_style &amp;&amp; this.inactive_style) {
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>        this.active_elt.setAttribute("style", this.active_style);
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>        this.inactive_elt.setAttribute("style", "display:none");
edouard@2961: </xsl:text>
edouard@2961:     <xsl:text>    }
edouard@2961: </xsl:text>
edouard@3004:     <xsl:text>    this.apply_hmi_value(0, 1);
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>},
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>on_mouse_up: function(evt) {
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>    if (this.active_style &amp;&amp; this.inactive_style) {
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>        this.active_elt.setAttribute("style", "display:none");
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>        this.inactive_elt.setAttribute("style", this.inactive_style);
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>    }
dgaberscek@2976: </xsl:text>
edouard@3004:     <xsl:text>    this.apply_hmi_value(0, 0);
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>},
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>active_style: undefined,
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>inactive_style: undefined,
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>init: function() {
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>  this.active_style = this.active_elt ? this.active_elt.style.cssText : undefined;
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>  this.inactive_style = this.inactive_elt ? this.inactive_elt.style.cssText : undefined;
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>  if (this.active_style &amp;&amp; this.inactive_style) {
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>      this.active_elt.setAttribute("style", "display:none");
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>      this.inactive_elt.setAttribute("style", this.inactive_style);
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>  }
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>  this.element.setAttribute("onmousedown", "hmi_widgets['</xsl:text>
dgaberscek@2976:     <xsl:value-of select="$hmi_element/@id"/>
dgaberscek@2976:     <xsl:text>'].on_mouse_down(evt)");
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>  this.element.setAttribute("onmouseup", "hmi_widgets['</xsl:text>
dgaberscek@2976:     <xsl:value-of select="$hmi_element/@id"/>
dgaberscek@2976:     <xsl:text>'].on_mouse_up(evt)");
dgaberscek@2976: </xsl:text>
dgaberscek@2976:     <xsl:text>},
dgaberscek@2944: </xsl:text>
dgaberscek@2944:   </xsl:template>
dgaberscek@2944:   <xsl:template mode="widget_defs" match="widget[@type='CircularBar']">
dgaberscek@2944:     <xsl:param name="hmi_element"/>
dgaberscek@2944:     <xsl:text>frequency: 10,
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:call-template name="defs_by_labels">
dgaberscek@2944:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
dgaberscek@2944:       <xsl:with-param name="labels">
dgaberscek@2944:         <xsl:text>path</xsl:text>
dgaberscek@2944:       </xsl:with-param>
dgaberscek@2944:     </xsl:call-template>
dgaberscek@2944:     <xsl:call-template name="defs_by_labels">
dgaberscek@2944:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
dgaberscek@2944:       <xsl:with-param name="labels">
dgaberscek@2944:         <xsl:text>value min max</xsl:text>
dgaberscek@2944:       </xsl:with-param>
dgaberscek@2944:       <xsl:with-param name="mandatory" select="'no'"/>
dgaberscek@2944:     </xsl:call-template>
dgaberscek@2944:     <xsl:text>dispatch: function(value) {
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    if(this.value_elt)
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>        this.value_elt.textContent = String(value);
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let [min,max,start,end] = this.range;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let [cx,cy] = this.center;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let [rx,ry] = this.proportions;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let tip = start + (end-start)*Number(value)/(max-min);
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let size = 0;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    if (tip-start &gt; Math.PI) {
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>        size = 1;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    } else {
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>        size = 0;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    }
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    this.path_elt.setAttribute('d', "M "+(cx+rx*Math.cos(start))+","+(cy+ry*Math.sin(start))+" A "+rx+","+ry+" 0 "+size+" 1 "+(cx+rx*Math.cos(tip))+","+(cy+ry*Math.sin(tip)));
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>},
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>range: undefined,
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>init: function() {
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let start = Number(this.path_elt.getAttribute('sodipodi:start'));
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let end = Number(this.path_elt.getAttribute('sodipodi:end'));
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let cx = Number(this.path_elt.getAttribute('sodipodi:cx'));
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let cy = Number(this.path_elt.getAttribute('sodipodi:cy'));
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let rx = Number(this.path_elt.getAttribute('sodipodi:rx'));
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let ry = Number(this.path_elt.getAttribute('sodipodi:ry'));
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    if (ry == 0) {
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>        ry = rx;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    }
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    if (start &gt; end) {
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>        end = end + 2*Math.PI;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    }
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let min = this.min_elt ?
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>              Number(this.min_elt.textContent) :
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>              this.args.length &gt;= 1 ? this.args[0] : 0;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    let max = this.max_elt ?
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>              Number(this.max_elt.textContent) :
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>              this.args.length &gt;= 2 ? this.args[1] : 100;
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    this.range = [min, max, start, end];
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    this.center = [cx, cy];
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>    this.proportions = [rx, ry];
dgaberscek@2944: </xsl:text>
dgaberscek@2944:     <xsl:text>},
dgaberscek@2944: </xsl:text>
dgaberscek@2944:   </xsl:template>
edouard@2998:   <xsl:template mode="widget_class" match="widget[@type='Display']">
edouard@2998:     <xsl:text>class DisplayWidget extends Widget{
edouard@2998: </xsl:text>
edouard@2998:     <xsl:text>    frequency = 5;
edouard@2998: </xsl:text>
edouard@2998:     <xsl:text>    dispatch(value) {
edouard@2998: </xsl:text>
edouard@2998:     <xsl:text>        this.element.textContent = String(value);
edouard@2998: </xsl:text>
edouard@2998:     <xsl:text>    }
edouard@2998: </xsl:text>
edouard@2998:     <xsl:text>}
edouard@2998: </xsl:text>
edouard@2998:   </xsl:template>
edouard@2883:   <xsl:template mode="widget_defs" match="widget[@type='Display']">
edouard@2883:     <xsl:param name="hmi_element"/>
edouard@2998:     <xsl:if test="$hmi_element[not(self::svg:text)]">
edouard@2998:       <xsl:message terminate="yes">
edouard@2998:         <xsl:text>Display Widget id="</xsl:text>
edouard@2998:         <xsl:value-of select="$hmi_element/@id"/>
edouard@2998:         <xsl:text>" is not a svg::text element</xsl:text>
edouard@2998:       </xsl:message>
edouard@2998:     </xsl:if>
edouard@2883:   </xsl:template>
Edouard@2922:   <xsl:template mode="widget_defs" match="widget[@type='DropDown']">
Edouard@2922:     <xsl:param name="hmi_element"/>
Edouard@2922:     <xsl:call-template name="defs_by_labels">
Edouard@2922:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2922:       <xsl:with-param name="labels">
edouard@2926:         <xsl:text>text box button</xsl:text>
Edouard@2922:       </xsl:with-param>
Edouard@2922:     </xsl:call-template>
Edouard@2922:     <xsl:text>    dispatch: function(value) {
Edouard@2922: </xsl:text>
edouard@2924:     <xsl:text>        if(!this.opened) this.set_selection(value);
Edouard@2922: </xsl:text>
Edouard@2922:     <xsl:text>    },
Edouard@2922: </xsl:text>
Edouard@2922:     <xsl:text>    init: function() {
Edouard@2922: </xsl:text>
edouard@2926:     <xsl:text>        this.button_elt.setAttribute("onclick", "hmi_widgets['</xsl:text>
Edouard@2922:     <xsl:value-of select="$hmi_element/@id"/>
edouard@2926:     <xsl:text>'].on_button_click()");
Edouard@2922: </xsl:text>
Edouard@2936:     <xsl:text>        // Save original size of rectangle
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>        this.box_bbox = this.box_elt.getBBox()
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // Compute margins
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        text_bbox = this.text_elt.getBBox()
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        lmargin = text_bbox.x - this.box_bbox.x;
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        tmargin = text_bbox.y - this.box_bbox.y;
edouard@2923: </xsl:text>
edouard@2926:     <xsl:text>        this.margins = [lmargin, tmargin].map(x =&gt; Math.max(x,0));
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // It is assumed that list content conforms to Array interface.
edouard@2931: </xsl:text>
edouard@2931:     <xsl:text>        this.content = [
edouard@2931: </xsl:text>
edouard@2931:     <xsl:for-each select="arg">
edouard@2931:       <xsl:text>"</xsl:text>
edouard@2931:       <xsl:value-of select="@value"/>
edouard@2931:       <xsl:text>",
edouard@2931: </xsl:text>
edouard@2931:     </xsl:for-each>
edouard@2931:     <xsl:text>        ];
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // Index of first visible element in the menu, when opened
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>        this.menu_offset = 0;
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // How mutch to lift the menu vertically so that it does not cross bottom border
Edouard@2936: </xsl:text>
edouard@2923:     <xsl:text>        this.lift = 0;
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // Event handlers cannot be object method ('this' is unknown)
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // as a workaround, handler given to addEventListener is bound in advance.
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        this.bound_close_on_click_elsewhere = this.close_on_click_elsewhere.bind(this);
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>        this.opened = false;
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>    },
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>    // Called when a menu entry is clicked
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>    on_selection_click: function(selection) {
edouard@2924: </xsl:text>
edouard@2926:     <xsl:text>        this.close();
edouard@2926: </xsl:text>
edouard@3004:     <xsl:text>        this.apply_hmi_value(0, selection);
edouard@2924: </xsl:text>
edouard@2923:     <xsl:text>    },
Edouard@2922: </xsl:text>
edouard@2926:     <xsl:text>    on_button_click: function() {
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>        this.open();
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>    },
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>    on_backward_click: function(){
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        this.scroll(false);
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>    },
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>    on_forward_click:function(){
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>        this.scroll(true);
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>    },
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>    set_selection: function(value) {
edouard@2926: </xsl:text>
edouard@2934:     <xsl:text>        let display_str;
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>        if(value &gt;= 0 &amp;&amp; value &lt; this.content.length){
edouard@2934: </xsl:text>
Edouard@2936:     <xsl:text>            // if valid selection resolve content
Edouard@2936: </xsl:text>
edouard@2934:     <xsl:text>            display_str = this.content[value];
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>            this.last_selection = value;
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>        } else {
edouard@2934: </xsl:text>
Edouard@2936:     <xsl:text>            // otherwise show problem
Edouard@2936: </xsl:text>
edouard@2934:     <xsl:text>            display_str = "?"+String(value)+"?";
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>        }
edouard@2934: </xsl:text>
Edouard@2936:     <xsl:text>        // It is assumed that first span always stays,
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // and contains selection when menu is closed
Edouard@2936: </xsl:text>
edouard@2934:     <xsl:text>        this.text_elt.firstElementChild.textContent = display_str;
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>    },
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>    grow_text: function(up_to) {
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>        let count = 1;
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>        let txt = this.text_elt; 
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>        let first = txt.firstElementChild;
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>        // Real world (pixels) boundaries of current page
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>        let bounds = svg_root.getBoundingClientRect(); 
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>        this.lift = 0;
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>        while(count &lt; up_to) {
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>            let next = first.cloneNode();
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>            // relative line by line text flow instead of absolute y coordinate
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>            next.removeAttribute("y");
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>            next.setAttribute("dy", "1.1em");
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>            // default content to allow computing text element bbox
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>            next.textContent = "...";
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>            // append new span to text element
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>            txt.appendChild(next);
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>            // now check if text extended by one row fits to page
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>            // FIXME : exclude margins to be more accurate on box size
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>            let rect = txt.getBoundingClientRect();
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>            if(rect.bottom &gt; bounds.bottom){
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>                // in case of overflow at the bottom, lift up one row
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>                let backup = first.getAttribute("dy");
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>                // apply lift asr a dy added too first span (y attrib stays)
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>                first.setAttribute("dy", "-"+String((this.lift+1)*1.1)+"em");
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                rect = txt.getBoundingClientRect();
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                if(rect.top &gt; bounds.top){
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                    this.lift += 1;
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                } else {
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>                    // if it goes over the top, then backtrack
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>                    // restore dy attribute on first span
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>                    if(backup)
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                        first.setAttribute("dy", backup);
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                    else
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                        first.removeAttribute("dy");
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>                    // remove unwanted child
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>                    txt.removeChild(next);
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                    return count;
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>                }
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>            }
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>            count++;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        }
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        return count;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>    },
edouard@2924: </xsl:text>
edouard@2933:     <xsl:text>    close_on_click_elsewhere: function(e) {
edouard@2930: </xsl:text>
Edouard@2936:     <xsl:text>        // inhibit events not targetting spans (menu items)
edouard@2930: </xsl:text>
edouard@2933:     <xsl:text>        if(e.target.parentNode !== this.text_elt){
edouard@2930: </xsl:text>
edouard@2930:     <xsl:text>            e.stopPropagation();
edouard@2930: </xsl:text>
Edouard@2936:     <xsl:text>            // close menu in case click is outside box
Edouard@2936: </xsl:text>
edouard@2933:     <xsl:text>            if(e.target !== this.box_elt)
edouard@2933: </xsl:text>
edouard@2933:     <xsl:text>                this.close();
edouard@2933: </xsl:text>
edouard@2933:     <xsl:text>        }
edouard@2933: </xsl:text>
edouard@2930:     <xsl:text>    },
edouard@2930: </xsl:text>
edouard@2924:     <xsl:text>    close: function(){
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // Stop hogging all click events
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        svg_root.removeEventListener("click", this.bound_close_on_click_elsewhere, true);
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // Restore position and sixe of widget elements
edouard@2932: </xsl:text>
edouard@2924:     <xsl:text>        this.reset_text();
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        this.reset_box();
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // Put the button back in place
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>        this.element.appendChild(this.button_elt);
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>        // Mark as closed (to allow dispatch)
Edouard@2936: </xsl:text>
edouard@2932:     <xsl:text>        this.opened = false;
edouard@2932: </xsl:text>
Edouard@2936:     <xsl:text>        // Dispatch last cached value
Edouard@2936: </xsl:text>
edouard@2930:     <xsl:text>        this.apply_cache();
edouard@2930: </xsl:text>
edouard@2924:     <xsl:text>    },
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>    // Set text content when content is smaller than menu (no scrolling)
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>    set_complete_text: function(){
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        let spans = this.text_elt.children; 
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        let c = 0;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        for(let item of this.content){
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>            let span=spans[c];
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>            span.textContent = item;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>            span.setAttribute("onclick", "hmi_widgets['</xsl:text>
edouard@2924:     <xsl:value-of select="$hmi_element/@id"/>
edouard@2924:     <xsl:text>'].on_selection_click("+c+")");
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>            c++;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        }
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>    },
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>    // Move partial view :
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>    // false : upward, lower value
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>    // true  : downward, higher value
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>    scroll: function(forward){
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        let contentlength = this.content.length;
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        let spans = this.text_elt.children; 
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        let spanslength = spans.length;
edouard@2925: </xsl:text>
Edouard@2936:     <xsl:text>        // reduce accounted menu size according to jumps
Edouard@2936: </xsl:text>
edouard@2925:     <xsl:text>        if(this.menu_offset != 0) spanslength--;
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        if(this.menu_offset &lt; contentlength - 1) spanslength--;
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        if(forward){
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>            this.menu_offset = Math.min(
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>                contentlength - spans.length + 1, 
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>                this.menu_offset + spanslength);
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        }else{
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>            this.menu_offset = Math.max(
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>                0, 
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>                this.menu_offset - spanslength);
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        }
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        console.log(this.menu_offset);
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        this.set_partial_text();
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>    },
edouard@2925: </xsl:text>
Edouard@2936:     <xsl:text>    // Setup partial view text content
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>    // with jumps at first and last entry when appropriate
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>    set_partial_text: function(){
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        let spans = this.text_elt.children; 
edouard@2924: </xsl:text>
edouard@2925:     <xsl:text>        let contentlength = this.content.length;
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>        let spanslength = spans.length;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        let i = this.menu_offset, c = 0;
edouard@2924: </xsl:text>
edouard@2925:     <xsl:text>        while(c &lt; spanslength){
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>            let span=spans[c];
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>            // backward jump only present if not exactly at start
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>            if(c == 0 &amp;&amp; i != 0){
edouard@2924: </xsl:text>
edouard@2925:     <xsl:text>                span.textContent = "&#x2191;  &#x2191;  &#x2191;";
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>                span.setAttribute("onclick", "hmi_widgets['</xsl:text>
edouard@2925:     <xsl:value-of select="$hmi_element/@id"/>
edouard@2925:     <xsl:text>'].on_backward_click()");
edouard@2925: </xsl:text>
Edouard@2936:     <xsl:text>            // presence of forward jump when not right at the end
Edouard@2936: </xsl:text>
edouard@2925:     <xsl:text>            }else if(c == spanslength-1 &amp;&amp; i &lt; contentlength - 1){
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>                span.textContent = "&#x2193;  &#x2193;  &#x2193;";
edouard@2925: </xsl:text>
edouard@2925:     <xsl:text>                span.setAttribute("onclick", "hmi_widgets['</xsl:text>
edouard@2925:     <xsl:value-of select="$hmi_element/@id"/>
edouard@2925:     <xsl:text>'].on_forward_click()");
edouard@2925: </xsl:text>
Edouard@2936:     <xsl:text>            // otherwise normal content
Edouard@2936: </xsl:text>
edouard@2925:     <xsl:text>            }else{
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>                span.textContent = this.content[i];
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>                span.setAttribute("onclick", "hmi_widgets['</xsl:text>
edouard@2924:     <xsl:value-of select="$hmi_element/@id"/>
edouard@2924:     <xsl:text>'].on_selection_click("+i+")");
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>                i++;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>            }
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>            c++;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        }
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>    },
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>    open: function(){
edouard@2923: </xsl:text>
edouard@2924:     <xsl:text>        let length = this.content.length;
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // systematically reset text, to strip eventual whitespace spans
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>        this.reset_text();
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // grow as much as needed or possible
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>        let slots = this.grow_text(length);
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // Depending on final size
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>        if(slots == length) {
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>            // show all at once
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>            this.set_complete_text();
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>        } else {
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>            // eventualy align menu to current selection, compensating for lift
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>            let offset = this.last_selection - this.lift;
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>            if(offset &gt; 0)
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>                this.menu_offset = Math.min(offset + 1, length - slots + 1);
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>            else
edouard@2934: </xsl:text>
edouard@2934:     <xsl:text>                this.menu_offset = 0;
edouard@2934: </xsl:text>
Edouard@2936:     <xsl:text>            // show surrounding values
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>            this.set_partial_text();
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>        }
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>        // Now that text size is known, we can set the box around it
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>        this.adjust_box_to_text();
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // Take button out until menu closed
Edouard@2936: </xsl:text>
edouard@2926:     <xsl:text>        this.element.removeChild(this.button_elt);
edouard@2926: </xsl:text>
Edouard@2936:     <xsl:text>        // Rise widget to top by moving it to last position among siblings
Edouard@2936: </xsl:text>
edouard@2930:     <xsl:text>        this.element.parentNode.appendChild(this.element.parentNode.removeChild(this.element));
edouard@2930: </xsl:text>
edouard@2930:     <xsl:text>        // disable interaction with background
edouard@2930: </xsl:text>
Edouard@2936:     <xsl:text>        svg_root.addEventListener("click", this.bound_close_on_click_elsewhere, true);
Edouard@2936: </xsl:text>
Edouard@2936:     <xsl:text>        // mark as open
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        this.opened = true;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>    },
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>    // Put text element in normalized state
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>    reset_text: function(){
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>        let txt = this.text_elt; 
edouard@2923: </xsl:text>
edouard@2924:     <xsl:text>        let first = txt.firstElementChild;
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // remove attribute eventually added to first text line while opening
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>        first.removeAttribute("onclick");
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        first.removeAttribute("dy");
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>        // keep only the first line of text
Edouard@2936: </xsl:text>
edouard@2923:     <xsl:text>        for(let span of Array.from(txt.children).slice(1)){
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>            txt.removeChild(span)
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>        }
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>    },
edouard@2923: </xsl:text>
Edouard@2936:     <xsl:text>    // Put rectangle element in saved original state
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>    reset_box: function(){
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        let m = this.box_bbox;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        let b = this.box_elt;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        b.x.baseVal.value = m.x;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        b.y.baseVal.value = m.y;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        b.width.baseVal.value = m.width;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        b.height.baseVal.value = m.height;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>    },
edouard@2924: </xsl:text>
Edouard@2936:     <xsl:text>    // Use margin and text size to compute box size
Edouard@2936: </xsl:text>
edouard@2924:     <xsl:text>    adjust_box_to_text: function(){
edouard@2923: </xsl:text>
edouard@2926:     <xsl:text>        let [lmargin, tmargin] = this.margins;
edouard@2923: </xsl:text>
edouard@2923:     <xsl:text>        let m = this.text_elt.getBBox();
edouard@2923: </xsl:text>
edouard@2924:     <xsl:text>        let b = this.box_elt;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        b.x.baseVal.value = m.x - lmargin;
edouard@2924: </xsl:text>
edouard@2924:     <xsl:text>        b.y.baseVal.value = m.y - tmargin;
edouard@2924: </xsl:text>
edouard@2926:     <xsl:text>        b.width.baseVal.value = 2 * lmargin + m.width;
edouard@2926: </xsl:text>
edouard@2926:     <xsl:text>        b.height.baseVal.value = 2 * tmargin + m.height;
Edouard@2922: </xsl:text>
Edouard@2922:     <xsl:text>    },
Edouard@2922: </xsl:text>
Edouard@2922:   </xsl:template>
edouard@2892:   <xsl:template mode="widget_defs" match="widget[@type='ForEach']">
edouard@2892:     <xsl:param name="hmi_element"/>
edouard@2894:     <xsl:variable name="class" select="arg[1]/@value"/>
edouard@2894:     <xsl:variable name="base_path" select="path/@value"/>
edouard@2894:     <xsl:variable name="hmi_index_base" select="$indexed_hmitree/*[@hmipath = $base_path]"/>
edouard@2894:     <xsl:variable name="hmi_tree_base" select="$hmitree/descendant-or-self::*[@path = $hmi_index_base/@path]"/>
edouard@2894:     <xsl:variable name="hmi_tree_items" select="$hmi_tree_base/*[@class = $class]"/>
edouard@2894:     <xsl:variable name="hmi_index_items" select="$indexed_hmitree/*[@path = $hmi_tree_items/@path]"/>
edouard@2894:     <xsl:variable name="items_paths" select="$hmi_index_items/@hmipath"/>
Edouard@2893:     <xsl:text>    index_pool: [
Edouard@2893: </xsl:text>
edouard@2894:     <xsl:for-each select="$hmi_index_items">
edouard@2894:       <xsl:text>      </xsl:text>
edouard@2894:       <xsl:value-of select="@index"/>
edouard@2894:       <xsl:if test="position()!=last()">
edouard@2894:         <xsl:text>,</xsl:text>
edouard@2894:       </xsl:if>
edouard@2894:       <xsl:text>
edouard@2894: </xsl:text>
edouard@2894:     </xsl:for-each>
Edouard@2893:     <xsl:text>    ],
Edouard@2893: </xsl:text>
edouard@2896:     <xsl:text>    init: function() {
Edouard@2893: </xsl:text>
Edouard@2893:     <xsl:variable name="prefix" select="concat($class,':')"/>
Edouard@2893:     <xsl:variable name="buttons_regex" select="concat('^',$prefix,'[+\-][0-9]+')"/>
edouard@2896:     <xsl:variable name="buttons" select="$hmi_element/*[regexp:test(@inkscape:label, $buttons_regex)]"/>
edouard@2896:     <xsl:for-each select="$buttons">
edouard@2896:       <xsl:variable name="op" select="substring-after(@inkscape:label, $prefix)"/>
edouard@2896:       <xsl:text>        id("</xsl:text>
Edouard@2893:       <xsl:value-of select="@id"/>
edouard@2896:       <xsl:text>").setAttribute("onclick", "hmi_widgets['</xsl:text>
edouard@2896:       <xsl:value-of select="$hmi_element/@id"/>
edouard@2896:       <xsl:text>'].on_click('</xsl:text>
edouard@2896:       <xsl:value-of select="$op"/>
edouard@2896:       <xsl:text>', evt)");
Edouard@2893: </xsl:text>
Edouard@2893:     </xsl:for-each>
edouard@2896:     <xsl:text>
Edouard@2893: </xsl:text>
Edouard@2895:     <xsl:text>        this.items = [
Edouard@2893: </xsl:text>
Edouard@2893:     <xsl:variable name="items_regex" select="concat('^',$prefix,'[0-9]+')"/>
Edouard@2893:     <xsl:variable name="unordered_items" select="$hmi_element//*[regexp:test(@inkscape:label, $items_regex)]"/>
Edouard@2893:     <xsl:for-each select="$unordered_items">
Edouard@2893:       <xsl:variable name="elt_label" select="concat($prefix, string(position()))"/>
Edouard@2893:       <xsl:variable name="elt" select="$unordered_items[@inkscape:label = $elt_label]"/>
edouard@2894:       <xsl:variable name="pos" select="position()"/>
edouard@2894:       <xsl:variable name="item_path" select="$items_paths[$pos]"/>
Edouard@2895:       <xsl:text>          [ /* item="</xsl:text>
Edouard@2893:       <xsl:value-of select="$elt_label"/>
edouard@2894:       <xsl:text>" path="</xsl:text>
edouard@2894:       <xsl:value-of select="$item_path"/>
edouard@2894:       <xsl:text>" */
edouard@2892: </xsl:text>
Edouard@2893:       <xsl:if test="count($elt)=0">
Edouard@2893:         <xsl:message terminate="yes">
Edouard@2893:           <xsl:text>Missing item labeled </xsl:text>
Edouard@2893:           <xsl:value-of select="$elt_label"/>
Edouard@2893:           <xsl:text> in ForEach widget </xsl:text>
Edouard@2893:           <xsl:value-of select="$hmi_element/@id"/>
Edouard@2893:         </xsl:message>
Edouard@2893:       </xsl:if>
Edouard@2893:       <xsl:for-each select="func:refered_elements($elt)[@id = $hmi_elements/@id][not(@id = $elt/@id)]">
edouard@2894:         <xsl:if test="not(func:is_descendant_path(func:widget(@id)/path/@value, $item_path))">
edouard@2894:           <xsl:message terminate="yes">
edouard@2894:             <xsl:text>Widget id="</xsl:text>
edouard@2894:             <xsl:value-of select="@id"/>
edouard@2894:             <xsl:text>" label="</xsl:text>
edouard@2894:             <xsl:value-of select="@inkscape:label"/>
edouard@2894:             <xsl:text>" is having wrong path. Accroding to ForEach widget ancestor id="</xsl:text>
edouard@2894:             <xsl:value-of select="$hmi_element/@id"/>
edouard@2896:             <xsl:text>", path should be descendant of "</xsl:text>
edouard@2894:             <xsl:value-of select="$item_path"/>
edouard@2896:             <xsl:text>".</xsl:text>
edouard@2894:           </xsl:message>
edouard@2894:         </xsl:if>
Edouard@2895:         <xsl:text>            hmi_widgets["</xsl:text>
edouard@2892:         <xsl:value-of select="@id"/>
edouard@2892:         <xsl:text>"]</xsl:text>
edouard@2892:         <xsl:if test="position()!=last()">
edouard@2892:           <xsl:text>,</xsl:text>
edouard@2892:         </xsl:if>
edouard@2892:         <xsl:text>
edouard@2892: </xsl:text>
edouard@2892:       </xsl:for-each>
Edouard@2895:       <xsl:text>          ]</xsl:text>
edouard@2892:       <xsl:if test="position()!=last()">
edouard@2892:         <xsl:text>,</xsl:text>
edouard@2892:       </xsl:if>
edouard@2892:       <xsl:text>
edouard@2892: </xsl:text>
edouard@2892:     </xsl:for-each>
Edouard@2895:     <xsl:text>        ]
Edouard@2895: </xsl:text>
Edouard@2895:     <xsl:text>    },
Edouard@2895: </xsl:text>
Edouard@2895:     <xsl:text>    item_offset: 0,
edouard@2892: </xsl:text>
edouard@2954:   </xsl:template>
edouard@2954:   <xsl:template mode="widget_class" match="widget[@type='ForEach']">
edouard@2954:     <xsl:text>class ForEachWidget extends Widget{
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    unsub(){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        for(let item of this.items){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            for(let widget of item) {
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>                widget.unsub();
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            }
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>        }
edouard@2942: </xsl:text>
edouard@2954:     <xsl:text>        this.offset = 0;
edouard@2954: </xsl:text>
edouard@2942:     <xsl:text>    }
edouard@2942: </xsl:text>
edouard@2954:     <xsl:text>
edouard@2954: </xsl:text>
edouard@3003:     <xsl:text>    foreach_widgets_do(todo){
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>        for(let i = 0; i &lt; this.items.length; i++) {
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>            let item = this.items[i];
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>            let orig_item_index = this.index_pool[i];
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>            let item_index = this.index_pool[i+this.item_offset];
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>            let item_index_offset = item_index - orig_item_index;
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>            for(let widget of item) {
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>                todo(widget).call(widget, this.offset + item_index_offset);
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>            }
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>        }
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>    }
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>
edouard@3003: </xsl:text>
edouard@3003:     <xsl:text>    sub(new_offset=0){
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.offset = new_offset;
edouard@2954: </xsl:text>
edouard@3003:     <xsl:text>        this.foreach_widgets_do(w=&gt;w.sub);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    apply_cache() {
edouard@2954: </xsl:text>
edouard@3003:     <xsl:text>        this.foreach_widgets_do(w=&gt;w.apply_cache);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    on_click(opstr, evt) {
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        let new_item_offset = eval(String(this.item_offset)+opstr);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        if(new_item_offset + this.items.length &gt; this.index_pool.length) {
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            if(this.item_offset + this.items.length == this.index_pool.length)
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>                new_item_offset = 0;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            else
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>                new_item_offset = this.index_pool.length - this.items.length;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        } else if(new_item_offset &lt; 0) {
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            if(this.item_offset == 0)
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>                new_item_offset = this.index_pool.length - this.items.length;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>            else
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>                new_item_offset = 0;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        }
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.item_offset = new_item_offset;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.unsub();
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        this.sub(this.offset);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        update_subscriptions();
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        need_cache_apply.push(this);
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        jumps_need_update = true;
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>        requestHMIAnimation();
edouard@2954: </xsl:text>
edouard@2954:     <xsl:text>    }
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>}
edouard@2942: </xsl:text>
edouard@2942:   </xsl:template>
Edouard@2800:   <xsl:template mode="widget_defs" match="widget[@type='Input']">
Edouard@2801:     <xsl:param name="hmi_element"/>
Edouard@2836:     <xsl:variable name="value_elt">
Edouard@2836:       <xsl:call-template name="defs_by_labels">
Edouard@2836:         <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2836:         <xsl:with-param name="labels">
Edouard@2836:           <xsl:text>value</xsl:text>
Edouard@2836:         </xsl:with-param>
Edouard@2836:         <xsl:with-param name="mandatory" select="'no'"/>
Edouard@2836:       </xsl:call-template>
Edouard@2836:     </xsl:variable>
Edouard@2861:     <xsl:variable name="have_value" select="string-length($value_elt)&gt;0"/>
Edouard@2836:     <xsl:value-of select="$value_elt"/>
Edouard@2861:     <xsl:if test="$have_value">
edouard@2851:       <xsl:text>    frequency: 5,
Edouard@2836: </xsl:text>
Edouard@2836:     </xsl:if>
Edouard@2913:     <xsl:text>    last_val: undefined,
Edouard@2913: </xsl:text>
edouard@2851:     <xsl:text>    dispatch: function(value) {
Edouard@2801: </xsl:text>
Edouard@2913:     <xsl:text>        this.last_val = value;
Edouard@2913: </xsl:text>
Edouard@2861:     <xsl:if test="$have_value">
edouard@2851:       <xsl:text>        this.value_elt.textContent = String(value);
Edouard@2836: </xsl:text>
Edouard@2836:     </xsl:if>
edouard@2851:     <xsl:text>    },
Edouard@2801: </xsl:text>
Edouard@2801:     <xsl:variable name="edit_elt_id" select="$hmi_element/*[@inkscape:label='edit'][1]/@id"/>
edouard@2851:     <xsl:text>    init: function() {
Edouard@2801: </xsl:text>
Edouard@2801:     <xsl:if test="$edit_elt_id">
edouard@2851:       <xsl:text>        id("</xsl:text>
Edouard@2801:       <xsl:value-of select="$edit_elt_id"/>
Edouard@2913:       <xsl:text>").setAttribute("onclick", "hmi_widgets['</xsl:text>
Edouard@2913:       <xsl:value-of select="$hmi_element/@id"/>
Edouard@2913:       <xsl:text>'].on_edit_click()");
Edouard@2801: </xsl:text>
Edouard@2801:     </xsl:if>
Edouard@2829:     <xsl:for-each select="$hmi_element/*[regexp:test(@inkscape:label,'^[=+\-].+')]">
edouard@2851:       <xsl:text>        id("</xsl:text>
Edouard@2801:       <xsl:value-of select="@id"/>
Edouard@2913:       <xsl:text>").setAttribute("onclick", "hmi_widgets['</xsl:text>
Edouard@2913:       <xsl:value-of select="$hmi_element/@id"/>
Edouard@2913:       <xsl:text>'].on_op_click('</xsl:text>
Edouard@2829:       <xsl:value-of select="func:escape_quotes(@inkscape:label)"/>
Edouard@2913:       <xsl:text>')");
Edouard@2801: </xsl:text>
Edouard@2801:     </xsl:for-each>
edouard@2851:     <xsl:text>    },
Edouard@2801: </xsl:text>
Edouard@2913:     <xsl:text>    on_op_click: function(opstr) {
Edouard@2913: </xsl:text>
edouard@3004:     <xsl:text>        let new_val = this.change_hmi_value(0, opstr);
Edouard@2913: </xsl:text>
Edouard@2913:     <xsl:text>    },
Edouard@2913: </xsl:text>
Edouard@2913:     <xsl:text>    on_edit_click: function(opstr) {
Edouard@2913: </xsl:text>
Edouard@2913:     <xsl:text>        edit_value("</xsl:text>
Edouard@2913:     <xsl:value-of select="path/@value"/>
Edouard@2913:     <xsl:text>", "</xsl:text>
Edouard@2913:     <xsl:value-of select="path/@type"/>
Edouard@2917:     <xsl:text>", this, this.last_val);
Edouard@2913: </xsl:text>
Edouard@2913:     <xsl:text>    },
Edouard@2913: </xsl:text>
Edouard@2913:     <xsl:text>    edit_callback: function(new_val) {
Edouard@2913: </xsl:text>
edouard@3004:     <xsl:text>        this.apply_hmi_value(0, new_val);
Edouard@2913: </xsl:text>
Edouard@2913:     <xsl:text>    },
Edouard@2913: </xsl:text>
Edouard@2801:   </xsl:template>
edouard@2994:   <xsl:template mode="widget_class" match="widget[@type='JsonTable']">
edouard@2994:     <xsl:text>class JsonTableWidget extends Widget{
edouard@2994: </xsl:text>
edouard@2996:     <xsl:text>    do_http_request() {
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>        const query = {
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>             offset: '42',
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>             filter: '*powerloss*',
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>             args: this.args
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>        };
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>        const options = {
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>             method: 'POST',
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>             body: JSON.stringify(query),
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>             headers: {'Content-Type': 'application/json'}
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>        }
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>        fetch(this.args[0], options)
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>            .then(res =&gt; res.json())
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>            .then(this.spread_json_data);
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>    }
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>    dispatch(value) {
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>        this.do_http_request();
edouard@2996: </xsl:text>
edouard@2996:     <xsl:text>    }
edouard@2996: </xsl:text>
edouard@2994:     <xsl:text>    on_click(evt) {
edouard@2994: </xsl:text>
edouard@2996:     <xsl:text>        this.do_http_request();
edouard@2994: </xsl:text>
edouard@2994:     <xsl:text>    }
edouard@2994: </xsl:text>
edouard@2994:     <xsl:text>    init() {
edouard@2994: </xsl:text>
edouard@2994:     <xsl:text>        this.element.setAttribute("onclick", "hmi_widgets['"+this.element_id+"'].on_click(evt)");
edouard@2994: </xsl:text>
edouard@2994:     <xsl:text>    }
edouard@2994: </xsl:text>
edouard@2994:     <xsl:text>}
edouard@2994: </xsl:text>
edouard@2994:   </xsl:template>
edouard@2996:   <xsl:template mode="json_table_elt_render" match="svg:*">
edouard@2997:     <xsl:message terminate="yes">
edouard@2996:       <xsl:text>JsonTable Widget can't contain element of type </xsl:text>
edouard@2996:       <xsl:value-of select="local-name()"/>
edouard@2996:       <xsl:text>.</xsl:text>
edouard@2996:     </xsl:message>
edouard@2996:   </xsl:template>
edouard@2996:   <xsl:template mode="json_table_elt_render" match="svg:use">
edouard@2996:     <xsl:param name="value_expr"/>
edouard@2997:     <xsl:variable name="targetid" select="substring-after(@xlink:href,'#')"/>
edouard@2997:     <xsl:variable name="from_list" select="$hmi_lists[(@id | */@id) = $targetid]"/>
edouard@2997:     <xsl:if test="count($from_list) = 0">
edouard@2997:       <xsl:message terminate="yes">
edouard@2997:         <xsl:text>Clones (svg:use) in JsonTable Widget must point to a valid HMI:List widget or HMI:List item. Reference "</xsl:text>
edouard@2997:         <xsl:value-of select="@xlink:href"/>
edouard@2997:         <xsl:text>" is not valid.</xsl:text>
edouard@2997:       </xsl:message>
edouard@2997:     </xsl:if>
edouard@2997:     <xsl:text>        console.log("</xsl:text>
edouard@2996:     <xsl:value-of select="@id"/>
edouard@2996:     <xsl:text>", "</xsl:text>
edouard@2996:     <xsl:value-of select="$value_expr"/>
edouard@2996:     <xsl:text>", </xsl:text>
edouard@2996:     <xsl:value-of select="$value_expr"/>
edouard@2996:     <xsl:text>);
edouard@2996: </xsl:text>
edouard@2997:     <xsl:text>        id("</xsl:text>
edouard@2997:     <xsl:value-of select="@id"/>
edouard@2997:     <xsl:text>").setAttribute("xlink:href", 
edouard@2997: </xsl:text>
edouard@2997:     <xsl:text>            "#"+hmi_widgets["</xsl:text>
edouard@2997:     <xsl:value-of select="$from_list/@id"/>
edouard@2997:     <xsl:text>"].items[</xsl:text>
edouard@2997:     <xsl:value-of select="$value_expr"/>
edouard@2997:     <xsl:text>]);
edouard@2997: </xsl:text>
edouard@2996:   </xsl:template>
edouard@2996:   <xsl:template mode="json_table_elt_render" match="svg:text">
edouard@2996:     <xsl:param name="value_expr"/>
edouard@2997:     <xsl:text>        console.log("</xsl:text>
edouard@2996:     <xsl:value-of select="@id"/>
edouard@2996:     <xsl:text>", "</xsl:text>
edouard@2996:     <xsl:value-of select="$value_expr"/>
edouard@2996:     <xsl:text>", </xsl:text>
edouard@2996:     <xsl:value-of select="$value_expr"/>
edouard@2996:     <xsl:text>);
edouard@2996: </xsl:text>
edouard@2997:     <xsl:text>        id("</xsl:text>
edouard@2997:     <xsl:value-of select="@id"/>
edouard@2997:     <xsl:text>").textContent = String(</xsl:text>
edouard@2997:     <xsl:value-of select="$value_expr"/>
edouard@2997:     <xsl:text>);
edouard@2997: </xsl:text>
edouard@2996:   </xsl:template>
edouard@2996:   <xsl:template mode="json_table_render" match="svg:*">
edouard@2996:     <xsl:param name="objname"/>
edouard@2996:     <xsl:apply-templates mode="json_table_elt_render" select=".">
edouard@2996:       <xsl:with-param name="value_expr">
edouard@2996:         <xsl:value-of select="$objname"/>
edouard@2996:         <xsl:value-of select="@inkscape:label"/>
edouard@2996:       </xsl:with-param>
edouard@2996:     </xsl:apply-templates>
edouard@2996:   </xsl:template>
edouard@2996:   <xsl:template mode="json_table_render" match="svg:g">
edouard@2996:     <xsl:param name="objname"/>
edouard@2997:     <xsl:text>        let obj_</xsl:text>
edouard@2996:     <xsl:value-of select="@id"/>
edouard@2996:     <xsl:text> = </xsl:text>
edouard@2996:     <xsl:value-of select="$objname"/>
edouard@2996:     <xsl:value-of select="@inkscape:label"/>
edouard@2996:     <xsl:text>;
edouard@2996: </xsl:text>
edouard@2996:     <xsl:apply-templates mode="json_table_render" select="*[@inkscape:label]">
edouard@2996:       <xsl:with-param name="objname">
edouard@2996:         <xsl:text>obj_</xsl:text>
edouard@2996:         <xsl:value-of select="@id"/>
edouard@2996:       </xsl:with-param>
edouard@2996:     </xsl:apply-templates>
edouard@2996:   </xsl:template>
edouard@2996:   <xsl:template mode="widget_defs" match="widget[@type='JsonTable']">
edouard@2996:     <xsl:param name="hmi_element"/>
edouard@2996:     <xsl:call-template name="defs_by_labels">
edouard@2996:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
edouard@2996:       <xsl:with-param name="labels">
edouard@2996:         <xsl:text>data</xsl:text>
edouard@2996:       </xsl:with-param>
edouard@2996:     </xsl:call-template>
edouard@2996:     <xsl:call-template name="defs_by_labels">
edouard@2996:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
edouard@2996:       <xsl:with-param name="labels">
edouard@2996:         <xsl:text>forward backward cursor</xsl:text>
edouard@2996:       </xsl:with-param>
edouard@2996:       <xsl:with-param name="mandatory" select="'no'"/>
edouard@2996:     </xsl:call-template>
edouard@2996:     <xsl:variable name="data_elt" select="$result_svg_ns//*[@id = $hmi_element/@id]/*[@inkscape:label = 'data']"/>
edouard@2997:     <xsl:text>    spread_json_data: function(jdata) {
edouard@2997: </xsl:text>
edouard@2997:     <xsl:text>        console.log(jdata);
edouard@2996: </xsl:text>
edouard@2996:     <xsl:apply-templates mode="json_table_render" select="$data_elt/*">
edouard@2996:       <xsl:with-param name="objname" select="'jdata'"/>
edouard@2996:     </xsl:apply-templates>
edouard@2997:     <xsl:text>    }
edouard@2996: </xsl:text>
edouard@2996:   </xsl:template>
Edouard@2903:   <xsl:template name="jump_widget_activity">
Edouard@2903:     <xsl:param name="hmi_element"/>
Edouard@2903:     <xsl:call-template name="defs_by_labels">
Edouard@2903:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2903:       <xsl:with-param name="labels">
Edouard@2903:         <xsl:text>active inactive</xsl:text>
Edouard@2903:       </xsl:with-param>
Edouard@2903:       <xsl:with-param name="mandatory" select="'no'"/>
Edouard@2903:     </xsl:call-template>
Edouard@2903:   </xsl:template>
Edouard@2906:   <xsl:template name="jump_widget_disability">
Edouard@2906:     <xsl:param name="hmi_element"/>
Edouard@2906:     <xsl:call-template name="defs_by_labels">
Edouard@2906:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2906:       <xsl:with-param name="labels">
Edouard@2906:         <xsl:text>disabled</xsl:text>
Edouard@2906:       </xsl:with-param>
Edouard@2906:       <xsl:with-param name="mandatory" select="'no'"/>
Edouard@2906:     </xsl:call-template>
Edouard@2906:   </xsl:template>
edouard@2883:   <xsl:template mode="widget_defs" match="widget[@type='Jump']">
edouard@2883:     <xsl:param name="hmi_element"/>
Edouard@2906:     <xsl:variable name="activity">
Edouard@2903:       <xsl:call-template name="jump_widget_activity">
Edouard@2903:         <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2903:       </xsl:call-template>
Edouard@2903:     </xsl:variable>
Edouard@2906:     <xsl:variable name="have_activity" select="string-length($activity)&gt;0"/>
Edouard@2906:     <xsl:value-of select="$activity"/>
Edouard@2906:     <xsl:variable name="disability">
Edouard@2906:       <xsl:call-template name="jump_widget_disability">
Edouard@2906:         <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2906:       </xsl:call-template>
Edouard@2906:     </xsl:variable>
Edouard@2906:     <xsl:variable name="have_disability" select="$have_activity and string-length($disability)&gt;0"/>
Edouard@2906:     <xsl:value-of select="$disability"/>
Edouard@2906:     <xsl:if test="$have_activity">
Edouard@2906:       <xsl:text>    active: false,
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:if test="$have_disability">
Edouard@2906:         <xsl:text>    disabled: false,
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>    frequency: 2,
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>    dispatch: function(value) {
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        this.disabled = !Number(value);
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        this.update();
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>    },
Edouard@2906: </xsl:text>
Edouard@2906:       </xsl:if>
Edouard@2906:       <xsl:text>    update: function(){
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:if test="$have_disability">
Edouard@2906:         <xsl:text>      if(this.disabled) {
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        /* show disabled */ 
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        this.disabled_elt.setAttribute("style", this.active_elt_style);
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        /* hide inactive */ 
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        this.inactive_elt.setAttribute("style", "display:none");
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        /* hide active */ 
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        this.active_elt.setAttribute("style", "display:none");
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>      } else {
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        /* hide disabled */ 
Edouard@2906: </xsl:text>
Edouard@2906:         <xsl:text>        this.disabled_elt.setAttribute("style", "display:none");
Edouard@2906: </xsl:text>
Edouard@2906:       </xsl:if>
Edouard@2906:       <xsl:text>        if(this.active) {
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             /* show active */ 
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             this.active_elt.setAttribute("style", this.active_elt_style);
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             /* hide inactive */ 
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             this.inactive_elt.setAttribute("style", "display:none");
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>        } else {
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             /* show inactive */ 
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             this.inactive_elt.setAttribute("style", this.inactive_elt_style);
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             /* hide active */ 
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>             this.active_elt.setAttribute("style", "display:none");
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>        }
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:if test="$have_disability">
Edouard@2906:         <xsl:text>      }
Edouard@2906: </xsl:text>
Edouard@2906:       </xsl:if>
Edouard@2906:       <xsl:text>    },
Edouard@2906: </xsl:text>
Edouard@2906:     </xsl:if>
edouard@2883:     <xsl:text>    on_click: function(evt) {
edouard@2883: </xsl:text>
Edouard@2898:     <xsl:text>        const index = this.indexes.length &gt; 0 ? this.indexes[0] + this.offset : undefined;
Edouard@2898: </xsl:text>
Edouard@2902:     <xsl:text>        const name = this.args[0];
Edouard@2902: </xsl:text>
Edouard@2902:     <xsl:text>        switch_page(name, index);
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>    },
edouard@2883: </xsl:text>
Edouard@2906:     <xsl:if test="$have_activity">
Edouard@2903:       <xsl:text>    notify_page_change: function(page_name, index){
Edouard@2903: </xsl:text>
Edouard@2903:       <xsl:text>        const ref_index = this.indexes.length &gt; 0 ? this.indexes[0] + this.offset : undefined;
Edouard@2903: </xsl:text>
Edouard@2903:       <xsl:text>        const ref_name = this.args[0];
Edouard@2903: </xsl:text>
Edouard@2906:       <xsl:text>        this.active =((ref_name == undefined || ref_name == page_name) &amp;&amp; index == ref_index);
Edouard@2906: </xsl:text>
Edouard@2906:       <xsl:text>        this.update();
Edouard@2903: </xsl:text>
Edouard@2903:       <xsl:text>    },
Edouard@2903: </xsl:text>
Edouard@2903:     </xsl:if>
edouard@2883:     <xsl:text>    init: function() {
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        this.element.setAttribute("onclick", "hmi_widgets['</xsl:text>
edouard@2883:     <xsl:value-of select="$hmi_element/@id"/>
edouard@2883:     <xsl:text>'].on_click(evt)");
edouard@2883: </xsl:text>
Edouard@2906:     <xsl:if test="$have_activity">
Edouard@2903:       <xsl:text>        this.active_elt_style = this.active_elt.getAttribute("style");
Edouard@2903: </xsl:text>
Edouard@2903:       <xsl:text>        this.inactive_elt_style = this.inactive_elt.getAttribute("style");
Edouard@2903: </xsl:text>
Edouard@2903:     </xsl:if>
Edouard@2906:     <xsl:choose>
Edouard@2906:       <xsl:when test="$have_disability">
edouard@2954:         <xsl:text>        this.disabled_elt_style = this.disabled_elt.getAttribute("style");
Edouard@2906: </xsl:text>
Edouard@2906:       </xsl:when>
Edouard@2906:       <xsl:otherwise>
Edouard@2980:         <xsl:text>        this.unsubscribable = true;
Edouard@2906: </xsl:text>
Edouard@2906:       </xsl:otherwise>
Edouard@2906:     </xsl:choose>
edouard@2954:     <xsl:text>    },
edouard@2954: </xsl:text>
Edouard@2906:   </xsl:template>
Edouard@2901:   <xsl:template mode="per_page_widget_template" match="widget[@type='Jump']">
Edouard@2901:     <xsl:param name="page_desc"/>
Edouard@2901:     <xsl:if test="path">
Edouard@2901:       <xsl:variable name="target_page_name">
Edouard@2901:         <xsl:choose>
Edouard@2901:           <xsl:when test="arg">
Edouard@2901:             <xsl:value-of select="arg[1]/@value"/>
Edouard@2901:           </xsl:when>
Edouard@2901:           <xsl:otherwise>
Edouard@2901:             <xsl:value-of select="$page_desc/arg[1]/@value"/>
Edouard@2901:           </xsl:otherwise>
Edouard@2901:         </xsl:choose>
Edouard@2901:       </xsl:variable>
Edouard@2901:       <xsl:variable name="target_page_path">
Edouard@2901:         <xsl:choose>
Edouard@2901:           <xsl:when test="arg">
Edouard@2901:             <xsl:value-of select="$hmi_pages_descs[arg[1]/@value = $target_page_name]/path[1]/@value"/>
Edouard@2901:           </xsl:when>
Edouard@2901:           <xsl:otherwise>
Edouard@2901:             <xsl:value-of select="$page_desc/path[1]/@value"/>
Edouard@2901:           </xsl:otherwise>
Edouard@2901:         </xsl:choose>
Edouard@2901:       </xsl:variable>
Edouard@2901:       <xsl:if test="not(func:same_class_paths($target_page_path, path[1]/@value))">
Edouard@2901:         <xsl:message terminate="yes">
Edouard@2901:           <xsl:text>Jump id="</xsl:text>
Edouard@2901:           <xsl:value-of select="@id"/>
Edouard@2901:           <xsl:text>" to page "</xsl:text>
Edouard@2901:           <xsl:value-of select="$target_page_name"/>
Edouard@2901:           <xsl:text>" with incompatible path "</xsl:text>
Edouard@2901:           <xsl:value-of select="path[1]/@value"/>
Edouard@2901:           <xsl:text> (must be same class as "</xsl:text>
Edouard@2901:           <xsl:value-of select="$target_page_path"/>
Edouard@2901:           <xsl:text>")</xsl:text>
Edouard@2901:         </xsl:message>
Edouard@2901:       </xsl:if>
Edouard@2901:     </xsl:if>
Edouard@2901:   </xsl:template>
edouard@2943:   <declarations:jump/>
edouard@2943:   <xsl:template match="declarations:jump">
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2942:     <xsl:text>var jumps_need_update = false;
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>var jump_history = [[default_page, undefined]];
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>function update_jumps() {
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>    page_desc[current_visible_page].jumps.map(w=&gt;w.notify_page_change(current_visible_page,current_page_index));
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>    jumps_need_update = false;
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>};
edouard@2942: </xsl:text>
edouard@2942:     <xsl:text>
edouard@2942: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2942:   </xsl:template>
edouard@2943:   <declarations:keypad/>
edouard@2943:   <xsl:template match="declarations:keypad">
edouard@2941:     <xsl:text>
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>/* </xsl:text>
edouard@2949:     <xsl:value-of select="local-name()"/>
edouard@2949:     <xsl:text> */
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:     <xsl:text>var keypads = {
edouard@2941: </xsl:text>
edouard@2941:     <xsl:for-each select="$keypads_descs">
edouard@2941:       <xsl:variable name="keypad_id" select="@id"/>
edouard@2941:       <xsl:for-each select="arg">
edouard@2941:         <xsl:variable name="g" select="$geometry[@Id = $keypad_id]"/>
edouard@2941:         <xsl:text>    "</xsl:text>
edouard@2941:         <xsl:value-of select="@value"/>
edouard@2941:         <xsl:text>":["</xsl:text>
edouard@2941:         <xsl:value-of select="$keypad_id"/>
edouard@2941:         <xsl:text>", </xsl:text>
edouard@2941:         <xsl:value-of select="$g/@x"/>
edouard@2941:         <xsl:text>, </xsl:text>
edouard@2941:         <xsl:value-of select="$g/@y"/>
edouard@2941:         <xsl:text>],
edouard@2941: </xsl:text>
edouard@2941:       </xsl:for-each>
edouard@2941:     </xsl:for-each>
edouard@2941:     <xsl:text>}
edouard@2941: </xsl:text>
edouard@2949:     <xsl:text>
edouard@2949: </xsl:text>
edouard@2941:   </xsl:template>
Edouard@2913:   <xsl:template mode="widget_defs" match="widget[@type='Keypad']">
Edouard@2917:     <xsl:param name="hmi_element"/>
Edouard@2917:     <xsl:call-template name="defs_by_labels">
Edouard@2917:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2917:       <xsl:with-param name="labels">
Edouard@2917:         <xsl:text>Esc Enter BackSpace Keys Info Value</xsl:text>
Edouard@2917:       </xsl:with-param>
Edouard@2917:     </xsl:call-template>
Edouard@2917:     <xsl:call-template name="defs_by_labels">
Edouard@2917:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
Edouard@2917:       <xsl:with-param name="labels">
edouard@2920:         <xsl:text>Sign Space NumDot</xsl:text>
Edouard@2917:       </xsl:with-param>
Edouard@2917:       <xsl:with-param name="mandatory" select="'no'"/>
Edouard@2917:     </xsl:call-template>
edouard@2920:     <xsl:call-template name="defs_by_labels">
edouard@2920:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
edouard@2920:       <xsl:with-param name="labels">
edouard@2920:         <xsl:text>CapsLock Shift</xsl:text>
edouard@2920:       </xsl:with-param>
edouard@2920:       <xsl:with-param name="mandatory" select="'no'"/>
edouard@2920:       <xsl:with-param name="subelements" select="'active inactive'"/>
edouard@2920:     </xsl:call-template>
Edouard@2913:     <xsl:text>    init: function() {
Edouard@2913: </xsl:text>
Edouard@2917:     <xsl:for-each select="$hmi_element/*[@inkscape:label = 'Keys']/*">
Edouard@2917:       <xsl:text>        id("</xsl:text>
Edouard@2917:       <xsl:value-of select="@id"/>
Edouard@2917:       <xsl:text>").setAttribute("onclick", "hmi_widgets['</xsl:text>
Edouard@2917:       <xsl:value-of select="$hmi_element/@id"/>
Edouard@2917:       <xsl:text>'].on_key_click('</xsl:text>
Edouard@2917:       <xsl:value-of select="func:escape_quotes(@inkscape:label)"/>
Edouard@2917:       <xsl:text>')");
Edouard@2917: </xsl:text>
Edouard@2917:     </xsl:for-each>
edouard@2920:     <xsl:for-each select="str:split('Esc Enter BackSpace Sign Space NumDot CapsLock Shift')">
Edouard@2917:       <xsl:text>        if(this.</xsl:text>
Edouard@2917:       <xsl:value-of select="."/>
Edouard@2917:       <xsl:text>_elt)
Edouard@2917: </xsl:text>
Edouard@2917:       <xsl:text>            this.</xsl:text>
Edouard@2917:       <xsl:value-of select="."/>
Edouard@2917:       <xsl:text>_elt.setAttribute("onclick", "hmi_widgets['</xsl:text>
Edouard@2917:       <xsl:value-of select="$hmi_element/@id"/>
Edouard@2917:       <xsl:text>'].on_</xsl:text>
Edouard@2917:       <xsl:value-of select="."/>
Edouard@2917:       <xsl:text>_click()");
Edouard@2917: </xsl:text>
Edouard@2917:     </xsl:for-each>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    on_key_click: function(symbols) {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        var syms = symbols.split(" ");
Edouard@2917: </xsl:text>
edouard@2919:     <xsl:text>        this.shift |= this.caps;
edouard@2919: </xsl:text>
edouard@2919:     <xsl:text>        this.editstr += syms[this.shift?syms.length-1:0];
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.shift = false;
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.update();
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    on_Esc_click: function() {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        end_modal.call(this);
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    on_Enter_click: function() {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        end_modal.call(this);
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        callback_obj = this.result_callback_obj;
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        callback_obj.edit_callback(this.editstr);
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    on_BackSpace_click: function() {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.editstr = this.editstr.slice(0,this.editstr.length-1);
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.update();
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    on_Sign_click: function() {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        if(this.editstr[0] == "-")
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>            this.editstr = this.editstr.slice(1,this.editstr.length);
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        else
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>            this.editstr = "-" + this.editstr;
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>        this.update();
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>    on_NumDot_click: function() {
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        if(this.editstr.indexOf(".") == "-1"){
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            this.editstr += ".";
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            this.update();
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        }
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>    },
edouard@2920: </xsl:text>
Edouard@2917:     <xsl:text>    on_Space_click: function() {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.editstr += " ";
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>        this.update();
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    caps: false,
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>    _caps: undefined,
edouard@2920: </xsl:text>
Edouard@2917:     <xsl:text>    on_CapsLock_click: function() {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.caps = !this.caps;
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>        this.update();
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    shift: false,
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>    _shift: undefined,
edouard@2920: </xsl:text>
Edouard@2917:     <xsl:text>    on_Shift_click: function() {
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>        this.shift = !this.shift;
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        this.caps = false;
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        this.update();
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:variable name="g" select="$geometry[@Id = $hmi_element/@id]"/>
Edouard@2917:     <xsl:text>    coordinates: [</xsl:text>
Edouard@2917:     <xsl:value-of select="$g/@x"/>
Edouard@2917:     <xsl:text>, </xsl:text>
Edouard@2917:     <xsl:value-of select="$g/@y"/>
Edouard@2917:     <xsl:text>],
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    editstr: "",
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>    _editstr: undefined,
edouard@2920: </xsl:text>
Edouard@2917:     <xsl:text>    result_callback_obj: undefined,
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    start_edit: function(info, valuetype, callback_obj, initial) {
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        show_modal.call(this);
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.editstr = initial;
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.result_callback_obj = callback_obj;
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.Info_elt.textContent = info;
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.shift = false;
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.caps = false;
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>        this.update();
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    },
Edouard@2917: </xsl:text>
Edouard@2917:     <xsl:text>    update: function() {
Edouard@2917: </xsl:text>
edouard@2920:     <xsl:text>        if(this.editstr != this._editstr){
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            this._editstr = this.editstr;
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            this.Value_elt.textContent = this.editstr;
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        }
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        if(this.shift != this._shift){
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            this._shift = this.shift;
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            (this.shift?widget_active_activable:widget_inactive_activable)(this.Shift_sub);
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        }
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        if(this.caps != this._caps){
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            this._caps = this.caps;
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>            (this.caps?widget_active_activable:widget_inactive_activable)(this.CapsLock_sub);
edouard@2920: </xsl:text>
edouard@2920:     <xsl:text>        }
Edouard@2917: </xsl:text>
Edouard@2913:     <xsl:text>    },
Edouard@2913: </xsl:text>
Edouard@2913:   </xsl:template>
edouard@2997:   <xsl:template mode="widget_defs" match="widget[@type='List']">
edouard@2997:     <xsl:param name="hmi_element"/>
edouard@2997:     <xsl:text>    items: {
edouard@2997: </xsl:text>
edouard@2997:     <xsl:for-each select="$hmi_element/*[@inkscape:label]">
edouard@2997:       <xsl:text>        </xsl:text>
edouard@2997:       <xsl:value-of select="func:escape_quotes(@inkscape:label)"/>
edouard@2997:       <xsl:text>: "</xsl:text>
edouard@2997:       <xsl:value-of select="@id"/>
edouard@2997:       <xsl:text>",
edouard@2997: </xsl:text>
edouard@2997:     </xsl:for-each>
edouard@2997:     <xsl:text>    },
edouard@2997: </xsl:text>
edouard@2997:   </xsl:template>
edouard@2883:   <xsl:template mode="widget_defs" match="widget[@type='Meter']">
edouard@2883:     <xsl:param name="hmi_element"/>
edouard@2883:     <xsl:text>    frequency: 10,
edouard@2883: </xsl:text>
edouard@2883:     <xsl:call-template name="defs_by_labels">
edouard@2883:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
edouard@2883:       <xsl:with-param name="labels">
edouard@2883:         <xsl:text>needle range</xsl:text>
edouard@2883:       </xsl:with-param>
edouard@2883:     </xsl:call-template>
edouard@2883:     <xsl:call-template name="defs_by_labels">
edouard@2883:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
edouard@2883:       <xsl:with-param name="labels">
edouard@2883:         <xsl:text>value min max</xsl:text>
edouard@2883:       </xsl:with-param>
edouard@2883:       <xsl:with-param name="mandatory" select="'no'"/>
edouard@2883:     </xsl:call-template>
edouard@2883:     <xsl:text>    dispatch: function(value) {
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        if(this.value_elt)
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>            this.value_elt.textContent = String(value);
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        let [min,max,totallength] = this.range;
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        let length = Math.max(0,Math.min(totallength,(Number(value)-min)*totallength/(max-min)));
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        let tip = this.range_elt.getPointAtLength(length);
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        this.needle_elt.setAttribute('d', "M "+this.origin.x+","+this.origin.y+" "+tip.x+","+tip.y);
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>    },
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>    origin: undefined,
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>    range: undefined,
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>    init: function() {
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        let min = this.min_elt ?
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>                    Number(this.min_elt.textContent) :
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>                    this.args.length &gt;= 1 ? this.args[0] : 0;
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        let max = this.max_elt ?
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>                    Number(this.max_elt.textContent) :
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>                    this.args.length &gt;= 2 ? this.args[1] : 100;
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        this.range = [min, max, this.range_elt.getTotalLength()]
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>        this.origin = this.needle_elt.getPointAtLength(0);
edouard@2883: </xsl:text>
edouard@2883:     <xsl:text>    },
Edouard@2800: </xsl:text>
Edouard@2797:   </xsl:template>
edouard@2962:   <xsl:template mode="widget_class" match="widget[@type='Switch']">
edouard@2962:     <xsl:text>class SwitchWidget extends Widget{
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>    frequency = 5;
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>    dispatch(value) {
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>        for(let choice of this.choices){
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>            if(value != choice.value){
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>                choice.elt.setAttribute("style", "display:none");
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>            } else {
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>                choice.elt.setAttribute("style", choice.style);
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>            }
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>        }
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>    }
edouard@2962: </xsl:text>
edouard@2962:     <xsl:text>}
edouard@2962: </xsl:text>
edouard@2962:   </xsl:template>
Edouard@2839:   <xsl:template mode="widget_defs" match="widget[@type='Switch']">
Edouard@2839:     <xsl:param name="hmi_element"/>
edouard@2851:     <xsl:text>    choices: [
Edouard@2839: </xsl:text>
Edouard@2907:     <xsl:variable name="regex" select="'^(&quot;[^&quot;].*&quot;|\-?[0-9]+|false|true)(#.*)?$'"/>
Edouard@2969:     <xsl:for-each select="$result_svg_ns//*[@id = $hmi_element/@id]//*[regexp:test(@inkscape:label,$regex)]">
Edouard@2839:       <xsl:variable name="literal" select="regexp:match(@inkscape:label,$regex)[2]"/>
edouard@2851:       <xsl:text>        {
edouard@2851: </xsl:text>
edouard@2851:       <xsl:text>            elt:id("</xsl:text>
Edouard@2839:       <xsl:value-of select="@id"/>
Edouard@2839:       <xsl:text>"),
Edouard@2839: </xsl:text>
edouard@2851:       <xsl:text>            style:"</xsl:text>
Edouard@2839:       <xsl:value-of select="@style"/>
Edouard@2839:       <xsl:text>",
Edouard@2839: </xsl:text>
edouard@2851:       <xsl:text>            value:</xsl:text>
Edouard@2839:       <xsl:value-of select="$literal"/>
Edouard@2839:       <xsl:text>
Edouard@2839: </xsl:text>
edouard@2851:       <xsl:text>        }</xsl:text>
Edouard@2839:       <xsl:if test="position()!=last()">
Edouard@2839:         <xsl:text>,</xsl:text>
Edouard@2839:       </xsl:if>
Edouard@2839:       <xsl:text>
Edouard@2839: </xsl:text>
Edouard@2839:     </xsl:for-each>
edouard@2851:     <xsl:text>    ],
Edouard@2801: </xsl:text>
Edouard@2801:   </xsl:template>
dgaberscek@2977:   <xsl:template mode="widget_defs" match="widget[@type='ToggleButton']">
dgaberscek@2977:     <xsl:param name="hmi_element"/>
dgaberscek@2977:     <xsl:call-template name="defs_by_labels">
dgaberscek@2977:       <xsl:with-param name="hmi_element" select="$hmi_element"/>
dgaberscek@2977:       <xsl:with-param name="labels">
dgaberscek@2977:         <xsl:text>active inactive</xsl:text>
dgaberscek@2977:       </xsl:with-param>
dgaberscek@2977:     </xsl:call-template>
dgaberscek@2977:     <xsl:text>    frequency: 5,
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    state: 0,
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    dispatch: function(value) {
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>        this.state = value;
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>        if (this.state) {
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>            this.active_elt.setAttribute("style", this.active_style);
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>            this.inactive_elt.setAttribute("style", "display:none");
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>            this.state = 0;
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>        } else {
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>            this.inactive_elt.setAttribute("style", this.inactive_style);
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>            this.active_elt.setAttribute("style", "display:none");
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>            this.state = 1;
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>        }
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    },
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    on_click: function(evt) {
dgaberscek@2977: </xsl:text>
edouard@3004:     <xsl:text>        this.apply_hmi_value(0, this.state);
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    },
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    active_style: undefined,
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    inactive_style: undefined,
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    init: function() {
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>        this.active_style = this.active_elt.style.cssText;
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>        this.inactive_style = this.inactive_elt.style.cssText;
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>        this.element.setAttribute("onclick", "hmi_widgets['</xsl:text>
dgaberscek@2977:     <xsl:value-of select="$hmi_element/@id"/>
dgaberscek@2977:     <xsl:text>'].on_click(evt)");
dgaberscek@2977: </xsl:text>
dgaberscek@2977:     <xsl:text>    },
dgaberscek@2977: </xsl:text>
dgaberscek@2977:   </xsl:template>
edouard@2883:   <xsl:template match="/">
edouard@2883:     <xsl:comment>
edouard@2883:       <xsl:text>Made with SVGHMI. https://beremiz.org</xsl:text>
edouard@2883:     </xsl:comment>
edouard@2949:     <xsl:comment>
edouard@2949:       <xsl:apply-templates select="document('')/*/debug:*"/>
edouard@2949:     </xsl:comment>
edouard@2994:     <html xmlns="http://www.w3.org/1999/xhtml" xmlns:svg="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
edouard@2883:       <head/>
edouard@2883:       <body style="margin:0;overflow:hidden;">
edouard@2883:         <xsl:copy-of select="$result_svg"/>
edouard@2883:         <script>
edouard@2943:           <xsl:text>
edouard@2943: //
edouard@2943: //
edouard@2943: // Early independent declarations 
edouard@2943: //
edouard@2943: //
edouard@2943: </xsl:text>
edouard@2941:           <xsl:apply-templates select="document('')/*/preamble:*"/>
edouard@2943:           <xsl:text>
edouard@2943: //
edouard@2943: //
edouard@2943: // Declarations depending on preamble 
edouard@2943: //
edouard@2943: //
edouard@2943: </xsl:text>
edouard@2943:           <xsl:apply-templates select="document('')/*/declarations:*"/>
edouard@2943:           <xsl:text>
edouard@2943: //
edouard@2943: //
edouard@2943: // Order independent declaration and code 
edouard@2943: //
edouard@2943: //
edouard@2943: </xsl:text>
edouard@2943:           <xsl:apply-templates select="document('')/*/definitions:*"/>
edouard@2943:           <xsl:text>
edouard@2943: //
edouard@2943: //
edouard@2943: // Statements that needs to be at the end 
edouard@2943: //
edouard@2943: //
edouard@2943: </xsl:text>
edouard@2941:           <xsl:apply-templates select="document('')/*/epilogue:*"/>
edouard@2941:           <xsl:text>// svghmi.js
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var cache = hmitree_types.map(_ignored =&gt; undefined);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var updates = {};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var need_cache_apply = []; 
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function dispatch_value_to_widget(widget, index, value, oldval) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    try {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let idx = widget.offset ? index - widget.offset : index;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let idxidx = widget.indexes.indexOf(idx);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let d = widget.dispatch;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        if(typeof(d) == "function" &amp;&amp; idxidx == 0){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            d.call(widget, value, oldval);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        else if(typeof(d) == "object" &amp;&amp; d.length &gt;= idxidx){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            d[idxidx].call(widget, value, oldval);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        /* else dispatch_0, ..., dispatch_n ? */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        /*else {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            throw new Error("Dunno how to dispatch to widget at index = " + index);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }*/
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    } catch(err) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        console.log(err);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>}
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function dispatch_value(index, value) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let widgets = subscribers[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let oldval = cache[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    cache[index] = value;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(widgets.size &gt; 0) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        for(let widget of widgets){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            dispatch_value_to_widget(widget, index, value, oldval);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function init_widgets() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    Object.keys(hmi_widgets).forEach(function(id) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let widget = hmi_widgets[id];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let init = widget.init;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        if(typeof(init) == "function"){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            try {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                init.call(widget);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            } catch(err) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                console.log(err);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    });
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// Open WebSocket to relative "/ws" address
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var ws = new WebSocket(window.location.href.replace(/^http(s?:\/\/[^\/]*)\/.*$/, 'ws$1/ws'));
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>ws.binaryType = 'arraybuffer';
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>const dvgetters = {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    INT: (dv,offset) =&gt; [dv.getInt16(offset, true), 2],
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    BOOL: (dv,offset) =&gt; [dv.getInt8(offset, true), 1],
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    NODE: (dv,offset) =&gt; [dv.getInt8(offset, true), 1],
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    STRING: (dv, offset) =&gt; {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        size = dv.getInt8(offset);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        return [
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            String.fromCharCode.apply(null, new Uint8Array(
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                dv.buffer, /* original buffer */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                offset + 1, /* string starts after size*/
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                size /* size of string */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            )), size + 1]; /* total increment */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// Apply updates recieved through ws.onmessage to subscribed widgets
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function apply_updates() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    for(let index in updates){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // serving as a key, index becomes a string
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // -&gt; pass Number(index) instead
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        dispatch_value(Number(index), updates[index]);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        delete updates[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>}
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// Called on requestAnimationFrame, modifies DOM
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var requestAnimationFrameID = null;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function animate() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    // Do the page swith if any one pending
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(current_subscribed_page != current_visible_page){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        switch_visible_page(current_subscribed_page);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    while(widget = need_cache_apply.pop()){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        widget.apply_cache();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(jumps_need_update) update_jumps();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    apply_updates();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    requestAnimationFrameID = null;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>}
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function requestHMIAnimation() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(requestAnimationFrameID == null){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        requestAnimationFrameID = window.requestAnimationFrame(animate);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>}
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// Message reception handler
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// Hash is verified and HMI values updates resulting from binary parsing
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// are stored until browser can compute next frame, DOM is left untouched
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>ws.onmessage = function (evt) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let data = evt.data;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let dv = new DataView(data);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let i = 0;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    try {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        for(let hash_int of hmi_hash) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            if(hash_int != dv.getUint8(i)){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                throw new Error("Hash doesn't match");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            };
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            i++;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        };
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        while(i &lt; data.byteLength){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            let index = dv.getUint32(i, true);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            i += 4;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            let iectype = hmitree_types[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            if(iectype != undefined){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                let dvgetter = dvgetters[iectype];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                let [value, bytesize] = dvgetter(dv,i);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                updates[index] = value;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                i += bytesize;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            } else {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                throw new Error("Unknown index "+index);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        };
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // register for rendering on next frame, since there are updates
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        requestHMIAnimation();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    } catch(err) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // 1003 is for "Unsupported Data"
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // ws.close(1003, err.message);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // TODO : remove debug alert ?
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        alert("Error : "+err.message+"\nHMI will be reloaded.");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // force reload ignoring cache
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        location.reload(true);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function send_blob(data) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(data.length &gt; 0) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        ws.send(new Blob([new Uint8Array(hmi_hash)].concat(data)));
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    };
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>const typedarray_types = {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    INT: (number) =&gt; new Int16Array([number]),
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    BOOL: (truth) =&gt; new Int16Array([truth]),
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    NODE: (truth) =&gt; new Int16Array([truth]),
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    STRING: (str) =&gt; {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // beremiz default string max size is 128
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        str = str.slice(0,128);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        binary = new Uint8Array(str.length + 1);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        binary[0] = str.length;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        for(var i = 0; i &lt; str.length; i++){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            binary[i+1] = str.charCodeAt(i);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        return binary;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    /* TODO */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function send_reset() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    send_blob(new Uint8Array([1])); /* reset = 1 */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// subscription state, as it should be in hmi server
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// hmitree indexed array of integers
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var subscriptions =  hmitree_types.map(_ignored =&gt; 0);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// subscription state as needed by widget now
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// hmitree indexed array of Sets of widgets objects
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var subscribers = hmitree_types.map(_ignored =&gt; new Set());
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// artificially subscribe the watchdog widget to "/heartbeat" hmi variable
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// Since dispatch directly calls change_hmi_value,
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// PLC will periodically send variable at given frequency
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>subscribers[heartbeat_index].add({
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    /* type: "Watchdog", */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    frequency: 1,
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    indexes: [heartbeat_index],
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    dispatch: function(value) {
edouard@2941: </xsl:text>
edouard@3003:           <xsl:text>        apply_hmi_value(heartbeat_index, value+1);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>});
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function update_subscriptions() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let delta = [];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    for(let index = 0; index &lt; subscribers.length; index++){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let widgets = subscribers[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // periods are in ms
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let previous_period = subscriptions[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        // subscribing with a zero period is unsubscribing
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let new_period = 0;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        if(widgets.size &gt; 0) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            let maxfreq = 0;
edouard@2941: </xsl:text>
edouard@2961:           <xsl:text>            for(let widget of widgets){
edouard@2961: </xsl:text>
edouard@2961:           <xsl:text>                let wf = widget.frequency;
edouard@2961: </xsl:text>
edouard@2961:           <xsl:text>                if(wf != undefined &amp;&amp; maxfreq &lt; wf)
edouard@2961: </xsl:text>
edouard@2961:           <xsl:text>                    maxfreq = wf;
edouard@2961: </xsl:text>
edouard@2961:           <xsl:text>            }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            if(maxfreq != 0)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                new_period = 1000/maxfreq;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        if(previous_period != new_period) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            subscriptions[index] = new_period;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            delta.push(
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                new Uint8Array([2]), /* subscribe = 2 */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                new Uint32Array([index]),
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>                new Uint16Array([new_period]));
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    send_blob(delta);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function send_hmi_value(index, value) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let iectype = hmitree_types[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let tobinary = typedarray_types[iectype];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    send_blob([
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        new Uint8Array([0]),  /* setval = 0 */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        new Uint32Array([index]),
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        tobinary(value)]);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    // DON'T DO THAT unless read_iterator in svghmi.c modifies wbuf as well, not only rbuf
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    // cache[index] = value;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function apply_hmi_value(index, new_val) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let old_val = cache[index]
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(new_val != undefined &amp;&amp; old_val != new_val)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        send_hmi_value(index, new_val);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    return new_val;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>}
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>quotes = {"'":null, '"':null};
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>
edouard@2970: </xsl:text>
edouard@2941:           <xsl:text>function change_hmi_value(index, opstr) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let op = opstr[0];
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>    let given_val;
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>    if(opstr.length &lt; 2) 
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        return undefined; // TODO raise
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>    if(opstr[1] in quotes){
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        if(opstr.length &lt; 3) 
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>            return undefined; // TODO raise
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        if(opstr[opstr.length-1] == opstr[1]){
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>            given_val = opstr.slice(2,opstr.length-1);
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        }
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>    } else {
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        given_val = Number(opstr.slice(1));
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>    }
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>    let old_val = cache[index];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let new_val;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    switch(op){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>      case "=":
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>        new_val = given_val;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        break;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>      case "+":
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>        new_val = old_val + given_val;
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        break;
edouard@2970: </xsl:text>
edouard@2941:           <xsl:text>      case "-":
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>        new_val = old_val - given_val;
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        break;
edouard@2970: </xsl:text>
edouard@2941:           <xsl:text>      case "*":
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>        new_val = old_val * given_val;
edouard@2970: </xsl:text>
edouard@2970:           <xsl:text>        break;
edouard@2970: </xsl:text>
edouard@2941:           <xsl:text>      case "/":
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>        new_val = old_val / given_val;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        break;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(new_val != undefined &amp;&amp; old_val != new_val)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        send_hmi_value(index, new_val);
edouard@2941: </xsl:text>
edouard@2970:           <xsl:text>    // TODO else raise
edouard@2970: </xsl:text>
edouard@2941:           <xsl:text>    return new_val;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>}
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var current_visible_page;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var current_subscribed_page;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var current_page_index;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function prepare_svg() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    for(let eltid in detachable_elements){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        let [element,parent] = detachable_elements[eltid];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        parent.removeChild(element);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function switch_page(page_name, page_index) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(current_subscribed_page != current_visible_page){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        /* page switch already going */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        /* TODO LOG ERROR */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        return false;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(page_name == undefined)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        page_name = current_subscribed_page;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let old_desc = page_desc[current_subscribed_page];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let new_desc = page_desc[page_name];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(new_desc == undefined){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        /* TODO LOG ERROR */
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        return false;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(page_index == undefined){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        page_index = new_desc.page_index;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(old_desc){
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        old_desc.absolute_widgets.map(w=&gt;w.unsub());
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        old_desc.relative_widgets.map(w=&gt;w.unsub());
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    new_desc.absolute_widgets.map(w=&gt;w.sub());
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    var new_offset = page_index == undefined ? 0 : page_index - new_desc.page_index;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    new_desc.relative_widgets.map(w=&gt;w.sub(new_offset));
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    update_subscriptions();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    current_subscribed_page = page_name;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    current_page_index = page_index;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    jumps_need_update = true;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    requestHMIAnimation();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    jump_history.push([page_name, page_index]);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(jump_history.length &gt; 42)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        jump_history.shift();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    return true;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2942:           <xsl:text>function switch_visible_page(page_name) {
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>    let old_desc = page_desc[current_visible_page];
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>    let new_desc = page_desc[page_name];
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>    if(old_desc){
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>        for(let eltid in old_desc.required_detachables){
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>            if(!(eltid in new_desc.required_detachables)){
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>                let [element, parent] = old_desc.required_detachables[eltid];
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>                parent.removeChild(element);
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>            }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        }
edouard@2941: </xsl:text>
edouard@2942:           <xsl:text>        for(let eltid in new_desc.required_detachables){
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>            if(!(eltid in old_desc.required_detachables)){
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>                let [element, parent] = new_desc.required_detachables[eltid];
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>                parent.appendChild(element);
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>            }
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>        }
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>    }else{
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>        for(let eltid in new_desc.required_detachables){
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>            let [element, parent] = new_desc.required_detachables[eltid];
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>            parent.appendChild(element);
edouard@2942: </xsl:text>
edouard@2942:           <xsl:text>        }
edouard@2942: </xsl:text>
edouard@2941:           <xsl:text>    }
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    svg_root.setAttribute('viewBox',new_desc.bbox.join(" "));
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    current_visible_page = page_name;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>// Once connection established
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>ws.onopen = function (evt) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    init_widgets();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    send_reset();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    // show main page
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    prepare_svg();
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    switch_page(default_page);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>ws.onclose = function (evt) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    // TODO : add visible notification while waiting for reload
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    console.log("Connection closed. code:"+evt.code+" reason:"+evt.reason+" wasClean:"+evt.wasClean+" Reload in 10s.");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    // TODO : re-enable auto reload when not in debug
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    //window.setTimeout(() =&gt; location.reload(true), 10000);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    alert("Connection closed. code:"+evt.code+" reason:"+evt.reason+" wasClean:"+evt.wasClean+".");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var xmlns = "http://www.w3.org/2000/svg";
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var edit_callback;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function edit_value(path, valuetype, callback, initial) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let [keypadid, xcoord, ycoord] = keypads[valuetype];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    console.log('XXX TODO : Edit value', path, valuetype, callback, initial, keypadid);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    edit_callback = callback;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let widget = hmi_widgets[keypadid];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    widget.start_edit(path, valuetype, callback, initial);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>var current_modal; /* TODO stack ?*/
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function show_modal() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let [element, parent] = detachable_elements[this.element.id];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    tmpgrp = document.createElementNS(xmlns,"g");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    tmpgrpattr = document.createAttribute("transform");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let [xcoord,ycoord] = this.coordinates;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let [xdest,ydest] = page_desc[current_visible_page].bbox;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    tmpgrpattr.value = "translate("+String(xdest-xcoord)+","+String(ydest-ycoord)+")";
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    tmpgrp.setAttributeNode(tmpgrpattr);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    tmpgrp.appendChild(element);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    parent.appendChild(tmpgrp);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    current_modal = [this.element.id, tmpgrp];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function end_modal() {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let [eltid, tmpgrp] = current_modal;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    let [element, parent] = detachable_elements[this.element.id];
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    parent.removeChild(tmpgrp);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    current_modal = undefined;
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function widget_active_activable(eltsub) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(eltsub.inactive_style === undefined)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        eltsub.inactive_style = eltsub.inactive.getAttribute("style");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    eltsub.inactive.setAttribute("style", "display:none");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(eltsub.active_style !== undefined)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            eltsub.active.setAttribute("style", eltsub.active_style);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    console.log("active", eltsub);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>function widget_inactive_activable(eltsub) {
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(eltsub.active_style === undefined)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>        eltsub.active_style = eltsub.active.getAttribute("style");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    eltsub.active.setAttribute("style", "display:none");
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    if(eltsub.inactive_style !== undefined)
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>            eltsub.inactive.setAttribute("style", eltsub.inactive_style);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>    console.log("inactive", eltsub);
edouard@2941: </xsl:text>
edouard@2941:           <xsl:text>};
edouard@2941: </xsl:text>
edouard@2883:         </script>
edouard@2883:       </body>
edouard@2883:     </html>
edouard@2883:   </xsl:template>
Edouard@2753: </xsl:stylesheet>