1

// hmi_tree.ysl2

     2

     3

// Location identifies uniquely SVGHMI instance

     4

param "instance_name";

     5

     6

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

     7

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

     8

     9

const "_categories" {

    10

    noindex > HMI_PLC_STATUS

    11

    noindex > HMI_CURRENT_PAGE

    12

}

    13

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

    14

    15

// HMI Tree Index

    16

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

    17

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

    18

    19

emit "preamble:hmi-tree" {

    20

    | var hmi_hash = [«$hmitree/@hash»];

    21

    |

    22

    | var heartbeat_index = «$indexed_hmitree/*[@hmipath = '/HEARTBEAT']/@index»;

    23

    |

    24

    | var current_page_var_index = «$indexed_hmitree/*[@hmipath = concat('/CURRENT_PAGE_', $instance_name)]/@index»;

    25

    |

    26

    | var hmitree_types = [

    27

    28

    foreach "$indexed_hmitree/*" 

    29

    |     "«substring(local-name(), 5)»"`if "position()!=last()" > ,`

    30

    31

    | ];

    32

    |

    33

    | var hmitree_paths = [

    34

    35

    foreach "$indexed_hmitree/*" 

    36

    |     "«@hmipath»"`if "position()!=last()" > ,`

    37

    38

    | ];

    39

    |

    40

    | var hmitree_nodes = {

    41

    42

    foreach "$indexed_hmitree/*[local-name() = 'HMI_NODE']" 

    43

    |     "«@hmipath»" : [«@index», "«@class»"]`if "position()!=last()" > ,`

    44

    | };

    45

    |

    46

}

    47

    48

template "*", mode="index" {

    49

    param "index", "0";

    50

    param "parentpath", "''";

    51

    const "content" {

    52

        const "path"

    53

            choose {

    54

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

    55

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

    56

                otherwise > «$parentpath»/«@name»

    57

            }

    58

        choose {

    59

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

    60

                xsl:copy {

    61

                    attrib "index" > «$index»

    62

                    attrib "hmipath" > «$path»

    63

                    foreach "@*" xsl:copy;

    64

                }

    65

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

    66

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

    67

                     with "parentpath" > «$path»

    68

                }

    69

            }

    70

            otherwise {

    71

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

    72

                    with "index", "$index";

    73

                    with "parentpath" > «$path»

    74

                }

    75

            }

    76

        }

    77

    }

    78

    79

    copy "$content";

    80

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

    81

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

    82

        with "parentpath" > «$parentpath»

    83

    }

    84

}

    85

    86

include parse_labels.ysl2

    87

    88

const "_parsed_widgets" {

    89

    widget type="VarInitPersistent" {

    90

        arg value="0";

    91

        path value="lang";

    92

    }

    93

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

    94

}

    95

    96

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

    97

    98

def "func:widget" {

    99

    param "id";

   100

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

   101

}

   102

   103

def "func:is_descendant_path" {

   104

    param "descend";

   105

    param "ancest";

   106

    // TODO : use HMI tree to answer more accurately

   107

    result "string-length($ancest) > 0 and starts-with($descend,$ancest)";

   108

}

   109

   110

def "func:same_class_paths" {

   111

    param "a";

   112

    param "b";

   113

    const "class_a", "$indexed_hmitree/*[@hmipath = $a]/@class";

   114

    const "class_b", "$indexed_hmitree/*[@hmipath = $b]/@class";

   115

    result "$class_a and $class_b and $class_a = $class_b";

   116

}

   117

   118

// Debug data

   119

template "*", mode="testtree"{

   120

    param "indent", "''";

   121

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

   122

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

   123

    > \n

   124

    if "text()" > «text()»\n

   125

    apply "*", mode="testtree" {

   126

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

   127

    };

   128

}

   129

   130

emit "debug:hmi-tree" {

   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

}