Mercurial Mercurial > beremiz / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
plcopen/pou_block_instances.ysl2
author Andrey Skvortsov <andrej.skvortzov@gmail.com>
Mon, 26 Dec 2016 14:01:54 +0300
changeset 1615 af9b0ccb418e
parent 1382 675a6229fc60
child 1936 b85b13b1c2ec
permissions -rw-r--r--
replace '-' with '.' in resource tab and transition/action SFC code


This makes tab names consistent with the way the same information is shown in variable panel.
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     1
 
include yslt.yml2
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     2
 
estylesheet xmlns:ppx="http://www.plcopen.org/xml/tc6_0201"
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     3
 
            xmlns:xhtml="http://www.w3.org/1999/xhtml"
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     4
 
            xmlns:ns="pou_block_instances_ns"
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     5
 
            extension-element-prefixes="ns"
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     6
 
            exclude-result-prefixes="ns" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
     7
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     8
 
    template "text()";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
     9
1382
675a6229fc60 Fixed bugs in SFC when loading transition condition and referenced transition or action body
Laurent Bessard
parents: 1345
diff changeset 
    10
 
    template "ppx:pou[ppx:body]|ppx:transition[ppx:body]|ppx:action[ppx:body]" {
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    11
 
        apply "ppx:body/*[self::ppx:FBD or self::ppx:LD or self::ppx:SFC]/*";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    12
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    13
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    14
 
    function "add_instance" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    15
 
        param "type";
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    16
 
        value "ns:AddBlockInstance($type, @localId, ppx:position/@x, ppx:position/@y, @width, @height)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    17
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    18
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    19
 
    function "execution_order" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    20
 
        choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    21
 
            when "@executionOrderId" > «@executionOrderId»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    22
 
            otherwise > 0
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    23
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    24
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    25
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    26
 
    function "ConnectionInfos" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    27
 
        param "type";
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    28
 
        param "negated";
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    29
 
        param "edge";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    30
 
        param "formalParameter";
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    31
 
        value "ns:AddInstanceConnection($type, $formalParameter, $negated, $edge, ppx:relPosition/@x, ppx:relPosition/@y)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    32
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    33
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    34
 
    template "ppx:position" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    35
 
        value "ns:AddLinkPoint(@x, @y)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    36
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    37
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    38
 
    template "ppx:connection" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    39
 
        value "ns:AddConnectionLink(@refLocalId, @formalParameter)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    40
 
        apply "ppx:position";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    41
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    42
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    43
 
    template "ppx:connectionPointIn" {
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    44
 
        param "negated";
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    45
 
        param "edge";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    46
 
        param "formalParameter";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    47
 
        call "ConnectionInfos" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    48
 
            with "type" > input
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    49
 
            with "negated" > «$negated»
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    50
 
            with "edge" > «$edge»
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    51
 
            with "formalParameter" > «$formalParameter»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    52
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    53
 
        apply "ppx:connection";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    54
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    55
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    56
 
    template "ppx:connectionPointOut" {
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    57
 
        param "negated";
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    58
 
        param "edge";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    59
 
        param "formalParameter";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    60
 
        call "ConnectionInfos" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    61
 
            with "type" > output
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    62
 
            with "negated" > «$negated»
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
    63
 
            with "edge" > «$edge»
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    64
 
            with "formalParameter" > «$formalParameter»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    65
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    66
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    67
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    68
 
    template "ppx:connectionPointOutAction" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    69
 
        call "ConnectionInfos" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    70
 
            with "type" > output
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    71
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    72
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    73
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    74
 
    template "ppx:comment" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    75
 
        value "ns:SetSpecificValues(ppx:content/xhtml:p/text())";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    76
 
        call "add_instance" {
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    77
 
            with "type" > «local-name()»
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    78
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    79
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    80
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    81
 
    template "ppx:block" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    82
 
        variable "execution_order" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    83
 
            call "execution_order";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    84
 
        }
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    85
 
        value "ns:SetSpecificValues(@instanceName, $execution_order)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    86
 
        call "add_instance" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    87
 
            with "type" > «@typeName»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    88
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    89
 
        foreach "ppx:inputVariables/ppx:variable" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    90
 
            apply "ppx:connectionPointIn" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    91
 
                with "negated", "@negated";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    92
 
                with "edge", "@edge";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    93
 
                with "formalParameter", "@formalParameter";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    94
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    95
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    96
 
        foreach "ppx:outputVariables/ppx:variable" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
    97
 
            apply "ppx:connectionPointOut" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    98
 
                with "negated", "@negated";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
    99
 
                with "edge", "@edge";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   100
 
                with "formalParameter", "@formalParameter";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   101
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   102
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   103
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   104
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   105
 
    template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:derived" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   106
 
        > «@name»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   107
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   108
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   109
 
    template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:string" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   110
 
        > STRING
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   111
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   112
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   113
 
    template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/ppx:wstring" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   114
 
        > WSTRING
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   115
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   116
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   117
 
    template "*[self::ppx:type or self::ppx:baseType or self::ppx:returnType]/*" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   118
 
        > «local-name()»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   119
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   120
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   121
 
    function "VariableBlockInfos" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   122
 
        param "type";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   123
 
        variable "expression" > «ppx:expression/text()»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   124
 
        variable "value_type" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   125
 
            choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   126
 
                when "ancestor::ppx:transition[@name=$expression]" > BOOL
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   127
 
                when "ancestor::ppx:pou[@name=$expression]" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   128
 
                    apply "ancestor::ppx:pou/child::ppx:interface/ppx:returnType"
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   129
 
                }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   130
 
                otherwise {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   131
 
                    apply "ancestor::ppx:pou/child::ppx:interface/*/ppx:variable[@name=$expression]/ppx:type"
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   132
 
                }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   133
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   134
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   135
 
        variable "execution_order" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   136
 
            call "execution_order";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   137
 
        }
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   138
 
        value "ns:SetSpecificValues($expression, $value_type, $execution_order)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   139
 
        call "add_instance" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   140
 
            with "type" > «$type»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   141
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   142
 
        apply "ppx:connectionPointIn" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   143
 
            with "negated", "@negatedIn";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   144
 
            with "edge", "@edgeIn";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   145
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   146
 
        apply "ppx:connectionPointOut" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   147
 
            with "negated", "@negatedOut";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   148
 
            with "edge", "@edgeOut";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   149
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   150
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   151
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   152
 
    template "ppx:inVariable" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   153
 
        call "VariableBlockInfos" with "type", "'input'";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   154
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   155
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   156
 
    template "ppx:outVariable" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   157
 
        call "VariableBlockInfos" with "type", "'output'";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   158
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   159
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   160
 
    template "ppx:inOutVariable" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   161
 
        call "VariableBlockInfos" with "type", "'inout'";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   162
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   163
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   164
 
    template "ppx:connector|ppx:continuation" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   165
 
        value "ns:SetSpecificValues(@name)";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   166
 
        call "add_instance" {
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   167
 
            with "type" > «local-name()»
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   168
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   169
 
        apply "ppx:connectionPointIn";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   170
 
        apply "ppx:connectionPointOut";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   171
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   172
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   173
 
    template "ppx:leftPowerRail|ppx:rightPowerRail" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   174
 
        variable "type", "local-name()";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   175
 
        variable "connectors" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   176
 
            choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   177
 
                when "$type='leftPowerRail'" > «count(ppx:connectionPointOut)»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   178
 
                otherwise > «count(ppx:connectionPointIn)»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   179
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   180
 
        }
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   181
 
        value "ns:SetSpecificValues($connectors)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   182
 
        call "add_instance" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   183
 
            with "type" > «$type»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   184
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   185
 
        choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   186
 
            when "$type='leftPowerRail'" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   187
 
                apply "ppx:connectionPointOut";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   188
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   189
 
            otherwise {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   190
 
                apply "ppx:connectionPointIn";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   191
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   192
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   193
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   194
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   195
 
    template "ppx:contact|ppx:coil" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   196
 
        variable "type", "local-name()";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   197
 
        variable "storage" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   198
 
            choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   199
 
                when "$type='coil'" > «@storage»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   200
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   201
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   202
 
        variable "execution_order" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   203
 
            call "execution_order";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   204
 
        }
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   205
 
        value "ns:SetSpecificValues(ppx:variable/text(), @negated, @edge, $storage, $execution_order)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   206
 
        call "add_instance" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   207
 
            with "type" > «$type»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   208
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   209
 
        apply "ppx:connectionPointIn";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   210
 
        apply "ppx:connectionPointOut";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   211
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   212
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   213
 
    template "ppx:step" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   214
 
        value "ns:SetSpecificValues(@name, @initialStep)";
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
   215
 
        apply "ppx:connectionPointOutAction" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   216
 
            with "negated", "@negated";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   217
 
        }
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   218
 
        call "add_instance" {
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   219
 
            with "type" > «local-name()»
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   220
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   221
 
        apply "ppx:connectionPointIn";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   222
 
        apply "ppx:connectionPointOut";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   223
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   224
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   225
 
    template "ppx:transition" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   226
 
        variable "priority" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   227
 
            choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   228
 
                when "@priority" > «@priority»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   229
 
                otherwise > 0
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   230
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   231
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   232
 
        variable "condition_type" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   233
 
            choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   234
 
                when "ppx:condition/ppx:connectionPointIn" > connection
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   235
 
                when "ppx:condition/ppx:reference" > reference
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   236
 
                when "ppx:condition/ppx:inline" > inline
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   237
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   238
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   239
 
        variable "condition" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   240
 
            choose {
1382
675a6229fc60 Fixed bugs in SFC when loading transition condition and referenced transition or action body
Laurent Bessard
parents: 1345
diff changeset 
   241
 
                when "ppx:condition/ppx:reference" > «ppx:condition/ppx:reference/@name»
675a6229fc60 Fixed bugs in SFC when loading transition condition and referenced transition or action body
Laurent Bessard
parents: 1345
diff changeset 
   242
 
                when "ppx:condition/ppx:inline" > «ppx:condition/ppx:inline/ppx:ST/xhtml:p/text()»
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   243
 
            }
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   244
 
        }
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   245
 
        value "ns:SetSpecificValues($priority, $condition_type, $condition)";
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
   246
 
        apply "ppx:condition/ppx:connectionPointIn" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   247
 
            with "negated", "ppx:condition/@negated";
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   248
 
        }
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   249
 
        call "add_instance" {
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   250
 
            with "type" > «local-name()»
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   251
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   252
 
        apply "ppx:connectionPointIn";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   253
 
        apply "ppx:connectionPointOut";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   254
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   255
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   256
 
    template "ppx:selectionDivergence|ppx:selectionConvergence|ppx:simultaneousDivergence|ppx:simultaneousConvergence" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   257
 
        variable "type" > «local-name()»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   258
 
        variable "connectors" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   259
 
            choose {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   260
 
                when "$type='selectionDivergence' or $type='simultaneousDivergence'" {
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   261
 
                    > «count(ppx:connectionPointOut)»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   262
 
                }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   263
 
                otherwise > «count(ppx:connectionPointIn)»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   264
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   265
 
        }
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   266
 
        value "ns:SetSpecificValues($connectors)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   267
 
        call "add_instance" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   268
 
            with "type" > «$type»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   269
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   270
 
        apply "ppx:connectionPointIn";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   271
 
        apply "ppx:connectionPointOut";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   272
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   273
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   274
 
    template "ppx:jumpStep" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   275
 
        variable "type" > jump
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   276
 
        value "ns:SetSpecificValues(@targetName)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   277
 
        call "add_instance" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   278
 
            with "type" > «$type»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   279
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   280
 
        apply "ppx:connectionPointIn";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   281
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   282
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   283
 
    template "ppx:action" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   284
 
        variable "type" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   285
 
            choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   286
 
                when "ppx:reference" > reference
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   287
 
                when "ppx:inline" > inline
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   288
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   289
 
        }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   290
 
        variable "value" {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   291
 
            choose {
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   292
 
                when "ppx:reference" > «ppx:reference/@name»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   293
 
                when "ppx:inline" > «ppx:inline/ppx:ST/xhtml:p/text()»
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   294
 
            }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   295
 
        }
