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_PLC_STATUS

     9

    noindex > HMI_CURRENT_PAGE

    10

}

    11

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

    12

    13

// HMI Tree Index

    14

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

    15

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

    16

    17

template "*", mode="index" {

    18

    param "index", "0";

    19

    param "parentpath", "''";

    20

    const "content" {

    21

        const "path"

    22

            choose {

    23

                when "count(ancestor::*)=0" > /

    24

                when "count(ancestor::*)=1" > /«@name»

    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" id="blah456" {

    60

//      arg value="param1";

    61

//      arg value="param2";

    62

//      path value="path1" index="345";

    63

//      path value="path2";

    64

//  }

    65

//

    66

template "*", mode="parselabel" {

    67

    const "label","@inkscape: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

    if "$type" widget {

    83

        attrib "id" > «@id»

    84

        attrib "type" > «$type»

    85

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

    86

            arg {

    87

                attrib "value" > «.»

    88

            }

    89

        }

    90

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

    91

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

    92

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

    93

                attrib "value" > «.»

    94

                const "path", ".";

    95

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

    96

                if "count($item) = 1"

    97

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

    98

            }

    99

        }

   100

    }

   101

}

   102

   103

const "_parsed_widgets" apply "$hmi_elements", mode="parselabel";

   104

const "parsed_widgets","exsl:node-set($_parsed_widgets)";

   105

   106

def "func:widget" {

   107

    param "id";

   108

    result "$parsed_widgets/widget[@id = $id]";

   109

}

   110

   111

   120

// Debug data

   121

template "*", mode="testtree"{

   122

    param "indent", "''";

   123

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

   124

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

   125

    > \n

   126

    apply "*", mode="testtree" {

   127

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

   128

    };

   129

}

   130

function "debug_hmitree" {

   131

    | Raw HMI tree

   132

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

   133

    |

   134

    | Indexed HMI tree

   135

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

   136

    |

   137

    | Parsed Widgets

   138

    copy "_parsed_widgets";

   139

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

   140

}

   141

!debug_output_calls.append("debug_hmitree")