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

                choose {

   111

                    when "count($item) = 1" {

   112

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

   113

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

   114

                    }

   115

                    otherwise {

   116

                        choose {

   117

                            when "regexp:test($path,'^\.[a-zA-Z0-9_]+')" {

   118

                                attrib "type" > PAGE_LOCAL

   119

                            }

   120

                            when "regexp:test($path,'^[a-zA-Z0-9_]+')" {

   121

                                attrib "type" > HMI_LOCAL

   122

                            }

   123

                        }

   124

                    }

   125

                }

   126

            }

   127

        }

   128

    }

   129

}

   130

   131

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

   132

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

   133

   134

def "func:widget" {

   135

    param "id";

   136

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

   137

}

   138

   139

def "func:is_descendant_path" {

   140

    param "descend";

   141

    param "ancest";

   142

    // TODO : use HMI tree to answer more accurately

   143

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

   144

}

   145

   146

def "func:same_class_paths" {

   147

    param "a";

   148

    param "b";

   149

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

   150

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

   151

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

   152

}

   153

   154

// Debug data

   155

template "*", mode="testtree"{

   156

    param "indent", "''";

   157

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

   158

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

   159

    > \n

   160

    apply "*", mode="testtree" {

   161

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

   162

    };

   163

}

   164

   165

emit "debug:hmi-tree" {

   166

    | Raw HMI tree

   167

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

   168

    |

   169

    | Indexed HMI tree

   170

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

   171

    |

   172

    | Parsed Widgets

   173

    copy "_parsed_widgets";

   174

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

   175

}