1

// parse_labels.ysl2

     2

     3

     4

//  Parses:

     5

//  "HMI:WidgetType|freq:param1:param2@a=path1,path1min,path1max@b=path2#a+b>3"

     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",!"'^(\w+=)?([^,=]+)([-.\d,]*)$'"!;

    17

    18

const "newline" |

    19

const "twonewlines", "concat($newline,$newline)";

    20

    21

template "*", mode="parselabel"

    22

{

    23

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

    24

    const "desc", "svg:desc";

    25

    26

    // add svg:desc field if continuation "\" marker is found at the end of label

    27

    const "len","string-length($label)";

    28

    const "has_continuation", "substring($label,$len,1)='\\'";

    29

    const "full_decl" choose{

    30

        when "$has_continuation" {

    31

           const "_continuation", "substring-before($desc, $twonewlines)";

    32

           const "continuation" choose {

    33

               when "$_continuation" value "$_continuation";

    34

               otherwise value "$desc";

    35

           }

    36

           value "concat(substring($label,1,$len - 1),translate($continuation,$newline,''))";

    37

        }

    38

        otherwise value "$label";

    39

    }

    40

    41

    const "id","@id";

    42

    43

    const "declaration", "substring-after($full_decl,'HMI:')";

    44

    45

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

    46

    const "args" choose {

    47

        when "$_args" value "$_args";

    48

        otherwise value "$declaration";

    49

    }

    50

    51

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

    52

    const "typefreq" choose {

    53

        when "$_typefreq" value "$_typefreq";

    54

        otherwise value "$args";

    55

    }

    56

    57

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

    58

    59

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

    60

    const "type" choose {

    61

        when "$_type" value "$_type";

    62

        otherwise value "$typefreq";

    63

    }

    64

    if "$type" widget {

    65

        attrib "id" > «$id»

    66

        attrib "type" > «$type»

    67

        if "$freq" {

    68

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

    69

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

    70

            }

    71

            attrib "freq" > «$freq»

    72

        }

    73

    74

        // find "#" + JS expr at the end

    75

        const "tail", "substring-after($declaration,'@')";

    76

        const "taillen","string-length($tail)";

    77

        const "has_enable", "contains($tail, '#')";

    78

        const "paths" choose{

    79

            when "$has_enable" {

    80

               value "substring-before($tail,'#')";

    81

            }

    82

            otherwise value "$tail";

    83

        }

    84

        if "$has_enable" {

    85

            const "enable_expr", "substring-after($tail,'#')";

    86

            attrib "enable_expr" value "$enable_expr";

    87

        }

    88

    89

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

    90

            arg {

    91

                attrib "value" > «.»

    92

            }

    93

        }

    94

    95

        // for stricter syntax checking, this should make error

    96

        // if $paths contains "@@" or ends with "@" (empty paths)

    97

    98

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

    99

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

   100

                // 1 : global match

   101

                // 2 : assign=

   102

                // 3 : /path

   103

                // 4 : min,max

   104

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

   105

                const "pathassign", "substring-before($path_match[2],'=')";

   106

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

   107

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

   108

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

   109

                if "not($path)"

   110

                    error > Widget id:«$id» label:«$full_decl» has wrong syntax

   111

   112

                attrib "value" value "$path";

   113

                if "$pathassign"

   114

                    attrib "assign" value "$pathassign";

   115

                choose {

   116

                    when "$pathminmaxcount = 2" {

   117

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

   118

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

   119

                    }

   120

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

   121

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

   122

                    }

   123

                }

   124

                if "$indexed_hmitree" choose {

   125

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

   126

                        attrib "type" > PAGE_LOCAL

   127

                    }

   128

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

   129

                        attrib "type" > HMI_LOCAL

   130

                    }

   131

                    otherwise {

   132

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

   133

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

   134

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

   135

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

   136

                        }

   137

                        if "count($item) = 1" {

   138

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

   139

                            attrib "type" > «$pathtype»

   140

                        }

   141

                    }

   142

                }

   143

            }

   144

        }

   145

        choose{

   146

            when "$has_continuation" {

   147

               const "_continuation", "substring-after($desc, $twonewlines)";

   148

               if "$_continuation"

   149

                       desc value "$_continuation";

   150

            }

   151

            otherwise

   152

                if "$desc" desc value "$desc/text()";

   153

        }

   154

    }

   155

}

   156

   157

   158

// Templates to generate label back from parsed tree

   159

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

   160

   161

template "path", mode="genlabel" {

   162

    > @«@value»

   163

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

   164

}

   165

   166

template "widget", mode="genlabel" {

   167

    > HMI:«@type»

   168

    apply "arg", mode="genlabel";

   169

    apply "path", mode="genlabel";

   170

}

   171