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:configuration">

    32

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

    33

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

    34

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

    35

    </xsl:apply-templates>

    36

  </xsl:template>

    37

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

    38

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

    39

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

    40

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

    41

    </xsl:apply-templates>

    42

  </xsl:template>

    43

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

    44

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

    45

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

    46

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

    47

    </xsl:apply-templates>

    48

  </xsl:template>

    49

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

    50

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

    51

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

    52

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

    53

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

    54

    </xsl:apply-templates>

    55

  </xsl:template>

    56

  <xsl:template name="variables_infos">

    57

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

    58

    <xsl:param name="var_class"/>

    59

    <xsl:variable name="var_option">

    60

      <xsl:choose>

    61

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

    62

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

    63

        </xsl:when>

    64

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

    65

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

    66

        </xsl:when>

    67

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

    68

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

    69

        </xsl:when>

    70

      </xsl:choose>

    71

    </xsl:variable>

    72

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

    73

      <xsl:variable name="initial_value">

    74

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

    75

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

    76

        </xsl:apply-templates>

    77

      </xsl:variable>

    78

      <xsl:variable name="edit">

    79

        <xsl:choose>

    80

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

    81

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

    82

          </xsl:when>

    83

          <xsl:otherwise>

    84

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

    85

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

    86

            </xsl:apply-templates>

    87

          </xsl:otherwise>

    88

        </xsl:choose>

    89

      </xsl:variable>

    90

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

    91

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

    92

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

    93

      </xsl:apply-templates>

    94

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

    95

    </xsl:for-each>

    96

  </xsl:template>

    97

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

    98

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

    99

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

   100

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

   101

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

   102

      </xsl:with-param>

   103

    </xsl:call-template>

   104

  </xsl:template>

   105

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

   106

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

   107

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

   108

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

   109

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

   110

      </xsl:with-param>

   111

    </xsl:call-template>

   112

  </xsl:template>

   113

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

   114

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

   115

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

   116

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

   117

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

   118

      </xsl:with-param>

   119

    </xsl:call-template>

   120

  </xsl:template>

   121

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

   122

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

   123

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

   124

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

   125

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

   126

      </xsl:with-param>

   127

    </xsl:call-template>

   128

  </xsl:template>

   129

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

   130

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

   131

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

   132

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

   133

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

   134

      </xsl:with-param>

   135

    </xsl:call-template>

   136

  </xsl:template>

   137

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

   138

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

   139

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

   140

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

   141

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

   142

      </xsl:with-param>

   143

    </xsl:call-template>

   144

  </xsl:template>

   145

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

   146

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

   147

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

   148

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

   149

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

   150

      </xsl:with-param>

   151

    </xsl:call-template>

   152

  </xsl:template>

   153

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

   154

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

   155

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

   156

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

   157

    </xsl:apply-templates>

   158

  </xsl:template>

   159

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

   160

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

   161

    <xsl:variable name="name">

   162

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

   163

    </xsl:variable>

   164

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

   165

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

   166

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

   167

    </xsl:apply-templates>

   168

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

   169

  </xsl:template>

   170

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

   171

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

   172

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

   173

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

   174

    </xsl:apply-templates>

   175

  </xsl:template>

   176

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

   177

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

   178

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

   179

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

   180

    </xsl:apply-templates>

   181

  </xsl:template>

   182

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

   183

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

   184

    <xsl:variable name="type_name">

   185

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

   186

    </xsl:variable>

   187

    <xsl:choose>

   188

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

   189

        <xsl:apply-templates mode="var_type" 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]">

   190

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

   191

        </xsl:apply-templates>

   192

      </xsl:when>

   193

    </xsl:choose>

   194

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

   195

  </xsl:template>

   196

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

   197

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

   198

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

   199

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

   200

    </xsl:apply-templates>

   201

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

   202

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

   203

    </xsl:for-each>

   204

  </xsl:template>

   205

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

   206

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

   207

    <xsl:variable name="name">

   208

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

   209

    </xsl:variable>

   210

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

   211

  </xsl:template>

   212

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

   213

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

   214

    <xsl:variable name="name">

   215

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

   216

    </xsl:variable>

   217

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

   218

  </xsl:template>

   219

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

   220

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

   221

    <xsl:variable name="name">

   222

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

   223

    </xsl:variable>

   224

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

   225

  </xsl:template>

   226

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

   227

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

   228

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

   229

    <xsl:variable name="pou_infos">

   230

      <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]"/>

   231

    </xsl:variable>

   232

    <xsl:choose>

   233

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

   234

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

   235

      </xsl:when>

   236

      <xsl:otherwise>

   237

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

   238

      </xsl:otherwise>

   239

    </xsl:choose>

   240

  </xsl:template>

   241

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

   242

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

   243

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

   244

  </xsl:template>

   245

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

   246

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

   247

    <xsl:choose>

   248

      <xsl:when test="@repetitionValue">

   249

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

   250

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

   251

        <xsl:apply-templates>

   252

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

   253

        </xsl:apply-templates>

   254

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

   255

      </xsl:when>

   256

      <xsl:when test="@member">

   257

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

   258

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

   259

        <xsl:apply-templates>

   260

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

   261

        </xsl:apply-templates>

   262

      </xsl:when>

   263

      <xsl:otherwise>

   264

        <xsl:apply-templates>

   265

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

   266

        </xsl:apply-templates>

   267

      </xsl:otherwise>

   268

    </xsl:choose>

   269

  </xsl:template>

   270

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

   271

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

   272

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

   273

  </xsl:template>

   274

  <xsl:template name="complex_type_value">

   275

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

   276

    <xsl:param name="start_bracket"/>

   277

    <xsl:param name="end_bracket"/>

   278

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

   279

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

   280

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

   281

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

   282

      </xsl:apply-templates>

   283

      <xsl:choose>

   284

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

   285

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

   286

        </xsl:when>

   287

      </xsl:choose>

   288

    </xsl:for-each>

   289

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

   290

  </xsl:template>

   291

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

   292

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

   293

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

   294

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

   295

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

   296

      </xsl:with-param>

   297

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

   298

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

   299

      </xsl:with-param>

   300

    </xsl:call-template>

   301

  </xsl:template>

   302

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

   303

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

   304

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

   305

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

   306

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

   307

      </xsl:with-param>

   308

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

   309

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

   310

      </xsl:with-param>

   311

    </xsl:call-template>

   312

  </xsl:template>

   313

</xsl:stylesheet>