1

// parse_labels.ysl2

     2

     3

     4

//  Parses:

     5

//  "HMI:WidgetType: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 "_type", "substring-before($args,':')";

    32

    const "type" choose {

    33

        when "$_type" value "$_type";

    34

        otherwise value "$args";

    35

    }

    36

    37

    if "$type" widget {

    38

        attrib "id" > «$id»

    39

        attrib "type" > «$type»

    40

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

    41

            arg {

    42

                attrib "value" > «.»

    43

            }

    44

        }

    45

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

    46

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

    47

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

    48

                // 1 : global match

    49

                // 2 : /path

    50

                // 3 : [accepts]

    51

                // 4 : min,max

    52

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

    53

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

    54

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

    55

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

    56

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

    57

                attrib "value" > «$path»

    58

                if "string-length($path_accepts)"

    59

                    attrib "accepts" > «$path_accepts»

    60

                choose {

    61

                    when "$pathminmaxcount = 2" {

    62

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

    63

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

    64

                    }

    65

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

    66

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

    67

                    }

    68

                }

    69

                if "$indexed_hmitree" choose {

    70

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

    71

                        attrib "type" > PAGE_LOCAL

    72

                    }

    73

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

    74

                        attrib "type" > HMI_LOCAL

    75

                    }

    76

                    otherwise {

    77

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

    78

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

    79

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

    80

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

    81

                        }

    82

                        if "count($item) = 1" {

    83

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

    84

                            attrib "type" > «$pathtype»

    85

                        }

    86

                    }

    87

                }

    88

            }

    89

        }

    90

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

    91

    }

    92

}

    93

    94

    95

// Templates to generate label back from parsed tree

    96

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

    97

    98

template "path", mode="genlabel" {

    99

    > @«@value»

   100

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

   101

}

   102

   103

template "widget", mode="genlabel" {

   104

    > HMI:«@type»

   105

    apply "arg", mode="genlabel";

   106

    apply "path", mode="genlabel";

   107

}

   108