1

// hmi_tree.ysl2

     2

     3

     4

// HMI Tree computed from VARIABLES.CSV in svghmi.py

     5

const "hmitree", "ns:GetHMITree()";

     6

     7

const "_categories" {

     8

    noindex > HMI_ROOT

     9

    noindex > HMI_PLC_STATUS

    10

    noindex > HMI_CURRENT_PAGE

    11

}

    12

const "categories", "exsl:node-set($_categories)";

    13

    14

// HMI Tree Index

    15

const "_indexed_hmitree" apply "$hmitree", mode="index";

    16

const "indexed_hmitree", "exsl:node-set($_indexed_hmitree)";

    17

    18

template "*", mode="index" {

    19

    param "index", "0";

    20

    param "parentpath", "''";

    21

    const "content" {

    22

        const "path"

    23

            choose {

    24

                when "local-name() = 'HMI_ROOT'" > «$parentpath»

    25

                otherwise > «$parentpath»/«@name»

    26

            }

    27

        choose {

    28

            when "not(local-name() = $categories/noindex)" {

    29

                xsl:copy {

    30

                    attrib "index" > «$index»

    31

                    attrib "hmipath" > «$path»

    32

                    foreach "@*" xsl:copy;

    33

                }

    34

                apply "*[1]", mode="index"{

    35

                     with "index", "$index + 1";

    36

                     with "parentpath" > «$path»

    37

                }

    38

            }

    39

            otherwise {

    40

                apply "*[1]", mode="index"{

    41

                    with "index", "$index";

    42

                    with "parentpath" > «$path»

    43

                }

    44

            }

    45

        }

    46

    }

    47

    48

    copy "$content";

    49

    apply "following-sibling::*[1]", mode="index" {

    50

        with "index", "$index + count(exsl:node-set($content)/*)";

    51

        with "parentpath" > «$parentpath»

    52

    }

    53

}

    54

    55

def "func:parselabel" {

    56

    param "label";

    57

    const "description", "substring-after($label,'HMI:')";

    58

    59

    const "_args", "substring-before($description,'@')";

    60

    const "args" choose {

    61

        when "$_args" value "$_args";

    62

        otherwise value "$description";

    63

    }

    64

    65

    const "_type", "substring-before($args,':')";

    66

    const "type" choose {

    67

        when "$_type" value "$_type";

    68

        otherwise value "$args";

    69

    }

    70

    71

    const "ast" if "$type" widget {

    72

        attrib "type" > «$type»

    73

        foreach "str:split(substring-after($args, ':'), ':')" {

    74

            arg {

    75

                attrib "value" > «.»

    76

            }

    77

        }

    78

        const "paths", "substring-after($description,'@')";

    79

        foreach "str:split($paths, '@')" {

    80

            if "string-length(.) > 0" path {

    81

                attrib "value" > «.»

    82

                const "path", ".";

    83

                const "item", "$indexed_hmitree/*[@hmipath = $path]";

    84

                if "count($item) = 1"

    85

                    attrib "index" > «$item/@index»

    86

            }

    87

        }

    88

    }

    89

    90

    result "exsl:node-set($ast)";

    91

}

    92

    93

// Debug data

    94

template "*", mode="testtree"{

    95

    param "indent", "''";

    96

    > «$indent» «local-name()» 

    97

    foreach "@*" > «local-name()»="«.»" 

    98

    > \n

    99

    apply "*", mode="testtree" {

   100

        with "indent" value "concat($indent,'>')"

   101

    };

   102

}

   103

function "debug_hmitree" {

   104

    | Raw HMI tree

   105

    apply "$hmitree", mode="testtree";

   106

    |

   107

    | Indexed HMI tree

   108

    apply "$indexed_hmitree", mode="testtree";

   109

}

   110

!debug_output_calls.append("debug_hmitree")