1

<?xml version="1.0"?>

     3

  <xsl:output method="xml"/>

     4

  <xsl:param name="tree"/>

     6

  <xsl:variable name="project">

     7

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

     8

  </xsl:variable>

     9

  <xsl:variable name="stdlib">

    10

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

    11

  </xsl:variable>

    12

  <xsl:variable name="extensions">

    13

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

    14

  </xsl:variable>

    15

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

    17

  </xsl:template>

    18

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

    20

  </xsl:template>

    21

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

    23

  </xsl:template>

    24

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

    25

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

    27

  </xsl:template>

    28

  <xsl:template name="variables_infos">

    29

    <xsl:param name="var_class"/>

    30

    <xsl:variable name="var_option">

    31

      <xsl:choose>

    32

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

    33

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

    34

        </xsl:when>

    35

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

    36

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

    37

        </xsl:when>

    38

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

    39

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

    40

        </xsl:when>

    41

      </xsl:choose>

    42

    </xsl:variable>

    43

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

    44

      <xsl:variable name="initial_value">

    46

      </xsl:variable>

    47

      <xsl:variable name="edit">

    48

        <xsl:choose>

    49

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

    50

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

    51

          </xsl:when>

    52

          <xsl:otherwise>

    54

          </xsl:otherwise>

    55

        </xsl:choose>

    56

      </xsl:variable>

    57

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

    59

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

    60

    </xsl:for-each>

    61

  </xsl:template>

    62

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

    63

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

    64

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

    65

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

    66

      </xsl:with-param>

    67

    </xsl:call-template>

    68

  </xsl:template>

    69

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

    70

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

    71

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

    72

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

    73

      </xsl:with-param>

    74

    </xsl:call-template>

    75

  </xsl:template>

    76

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

    77

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

    78

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

    79

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

    80

      </xsl:with-param>

    81

    </xsl:call-template>

    82

  </xsl:template>

    83

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

    84

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

    85

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

    86

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

    87

      </xsl:with-param>

    88

    </xsl:call-template>

    89

  </xsl:template>

    90

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

    91

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

    92

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

    93

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

    94

      </xsl:with-param>

    95

    </xsl:call-template>

    96

  </xsl:template>

    97

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

    98

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

    99

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

   100

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

   101

      </xsl:with-param>

   102

    </xsl:call-template>

   103

  </xsl:template>

   104

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

   105

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

   106

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

   107

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

   108

      </xsl:with-param>

   109

    </xsl:call-template>

   110

  </xsl:template>

   111

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

   113

  </xsl:template>

   114

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

   115

    <xsl:variable name="name">

   116

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

   117

    </xsl:variable>

   118

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

   120

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

   121

  </xsl:template>

   122

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

   124

  </xsl:template>

   125

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

   127

  </xsl:template>

   128

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

   129

    <xsl:variable name="type_name">

   130

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

   131

    </xsl:variable>

   132

    <xsl:choose>

   133

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

   135

      </xsl:when>

   136

    </xsl:choose>

   137

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

   138

  </xsl:template>

   139

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

   141

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

   142

      <xsl:variable name="lower">

   143

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

   144

      </xsl:variable>

   145

      <xsl:variable name="upper">

   146

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

   147

      </xsl:variable>

   148

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

   149

    </xsl:for-each>

   150

  </xsl:template>

   151

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

   152

    <xsl:variable name="name">

   153

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

   154

    </xsl:variable>

   155

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

   156

  </xsl:template>

   157

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

   158

    <xsl:variable name="name">

   159

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

   160

    </xsl:variable>

   161

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

   162

  </xsl:template>

   163

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

   164

    <xsl:variable name="name">

   165

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

   166

    </xsl:variable>

   167

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

   168

  </xsl:template>

   169

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

   170

    <xsl:variable name="type_name">

   171

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

   172

    </xsl:variable>

   173

    <xsl:variable name="pou_infos">

   174

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

   175

    </xsl:variable>

   176

    <xsl:choose>

   177

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

   178

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

   179

      </xsl:when>

   180

      <xsl:otherwise>

   181

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

   182

      </xsl:otherwise>

   183

    </xsl:choose>

   184

  </xsl:template>

   185

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

   186

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

   187

  </xsl:template>

   188

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

   189

    <xsl:choose>

   190

      <xsl:when test="@repetitionValue">

   191

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

   192

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

   194

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

   195

      </xsl:when>

   196

      <xsl:when test="@member">

   197

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

   198

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

   200

      </xsl:when>

   201

      <xsl:otherwise>

   203

      </xsl:otherwise>

   204

    </xsl:choose>

   205

  </xsl:template>

   206

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

   207

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

   208

  </xsl:template>

   209

  <xsl:template name="complex_type_value">

   210

    <xsl:param name="start_bracket"/>

   211

    <xsl:param name="end_bracket"/>

   212

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

   213

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

   215

      <xsl:choose>

   216

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

   217

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

   218

        </xsl:when>

   219

      </xsl:choose>

   220

    </xsl:for-each>

   221

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

   222

  </xsl:template>

   223

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

   224

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

   225

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

   226

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

   227

      </xsl:with-param>

   228

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

   229

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

   230

      </xsl:with-param>

   231

    </xsl:call-template>

   232

  </xsl:template>

   233

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

   234

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

   235

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

   236

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

   237

      </xsl:with-param>

   238

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

   239

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

   240

      </xsl:with-param>

   241

    </xsl:call-template>

   242

  </xsl:template>

   243

</xsl:stylesheet>