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

//  Parses:

    56

//  "HMI:WidgetType:param1:param2@path1@path2"

    57

//

    58

//  Into:

    59

//  widget type="WidgetType" {

    60

//      arg value="param1";

    61

//      arg value="param2";

    62

//      path value="path1";

    63

//      path value="path2";

    64

//  }

    65

//

    66

def "func:parselabel" {

    67

    param "label";

    68

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

    69

    70

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

    71

    const "args" choose {

    72

        when "$_args" value "$_args";

    73

        otherwise value "$description";

    74

    }

    75

    76

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

    77

    const "type" choose {

    78

        when "$_type" value "$_type";

    79

        otherwise value "$args";

    80

    }

    81

    82

    const "ast" if "$type" widget {

    83

        attrib "type" > «$type»

    84

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

    85

            arg {

    86

                attrib "value" > «.»

    87

            }

    88

        }

    89

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

    90

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

    91

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

    92

                attrib "value" > «.»

    93

                const "path", ".";

    94

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

    95

                if "count($item) = 1"

    96

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

    97

            }

    98

        }

    99

    }

   100

   101

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

   102

}

   103

   104

// Debug data

   105

template "*", mode="testtree"{

   106

    param "indent", "''";

   107

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

   108

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

   109

    > \n

   110

    apply "*", mode="testtree" {

   111

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

   112

    };

   113

}

   114

function "debug_hmitree" {

   115

    | Raw HMI tree

   116

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

   117

    |

   118

    | Indexed HMI tree

   119

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

   120

}

   121

!debug_output_calls.append("debug_hmitree")