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:param name="instance_path"/>

     5

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

     6

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

     7

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

     8

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

     9

  <xsl:template name="element_name">

    10

    <xsl:param name="path"/>

    11

    <xsl:choose>

    12

      <xsl:when test="contains($path,'.')">

    13

        <xsl:value-of select="substring-before($path,'.')"/>

    14

      </xsl:when>

    15

      <xsl:otherwise>

    16

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

    17

      </xsl:otherwise>

    18

    </xsl:choose>

    19

  </xsl:template>

    20

  <xsl:template name="next_path">

    21

    <xsl:param name="path"/>

    22

    <xsl:choose>

    23

      <xsl:when test="contains($path,'.')">

    24

        <xsl:value-of select="substring-after($path,'.')"/>

    25

      </xsl:when>

    26

    </xsl:choose>

    27

  </xsl:template>

    28

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

    29

    <xsl:variable name="config_name">

    30

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

    31

        <xsl:with-param name="path" select="$instance_path"/>

    32

      </xsl:call-template>

    33

    </xsl:variable>

    34

    <xsl:apply-templates select="ppx:instances/ppx:configurations/ppx:configuration[@name=$config_name]">

    35

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

    36

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

    37

          <xsl:with-param name="path" select="$instance_path"/>

    38

        </xsl:call-template>

    39

      </xsl:with-param>

    40

    </xsl:apply-templates>

    41

  </xsl:template>

    42

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

    43

    <xsl:param name="element_path"/>

    44

    <xsl:choose>

    45

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

    46

        <xsl:variable name="child_name">

    47

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

    48

            <xsl:with-param name="path" select="$element_path"/>

    49

          </xsl:call-template>

    50

        </xsl:variable>

    51

        <xsl:apply-templates select="ppx:resource[@name=$child_name] | ppx:globalVars/ppx:variable[@name=$child_name]/ppx:type/*[self::ppx:derived or self::ppx:struct or self::ppx:array]">

    52

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

    53

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

    54

              <xsl:with-param name="path" select="$element_path"/>

    55

            </xsl:call-template>

    56

          </xsl:with-param>

    57

        </xsl:apply-templates>

    58

      </xsl:when>

    59

      <xsl:otherwise>

    60

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

    61

      </xsl:otherwise>

    62

    </xsl:choose>

    63

  </xsl:template>

    64

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

    65

    <xsl:param name="element_path"/>

    66

    <xsl:choose>

    67

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

    68

        <xsl:variable name="child_name">

    69

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

    70

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

    71

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

    72

            </xsl:with-param>

    73

          </xsl:call-template>

    74

        </xsl:variable>

    75

        <xsl:apply-templates select="ppx:pouInstance[@name=$child_name] | ppx:task/ppx:pouInstance[@name=$child_name] | ppx:globalVars/ppx:variable[@name=$child_name]/ppx:type/*[self::ppx:derived or self::ppx:struct or self::ppx:array]">

    76

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

    77

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

    78

              <xsl:with-param name="path" select="$element_path"/>

    79

            </xsl:call-template>

    80

          </xsl:with-param>

    81

        </xsl:apply-templates>

    82

      </xsl:when>

    83

      <xsl:otherwise>

    84

        <xsl:value-of select="ns:ResourceTagName(ancestor::ppx:configuration/@name, @name)"/>

    85

      </xsl:otherwise>

    86

    </xsl:choose>

    87

  </xsl:template>

    88

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

    89

    <xsl:param name="element_path"/>

    90

    <xsl:variable name="type_name">

    91

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

    92

    </xsl:variable>

    93

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

    94

      <xsl:with-param name="element_path" select="$element_path"/>

    95

    </xsl:apply-templates>

    96

  </xsl:template>

    97

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

    98

    <xsl:param name="element_path"/>

    99

    <xsl:choose>

   100

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

   101

        <xsl:variable name="child_name">

   102

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

   103

            <xsl:with-param name="path" select="$element_path"/>

   104

          </xsl:call-template>

   105

        </xsl:variable>

   106

        <xsl:apply-templates select="ppx:interface/*/ppx:variable[@name=$child_name]/ppx:type/*[self::ppx:derived or self::ppx:struct or self::ppx:array]">

   107

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

   108

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

   109

              <xsl:with-param name="path" select="$element_path"/>

   110

            </xsl:call-template>

   111

          </xsl:with-param>

   112

        </xsl:apply-templates>

   113

        <xsl:apply-templates select="ppx:actions/ppx:action[@name=$child_name] | ppx:transitions/ppx:transition[@name=$child_name]"/>

   114

      </xsl:when>

   115

      <xsl:otherwise>

   116

        <xsl:variable name="name">

   117

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

   118

        </xsl:variable>

   119

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

   120

      </xsl:otherwise>

   121

    </xsl:choose>

   122

  </xsl:template>

   123

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

   124

    <xsl:value-of select="ns:ActionTagName(ancestor::ppx:pou/@name, @name)"/>

   125

  </xsl:template>

   126

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

   127

    <xsl:value-of select="ns:TransitionTagName(ancestor::ppx:pou/@name, @name)"/>

   128

  </xsl:template>

   129

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

   130

    <xsl:param name="element_path"/>

   131

    <xsl:apply-templates select="ppx:baseType/*[self::ppx:derived or self::ppx:struct or self::ppx:array]">

   132

      <xsl:with-param name="element_path" select="$element_path"/>

   133

    </xsl:apply-templates>

   134

  </xsl:template>

   135

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

   136

    <xsl:param name="element_path"/>

   137

    <xsl:variable name="type_name">

   138

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

   139

    </xsl:variable>

   140

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

   141

      <xsl:with-param name="element_path" select="$element_path"/>

   142

    </xsl:apply-templates>

   143

  </xsl:template>

   144

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

   145

    <xsl:param name="element_path"/>

   146

    <xsl:apply-templates select="ppx:baseType/*[self::ppx:derived or self::ppx:struct or self::ppx:array]">

   147

      <xsl:with-param name="element_path" select="$element_path"/>

   148

    </xsl:apply-templates>

   149

  </xsl:template>

   150

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

   151

    <xsl:param name="element_path"/>

   152

    <xsl:variable name="child_name">

   153

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

   154

        <xsl:with-param name="path" select="$element_path"/>

   155

      </xsl:call-template>

   156

    </xsl:variable>

   157

    <xsl:apply-templates select="ppx:variable[@name=$child_name]/ppx:type/*[self::ppx:derived or self::ppx:struct or self::ppx:array]">

   158

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

   159

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

   160

          <xsl:with-param name="path" select="$element_path"/>

   161

        </xsl:call-template>

   162

      </xsl:with-param>

   163

    </xsl:apply-templates>

   164

  </xsl:template>

   165

</xsl:stylesheet>