1

<?xml version="1.0"?>

     2

<xsl:stylesheet xmlns:func="http://exslt.org/functions" xmlns:dyn="http://exslt.org/dynamic" xmlns:str="http://exslt.org/strings" xmlns:math="http://exslt.org/math" xmlns:exsl="http://exslt.org/common" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:yml="http://fdik.org/yml" xmlns:set="http://exslt.org/sets" xmlns:ppx="http://www.plcopen.org/xml/tc6_0201" xmlns:ns="var_infos_ns" xmlns:regexp="http://exslt.org/regular-expressions" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" extension-element-prefixes="ns" version="1.0" exclude-result-prefixes="ns">

     3

  <xsl:output method="xml"/>

     4

  <xsl:variable name="space" select="'                                                                                                                                                                                                        '"/>

     5

  <xsl:param name="autoindent" select="4"/>

     6

  <xsl:param name="tree"/>

     7

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

     8

    <xsl:param name="_indent" select="0"/>

     9

  </xsl:template>

    10

  <xsl:variable name="project">

    11

    <xsl:choose>

    12

      <xsl:when test="$tree='True'">

    13

        <xsl:copy-of select="document('project')/project/*"/>

    14

      </xsl:when>

    15

    </xsl:choose>

    16

  </xsl:variable>

    17

  <xsl:variable name="stdlib">

    18

    <xsl:choose>

    19

      <xsl:when test="$tree='True'">

    20

        <xsl:copy-of select="document('stdlib')/stdlib/*"/>

    21

      </xsl:when>

    22

    </xsl:choose>

    23

  </xsl:variable>

    24

  <xsl:variable name="extensions">

    25

    <xsl:choose>

    26

      <xsl:when test="$tree='True'">

    27

        <xsl:copy-of select="document('extensions')/extensions/*"/>

    28

      </xsl:when>

    29

    </xsl:choose>

    30

  </xsl:variable>

    31

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

    32

    <xsl:param name="_indent" select="0"/>

    33

    <xsl:value-of select="ns:AddTree()"/>

    34

    <xsl:apply-templates>

    35

      <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

    36

    </xsl:apply-templates>

    37

  </xsl:template>

    38

  <xsl:template name="variables_infos">

    39

    <xsl:param name="_indent" select="0"/>

    40

    <xsl:param name="var_class"/>

    41

    <xsl:variable name="var_option">

    42

      <xsl:choose>

    43

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

    44

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

    45

        </xsl:when>

    46

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

    47

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

    48

        </xsl:when>

    49

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

    50

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

    51

        </xsl:when>

    52

      </xsl:choose>

    53

    </xsl:variable>

    54

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

    55

      <xsl:variable name="initial_value">

    56

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

    57

          <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

    58

        </xsl:apply-templates>

    59

      </xsl:variable>

    60

      <xsl:variable name="edit">

    61

        <xsl:choose>

    62

          <xsl:when test="$var_class='Global' or $var_class='External'">

    63

            <xsl:text>true</xsl:text>

    64

          </xsl:when>

    65

          <xsl:otherwise>

    66

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

    67

              <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

    68

            </xsl:apply-templates>

    69

          </xsl:otherwise>

    70

        </xsl:choose>

    71

      </xsl:variable>

    72

      <xsl:value-of select="ns:AddTree()"/>

    73

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

    74

        <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

    75

      </xsl:apply-templates>

    76

      <xsl:value-of select="ns:AddVariable(@name, $var_class, $var_option, @address, $initial_value, $edit, ppx:documentation/xhtml:p/text())"/>

    77

    </xsl:for-each>

    78

  </xsl:template>

    79

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

    80

    <xsl:param name="_indent" select="0"/>

    81

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

    82

      <xsl:with-param name="var_class">

    83

        <xsl:text>Local</xsl:text>

    84

      </xsl:with-param>

    85

    </xsl:call-template>

    86

  </xsl:template>

    87

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

    88

    <xsl:param name="_indent" select="0"/>

    89

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

    90

      <xsl:with-param name="var_class">

    91

        <xsl:text>Global</xsl:text>

    92

      </xsl:with-param>

    93

    </xsl:call-template>

    94

  </xsl:template>

    95

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

    96

    <xsl:param name="_indent" select="0"/>

    97

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

    98

      <xsl:with-param name="var_class">

    99

        <xsl:text>External</xsl:text>

   100

      </xsl:with-param>

   101

    </xsl:call-template>

   102

  </xsl:template>

   103

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

   104

    <xsl:param name="_indent" select="0"/>

   105

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

   106

      <xsl:with-param name="var_class">

   107

        <xsl:text>Temp</xsl:text>

   108

      </xsl:with-param>

   109

    </xsl:call-template>

   110

  </xsl:template>

   111

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

   112

    <xsl:param name="_indent" select="0"/>

   113

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

   114

      <xsl:with-param name="var_class">

   115

        <xsl:text>Input</xsl:text>

   116

      </xsl:with-param>

   117

    </xsl:call-template>

   118

  </xsl:template>

   119

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

   120

    <xsl:param name="_indent" select="0"/>

   121

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

   122

      <xsl:with-param name="var_class">

   123

        <xsl:text>Output</xsl:text>

   124

      </xsl:with-param>

   125

    </xsl:call-template>

   126

  </xsl:template>

   127

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

   128

    <xsl:param name="_indent" select="0"/>

   129

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

   130

      <xsl:with-param name="var_class">

   131

        <xsl:text>InOut</xsl:text>

   132

      </xsl:with-param>

   133

    </xsl:call-template>

   134

  </xsl:template>

   135

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

   136

    <xsl:param name="_indent" select="0"/>

   137

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

   138

      <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   139

    </xsl:apply-templates>

   140

  </xsl:template>

   141

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

   142

    <xsl:param name="_indent" select="0"/>

   143

    <xsl:variable name="name">

   144

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

   145

    </xsl:variable>

   146

    <xsl:value-of select="ns:AddTree($name)"/>

   147

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

   148

      <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   149

    </xsl:apply-templates>

   150

    <xsl:value-of select="ns:AddVarToTree($name)"/>

   151

  </xsl:template>

   152

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

   153

    <xsl:param name="_indent" select="0"/>

   154

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

   155

      <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   156

    </xsl:apply-templates>

   157

  </xsl:template>

   158

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

   159

    <xsl:param name="_indent" select="0"/>

   160

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

   161

      <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   162

    </xsl:apply-templates>

   163

  </xsl:template>

   164

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

   165

    <xsl:param name="_indent" select="0"/>

   166

    <xsl:variable name="type_name">

   167

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

   168

    </xsl:variable>

   169

    <xsl:choose>

   170

      <xsl:when test="$tree='True'">

   171

        <xsl:apply-templates select="exsl:node-set($project)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] |&#10;                         exsl:node-set($project)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name] |&#10;                         exsl:node-set($stdlib)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] |&#10;                         exsl:node-set($stdlib)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name] |&#10;                         exsl:node-set($extensions)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] |&#10;                         exsl:node-set($extensions)/ppx:project/ppx:types/ppx:dataTypes/ppx:dataType[@name=$type_name]">

   172

          <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   173

        </xsl:apply-templates>

   174

      </xsl:when>

   175

    </xsl:choose>

   176

    <xsl:value-of select="ns:SetType($type_name)"/>

   177

  </xsl:template>

   178

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

   179

    <xsl:param name="_indent" select="0"/>

   180

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

   181

      <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   182

    </xsl:apply-templates>

   183

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

   184

      <xsl:value-of select="ns:AddDimension(@lower, @upper)"/>

   185

    </xsl:for-each>

   186

  </xsl:template>

   187

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

   188

    <xsl:param name="_indent" select="0"/>

   189

    <xsl:variable name="name">

   190

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

   191

    </xsl:variable>

   192

    <xsl:value-of select="ns:SetType($name)"/>

   193

  </xsl:template>

   194

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

   195

    <xsl:param name="_indent" select="0"/>

   196

    <xsl:variable name="name">

   197

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

   198

    </xsl:variable>

   199

    <xsl:value-of select="ns:SetType($name)"/>

   200

  </xsl:template>

   201

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

   202

    <xsl:param name="_indent" select="0"/>

   203

    <xsl:variable name="name">

   204

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

   205

    </xsl:variable>

   206

    <xsl:value-of select="ns:SetType($name)"/>

   207

  </xsl:template>

   208

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

   209

    <xsl:param name="_indent" select="0"/>

   210

    <xsl:variable name="type_name" select="@name"/>

   211

    <xsl:variable name="pou_infos">

   212

      <xsl:copy-of select="exsl:node-set($project)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] |&#10;                    exsl:node-set($stdlib)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] |&#10;                    exsl:node-set($extensions)/ppx:project/ppx:types/ppx:pous/ppx:pou[@name=$type_name]"/>

   213

    </xsl:variable>

   214

    <xsl:choose>

   215

      <xsl:when test="$pou_infos != ''">

   216

        <xsl:text>false</xsl:text>

   217

      </xsl:when>

   218

      <xsl:otherwise>

   219

        <xsl:text>true</xsl:text>

   220

      </xsl:otherwise>

   221

    </xsl:choose>

   222

  </xsl:template>

   223

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

   224

    <xsl:param name="_indent" select="0"/>

   225

    <xsl:text>true</xsl:text>

   226

  </xsl:template>

   227

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

   228

    <xsl:param name="_indent" select="0"/>

   229

    <xsl:choose>

   230

      <xsl:when test="@repetitionValue">

   231

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

   232

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

   233

        <xsl:apply-templates>

   234

          <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   235

        </xsl:apply-templates>

   236

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

   237

      </xsl:when>

   238

      <xsl:when test="@member">

   239

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

   240

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

   241

        <xsl:apply-templates>

   242

          <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   243

        </xsl:apply-templates>

   244

      </xsl:when>

   245

      <xsl:otherwise>

   246

        <xsl:apply-templates>

   247

          <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   248

        </xsl:apply-templates>

   249

      </xsl:otherwise>

   250

    </xsl:choose>

   251

  </xsl:template>

   252

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

   253

    <xsl:param name="_indent" select="0"/>

   254

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

   255

  </xsl:template>

   256

  <xsl:template name="complex_type_value">

   257

    <xsl:param name="_indent" select="0"/>

   258

    <xsl:param name="start_bracket"/>

   259

    <xsl:param name="end_bracket"/>

   260

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

   261

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

   262

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

   263

        <xsl:with-param name="_indent" select="$_indent + (1) * $autoindent"/>

   264

      </xsl:apply-templates>

   265

      <xsl:choose>

   266

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

   267

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

   268

        </xsl:when>

   269

      </xsl:choose>

   270

    </xsl:for-each>

   271

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

   272

  </xsl:template>

   273

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

   274

    <xsl:param name="_indent" select="0"/>

   275

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

   276

      <xsl:with-param name="start_bracket">

   277

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

   278

      </xsl:with-param>

   279

      <xsl:with-param name="end_bracket">

   280

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

   281

      </xsl:with-param>

   282

    </xsl:call-template>

   283

  </xsl:template>

   284

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

   285

    <xsl:param name="_indent" select="0"/>

   286

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

   287

      <xsl:with-param name="start_bracket">

   288

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

   289

      </xsl:with-param>

   290

      <xsl:with-param name="end_bracket">

   291

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

   292

      </xsl:with-param>

   293

    </xsl:call-template>

   294

  </xsl:template>

   295

</xsl:stylesheet>