CODESYS Forge

--- a
+++ b/trunk/cforge/cforge/Package/CFORGE/Scripts/plcopenxml.xslt
@@ -0,0 +1,196 @@
+<?xml version="1.0"?>
+<xsl:stylesheet version="1.0"
+    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:po="http://www.plcopen.org/xml/tc6_0200">
+
+<!--
+ | Parse POU start tags
+-->
+<xsl:template match="po:pou[@pouType='functionBlock']">
+      <xsl:text>---
+</xsl:text>
+<!--      <xsl:value-of select="po:interface/po:documentation"/>-->
+	  <xsl:call-template name="trim">
+       		     <xsl:with-param name="input" select="po:interface/po:documentation"/>
+          </xsl:call-template>
+      <xsl:text>
+~~~ST
+</xsl:text>
+      <xsl:text>FUNCTION_BLOCK </xsl:text><xsl:value-of select="@name" />
+      <xsl:apply-templates select="po:interface"/>
+      <xsl:text>
+~~~
+</xsl:text>
+      <xsl:apply-templates select="po:body"/>
+      <xsl:apply-templates select="po:addData/po:data/po:Method"/>
+</xsl:template>
+<xsl:template match="po:pou[@pouType='program']">
+      <xsl:text>---
+~~~ST
+</xsl:text>
+      <xsl:text>PROGRAM </xsl:text><xsl:value-of select="@name" />
+      <xsl:apply-templates select="po:interface"/>
+      <xsl:text>
+~~~
+</xsl:text>
+      <xsl:apply-templates select="po:body"/>
+</xsl:template>
+<xsl:template match="po:Method">
+      <xsl:text>---
+~~~ST
+</xsl:text>
+      <xsl:text>METHOD </xsl:text><xsl:value-of select="@name" />
+      <xsl:text>: </xsl:text>
+      <xsl:apply-templates select="*/po:returnType"/>
+      <xsl:apply-templates select="po:interface"/>
+      <xsl:text>
+~~~
+</xsl:text>
+      <xsl:apply-templates select="po:body"/>
+</xsl:template>
+
+<!--
+ | Parse POU body
+-->
+<xsl:template match="po:body">
+      <xsl:apply-templates select="*|@*"/>
+</xsl:template>
+
+
+<!--
+ | Parse Interface (also finish the start tag, to be able to set "EXTENDS" or "IMPLEMENTS".
+-->
+<xsl:template match="po:interface">
+      <xsl:if test="po:addData/po:data/po:Inheritance/po:Extends">
+      	      <xsl:text> EXTENDS </xsl:text>
+	      <xsl:value-of select="po:addData/po:data/po:Inheritance/po:Extends"/>
+      </xsl:if>
+      <xsl:text>
+</xsl:text>
+      <xsl:apply-templates select="po:localVars|po:tempVars|po:inputVars|po:outputVars|po:inOutVars|po:externalVars|po:globalVars"/>
+</xsl:template>
+
+<!--
+ | Variables (Part of the interface)
+-->
+<xsl:template match="po:localVars">
+      <xsl:text>VAR
+</xsl:text>
+      <xsl:apply-templates select="po:variable"/>
+      <xsl:text>END_VAR
+</xsl:text>
+</xsl:template>
+<xsl:template match="po:tempVars">
+      <xsl:text>VAR_TEMP
+</xsl:text>
+      <xsl:apply-templates select="po:variable"/>
+      <xsl:text>END_VAR
+</xsl:text>
+</xsl:template>
+<xsl:template match="po:inputVars">
+      <xsl:text>VAR_INPUT
+</xsl:text>
+      <xsl:apply-templates select="po:variable"/>
+      <xsl:text>END_VAR
+</xsl:text>
+</xsl:template>
+<xsl:template match="po:outputVars">
+      <xsl:text>VAR_OUTPUT
+</xsl:text>
+      <xsl:apply-templates select="po:variable"/>
+      <xsl:text>END_VAR
+</xsl:text>
+</xsl:template>
+<xsl:template match="po:inOutVars">
+      <xsl:text>VAR_INOUT
+</xsl:text>
+      <xsl:apply-templates select="po:variable"/>
+      <xsl:text>END_VAR
+</xsl:text>
+</xsl:template>
+<xsl:template match="po:externalVars">
+      <xsl:text>VAR_EXTERNAL
+</xsl:text>
+      <xsl:apply-templates select="po:variable"/>
+      <xsl:text>END_VAR
+</xsl:text>
+</xsl:template>
+<xsl:template match="po:globalVars">
+      <xsl:text>VAR_GLOBAL
+</xsl:text>
+      <xsl:apply-templates select="po:variable"/>
+      <xsl:text>END_VAR
+</xsl:text>
+</xsl:template>
+
+<xsl:template match="po:variable">
+<xsl:text>    </xsl:text>
+<xsl:if test="@name">
+      <xsl:value-of select="@name"/>
+      <xsl:text>: </xsl:text>
+      <xsl:apply-templates select="po:type"/>
+      <xsl:text>;
+</xsl:text>
+</xsl:if>
+</xsl:template>
+
+<xsl:template match="po:type|po:baseType|po:returnType">
+      <xsl:if test="po:derived">
+	      <xsl:value-of select="po:derived/@name"/>
+      </xsl:if>
+      <xsl:if test="po:array">
+      	      <xsl:text>ARRAY [</xsl:text>
+	      <xsl:value-of select="po:array/dimension/@lower"/>
+      	      <xsl:text>..</xsl:text>
+	      <xsl:value-of select="po:array/dimension/@upper"/>
+      	      <xsl:text>] OF </xsl:text>
+	      <xsl:apply-templates select="po:baseType"/>
+      </xsl:if>
+      <xsl:if test="not(po:derived) and not(po:array) and not(po:struct)">
+	      <xsl:value-of select="name(*[1])"/>
+      </xsl:if>
+</xsl:template>
+
+
+<!--
+ | Implement the presentation of the different languages
+-->
+<xsl:template match="po:ST">
+      <xsl:text>~~~ST
+</xsl:text>
+      <xsl:value-of select="*[1]"/>
+      <xsl:text>
+~~~
+</xsl:text>
+</xsl:template>
+
+<xsl:template name="trim">
+        <xsl:param name="input"/>
+        <xsl:choose>
+                <xsl:when test="starts-with($input,' ')">
+                        <xsl:call-template name="trim">
+                                <xsl:with-param name="input" select="substring-after($input,' ')"/>
+                        </xsl:call-template>
+                </xsl:when>
+                <xsl:when test="substring($input, string-length($input) ) = ' ' ">
+                        <xsl:call-template name="trim">
+                                <xsl:with-param name="input" select="substring($input, 1,
+string-length($input)-1)"/>
+                        </xsl:call-template>
+                </xsl:when>
+                <xsl:otherwise>
+                        <xsl:value-of select="$input"/>
+                </xsl:otherwise>
+        </xsl:choose>
+</xsl:template>
+<!--
+ | Fetch and ignore rest
+-->
+<xsl:template match="*|@*">
+      <xsl:apply-templates select="*|@*"/>
+</xsl:template>
+
+</xsl:stylesheet>
+	
+
+