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