1

<?xml version="1.0"?>

     2

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

     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()"/>

     9

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

    10

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

    11

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

    12

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

    13

  <xsl:template name="add_root">

    14

    <xsl:param name="class"/>

    15

    <xsl:param name="type"/>

    16

    <xsl:param name="edit">

    17

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

    18

    </xsl:param>

    19

    <xsl:param name="debug">

    20

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

    21

    </xsl:param>

    22

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

    23

  </xsl:template>

    24

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

    25

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

    26

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

    27

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

    28

      </xsl:with-param>

    29

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

    30

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

    31

      </xsl:with-param>

    32

    </xsl:call-template>

    33

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

    34

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

    35

  </xsl:template>

    36

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

    37

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

    38

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

    39

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

    40

      </xsl:with-param>

    41

    </xsl:call-template>

    42

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

    43

  </xsl:template>

    44

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

    45

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

    46

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

    47

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

    48

      </xsl:with-param>

    49

    </xsl:call-template>

    50

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

    51

  </xsl:template>

    52

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

    53

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

    54

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

    55

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

    56

      </xsl:with-param>

    57

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

    58

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

    59

      </xsl:with-param>

    60

    </xsl:call-template>

    61

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

    62

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

    63

  </xsl:template>

    64

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

    65

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

    66

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

    67

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

    68

      </xsl:with-param>

    69

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

    70

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

    71

      </xsl:with-param>

    72

    </xsl:call-template>

    73

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

    74

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

    75

  </xsl:template>

    76

  <xsl:template name="variables_infos">

    77

    <xsl:param name="var_class"/>

    78

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

    79

      <xsl:variable name="class">

    80

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

    81

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

    82

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

    83

          </xsl:with-param>

    84

        </xsl:apply-templates>

    85

      </xsl:variable>

    86

      <xsl:variable name="type">

    87

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

    88

      </xsl:variable>

    89

      <xsl:variable name="edit">

    90

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

    91

      </xsl:variable>

    92

      <xsl:variable name="debug">

    93

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

    94

      </xsl:variable>

    95

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

    96

    </xsl:for-each>

    97

  </xsl:template>

    98

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

    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:call-template name="variables_infos">

   107

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

   108

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

   109

      </xsl:with-param>

   110

    </xsl:call-template>

   111

  </xsl:template>

   112

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

   113

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

   114

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

   115

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

   116

      </xsl:with-param>

   117

    </xsl:call-template>

   118

  </xsl:template>

   119

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

   120

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

   121

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

   122

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

   123

      </xsl:with-param>

   124

    </xsl:call-template>

   125

  </xsl:template>

   126

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

   127

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

   128

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

   129

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

   130

      </xsl:with-param>

   131

    </xsl:call-template>

   132

  </xsl:template>

   133

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

   134

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

   135

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

   136

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

   137

      </xsl:with-param>

   138

    </xsl:call-template>

   139

  </xsl:template>

   140

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

   141

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

   142

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

   143

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

   144

      </xsl:with-param>

   145

    </xsl:call-template>

   146

  </xsl:template>

   147

  <xsl:template name="add_variable">

   148

    <xsl:param name="name"/>

   149

    <xsl:param name="class"/>

   150

    <xsl:param name="type"/>

   151

    <xsl:param name="edit">

   152

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

   153

    </xsl:param>

   154

    <xsl:param name="debug">

   155

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

   156

    </xsl:param>

   157

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

   158

  </xsl:template>

   159

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

   160

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

   161

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

   162

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

   163

      </xsl:with-param>

   164

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

   165

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

   166

      </xsl:with-param>

   167

    </xsl:call-template>

   168

  </xsl:template>

   169

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

   170

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

   171

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

   172

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

   173

      </xsl:with-param>

   174

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

   175

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

   176

      </xsl:with-param>

   177

    </xsl:call-template>

   178

  </xsl:template>

   179

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

   180

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

   181

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

   182

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

   183

      </xsl:with-param>

   184

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

   185

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

   186

      </xsl:with-param>

   187

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

   188

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

   189

      </xsl:with-param>

   190

    </xsl:call-template>

   191

  </xsl:template>

   192

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

   193

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

   194

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

   195

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

   196

      </xsl:with-param>

   197

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

   198

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

   199

      </xsl:with-param>

   200

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

   201

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

   202

      </xsl:with-param>

   203

    </xsl:call-template>

   204

  </xsl:template>

   209

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

   210

    <xsl:param name="default_class"/>

   211

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

   212

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

   213

    <xsl:choose>

   214

      <xsl:when test="$pou_infos">

   215

        <xsl:apply-templates mode="var_class" select="$pou_infos"/>

   216

      </xsl:when>

   217

      <xsl:otherwise>

   218

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

   219

      </xsl:otherwise>

   220

    </xsl:choose>

   221

  </xsl:template>

   222

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

   223

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

   224

  </xsl:template>

   227

  </xsl:template>

   228

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

   229

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

   230

  </xsl:template>

   231

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

   232

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

   233

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

   234

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

   235

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

   236

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

   237

    </xsl:for-each>

   238

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

   239

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

   240

  </xsl:template>

   241

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

   242

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

   243

  </xsl:template>

   244

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

   245

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

   246

  </xsl:template>

   249

  </xsl:template>

   250

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

   251

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

   252

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

   253

    <xsl:choose>

   254

      <xsl:when test="$pou_infos">

   255

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

   256

      </xsl:when>

   257

      <xsl:otherwise>

   258

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

   259

      </xsl:otherwise>

   260

    </xsl:choose>

   261

  </xsl:template>

   262

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

   263

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

   264

  </xsl:template>

   267

  </xsl:template>

   268

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

   269

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

   270

    <xsl:variable name="datatype_infos" select="             $project/ppx:types/ppx:pous/ppx:pou[@name=$type_name] |             $all_types/ppx:dataTypes/ppx:dataType[@name=$type_name]         "/>

   271

    <xsl:choose>

   272

      <xsl:when test="$datatype_infos">

   273

        <xsl:apply-templates mode="var_debug" select="$datatype_infos"/>

   274

      </xsl:when>

   275

      <xsl:otherwise>

   276

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

   277

      </xsl:otherwise>

   278

    </xsl:choose>

   279

  </xsl:template>

   280

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

   281

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

   282

  </xsl:template>

   283

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

   284

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

   285

  </xsl:template>

   286

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

   287

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

   288

  </xsl:template>

   289

</xsl:stylesheet>