_Really_ clean it
[claws.git] / src / matcher_parser_lex.l
1 %{
2 #include <string.h>
3 #include <glib.h>
4
5 #include "matcher_parser_lex.h"
6 #include "matcher_parser_parse.h"
7
8 #define MAX_STR_CONST 512
9
10 char string_buf[MAX_STR_CONST];
11 char * string_buf_ptr;
12
13 static void add_char(char ch)
14 {
15         if (string_buf_ptr - string_buf < sizeof(string_buf))
16                 *string_buf_ptr++ = ch;
17 }
18
19
20 /* this function will reinitializes the parser */
21
22 void matcher_parser_init(void)
23 {
24         BEGIN(0);
25 }
26 %}
27
28 %option prefix="matcher_parser"
29 %option outfile="lex.yy.c"
30 %option yylineno
31
32 %x string
33 %x section
34
35 %%
36
37 "all"           return MATCHER_ALL;
38 "unread"        return MATCHER_UNREAD;
39 "~unread"       return MATCHER_NOT_UNREAD;
40 "new"           return MATCHER_NEW;
41 "~new"          return MATCHER_NOT_NEW;
42 "marked"        return MATCHER_MARKED;
43 "~marked"       return MATCHER_NOT_MARKED;
44 "deleted"       return MATCHER_DELETED;
45 "~deleted"      return MATCHER_NOT_DELETED;
46 "replied"       return MATCHER_REPLIED;
47 "~replied"      return MATCHER_NOT_REPLIED;
48 "forwarded"     return MATCHER_FORWARDED;
49 "~forwarded"    return MATCHER_NOT_FORWARDED;
50 "subject"       return MATCHER_SUBJECT;
51 "~subject"      return MATCHER_NOT_SUBJECT;
52 "from"          return MATCHER_FROM;
53 "~from"         return MATCHER_NOT_FROM;
54 "to"            return MATCHER_TO;
55 "~to"           return MATCHER_NOT_TO;
56 "cc"            return MATCHER_CC;
57 "~cc"           return MATCHER_NOT_CC;
58 "to_or_cc"      return MATCHER_TO_OR_CC;
59 "~to_or_cc"     return MATCHER_NOT_TO_AND_NOT_CC;
60 "age_greater"   return MATCHER_AGE_GREATER;
61 "age_lower"     return MATCHER_AGE_LOWER;
62 "newsgroups"    return MATCHER_NEWSGROUPS;
63 "~newsgroups"   return MATCHER_NOT_NEWSGROUPS;
64 "inreplyto"     return MATCHER_INREPLYTO;
65 "~inreplyto"    return MATCHER_NOT_INREPLYTO;
66 "references"    return MATCHER_REFERENCES;
67 "~references"   return MATCHER_NOT_REFERENCES;
68 "score_greater" return MATCHER_SCORE_GREATER;
69 "score_lower"   return MATCHER_SCORE_LOWER;
70 "score_equal"   return MATCHER_SCORE_EQUAL;
71 "size_greater"  return MATCHER_SIZE_GREATER;
72 "size_smaller"  return MATCHER_SIZE_SMALLER;
73 "size_equal"    return MATCHER_SIZE_EQUAL;
74 "header"        return MATCHER_HEADER;
75 "~header"       return MATCHER_NOT_HEADER;
76 "headers_part"  return MATCHER_HEADERS_PART;
77 "~headers_part" return MATCHER_NOT_HEADERS_PART;
78 "message"       return MATCHER_MESSAGE;
79 "~message"      return MATCHER_NOT_MESSAGE;
80 "body_part"     return MATCHER_BODY_PART;
81 "~body_part"    return MATCHER_NOT_BODY_PART;
82 "execute"       return MATCHER_EXECUTE;
83 "~execute"      return MATCHER_NOT_EXECUTE;
84 "matchcase"     return MATCHER_MATCHCASE;
85 "match"         return MATCHER_MATCH;
86 "regexpcase"    return MATCHER_REGEXPCASE;
87 "regexp"        return MATCHER_REGEXP;
88 "score"         return MATCHER_SCORE;
89 "move"          return MATCHER_MOVE;
90 "copy"          return MATCHER_COPY;
91 "delete"        return MATCHER_DELETE;
92 "mark"          return MATCHER_MARK;
93 "unmark"        return MATCHER_UNMARK;
94 "mark_as_read"  return MATCHER_MARK_AS_READ;
95 "mark_as_unread"       return MATCHER_MARK_AS_UNREAD;
96 "forward"              return MATCHER_FORWARD;
97 "forward_as_attachment"       return MATCHER_FORWARD_AS_ATTACHMENT;
98 "color"         return MATCHER_COLOR;
99 "redirect"      return MATCHER_REDIRECT;
100 "delete_on_server"      return MATCHER_DELETE_ON_SERVER;
101 [ \t]+
102 "\n"            return MATCHER_EOL;
103 "&"             return MATCHER_AND;
104 "|"             return MATCHER_OR;
105 \"              {
106                 BEGIN(string);
107                 string_buf_ptr = string_buf;
108                 }
109                 /* alfons - OK, the new attempt is to just swallow 
110                  * *EVERYTHING* and make sure everything is escaped
111                  * when actually performing things. */
112 <string>\\\"    {
113                 /* take care of escaped \" because this means the
114                  * quote char should be skipped */
115                 add_char('\\');
116                 add_char('\"');
117                 }
118 <string>\"      {
119                 /* get out of the state: string ends. */
120                 BEGIN(0);
121                 *string_buf_ptr = '\0';
122                 yylval.str = string_buf;
123                 return MATCHER_STRING;
124                 }
125                 /* put everything else in the output. */
126 <string>.       {
127                 add_char(yytext[0]);
128                 }
129 \[[^\[\]]*\]    {
130                 BEGIN(0);
131                 yylval.str = yytext + 1;
132                 yytext[strlen(yytext) - 1] = '\0';
133                 return MATCHER_SECTION;
134                 }
135 [-+]?[0-9]+     {
136                 yylval.str = yytext;
137                 return MATCHER_INTEGER;
138                 }
139
140 %%