1

<?xml version="1.0"?>

     2

<xsl:stylesheet xmlns:exsl="http://exslt.org/common" xmlns:xhtml="http://www.w3.org/1999/xhtml" xmlns:ppx="http://www.plcopen.org/xml/tc6_0201" xmlns:ns="beremiz" 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:param name="tree"/>

     5

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

     6

  <xsl:variable name="project" select="ns:GetProject()"/>

     7

  <xsl:variable name="stdlib" select="ns:GetStdLibs()"/>

     8

  <xsl:variable name="extensions" select="ns:GetExtensions()"/>

     9

  <xsl:variable name="all_types" select="($project | $stdlib | $extensions)/ppx:types"/>

    10

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

    11

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

    12

  </xsl:template>

    13

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

    14

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

    15

  </xsl:template>

    16

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

    17

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

    18

  </xsl:template>

    19

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

    20

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

    21

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

    22

  </xsl:template>

    23

  <xsl:template name="variables_infos">

    24

    <xsl:param name="var_class"/>

    25

    <xsl:variable name="var_option">

    26

      <xsl:choose>

    27

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

    28

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

    29

        </xsl:when>

    30

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

    31

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

    32

        </xsl:when>

    33

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

    34

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

    35

        </xsl:when>

    36

      </xsl:choose>

    37

    </xsl:variable>

    38

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

    39

      <xsl:variable name="initial_value">

    40

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

    41

      </xsl:variable>

    42

      <xsl:variable name="edit">

    43

        <xsl:choose>

    44

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

    45

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

    46

          </xsl:when>

    47

          <xsl:otherwise>

    48

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

    49

          </xsl:otherwise>

    50

        </xsl:choose>

    51

      </xsl:variable>

    52

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

    53

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

    54

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

    55

    </xsl:for-each>

    56

  </xsl:template>

    57

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

    58

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

    59

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

    60

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

    61

      </xsl:with-param>

    62

    </xsl:call-template>

    63

  </xsl:template>

    64

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

    65

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

    66

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

    67

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

    68

      </xsl:with-param>

    69

    </xsl:call-template>

    70

  </xsl:template>

    71

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

    72

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

    73

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

    74

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

    75

      </xsl:with-param>

    76

    </xsl:call-template>

    77

  </xsl:template>

    78

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

    79

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

    80

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

    81

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

    82

      </xsl:with-param>

    83

    </xsl:call-template>

    84

  </xsl:template>

    85

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

    86

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

    87

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

    88

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

    89

      </xsl:with-param>

    90

    </xsl:call-template>

    91

  </xsl:template>

    92

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

    93

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

    94

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

    95

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

    96

      </xsl:with-param>

    97

    </xsl:call-template>

    98

  </xsl:template>

    99

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

   100

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

   101

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

   102

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

   103

      </xsl:with-param>

   104

    </xsl:call-template>

   105

  </xsl:template>

   106

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

   107

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

   108

  </xsl:template>

   109

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

   110

    <xsl:variable name="name">

   111

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

   112

    </xsl:variable>

   113

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

   114

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

   115

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

   116

  </xsl:template>

   117

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

   118

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

   119

  </xsl:template>

   120

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

   121

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

   122

  </xsl:template>

   123

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

   124

    <xsl:variable name="type_name">

   125

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

   126

    </xsl:variable>

   127

    <xsl:choose>

   128

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

   129

        <xsl:apply-templates mode="var_type" select="$all_types/ppx:pous/ppx:pou[@name=$type_name] |                          $all_types/ppx:dataTypes/ppx:dataType[@name=$type_name]"/>

   130

      </xsl:when>

   131

    </xsl:choose>

   132

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

   133

  </xsl:template>

   134

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

   135

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

   136

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

   137

      <xsl:variable name="lower">

   138

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

   139

      </xsl:variable>

   140

      <xsl:variable name="upper">

   141

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

   142

      </xsl:variable>

   143

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

   144

    </xsl:for-each>

   145

  </xsl:template>

   146

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

   147

    <xsl:variable name="name">

   148

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

   149

    </xsl:variable>

   150

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

   151

  </xsl:template>

   152

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

   153

    <xsl:variable name="name">

   154

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

   155

    </xsl:variable>

   156

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

   157

  </xsl:template>

   158

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

   159

    <xsl:variable name="name">

   160

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

   161

    </xsl:variable>

   162

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

   163

  </xsl:template>

   164

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

   165

    <xsl:variable name="type_name">

   166

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

   167

    </xsl:variable>

   168

    <xsl:variable name="pou_infos" select="$all_types/ppx:pous/ppx:pou[@name=$type_name]"/>

   169

    <xsl:choose>

   170

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

   171

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

   172

      </xsl:when>

   173

      <xsl:otherwise>

   174

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

   175

      </xsl:otherwise>

   176

    </xsl:choose>

   177

  </xsl:template>

   178

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

   179

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

   180

  </xsl:template>

   181

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

   182

    <xsl:choose>

   183

      <xsl:when test="@repetitionValue">

   184

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

   185

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

   186

        <xsl:apply-templates/>

   187

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

   188

      </xsl:when>

   189

      <xsl:when test="@member">

   190

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

   191

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

   192

        <xsl:apply-templates/>

   193

      </xsl:when>

   194

      <xsl:otherwise>

   195

        <xsl:apply-templates/>

   196

      </xsl:otherwise>

   197

    </xsl:choose>

   198

  </xsl:template>

   199

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

   200

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

   201

  </xsl:template>

   202

  <xsl:template name="complex_type_value">

   203

    <xsl:param name="start_bracket"/>

   204

    <xsl:param name="end_bracket"/>

   205

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

   206

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

   207

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

   208

      <xsl:choose>

   209

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

   210

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

   211

        </xsl:when>

   212

      </xsl:choose>

   213

    </xsl:for-each>

   214

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

   215

  </xsl:template>

   216

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

   217

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

   218

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

   219

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

   220

      </xsl:with-param>

   221

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

   222

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

   223

      </xsl:with-param>

   224

    </xsl:call-template>

   225

  </xsl:template>

   226

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

   227

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

   228

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

   229

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

   230

      </xsl:with-param>

   231

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

   232

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

   233

      </xsl:with-param>

   234

    </xsl:call-template>

   235

  </xsl:template>

   236

</xsl:stylesheet>