1

<?xml version="1.0"?>

     3

  <xsl:output method="xml"/>

     4

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

     5

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

     6

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

     7

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

     8

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

    12

  <xsl:template name="add_root">

    13

    <xsl:param name="class"/>

    14

    <xsl:param name="type"/>

    15

    <xsl:param name="edit">

    16

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

    17

    </xsl:param>

    18

    <xsl:param name="debug">

    19

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

    20

    </xsl:param>

    21

    <xsl:value-of select="ns:SetRoot($class, $type, $edit, $debug)"/>

    22

  </xsl:template>

    23

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

    24

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

    25

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

    26

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

    27

      </xsl:with-param>

    28

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

    29

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

    30

      </xsl:with-param>

    31

    </xsl:call-template>

    32

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

    33

    <xsl:apply-templates mode="variable_list" select="ppx:actions/ppx:action | ppx:transitions/ppx:transition"/>

    34

  </xsl:template>

    35

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

    36

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

    37

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

    38

        <xsl:text>action</xsl:text>

    39

      </xsl:with-param>

    40

    </xsl:call-template>

    41

    <xsl:apply-templates select="ancestor::ppx:pou/child::ppx:interface"/>

    42

  </xsl:template>

    43

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

    44

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

    45

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

    46

        <xsl:text>transition</xsl:text>

    47

      </xsl:with-param>

    48

    </xsl:call-template>

    49

    <xsl:apply-templates select="ancestor::ppx:pou/child::ppx:interface"/>

    50

  </xsl:template>

    51

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

    52

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

    53

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

    54

        <xsl:text>configuration</xsl:text>

    55

      </xsl:with-param>

    56

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

    57

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

    58

      </xsl:with-param>

    59

    </xsl:call-template>

    60

    <xsl:apply-templates mode="variable_list" select="ppx:resource"/>

    61

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

    62

  </xsl:template>

    63

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

    64

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

    65

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

    66

        <xsl:text>resource</xsl:text>

    67

      </xsl:with-param>

    68

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

    69

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

    70

      </xsl:with-param>

    71

    </xsl:call-template>

    72

    <xsl:apply-templates mode="variable_list" select="ppx:pouInstance | ppx:task/ppx:pouInstance"/>

    73

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

    74

  </xsl:template>

    75

  <xsl:template name="variables_infos">

    76

    <xsl:param name="var_class"/>

    77

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

    78

      <xsl:variable name="class">

    79

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

    80

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

    81

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

    82

          </xsl:with-param>

    83

        </xsl:apply-templates>

    84

      </xsl:variable>

    85

      <xsl:variable name="type">

    86

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

    87

      </xsl:variable>

    88

      <xsl:variable name="edit">

    89

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

    90

      </xsl:variable>

    91

      <xsl:variable name="debug">

    92

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

    93

      </xsl:variable>

    94

      <xsl:value-of select="ns:AddVariable(@name, $class, $type, $edit, $debug)"/>

    95

    </xsl:for-each>

    96

  </xsl:template>

    97

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

    98

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

    99

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

   100

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

   101

      </xsl:with-param>

   102

    </xsl:call-template>

   103

  </xsl:template>

   104

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

   105

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

   106

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

   107

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

   108

      </xsl:with-param>

   109

    </xsl:call-template>

   110

  </xsl:template>

   111

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

   112

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

   113

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

   114

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

   115

      </xsl:with-param>

   116

    </xsl:call-template>

   117

  </xsl:template>

   118

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

   119

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

   120

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

   121

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

   122

      </xsl:with-param>

   123

    </xsl:call-template>

   124

  </xsl:template>

   125

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

   126

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

   127

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

   128

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

   129

      </xsl:with-param>

   130

    </xsl:call-template>

   131

  </xsl:template>

   132

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

   133

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

   134

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

   135

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

   136

      </xsl:with-param>

   137

    </xsl:call-template>

   138

  </xsl:template>

   139

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

   140

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

   141

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

   142

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

   143

      </xsl:with-param>

   144

    </xsl:call-template>

   145

  </xsl:template>

   146

  <xsl:template name="add_variable">

   147

    <xsl:param name="name"/>

   148

    <xsl:param name="class"/>

   149

    <xsl:param name="type"/>

   150

    <xsl:param name="edit">

   151

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

   152

    </xsl:param>

   153

    <xsl:param name="debug">

   154

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

   155

    </xsl:param>

   156

    <xsl:value-of select="ns:AddVariable($name, $class, $type, $edit, $debug)"/>

   157

  </xsl:template>

   158

  <xsl:template mode="variable_list" match="ppx:action">

   159

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

   160

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

   161

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

   162

      </xsl:with-param>

   163

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

   164

        <xsl:text>action</xsl:text>

   165

      </xsl:with-param>

   166

    </xsl:call-template>

   167

  </xsl:template>

   168

  <xsl:template mode="variable_list" match="ppx:transition">

   169

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

   170

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

   171

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

   172

      </xsl:with-param>

   173

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

   174

        <xsl:text>transition</xsl:text>

   175

      </xsl:with-param>

   176

    </xsl:call-template>

   177

  </xsl:template>

   178

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

   179

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

   180

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

   181

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

   182

      </xsl:with-param>

   183

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

   184

        <xsl:text>resource</xsl:text>

   185

      </xsl:with-param>

   186

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

   187

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

   188

      </xsl:with-param>

   189

    </xsl:call-template>

   190

  </xsl:template>

   191

  <xsl:template mode="variable_list" match="ppx:pouInstance">

   192

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

   193

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

   194

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

   195

      </xsl:with-param>

   196

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

   197

        <xsl:text>program</xsl:text>

   198

      </xsl:with-param>

   199

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

   200

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

   201

      </xsl:with-param>

   202

    </xsl:call-template>

   203

  </xsl:template>

   204

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

   205

    <xsl:param name="default_class"/>

   206

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

   208

    <xsl:choose>

   211

      </xsl:when>

   212

      <xsl:otherwise>

   213

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

   214

      </xsl:otherwise>

   215

    </xsl:choose>

   216

  </xsl:template>

   217

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

   218

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

   219

  </xsl:template>

   220

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

   221

    <xsl:param name="default_class"/>

   222

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

   223

  </xsl:template>

   224

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

   225

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

   226

  </xsl:template>

   227

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

   228

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

   229

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

   230

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

   231

      <xsl:text>..</xsl:text>

   232

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

   233

    </xsl:for-each>

   234

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

   235

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

   236

  </xsl:template>

   237

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

   238

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

   239

  </xsl:template>

   240

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

   241

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

   242

  </xsl:template>

   243

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

   244

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

   245

  </xsl:template>

   246

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

   247

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

   249

    <xsl:choose>

   251

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

   252

      </xsl:when>

   253

      <xsl:otherwise>

   254

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

   255

      </xsl:otherwise>

   256

    </xsl:choose>

   257

  </xsl:template>

   258

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

   259

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

   260

  </xsl:template>

   261

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

   262

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

   263

  </xsl:template>

   264

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

   265

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

   267

    <xsl:choose>

   268

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

   270

      </xsl:when>

   271

      <xsl:otherwise>

   272

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

   273

      </xsl:otherwise>

   274

    </xsl:choose>

   275

  </xsl:template>

   276

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

   277

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

   278

  </xsl:template>

   279

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

   280

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

   281

  </xsl:template>

   282

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

   283

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

   284

  </xsl:template>

   285

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

   286

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

   287

  </xsl:template>

   288

</xsl:stylesheet>