1

// parse_labels.ysl2

     2

     3

     4

//  Parses:

     5

//  "HMI:WidgetType|freq:param1:param2@path1,path1min,path1max@path2"

     6

//

     7

//  Into:

     8

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

     9

//      arg value="param1";

    10

//      arg value="param2";

    11

//      path value=".path1" index=".path1" min="path1min" max="path1max" type="PAGE_LOCAL";

    12

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

    13

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

    14

//  }

    15

//

    16

const "pathregex",!"'^([^\[,]+)(\[[^\]]+\])?([-.\d,]*)$'"!;

    17

    18

template "*", mode="parselabel"

    19

{

    20

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

    21

    const "id","@id";

    22

    23

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

    24

    25

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

    26

    const "args" choose {

    27

        when "$_args" value "$_args";

    28

        otherwise value "$description";

    29

    }

    30

    31

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

    32

    const "typefreq" choose {

    33

        when "$_typefreq" value "$_typefreq";

    34

        otherwise value "$args";

    35

    }

    36

    37

    const "freq", "substring-after($typefreq,'|')";

    38

    39

    const "_type", "substring-before($typefreq,'|')";

    40

    const "type" choose {

    41

        when "$_type" value "$_type";

    42

        otherwise value "$typefreq";

    43

    }

    44

    if "$type" widget {

    45

        attrib "id" > «$id»

    46

        attrib "type" > «$type»

    47

        if "$freq" {

    48

            if "not(regexp:test($freq,'^[0-9]*(\.[0-9]+)?[smh]?'))" {

    49

                error > Widget id:«$id» label:«$label» has wrong syntax of frequency forcing «$freq»

    50

            }

    51

            attrib "freq" > «$freq»

    52

        }

    53

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

    54

            arg {

    55

                attrib "value" > «.»

    56

            }

    57

        }

    58

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

    59

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

    60

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

    61

                // 1 : global match

    62

                // 2 : /path

    63

                // 3 : [accepts]

    64

                // 4 : min,max

    65

                const "path_match", "regexp:match(.,$pathregex)";

    66

                const "pathminmax", "str:split($path_match[4],',')";

    67

                const "path", "$path_match[2]";

    68

                const "path_accepts", "$path_match[3]";

    69

                const "pathminmaxcount", "count($pathminmax)";

    70

                attrib "value" > «$path»

    71

                if "string-length($path_accepts)"

    72

                    attrib "accepts" > «$path_accepts»

    73

                choose {

    74

                    when "$pathminmaxcount = 2" {

    75

                        attrib "min" > «$pathminmax[1]»

    76

                        attrib "max" > «$pathminmax[2]»

    77

                    }

    78

                    when "$pathminmaxcount = 1 or $pathminmaxcount > 2" {

    79

                        error > Widget id:«$id» label:«$label» has wrong syntax of path section «$pathminmax»

    80

                    }

    81

                }

    82

                if "$indexed_hmitree" choose {

    83

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

    84

                        attrib "type" > PAGE_LOCAL

    85

                    }

    86

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

    87

                        attrib "type" > HMI_LOCAL

    88

                    }

    89

                    otherwise {

    90

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

    91

                        const "pathtype", "local-name($item)";

    92

                        if "$pathminmaxcount = 3 and not($pathtype = 'HMI_INT' or $pathtype = 'HMI_REAL')" {

    93

                            error > Widget id:«$id» label:«$label» path section «$pathminmax» use min and max on non mumeric value

    94

                        }

    95

                        if "count($item) = 1" {

    96

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

    97

                            attrib "type" > «$pathtype»

    98

                        }

    99

                    }

   100

                }

   101

            }

   102

        }

   103

        if "svg:desc" desc value "svg:desc/text()";

   104

    }

   105

}

   106

   107

   108

// Templates to generate label back from parsed tree

   109

template "arg", mode="genlabel" > :«@value»

   110

   111

template "path", mode="genlabel" {

   112

    > @«@value»

   113

    if "string-length(@min)>0 or string-length(@max)>0"  > ,«@min»,«@max»

   114

}

   115

   116

template "widget", mode="genlabel" {

   117

    > HMI:«@type»

   118

    apply "arg", mode="genlabel";

   119

    apply "path", mode="genlabel";

   120

}

   121