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

emit "preamble:hmi-tree" {

    18

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

    19

    |

    20

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

    21

    |

    22

    | var hmitree_types = [

    23

    24

    foreach "$indexed_hmitree/*" 

    25

    |     /* «@index»  «@hmipath» */ "«substring(local-name(), 5)»"`if "position()!=last()" > ,`

    26

    27

    | ]

    28

    |

    29

}

    30

    31

template "*", mode="index" {

    32

    param "index", "0";

    33

    param "parentpath", "''";

    34

    const "content" {

    35

        const "path"

    36

            choose {

    37

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

    38

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

    39

                otherwise > «$parentpath»/«@name»

    40

            }

    41

        choose {

    42

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

    43

                xsl:copy {

    44

                    attrib "index" > «$index»

    45

                    attrib "hmipath" > «$path»

    46

                    foreach "@*" xsl:copy;

    47

                }

    48

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

    49

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

    50

                     with "parentpath" > «$path»

    51

                }

    52

            }

    53

            otherwise {

    54

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

    55

                    with "index", "$index";

    56

                    with "parentpath" > «$path»

    57

                }

    58

            }

    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

//  Parses:

    70

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

    71

//

    72

//  Into:

    73

//  widget type="WidgetType" id="blah456" {

    74

//      arg value="param1";

    75

//      arg value="param2";

    76

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

    77

//      path value="path2";

    78

//  }

    79

//

    80

template "*", mode="parselabel" {

    81

    const "label","@inkscape:label";

    82

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

    83

    84

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

    85

    const "args" choose {

    86

        when "$_args" value "$_args";

    87

        otherwise value "$description";

    88

    }

    89

    90

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

    91

    const "type" choose {

    92

        when "$_type" value "$_type";

    93

        otherwise value "$args";

    94

    }

    95

    96

    if "$type" widget {

    97

        attrib "id" > «@id»

    98

        attrib "type" > «$type»

    99

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

   100

            arg {

   101

                attrib "value" > «.»

   102

            }

   103

        }

   104

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

   105

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

   106

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

   107

                attrib "value" > «.»

   108

                const "path", ".";

   109

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

   110

                if "count($item) = 1" {

   111

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

   112

                    attrib "type" > «local-name($item)»

   113

                }

   114

            }

   115

        }

   116

    }

   117

}

   118

   119

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

   120

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

   121

   122

def "func:widget" {

   123

    param "id";

   124

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

   125

}

   126

   127

def "func:is_descendant_path" {

   128

    param "descend";

   129

    param "ancest";

   130

    // TODO : use HMI tree to answer more accurately

   131

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

   132

}

   133

   134

def "func:same_class_paths" {

   135

    param "a";

   136

    param "b";

   137

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

   138

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

   139

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

   140

}

   141

   142

// Debug data

   143

template "*", mode="testtree"{

   144

    param "indent", "''";

   145

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

   146

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

   147

    > \n

   148

    apply "*", mode="testtree" {

   149

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

   150

    };

   151

}

   152

   153

emit "debug:hmi-tree" {

   154

    | Raw HMI tree

   155

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

   156

    |

   157

    | Indexed HMI tree

   158

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

   159

    |

   160

    | Parsed Widgets

   161

    copy "_parsed_widgets";

   162

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

   163

}