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

// HMI Tree Index

    10

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

    11

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

    12

    13

emit "preamble:hmi-tree" {

    14

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

    15

    |

    16

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

    17

    |

    18

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

    19

    |

    20

    | var hmitree_types = [

    21

    22

    foreach "$indexed_hmitree/*" 

    23

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

    24

    25

    | ];

    26

    |

    27

    | var hmitree_paths = [

    28

    29

    foreach "$indexed_hmitree/*" 

    30

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

    31

    32

    | ];

    33

    |

    34

    | var hmitree_nodes = {

    35

    36

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

    37

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

    38

    | };

    39

    |

    40

}

    41

    42

template "*", mode="index" {

    43

    param "index", "0";

    44

    param "parentpath", "''";

    45

    const "content" {

    46

        const "path" choose {

    47

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

    48

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

    49

            otherwise > «$parentpath»/«@name»

    50

        }

    51

        xsl:copy {

    52

            attrib "index" > «$index»

    53

            attrib "hmipath" > «$path»

    54

            foreach "@*" xsl:copy;

    55

        }

    56

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

    57

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

    58

             with "parentpath" > «$path»

    59

        }

    60

    }

    61

    62

    copy "$content";

    63

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

    64

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

    65

        with "parentpath" > «$parentpath»

    66

    }

    67

}

    68

    69

include parse_labels.ysl2

    70

    71

const "_parsed_widgets" {

    72

    widget type="VarInitPersistent" {

    73

        arg value="0";

    74

        path value="lang";

    75

    }

    76

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

    77

}

    78

    79

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

    80

    81

def "func:widget" {

    82

    param "id";

    83

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

    84

}

    85

    86

def "func:is_descendant_path" {

    87

    param "descend";

    88

    param "ancest";

    89

    // TODO : use HMI tree to answer more accurately

    90

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

    91

}

    92

    93

def "func:same_class_paths" {

    94

    param "a";

    95

    param "b";

    96

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

    97

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

    98

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

    99

}

   100

   101

// Debug data

   102

template "*", mode="testtree"{

   103

    param "indent", "''";

   104

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

   105

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

   106

    > \n

   107

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

   108

    apply "*", mode="testtree" {

   109

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

   110

    };

   111

}

   112

   113

emit "debug:hmi-tree" {

   114

    | Raw HMI tree

   115

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

   116

    |

   117

    | Indexed HMI tree

   118

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

   119

    |

   120

    | Parsed Widgets

   121

    copy "_parsed_widgets";

   122

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

   123

}