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=".path1" type="PAGE_LOCAL";

    77

//      path value="/path1" index="348" type="HMI_INT";

    78

//      path value="path4" index="path4" type="HMI_LOCAL";

    79

//  }

    80

//

    81

template "*", mode="parselabel" {

    82

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

    83

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

    84

    85

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

    86

    const "args" choose {

    87

        when "$_args" value "$_args";

    88

        otherwise value "$description";

    89

    }

    90

    91

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

    92

    const "type" choose {

    93

        when "$_type" value "$_type";

    94

        otherwise value "$args";

    95

    }

    96

    97

    if "$type" widget {

    98

        attrib "id" > «@id»

    99

        attrib "type" > «$type»

   100

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

   101

            arg {

   102

                attrib "value" > «.»

   103

            }

   104

        }

   105

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

   106

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

   107

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

   108

                attrib "value" > «.»

   109

                const "path", ".";

   110

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

   111

                choose {

   112

                    when "count($item) = 1" {

   113

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

   114

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

   115

                    }

   116

                    otherwise {

   117

                        choose {

   118

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

   119

                                attrib "type" > PAGE_LOCAL

   120

                            }

   121

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

   122

                                attrib "type" > HMI_LOCAL

   123

                            }

   124

                        }

   125

                    }

   126

                }

   127

            }

   128

        }

   129

    }

   130

}

   131

   132

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

   133

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

   134

   135

def "func:widget" {

   136

    param "id";

   137

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

   138

}

   139

   140

def "func:is_descendant_path" {

   141

    param "descend";

   142

    param "ancest";

   143

    // TODO : use HMI tree to answer more accurately

   144

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

   145

}

   146

   147

def "func:same_class_paths" {

   148

    param "a";

   149

    param "b";

   150

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

   151

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

   152

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

   153

}

   154

   155

// Debug data

   156

template "*", mode="testtree"{

   157

    param "indent", "''";

   158

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

   159

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

   160

    > \n

   161

    apply "*", mode="testtree" {

   162

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

   163

    };

   164

}

   165

   166

emit "debug:hmi-tree" {

   167

    | Raw HMI tree

   168

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

   169

    |

   170

    | Indexed HMI tree

   171

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

   172

    |

   173

    | Parsed Widgets

   174

    copy "_parsed_widgets";

   175

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

   176

}