1

<xsl:stylesheet version="1.0"

     2

    xmlns:xsl="http://www.w3.org/1999/XSL/Transform"

     3

    xmlns:ppx="http://www.plcopen.org/xml/tc6_0201"

     4

    xmlns:xhtml="http://www.w3.org/1999/xhtml"

     5

    xmlns:ns="var_infos_ns"

     6

    extension-element-prefixes="ns"

     7

    exclude-result-prefixes="ns">

     8

  <xsl:template match="ppx:returnType">

     9

    <ReturnType>

    10

      <Type><xsl:apply-templates/></Type>

    11

      <Tree><xsl:apply-templates mode="var_tree"/></Tree>

    12

    </ReturnType>

    13

  </xsl:template>

    14

  <xsl:template match="ppx:localVars">

    15

    <xsl:call-template name="variables_infos">

    16

      <xsl:with-param name="var_class" select="'Local'"/>

    17

    </xsl:call-template>

    18

  </xsl:template>

    19

  <xsl:template match="ppx:globalVars">

    20

    <xsl:call-template name="variables_infos">

    21

      <xsl:with-param name="var_class" select="'Global'"/>

    22

    </xsl:call-template>

    23

  </xsl:template>

    24

  <xsl:template match="ppx:externalVars">

    25

    <xsl:call-template name="variables_infos">

    26

      <xsl:with-param name="var_class" select="'External'"/>

    27

    </xsl:call-template>

    28

  </xsl:template>

    29

  <xsl:template match="ppx:tempVars">

    30

    <xsl:call-template name="variables_infos">

    31

      <xsl:with-param name="var_class" select="'Temp'"/>

    32

    </xsl:call-template>

    33

  </xsl:template>

    34

  <xsl:template match="ppx:inputVars">

    35

    <xsl:call-template name="variables_infos">

    36

      <xsl:with-param name="var_class" select="'Input'"/>

    37

    </xsl:call-template>

    38

  </xsl:template>

    39

  <xsl:template match="ppx:outputVars">

    40

    <xsl:call-template name="variables_infos">

    41

      <xsl:with-param name="var_class" select="'Output'"/>

    42

    </xsl:call-template>

    43

  </xsl:template>

    44

  <xsl:template match="ppx:inOutVars">

    45

    <xsl:call-template name="variables_infos">

    46

      <xsl:with-param name="var_class" select="'InOut'"/>

    47

    </xsl:call-template>

    48

  </xsl:template>

    49

  <xsl:template name="variables_infos">

    50

    <xsl:param name="var_class"/>

    51

    <xsl:variable name="var_option">

    52

      <xsl:choose>

    53

        <xsl:when test="@constant='true' or @constant='1'">

    54

          <xsl:text>Constant</xsl:text>

    55

        </xsl:when>

    56

        <xsl:when test="@retain='true' or @retain='1'">

    57

          <xsl:text>Retain</xsl:text>

    58

        </xsl:when>

    59

        <xsl:when test="@nonretain='true' or @nonretain='1'">

    60

          <xsl:text>Non-Retain</xsl:text>

    61

        </xsl:when>

    62

      </xsl:choose>

    63

    </xsl:variable>

    64

    <xsl:for-each select="ppx:variable">

    65

      <ns:add_variable>

    66

        <Name><xsl:value-of select="@name"/></Name>

    67

        <Class><xsl:value-of select="$var_class"/></Class>

    68

        <Type><xsl:apply-templates select="ppx:type"/></Type>

    69

        <Option><xsl:value-of select="$var_option"/></Option>

    70

        <Location><xsl:value-of select="@address"/></Location>

    71

        <Initial_Value><xsl:apply-templates select="ppx:initialValue"/></Initial_Value>

    72

        <Edit><xsl:apply-templates select="ppx:type" mode="var_edit"/></Edit>

    73

        <Tree><xsl:apply-templates select="ppx:type" mode="var_tree"/></Tree>

    74

        <Documentation>

    75

          <xsl:value-of select="ppx:documentation/xhtml:p/text()"/>

    76

        </Documentation>

    77

      </ns:add_variable>

    78

    </xsl:for-each>

    79

  </xsl:template>

    80

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:derived">

    81

    <xsl:value-of select="@name"/>

    82

  </xsl:template>

    83

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:array">

    84

    <array>

    85

      <xsl:apply-templates select="ppx:baseType"/>

    86

      <xsl:for-each select="ppx:dimension">

    87

        <dimension>

    88

          <xsl:attribute name="lower">

    89

            <xsl:value-of select="@lower"/>

    90

          </xsl:attribute>

    91

          <xsl:attribute name="upper">

    92

            <xsl:value-of select="@upper"/>

    93

          </xsl:attribute>

    94

        </dimension>

    95

      </xsl:for-each>

    96

    </array>

    97

  </xsl:template>

    98

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:string">

    99

    <xsl:text>STRING</xsl:text>

   100

  </xsl:template>

   101

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:wstring">

   102

    <xsl:text>WSTRING</xsl:text>

   103

  </xsl:template>

   104

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/*">

   105

    <xsl:value-of select="local-name()"/>

   106

  </xsl:template>

   107

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:derived" mode="var_edit">

   108

    <ns:is_edited/>

   109

  </xsl:template>

   110

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/*" mode="var_edit">

   111

    <xsl:text>True</xsl:text>

   112

  </xsl:template>

   113

  <xsl:template match="ppx:initialValue">

   114

    <xsl:apply-templates/>

   115

  </xsl:template>

   116

  <xsl:template match="ppx:value">

   117

    <xsl:choose>

   118

      <xsl:when test="@repetitionValue">

   119

        <xsl:value-of select="@repetitionValue"/>

   120

        <xsl:text>(</xsl:text>

   121

        <xsl:apply-templates/>

   122

        <xsl:text>)</xsl:text>

   123

      </xsl:when>

   124

      <xsl:when test="@member">

   125

        <xsl:value-of select="@member"/>

   126

        <xsl:text> := </xsl:text>

   127

        <xsl:apply-templates/>

   128

      </xsl:when>

   129

      <xsl:otherwise>

   130

        <xsl:apply-templates/>

   131

      </xsl:otherwise>

   132

    </xsl:choose>

   133

  </xsl:template>

   134

  <xsl:template match="ppx:simpleValue">

   135

    <xsl:value-of select="@value"/>

   136

  </xsl:template>

   137

  <xsl:template match="ppx:arrayValue">

   138

    <xsl:text>[</xsl:text>

   139

    <xsl:for-each select="ppx:value">

   140

      <xsl:apply-templates select="."/>

   141

      <xsl:choose>

   142

        <xsl:when test="position()!=last()">

   143

          <xsl:text>, </xsl:text>

   144

        </xsl:when>

   145

      </xsl:choose>

   146

    </xsl:for-each>

   147

    <xsl:text>]</xsl:text>

   148

  </xsl:template>

   149

  <xsl:template match="ppx:structValue">

   150

    <xsl:text>(</xsl:text>

   151

    <xsl:for-each select="ppx:value">

   152

      <xsl:apply-templates select="."/>

   153

      <xsl:choose>

   154

        <xsl:when test="position()!=last()">

   155

          <xsl:text>, </xsl:text>

   156

        </xsl:when>

   157

      </xsl:choose>

   158

    </xsl:for-each>

   159

    <xsl:text>)</xsl:text>

   160

  </xsl:template>

   161

  <xsl:template match="ppx:pou" mode="var_tree">

   162

    <xsl:apply-templates select="ppx:interface/*[self::ppx:inputVars or self::ppx:inOutVars or self::ppx:outputVars]/ppx:variable" mode="var_tree"/>

   163

  </xsl:template>

   164

  <xsl:template match="ppx:variable" mode="var_tree">

   165

    <var>

   166

      <xsl:attribute name="name">

   167

        <xsl:value-of select="@name"/>

   168

      </xsl:attribute>

   169

      <xsl:apply-templates select="ppx:type" mode="var_tree"/>

   170

    </var>

   171

  </xsl:template>

   172

  <xsl:template match="ppx:dataType">

   173

    <xsl:apply-templates select="ppx:baseType" mode="var_tree"/>

   174

  </xsl:template>

   175

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:struct" mode="var_tree">

   176

    <xsl:apply-templates select="ppx:variable" mode="var_tree"/>

   177

  </xsl:template>

   178

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:derived" mode="var_tree">

   179

    <ns:var_tree/>

   180

    <xsl:choose>

   181

      <xsl:when test="count(./*) > 0">

   182

        <xsl:apply-templates mode="var_tree"/>

   183

      </xsl:when>

   184

      <xsl:otherwise>

   185

        <xsl:value-of select="@name"/>

   186

      </xsl:otherwise>

   187

    </xsl:choose>

   188

  </xsl:template>

   189

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:array" mode="var_tree">

   190

    <xsl:apply-templates select="ppx:baseType" mode="var_tree"/>

   191

    <xsl:for-each select="ppx:dimension">

   192

      <dimension>

   193

        <xsl:attribute name="lower">

   194

          <xsl:value-of select="@lower"/>

   195

        </xsl:attribute>

   196

        <xsl:attribute name="upper">

   197

          <xsl:value-of select="@upper"/>

   198

        </xsl:attribute>

   199

      </dimension>

   200

    </xsl:for-each>

   201

  </xsl:template>

   202

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:string" mode="var_tree">

   203

    <xsl:text>STRING</xsl:text>

   204

  </xsl:template>

   205

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:wstring" mode="var_tree">

   206

    <xsl:text>WSTRING</xsl:text>

   207

  </xsl:template>

   208

  <xsl:template match="*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/*" mode="var_tree">

   209

    <xsl:value-of select="local-name()"/>

   210

  </xsl:template>

   211

  <xsl:template match="text()"/>

   212

  <xsl:template match="text()" mode="var_tree"/>

   213

</xsl:stylesheet>