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:template match="text()"/>

     5

  <xsl:template match="ppx:pou[ppx:body]|ppx:transition[ppx:body]|ppx:action[ppx:body]">

     6

    <xsl:apply-templates select="ppx:body/*[self::ppx:FBD or self::ppx:LD or self::ppx:SFC]/*"/>

     7

  </xsl:template>

     8

  <xsl:template name="add_instance">

     9

    <xsl:param name="type"/>

    10

    <xsl:value-of select="ns:AddBlockInstance($type, @localId, ppx:position/@x, ppx:position/@y, @width, @height)"/>

    11

  </xsl:template>

    12

  <xsl:template name="execution_order">

    13

    <xsl:choose>

    14

      <xsl:when test="@executionOrderId">

    15

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

    16

      </xsl:when>

    17

      <xsl:otherwise>

    18

        <xsl:text>0</xsl:text>

    19

      </xsl:otherwise>

    20

    </xsl:choose>

    21

  </xsl:template>

    22

  <xsl:template name="ConnectionInfos">

    23

    <xsl:param name="type"/>

    24

    <xsl:param name="negated"/>

    25

    <xsl:param name="edge"/>

    26

    <xsl:param name="formalParameter"/>

    27

    <xsl:value-of select="ns:AddInstanceConnection($type, $formalParameter, $negated, $edge, ppx:relPosition/@x, ppx:relPosition/@y)"/>

    28

  </xsl:template>

    29

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

    30

    <xsl:value-of select="ns:AddLinkPoint(@x, @y)"/>

    31

  </xsl:template>

    32

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

    33

    <xsl:value-of select="ns:AddConnectionLink(@refLocalId, @formalParameter)"/>

    34

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

    35

  </xsl:template>

    36

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

    37

    <xsl:param name="negated"/>

    38

    <xsl:param name="edge"/>

    39

    <xsl:param name="formalParameter"/>

    40

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

    41

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

    42

        <xsl:text>input</xsl:text>

    43

      </xsl:with-param>

    44

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

    45

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

    46

      </xsl:with-param>

    47

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

    48

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

    49

      </xsl:with-param>

    50

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

    51

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

    52

      </xsl:with-param>

    53

    </xsl:call-template>

    54

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

    55

  </xsl:template>

    56

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

    57

    <xsl:param name="negated"/>

    58

    <xsl:param name="edge"/>

    59

    <xsl:param name="formalParameter"/>

    60

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

    61

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

    62

        <xsl:text>output</xsl:text>

    63

      </xsl:with-param>

    64

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

    65

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

    66

      </xsl:with-param>

    67

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

    68

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

    69

      </xsl:with-param>

    70

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

    71

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

    72

      </xsl:with-param>

    73

    </xsl:call-template>

    74

  </xsl:template>

    75

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

    76

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

    77

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

    78

        <xsl:text>output</xsl:text>

    79

      </xsl:with-param>

    80

    </xsl:call-template>

    81

  </xsl:template>

    82

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

    83

    <xsl:value-of select="ns:SetSpecificValues(ppx:content/xhtml:p/text())"/>

    84

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

    85

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

    86

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

    87

      </xsl:with-param>

    88

    </xsl:call-template>

    89

  </xsl:template>

    90

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

    91

    <xsl:variable name="execution_order">

    92

      <xsl:call-template name="execution_order"/>

    93

    </xsl:variable>

    94

    <xsl:value-of select="ns:SetSpecificValues(@instanceName, $execution_order)"/>

    95

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

    96

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

    97

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

    98

      </xsl:with-param>

    99

    </xsl:call-template>

   100

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

   101

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

   102

        <xsl:with-param name="negated" select="@negated"/>

   103

        <xsl:with-param name="edge" select="@edge"/>

   104

        <xsl:with-param name="formalParameter" select="@formalParameter"/>

   105

      </xsl:apply-templates>

   106

    </xsl:for-each>

   107

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

   108

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

   109

        <xsl:with-param name="negated" select="@negated"/>

   110

        <xsl:with-param name="edge" select="@edge"/>

   111

        <xsl:with-param name="formalParameter" select="@formalParameter"/>

   112

      </xsl:apply-templates>

   113

    </xsl:for-each>

   114

  </xsl:template>

   115

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

   116

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

   117

  </xsl:template>

   118

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

   119

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

   120

  </xsl:template>

   121

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

   122

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

   123

  </xsl:template>

   124

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

   125

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

   126

  </xsl:template>

   127

  <xsl:template name="VariableBlockInfos">

   128

    <xsl:param name="type"/>

   129

    <xsl:variable name="expression">

   130

      <xsl:value-of select="ppx:expression/text()"/>

   131

    </xsl:variable>

   132

    <xsl:variable name="value_type">

   133

      <xsl:choose>

   134

        <xsl:when test="ancestor::ppx:transition[@name=$expression]">

   135

          <xsl:text>BOOL</xsl:text>

   136

        </xsl:when>

   137

        <xsl:when test="ancestor::ppx:pou[@name=$expression]">

   138

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

   139

        </xsl:when>

   140

        <xsl:otherwise>

   141

          <xsl:apply-templates select="ancestor::ppx:pou/child::ppx:interface/*/ppx:variable[@name=$expression]/ppx:type"/>

   142

        </xsl:otherwise>

   143

      </xsl:choose>

   144

    </xsl:variable>

   145

    <xsl:variable name="execution_order">

   146

      <xsl:call-template name="execution_order"/>

   147

    </xsl:variable>

   148

    <xsl:value-of select="ns:SetSpecificValues($expression, $value_type, $execution_order)"/>

   149

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

   150

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

   151

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

   152

      </xsl:with-param>

   153

    </xsl:call-template>

   154

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

   155

      <xsl:with-param name="negated" select="@negatedIn"/>

   156

      <xsl:with-param name="edge" select="@edgeIn"/>

   157

    </xsl:apply-templates>

   158

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

   159

      <xsl:with-param name="negated" select="@negatedOut"/>

   160

      <xsl:with-param name="edge" select="@edgeOut"/>

   161

    </xsl:apply-templates>

   162

  </xsl:template>

   163

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

   164

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

   165

      <xsl:with-param name="type" select="'input'"/>

   166

    </xsl:call-template>

   167

  </xsl:template>

   168

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

   169

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

   170

      <xsl:with-param name="type" select="'output'"/>

   171

    </xsl:call-template>

   172

  </xsl:template>

   173

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

   174

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

   175

      <xsl:with-param name="type" select="'inout'"/>

   176

    </xsl:call-template>

   177

  </xsl:template>

   178

  <xsl:template match="ppx:connector|ppx:continuation">

   179

    <xsl:value-of select="ns:SetSpecificValues(@name)"/>

   180

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

   181

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

   182

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

   183

      </xsl:with-param>

   184

    </xsl:call-template>

   185

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

   186

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

   187

  </xsl:template>

   188

  <xsl:template match="ppx:leftPowerRail|ppx:rightPowerRail">

   189

    <xsl:variable name="type" select="local-name()"/>

   190

    <xsl:variable name="connectors">

   191

      <xsl:choose>

   192

        <xsl:when test="$type='leftPowerRail'">

   193

          <xsl:value-of select="count(ppx:connectionPointOut)"/>

   194

        </xsl:when>

   195

        <xsl:otherwise>

   196

          <xsl:value-of select="count(ppx:connectionPointIn)"/>

   197

        </xsl:otherwise>

   198

      </xsl:choose>

   199

    </xsl:variable>

   200

    <xsl:value-of select="ns:SetSpecificValues($connectors)"/>

   201

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

   202

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

   203

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

   204

      </xsl:with-param>

   205

    </xsl:call-template>

   206

    <xsl:choose>

   207

      <xsl:when test="$type='leftPowerRail'">

   208

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

   209

      </xsl:when>

   210

      <xsl:otherwise>

   211

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

   212

      </xsl:otherwise>

   213

    </xsl:choose>

   214

  </xsl:template>

   215

  <xsl:template match="ppx:contact|ppx:coil">

   216

    <xsl:variable name="type" select="local-name()"/>

   217

    <xsl:variable name="storage">

   218

      <xsl:choose>

   219

        <xsl:when test="$type='coil'">

   220

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

   221

        </xsl:when>

   222

      </xsl:choose>

   223

    </xsl:variable>

   224

    <xsl:variable name="execution_order">

   225

      <xsl:call-template name="execution_order"/>

   226

    </xsl:variable>

   227

    <xsl:value-of select="ns:SetSpecificValues(ppx:variable/text(), @negated, @edge, $storage, $execution_order)"/>

   228

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

   229

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

   230

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

   231

      </xsl:with-param>

   232

    </xsl:call-template>

   233

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

   234

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

   235

  </xsl:template>

   236

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

   237

    <xsl:value-of select="ns:SetSpecificValues(@name, @initialStep)"/>

   238

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

   239

      <xsl:with-param name="negated" select="@negated"/>

   240

    </xsl:apply-templates>

   241

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

   242

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

   243

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

   244

      </xsl:with-param>

   245

    </xsl:call-template>

   246

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

   247

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

   248

  </xsl:template>

   249

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

   250

    <xsl:variable name="priority">

   251

      <xsl:choose>

   252

        <xsl:when test="@priority">

   253

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

   254

        </xsl:when>

   255

        <xsl:otherwise>

   256

          <xsl:text>0</xsl:text>

   257

        </xsl:otherwise>

   258

      </xsl:choose>

   259

    </xsl:variable>

   260

    <xsl:variable name="condition_type">

   261

      <xsl:choose>

   262

        <xsl:when test="ppx:condition/ppx:connectionPointIn">

   263

          <xsl:text>connection</xsl:text>

   264

        </xsl:when>

   265

        <xsl:when test="ppx:condition/ppx:reference">

   266

          <xsl:text>reference</xsl:text>

   267

        </xsl:when>

   268

        <xsl:when test="ppx:condition/ppx:inline">

   269

          <xsl:text>inline</xsl:text>

   270

        </xsl:when>

   271

      </xsl:choose>

   272

    </xsl:variable>

   273

    <xsl:variable name="condition">

   274

      <xsl:choose>

   275

        <xsl:when test="ppx:condition/ppx:reference">

   276

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

   277

        </xsl:when>

   278

        <xsl:when test="ppx:condition/ppx:inline">

   279

          <xsl:value-of select="ppx:condition/ppx:inline/ppx:ST/xhtml:p/text()"/>

   280

        </xsl:when>

   281

      </xsl:choose>

   282

    </xsl:variable>

   283

    <xsl:value-of select="ns:SetSpecificValues($priority, $condition_type, $condition)"/>

   284

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

   285

      <xsl:with-param name="negated" select="ppx:condition/@negated"/>

   286

    </xsl:apply-templates>

   287

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

   288

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

   289

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

   290

      </xsl:with-param>

   291

    </xsl:call-template>

   292

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

   293

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

   294

  </xsl:template>

   295

  <xsl:template match="ppx:selectionDivergence|ppx:selectionConvergence|ppx:simultaneousDivergence|ppx:simultaneousConvergence">

   296

    <xsl:variable name="type">

   297

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

   298

    </xsl:variable>

   299

    <xsl:variable name="connectors">

   300

      <xsl:choose>

   301

        <xsl:when test="$type='selectionDivergence' or $type='simultaneousDivergence'">

   302

          <xsl:value-of select="count(ppx:connectionPointOut)"/>

   303

        </xsl:when>

   304

        <xsl:otherwise>

   305

          <xsl:value-of select="count(ppx:connectionPointIn)"/>

   306

        </xsl:otherwise>

   307

      </xsl:choose>

   308

    </xsl:variable>

   309

    <xsl:value-of select="ns:SetSpecificValues($connectors)"/>

   310

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

   311

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

   312

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

   313

      </xsl:with-param>

   314

    </xsl:call-template>

   315

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

   316

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

   317

  </xsl:template>

   318

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

   319

    <xsl:variable name="type">

   320

      <xsl:text>jump</xsl:text>

   321

    </xsl:variable>

   322

    <xsl:value-of select="ns:SetSpecificValues(@targetName)"/>

   323

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

   324

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

   325

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

   326

      </xsl:with-param>

   327

    </xsl:call-template>

   328

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

   329

  </xsl:template>

   330

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

   331

    <xsl:variable name="type">

   332

      <xsl:choose>

   333

        <xsl:when test="ppx:reference">

   334

          <xsl:text>reference</xsl:text>

   335

        </xsl:when>

   336

        <xsl:when test="ppx:inline">

   337

          <xsl:text>inline</xsl:text>

   338

        </xsl:when>

   339

      </xsl:choose>

   340

    </xsl:variable>

   341

    <xsl:variable name="value">

   342

      <xsl:choose>

   343

        <xsl:when test="ppx:reference">

   344

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

   345

        </xsl:when>

   346

        <xsl:when test="ppx:inline">

   347

          <xsl:value-of select="ppx:inline/ppx:ST/xhtml:p/text()"/>

   348

        </xsl:when>

   349

      </xsl:choose>

   350

    </xsl:variable>

   351

    <xsl:variable name="qualifier">

   352

      <xsl:choose>

   353

        <xsl:when test="@qualifier">

   354

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

   355

        </xsl:when>

   356

        <xsl:otherwise>

   357

          <xsl:text>N</xsl:text>

   358

        </xsl:otherwise>

   359

      </xsl:choose>

   360

    </xsl:variable>

   361

    <xsl:value-of select="ns:AddAction($qualifier, $type, $value, @duration, @indicator)"/>

   362

  </xsl:template>

   363

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

   364

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

   365

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

   366

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

   367

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

   368

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

   369

      </xsl:with-param>

   370

    </xsl:call-template>

   371

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

   372

      <xsl:with-param name="negated" select="@negated"/>

   373

    </xsl:apply-templates>

   374

  </xsl:template>

   375

</xsl:stylesheet>