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" attrib "freq" > «$freq»

    48

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

    49

            arg {

    50

                attrib "value" > «.»

    51

            }

    52

        }

    53

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

    54

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

    55

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

    56

                // 1 : global match

    57

                // 2 : /path

    58

                // 3 : [accepts]

    59

                // 4 : min,max

    60

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

    61

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

    62

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

    63

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

    64

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

    65

                attrib "value" > «$path»

    66

                if "string-length($path_accepts)"

    67

                    attrib "accepts" > «$path_accepts»

    68

                choose {

    69

                    when "$pathminmaxcount = 2" {

    70

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

    71

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

    72

                    }

    73

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

    74

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

    75

                    }

    76

                }

    77

                if "$indexed_hmitree" choose {

    78

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

    79

                        attrib "type" > PAGE_LOCAL

    80

                    }

    81

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

    82

                        attrib "type" > HMI_LOCAL

    83

                    }

    84

                    otherwise {

    85

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

    86

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

    87

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

    88

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

    89

                        }

    90

                        if "count($item) = 1" {

    91

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

    92

                            attrib "type" > «$pathtype»

    93

                        }

    94

                    }

    95

                }

    96

            }

    97

        }

    98

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

    99

    }

   100

}

   101

   102

   103

// Templates to generate label back from parsed tree

   104

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

   105

   106

template "path", mode="genlabel" {

   107

    > @«@value»

   108

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

   109

}

   110

   111

template "widget", mode="genlabel" {

   112

    > HMI:«@type»

   113

    apply "arg", mode="genlabel";

   114

    apply "path", mode="genlabel";

   115

}

   116