Laurent@1308: <xsl:stylesheet version="1.0"
Laurent@1308:     xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
Laurent@1308:     xmlns:ppx="http://www.plcopen.org/xml/tc6_0201"
Laurent@1308:     xmlns:xhtml="http://www.w3.org/1999/xhtml"
Laurent@1308:     xmlns:ns="var_infos_ns"
Laurent@1308:     extension-element-prefixes="ns"
Laurent@1308:     exclude-result-prefixes="ns">
Laurent@1308:   <xsl:template match="ppx:returnType">
Laurent@1308:     <ReturnType>
Laurent@1308:       <Type><xsl:apply-templates/></Type>
Laurent@1308:       <Tree><xsl:apply-templates mode="var_tree"/></Tree>
Laurent@1308:     </ReturnType>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:localVars">
Laurent@1308:     <xsl:call-template name="variables_infos">
Laurent@1308:       <xsl:with-param name="var_class" select="'Local'"/>
Laurent@1308:     </xsl:call-template>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:globalVars">
Laurent@1308:     <xsl:call-template name="variables_infos">
Laurent@1308:       <xsl:with-param name="var_class" select="'Global'"/>
Laurent@1308:     </xsl:call-template>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:externalVars">
Laurent@1308:     <xsl:call-template name="variables_infos">
Laurent@1308:       <xsl:with-param name="var_class" select="'External'"/>
Laurent@1308:     </xsl:call-template>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:tempVars">
Laurent@1308:     <xsl:call-template name="variables_infos">
Laurent@1308:       <xsl:with-param name="var_class" select="'Temp'"/>
Laurent@1308:     </xsl:call-template>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:inputVars">
Laurent@1308:     <xsl:call-template name="variables_infos">
Laurent@1308:       <xsl:with-param name="var_class" select="'Input'"/>
Laurent@1308:     </xsl:call-template>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:outputVars">
Laurent@1308:     <xsl:call-template name="variables_infos">
Laurent@1308:       <xsl:with-param name="var_class" select="'Output'"/>
Laurent@1308:     </xsl:call-template>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="inOutVars">
Laurent@1308:     <xsl:call-template name="variables_infos">
Laurent@1308:       <xsl:with-param name="var_class" select="'InOut'"/>
Laurent@1308:     </xsl:call-template>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template name="variables_infos">
Laurent@1308:     <xsl:param name="var_class"/>
Laurent@1308:     <xsl:variable name="var_option">
Laurent@1308:       <xsl:choose>
Laurent@1308:         <xsl:when test="@constant='true' or @constant='1'">
Laurent@1308:           <xsl:text>Constant</xsl:text>
Laurent@1308:         </xsl:when>
Laurent@1308:         <xsl:when test="@retain='true' or @retain='1'">
Laurent@1308:           <xsl:text>Retain</xsl:text>
Laurent@1308:         </xsl:when>
Laurent@1308:         <xsl:when test="@nonretain='true' or @nonretain='1'">
Laurent@1308:           <xsl:text>Non-Retain</xsl:text>
Laurent@1308:         </xsl:when>
Laurent@1308:       </xsl:choose>
Laurent@1308:     </xsl:variable>
Laurent@1308:     <xsl:for-each select="ppx:variable">
Laurent@1308:       <ns:add_variable>
Laurent@1308:         <Name><xsl:value-of select="@name"/></Name>
Laurent@1308:         <Class><xsl:value-of select="$var_class"/></Class>
Laurent@1308:         <Type><xsl:apply-templates select="ppx:type"/></Type>
Laurent@1308:         <Option><xsl:value-of select="$var_option"/></Option>
Laurent@1308:         <Location><xsl:value-of select="@address"/></Location>
Laurent@1308:         <Initial_Value><xsl:apply-templates select="ppx:initialValue"/></Initial_Value>
Laurent@1308:         <Edit/>
Laurent@1308:         <Tree><xsl:apply-templates select="ppx:type" mode="var_tree"/></Tree>
Laurent@1308:         <Documentation>
Laurent@1308:           <xsl:value-of select="ppx:documentation/xhtml:p/text()"/>
Laurent@1308:         </Documentation>
Laurent@1308:       </ns:add_variable>
Laurent@1308:     </xsl:for-each>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:derived">
Laurent@1308:     <xsl:value-of select="@name"/>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:array">
Laurent@1308:     <array>
Laurent@1308:       <xsl:apply-templates select="ppx:baseType"/>
Laurent@1308:       <xsl:for-each select="ppx:dimension">
Laurent@1308:         <dimension>
Laurent@1308:           <xsl:attribute name="lower">
Laurent@1308:             <xsl:value-of select="@lower"/>
Laurent@1308:           </xsl:attribute>
Laurent@1308:           <xsl:attribute name="upper">
Laurent@1308:             <xsl:value-of select="@upper"/>
Laurent@1308:           </xsl:attribute>
Laurent@1308:         </dimension>
Laurent@1308:       </xsl:for-each>
Laurent@1308:     </array>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:string">
Laurent@1308:     <xsl:text>STRING</xsl:text>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:wstring">
Laurent@1308:     <xsl:text>WSTRING</xsl:text>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/*">
Laurent@1308:     <xsl:value-of select="local-name()"/>
Laurent@1308:   </xsl:template>
Laurent@1308:     <xsl:template match="ppx:initialValue">
Laurent@1308:     <xsl:apply-templates/>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:value">
Laurent@1308:     <xsl:choose>
Laurent@1308:       <xsl:when test="@repetitionValue">
Laurent@1308:         <xsl:value-of select="@repetitionValue"/>
Laurent@1308:         <xsl:text>(</xsl:text>
Laurent@1308:         <xsl:apply-templates/>
Laurent@1308:         <xsl:text>)</xsl:text>
Laurent@1308:       </xsl:when>
Laurent@1308:       <xsl:when test="@member">
Laurent@1308:         <xsl:value-of select="@member"/>
Laurent@1308:         <xsl:text> := </xsl:text>
Laurent@1308:         <xsl:apply-templates/>
Laurent@1308:       </xsl:when>
Laurent@1308:       <xsl:otherwise>
Laurent@1308:         <xsl:apply-templates/>
Laurent@1308:       </xsl:otherwise>
Laurent@1308:     </xsl:choose>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:simpleValue">
Laurent@1308:     <xsl:value-of select="@value"/>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:arrayValue">
Laurent@1308:     <xsl:text>[</xsl:text>
Laurent@1308:     <xsl:for-each select="ppx:value">
Laurent@1308:       <xsl:apply-templates select="."/>
Laurent@1308:       <xsl:choose>
Laurent@1308:         <xsl:when test="position()!=last()">
Laurent@1308:           <xsl:text>, </xsl:text>
Laurent@1308:         </xsl:when>
Laurent@1308:       </xsl:choose>
Laurent@1308:     </xsl:for-each>
Laurent@1308:     <xsl:text>]</xsl:text>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:structValue">
Laurent@1308:     <xsl:text>(</xsl:text>
Laurent@1308:     <xsl:for-each select="ppx:value">
Laurent@1308:       <xsl:apply-templates select="."/>
Laurent@1308:       <xsl:choose>
Laurent@1308:         <xsl:when test="position()!=last()">
Laurent@1308:           <xsl:text>, </xsl:text>
Laurent@1308:         </xsl:when>
Laurent@1308:       </xsl:choose>
Laurent@1308:     </xsl:for-each>
Laurent@1308:     <xsl:text>)</xsl:text>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:pou" mode="var_tree">
Laurent@1308:     <xsl:apply-templates select="ppx:interface/*[self::ppx:inputVars or self::ppx:inOutVars or self::ppx:outputVars]/ppx:variable" mode="var_tree"/>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:variable" mode="var_tree">
Laurent@1308:     <var>
Laurent@1308:       <xsl:attribute name="name">
Laurent@1308:         <xsl:value-of select="@name"/>
Laurent@1308:       </xsl:attribute>
Laurent@1308:       <xsl:apply-templates select="ppx:type" mode="var_tree"/>
Laurent@1308:     </var>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="ppx:dataType">
Laurent@1308:     <xsl:apply-templates select="ppx:baseType" mode="var_tree"/>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:struct" mode="var_tree">
Laurent@1308:     <xsl:apply-templates select="ppx:variable" mode="var_tree"/>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:derived" mode="var_tree">
Laurent@1308:     <ns:var_tree/>
Laurent@1308:     <xsl:choose>
Laurent@1308:       <xsl:when test="count(./*) > 0">
Laurent@1308:         <xsl:apply-templates mode="var_tree"/>
Laurent@1308:       </xsl:when>
Laurent@1308:       <xsl:otherwise>
Laurent@1308:         <xsl:value-of select="@name"/>
Laurent@1308:       </xsl:otherwise>
Laurent@1308:     </xsl:choose>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:array" mode="var_tree">
Laurent@1308:     <xsl:apply-templates select="ppx:baseType" mode="var_tree"/>
Laurent@1308:     <xsl:for-each select="ppx:dimension">
Laurent@1308:       <dimension>
Laurent@1308:         <xsl:attribute name="lower">
Laurent@1308:           <xsl:value-of select="@lower"/>
Laurent@1308:         </xsl:attribute>
Laurent@1308:         <xsl:attribute name="upper">
Laurent@1308:           <xsl:value-of select="@upper"/>
Laurent@1308:         </xsl:attribute>
Laurent@1308:       </dimension>
Laurent@1308:     </xsl:for-each>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:string" mode="var_tree">
Laurent@1308:     <xsl:text>STRING</xsl:text>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:wstring" mode="var_tree">
Laurent@1308:     <xsl:text>WSTRING</xsl:text>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/*" mode="var_tree">
Laurent@1308:     <xsl:value-of select="local-name()"/>
Laurent@1308:   </xsl:template>
Laurent@1308:   <xsl:template match="text()"/>
Laurent@1308:   <xsl:template match="text()" mode="var_tree"/>
Laurent@1308: </xsl:stylesheet>