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 Edouard Tisserant <edouard@beremiz.fr>
Fri, 30 Aug 2024 11:50:23 +0200
changeset 4008 f30573e98600
parent 3868 e9807c28a788
permissions -rw-r--r--
IDE: allow structures to be located.
1936
b85b13b1c2ec YSLT auto indent trick is useless here, added yslt_noindent.yml2, regenerated XSLT files
Edouard Tisserant <edouard.tisserant@gmail.com>
parents: 1382
diff changeset 
     1
 
include yslt_noindent.yml2
b85b13b1c2ec YSLT auto indent trick is useless here, added yslt_noindent.yml2, regenerated XSLT files
Edouard Tisserant <edouard.tisserant@gmail.com>
parents: 1382
diff changeset 
     2
 
istylesheet xmlns:ppx="http://www.plcopen.org/xml/tc6_0201"
1338
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"
1957
2d1cc4f5e4ef GetEditedElementInstancesInfos now optimized as well. Forgotten because not using [R.I.P]LibraryResolver, but still XSLT compiling was hapenning on each call.
Edouard Tisserant
parents: 1936
diff changeset 
     4
 
            xmlns:ns="beremiz"
1338
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
3868
e9807c28a788 Fix template conflict in XSLT with lxml>=4.9.0 again
Edouard Tisserant <edouard.tisserant@gmail.com>
parents: 3802
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
 
    }
1936
b85b13b1c2ec YSLT auto indent trick is useless here, added yslt_noindent.yml2, regenerated XSLT files
Edouard Tisserant <edouard.tisserant@gmail.com>
parents: 1382
diff changeset 
   315
 
}
beremiz