1339
6adf05c4508d Fixed bug in actionBlock actions editing
Laurent Bessard
parents: 1338
diff changeset 
   296
 
        variable "qualifier" {
6adf05c4508d Fixed bug in actionBlock actions editing
Laurent Bessard
parents: 1338
diff changeset 
   297
 
            choose {
6adf05c4508d Fixed bug in actionBlock actions editing
Laurent Bessard
parents: 1338
diff changeset 
   298
 
                when "@qualifier" > «@qualifier»
6adf05c4508d Fixed bug in actionBlock actions editing
Laurent Bessard
parents: 1338
diff changeset 
   299
 
                otherwise > N
6adf05c4508d Fixed bug in actionBlock actions editing
Laurent Bessard
parents: 1338
diff changeset 
   300
 
            }
6adf05c4508d Fixed bug in actionBlock actions editing
Laurent Bessard
parents: 1338
diff changeset 
   301
 
        }
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   302
 
        value "ns:AddAction($qualifier, $type, $value, @duration, @indicator)";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   303
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   304
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   305
 
    template "ppx:actionBlock" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   306
 
        value "ns:SetSpecificValues()";
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   307
 
        apply "ppx:action";
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   308
 
        call "add_instance" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   309
 
            with "type" > «local-name()»
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   310
 
        }
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
   311
 
        apply "ppx:connectionPointIn" {
1345
53e51e786654 Improved syntax of pou block information loading stylesheet
Laurent Bessard
parents: 1344
diff changeset 
   312
 
            with "negated", "@negated";
1344
2eaa84c37f10 Fixed bug when loading connectors modifier
Laurent Bessard
parents: 1339
diff changeset 
   313
 
        }
1338
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   314
 
    }
c1e6c712cc35 Replaced old graphic viewer blocks loading process by xslt stylesheet
Laurent Bessard
parents:
diff changeset 
   315
 
}
beremiz