inital gtk2 patch
[claws.git] / src / matcher_parser_parse.y
1
2 %{
3
4 /*
5  * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
6  * Copyright (c) 2001-2002 by Hiroyuki Yamamoto & The Sylpheed Claws Team.
7  *
8  * This program is free software; you can redistribute it and/or modify
9  * it under the terms of the GNU General Public License as published by
10  * the Free Software Foundation; either version 2 of the License, or
11  * (at your option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  * GNU General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with this program; if not, write to the Free Software
20  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
21  */
22
23 #include "defs.h"
24
25 #include <glib.h>
26
27 #include "intl.h"
28 #include "utils.h"
29 #include "filtering.h"
30 #include "scoring.h"
31 #include "matcher.h"
32 #include "matcher_parser.h"
33 #include "matcher_parser_lex.h"
34 #include "procmsg.h"
35
36 #define MAX_COLORLABELS (MSG_CLABEL_7 - MSG_CLABEL_NONE)
37
38 static gint error = 0;
39 static gint bool_op = 0;
40 static gint match_type = 0;
41 static gchar *header = NULL;
42
43 static MatcherProp *prop;
44
45 static GSList *matchers_list = NULL;
46
47 static MatcherList *cond;
48 static gint score = 0;
49 static GSList *action_list = NULL;
50 static FilteringAction *action = NULL;
51
52 static FilteringProp *filtering;
53 static ScoringProp *scoring = NULL;
54
55 static GSList **prefs_scoring = NULL;
56 static GSList **prefs_filtering = NULL;
57
58 #if 0
59 static int matcher_parser_dialog = 0;
60 #endif
61
62 enum {
63         MATCHER_PARSE_NONE,
64         MATCHER_PARSE_NO_EOL,
65         MATCHER_PARSE_CONDITION,
66         MATCHER_PARSE_FILTERING_OR_SCORING,
67 };
68
69 static int matcher_parse_op = MATCHER_PARSE_NONE;
70
71
72 /* ******************************************************************** */
73
74 void matcher_parser_start_parsing(FILE *f)
75 {
76         matcher_parserrestart(f);
77         matcher_parserparse();
78 }
79  
80 FilteringProp *matcher_parser_get_filtering(const gchar *str)
81 {
82         void *bufstate;
83
84         /* bad coding to enable the sub-grammar matching
85            in yacc */
86         matcher_parserlineno = 1;
87         matcher_parse_op = MATCHER_PARSE_NO_EOL;
88         matcher_parserrestart(NULL);
89         matcher_parser_init();
90         bufstate = matcher_parser_scan_string(str);
91         matcher_parser_switch_to_buffer(bufstate);
92         if (matcher_parserparse() != 0)
93                 filtering = NULL;
94         matcher_parse_op = MATCHER_PARSE_NONE;
95         matcher_parser_delete_buffer(bufstate);
96         return filtering;
97 }
98
99 ScoringProp *matcher_parser_get_scoring(const gchar *str)
100 {
101         void *bufstate;
102
103         /* bad coding to enable the sub-grammar matching
104            in yacc */
105         matcher_parserlineno = 1;
106         matcher_parse_op = MATCHER_PARSE_NO_EOL;
107         matcher_parserrestart(NULL);
108         matcher_parser_init();
109         bufstate = matcher_parser_scan_string(str);
110         matcher_parser_switch_to_buffer(bufstate);
111         if (matcher_parserparse() != 0)
112                 scoring = NULL;
113         matcher_parse_op = MATCHER_PARSE_NONE;
114         matcher_parser_delete_buffer(bufstate);
115         return scoring;
116 }
117
118 static gboolean check_quote_symetry(gchar *str)
119 {
120         const gchar *walk;
121         int ret = 0;
122         
123         if (str == NULL)
124                 return TRUE; /* heh, that's symetric */
125         if (*str == '\0')
126                 return TRUE;
127         for (walk = str; *walk; walk++) {
128                 if (*walk == '\"') {
129                         if (walk == str         /* first char */
130                         || *(walk - 1) != '\\') /* not escaped */
131                                 ret ++;
132                 }
133         }
134         return !(ret % 2);
135 }
136
137 MatcherList *matcher_parser_get_cond(const gchar *str)
138 {
139         void *bufstate;
140
141         if (!check_quote_symetry(str)) {
142                 cond = NULL;
143                 return cond;
144         }
145         
146         /* bad coding to enable the sub-grammar matching
147            in yacc */
148         matcher_parserlineno = 1;
149         matcher_parse_op = MATCHER_PARSE_CONDITION;
150         matcher_parserrestart(NULL);
151         matcher_parser_init();
152         bufstate = matcher_parser_scan_string(str);
153         matcher_parserparse();
154         matcher_parse_op = MATCHER_PARSE_NONE;
155         matcher_parser_delete_buffer(bufstate);
156         return cond;
157 }
158
159 GSList *matcher_parser_get_action_list(const gchar *str)
160 {
161         void *bufstate;
162
163         if (!check_quote_symetry(str)) {
164                 action_list = NULL;
165                 return action_list;
166         }
167         
168         /* bad coding to enable the sub-grammar matching
169            in yacc */
170         matcher_parserlineno = 1;
171         matcher_parse_op = MATCHER_PARSE_FILTERING_OR_SCORING;
172         matcher_parserrestart(NULL);
173         matcher_parser_init();
174         bufstate = matcher_parser_scan_string(str);
175         matcher_parserparse();
176         matcher_parse_op = MATCHER_PARSE_NONE;
177         matcher_parser_delete_buffer(bufstate);
178         return action_list;
179 }
180
181 MatcherProp *matcher_parser_get_prop(const gchar *str)
182 {
183         MatcherList *list;
184         MatcherProp *prop;
185
186         matcher_parserlineno = 1;
187         list = matcher_parser_get_cond(str);
188         if (list == NULL)
189                 return NULL;
190
191         if (list->matchers == NULL)
192                 return NULL;
193
194         if (list->matchers->next != NULL)
195                 return NULL;
196
197         prop = list->matchers->data;
198
199         g_slist_free(list->matchers);
200         g_free(list);
201
202         return prop;
203 }
204
205 void matcher_parsererror(char *str)
206 {
207         GSList *l;
208
209         if (matchers_list) {
210                 for (l = matchers_list; l != NULL; l = g_slist_next(l)) {
211                         matcherprop_free((MatcherProp *)
212                                          l->data);
213                         l->data = NULL;
214                 }
215                 g_slist_free(matchers_list);
216                 matchers_list = NULL;
217         }
218         cond = NULL;
219         g_warning("scoring / filtering parsing: %i: %s\n",
220                   matcher_parserlineno, str);
221         error = 1;
222 }
223
224 int matcher_parserwrap(void)
225 {
226         return 1;
227 }
228 %}
229
230 %union {
231         char *str;
232         int value;
233 }
234
235 %token MATCHER_ALL MATCHER_UNREAD  MATCHER_NOT_UNREAD 
236 %token MATCHER_NEW  MATCHER_NOT_NEW  MATCHER_MARKED
237 %token MATCHER_NOT_MARKED  MATCHER_DELETED  MATCHER_NOT_DELETED
238 %token MATCHER_REPLIED  MATCHER_NOT_REPLIED  MATCHER_FORWARDED
239 %token MATCHER_NOT_FORWARDED  MATCHER_SUBJECT  MATCHER_NOT_SUBJECT
240 %token MATCHER_FROM  MATCHER_NOT_FROM  MATCHER_TO  MATCHER_NOT_TO
241 %token MATCHER_CC  MATCHER_NOT_CC  MATCHER_TO_OR_CC  MATCHER_NOT_TO_AND_NOT_CC
242 %token MATCHER_AGE_GREATER  MATCHER_AGE_LOWER  MATCHER_NEWSGROUPS
243 %token MATCHER_NOT_NEWSGROUPS  MATCHER_INREPLYTO  MATCHER_NOT_INREPLYTO
244 %token MATCHER_REFERENCES  MATCHER_NOT_REFERENCES  MATCHER_SCORE_GREATER
245 %token MATCHER_SCORE_LOWER  MATCHER_HEADER  MATCHER_NOT_HEADER
246 %token MATCHER_HEADERS_PART  MATCHER_NOT_HEADERS_PART  MATCHER_MESSAGE
247 %token MATCHER_NOT_MESSAGE  MATCHER_BODY_PART  MATCHER_NOT_BODY_PART
248 %token MATCHER_EXECUTE  MATCHER_NOT_EXECUTE  MATCHER_MATCHCASE  MATCHER_MATCH
249 %token MATCHER_REGEXPCASE  MATCHER_REGEXP  MATCHER_SCORE  MATCHER_MOVE
250 %token MATCHER_COPY  MATCHER_DELETE  MATCHER_MARK  MATCHER_UNMARK MATCHER_LOCK MATCHER_UNLOCK
251 %token MATCHER_MARK_AS_READ  MATCHER_MARK_AS_UNREAD  MATCHER_FORWARD
252 %token MATCHER_FORWARD_AS_ATTACHMENT  MATCHER_EOL  MATCHER_STRING  
253 %token MATCHER_OR MATCHER_AND  
254 %token MATCHER_COLOR MATCHER_SCORE_EQUAL MATCHER_REDIRECT 
255 %token MATCHER_SIZE_GREATER MATCHER_SIZE_SMALLER MATCHER_SIZE_EQUAL
256 %token MATCHER_LOCKED MATCHER_NOT_LOCKED
257 %token MATCHER_COLORLABEL MATCHER_NOT_COLORLABEL
258 %token MATCHER_IGNORE_THREAD MATCHER_NOT_IGNORE_THREAD
259 %token MATCHER_CHANGE_SCORE
260
261 %start file
262
263 %token <str> MATCHER_STRING
264 %token <str> MATCHER_SECTION
265 %token <str> MATCHER_INTEGER
266
267 %%
268
269 file:
270 {
271         if (matcher_parse_op == MATCHER_PARSE_NONE) {
272                 prefs_scoring = &global_scoring;
273                 prefs_filtering = &global_processing;
274         }
275 }
276 file_line_list;
277
278 file_line_list:
279 file_line
280 file_line_list
281 | file_line
282 ;
283
284 file_line:
285 section_notification
286
287 { action_list = NULL; }
288 instruction
289 | error MATCHER_EOL
290 {
291         yyerrok;
292 };
293
294 section_notification:
295 MATCHER_SECTION MATCHER_EOL
296 {
297         gchar *folder = $1;
298         FolderItem *item = NULL;
299
300         if (matcher_parse_op == MATCHER_PARSE_NONE) {
301                 if (!strcmp(folder, "global")) {
302                         prefs_scoring = &global_scoring;
303                         prefs_filtering = &global_processing;
304                 } else {
305                         item = folder_find_item_from_identifier(folder);
306                         if (item != NULL) {
307                                 prefs_scoring = &item->prefs->scoring;
308                                 prefs_filtering = &item->prefs->processing;
309                         } else {
310                                 prefs_scoring = NULL;
311                                 prefs_filtering = NULL;
312                         }
313                 }
314         }
315 }
316 ;
317
318 instruction:
319 condition filtering_or_scoring MATCHER_EOL
320 | condition filtering_or_scoring
321 {
322         if (matcher_parse_op == MATCHER_PARSE_NO_EOL)
323                 YYACCEPT;
324         else {
325                 matcher_parsererror("parse error");
326                 YYERROR;
327         }
328 }
329 | condition
330 {
331         if (matcher_parse_op == MATCHER_PARSE_CONDITION)
332                 YYACCEPT;
333         else {
334                 matcher_parsererror("parse error");
335                 YYERROR;
336         }
337 }
338 | filtering_action_list
339 {
340         if (matcher_parse_op == MATCHER_PARSE_FILTERING_OR_SCORING)
341                 YYACCEPT;
342         else {
343                 matcher_parsererror("parse error");
344                 YYERROR;
345         }
346 }
347 | MATCHER_EOL
348 ;
349
350 filtering_or_scoring:
351 filtering_action_list
352 {
353         filtering = filteringprop_new(cond, action_list);
354         cond = NULL;
355         action_list = NULL;
356         if ((matcher_parse_op == MATCHER_PARSE_NONE) && (prefs_filtering != NULL)) {
357                 *prefs_filtering = g_slist_append(*prefs_filtering,
358                                                   filtering);
359                 filtering = NULL;
360         }
361 }
362 | scoring_rule
363 {
364         scoring = scoringprop_new(cond, score);
365         cond = NULL;
366         score = 0;
367         if ((matcher_parse_op == MATCHER_PARSE_NONE)
368             && (prefs_scoring != NULL)) {
369                 *prefs_scoring = g_slist_append(*prefs_scoring, scoring);
370                 scoring = NULL;
371         }
372 }
373 ;
374
375 filtering_action_list:
376 filtering_action_b filtering_action_list
377 | filtering_action_b
378 ;
379
380 filtering_action_b:
381 filtering_action
382 {
383         action_list = g_slist_append(action_list, action);
384         action = NULL;
385 }
386 ;
387
388 match_type:
389 MATCHER_MATCHCASE
390 {
391         match_type = MATCHTYPE_MATCHCASE;
392 }
393 | MATCHER_MATCH
394 {
395         match_type = MATCHTYPE_MATCH;
396 }
397 | MATCHER_REGEXPCASE
398 {
399         match_type = MATCHTYPE_REGEXPCASE;
400 }
401 | MATCHER_REGEXP
402 {
403         match_type = MATCHTYPE_REGEXP;
404 }
405 ;
406
407 condition:
408 condition_list
409 {
410         cond = matcherlist_new(matchers_list, (bool_op == MATCHERBOOL_AND));
411         matchers_list = NULL;
412 }
413 ;
414
415 condition_list:
416 condition_list bool_op one_condition
417 {
418         matchers_list = g_slist_append(matchers_list, prop);
419 }
420 | one_condition
421 {
422         matchers_list = NULL;
423         matchers_list = g_slist_append(matchers_list, prop);
424 }
425 ;
426
427 bool_op:
428 MATCHER_AND
429 {
430         bool_op = MATCHERBOOL_AND;
431 }
432 | MATCHER_OR
433 {
434         bool_op = MATCHERBOOL_OR;
435 }
436 ;
437
438 one_condition:
439 MATCHER_ALL
440 {
441         gint criteria = 0;
442
443         criteria = MATCHCRITERIA_ALL;
444         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
445 }
446 | MATCHER_UNREAD
447 {
448         gint criteria = 0;
449
450         criteria = MATCHCRITERIA_UNREAD;
451         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
452 }
453 | MATCHER_NOT_UNREAD 
454 {
455         gint criteria = 0;
456
457         criteria = MATCHCRITERIA_NOT_UNREAD;
458         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
459 }
460 | MATCHER_NEW
461 {
462         gint criteria = 0;
463
464         criteria = MATCHCRITERIA_NEW;
465         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
466 }
467 | MATCHER_NOT_NEW
468 {
469         gint criteria = 0;
470
471         criteria = MATCHCRITERIA_NOT_NEW;
472         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
473 }
474 | MATCHER_MARKED
475 {
476         gint criteria = 0;
477
478         criteria = MATCHCRITERIA_MARKED;
479         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
480 }
481 | MATCHER_NOT_MARKED
482 {
483         gint criteria = 0;
484
485         criteria = MATCHCRITERIA_NOT_MARKED;
486         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
487 }
488 | MATCHER_DELETED
489 {
490         gint criteria = 0;
491
492         criteria = MATCHCRITERIA_DELETED;
493         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
494 }
495 | MATCHER_NOT_DELETED
496 {
497         gint criteria = 0;
498
499         criteria = MATCHCRITERIA_NOT_DELETED;
500         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
501 }
502 | MATCHER_REPLIED
503 {
504         gint criteria = 0;
505
506         criteria = MATCHCRITERIA_REPLIED;
507         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
508 }
509 | MATCHER_NOT_REPLIED
510 {
511         gint criteria = 0;
512
513         criteria = MATCHCRITERIA_NOT_REPLIED;
514         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
515 }
516 | MATCHER_FORWARDED
517 {
518         gint criteria = 0;
519
520         criteria = MATCHCRITERIA_FORWARDED;
521         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
522 }
523 | MATCHER_NOT_FORWARDED
524 {
525         gint criteria = 0;
526
527         criteria = MATCHCRITERIA_NOT_FORWARDED;
528         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
529 }
530 | MATCHER_LOCKED
531 {
532         gint criteria = 0;
533
534         criteria = MATCHCRITERIA_LOCKED;
535         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
536 }
537 | MATCHER_NOT_LOCKED
538 {
539         gint criteria = 0;
540
541         criteria = MATCHCRITERIA_NOT_LOCKED;
542         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
543 }
544 | MATCHER_COLORLABEL MATCHER_INTEGER
545 {
546         gint criteria = 0;
547         gint value = 0;
548
549         criteria = MATCHCRITERIA_COLORLABEL;
550         value = atoi($2);
551         if (value < 1) value = 1;
552         else if (value > MAX_COLORLABELS) value = MAX_COLORLABELS;
553         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
554 }
555 | MATCHER_NOT_COLORLABEL MATCHER_INTEGER
556 {
557         gint criteria = 0;
558         gint value = 0;
559
560         criteria = MATCHCRITERIA_NOT_COLORLABEL;
561         value = atoi($2);
562         if (value < 1) value = 1;
563         else if (value > MAX_COLORLABELS) value = MAX_COLORLABELS;
564         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
565 }
566 | MATCHER_IGNORE_THREAD
567 {
568         gint criteria = 0;
569
570         criteria = MATCHCRITERIA_IGNORE_THREAD;
571         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
572 }
573 | MATCHER_NOT_IGNORE_THREAD
574 {
575         gint criteria = 0;
576
577         criteria = MATCHCRITERIA_NOT_IGNORE_THREAD;
578         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, 0);
579 }
580 | MATCHER_SUBJECT match_type MATCHER_STRING
581 {
582         gint criteria = 0;
583         gchar *expr = NULL;
584
585         criteria = MATCHCRITERIA_SUBJECT;
586         expr = $3;
587         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
588 }
589 | MATCHER_NOT_SUBJECT match_type MATCHER_STRING
590 {
591         gint criteria = 0;
592         gchar *expr = NULL;
593
594         criteria = MATCHCRITERIA_NOT_SUBJECT;
595         expr = $3;
596         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
597 }
598 | MATCHER_FROM match_type MATCHER_STRING
599 {
600         gint criteria = 0;
601         gchar *expr = NULL;
602
603         criteria = MATCHCRITERIA_FROM;
604         expr = $3;
605         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
606 }
607 | MATCHER_NOT_FROM match_type MATCHER_STRING
608 {
609         gint criteria = 0;
610         gchar *expr = NULL;
611
612         criteria = MATCHCRITERIA_NOT_FROM;
613         expr = $3;
614         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
615 }
616 | MATCHER_TO match_type MATCHER_STRING
617 {
618         gint criteria = 0;
619         gchar *expr = NULL;
620
621         criteria = MATCHCRITERIA_TO;
622         expr = $3;
623         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
624 }
625 | MATCHER_NOT_TO match_type MATCHER_STRING
626 {
627         gint criteria = 0;
628         gchar *expr = NULL;
629
630         criteria = MATCHCRITERIA_NOT_TO;
631         expr = $3;
632         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
633 }
634 | MATCHER_CC match_type MATCHER_STRING
635 {
636         gint criteria = 0;
637         gchar *expr = NULL;
638
639         criteria = MATCHCRITERIA_CC;
640         expr = $3;
641         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
642 }
643 | MATCHER_NOT_CC match_type MATCHER_STRING
644 {
645         gint criteria = 0;
646         gchar *expr = NULL;
647
648         criteria = MATCHCRITERIA_NOT_CC;
649         expr = $3;
650         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
651 }
652 | MATCHER_TO_OR_CC match_type MATCHER_STRING
653 {
654         gint criteria = 0;
655         gchar *expr = NULL;
656
657         criteria = MATCHCRITERIA_TO_OR_CC;
658         expr = $3;
659         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
660 }
661 | MATCHER_NOT_TO_AND_NOT_CC match_type MATCHER_STRING
662 {
663         gint criteria = 0;
664         gchar *expr = NULL;
665
666         criteria = MATCHCRITERIA_NOT_TO_AND_NOT_CC;
667         expr = $3;
668         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
669 }
670 | MATCHER_AGE_GREATER MATCHER_INTEGER
671 {
672         gint criteria = 0;
673         gint value = 0;
674
675         criteria = MATCHCRITERIA_AGE_GREATER;
676         value = atoi($2);
677         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
678 }
679 | MATCHER_AGE_LOWER MATCHER_INTEGER
680 {
681         gint criteria = 0;
682         gint value = 0;
683
684         criteria = MATCHCRITERIA_AGE_LOWER;
685         value = atoi($2);
686         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
687 }
688 | MATCHER_NEWSGROUPS match_type MATCHER_STRING
689 {
690         gint criteria = 0;
691         gchar *expr = NULL;
692
693         criteria = MATCHCRITERIA_NEWSGROUPS;
694         expr = $3;
695         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
696 }
697 | MATCHER_NOT_NEWSGROUPS match_type MATCHER_STRING
698 {
699         gint criteria = 0;
700         gchar *expr = NULL;
701
702         criteria = MATCHCRITERIA_NOT_NEWSGROUPS;
703         expr = $3;
704         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
705 }
706 | MATCHER_INREPLYTO match_type MATCHER_STRING
707 {
708         gint criteria = 0;
709         gchar *expr = NULL;
710
711         criteria = MATCHCRITERIA_INREPLYTO;
712         expr = $3;
713         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
714 }
715 | MATCHER_NOT_INREPLYTO match_type MATCHER_STRING
716 {
717         gint criteria = 0;
718         gchar *expr = NULL;
719
720         criteria = MATCHCRITERIA_NOT_INREPLYTO;
721         expr = $3;
722         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
723 }
724 | MATCHER_REFERENCES match_type MATCHER_STRING
725 {
726         gint criteria = 0;
727         gchar *expr = NULL;
728
729         criteria = MATCHCRITERIA_REFERENCES;
730         expr = $3;
731         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
732 }
733 | MATCHER_NOT_REFERENCES match_type MATCHER_STRING
734 {
735         gint criteria = 0;
736         gchar *expr = NULL;
737
738         criteria = MATCHCRITERIA_NOT_REFERENCES;
739         expr = $3;
740         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
741 }
742 | MATCHER_SCORE_GREATER MATCHER_INTEGER
743 {
744         gint criteria = 0;
745         gint value = 0;
746
747         criteria = MATCHCRITERIA_SCORE_GREATER;
748         value = atoi($2);
749         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
750 }
751 | MATCHER_SCORE_LOWER MATCHER_INTEGER
752 {
753         gint criteria = 0;
754         gint value = 0;
755
756         criteria = MATCHCRITERIA_SCORE_LOWER;
757         value = atoi($2);
758         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
759 }
760 | MATCHER_SCORE_EQUAL MATCHER_INTEGER
761 {
762         gint criteria = 0;
763         gint value = 0;
764
765         criteria = MATCHCRITERIA_SCORE_EQUAL;
766         value = atoi($2);
767         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
768 }
769 | MATCHER_SIZE_GREATER MATCHER_INTEGER 
770 {
771         gint criteria = 0;
772         gint value    = 0;
773         criteria = MATCHCRITERIA_SIZE_GREATER;
774         value = atoi($2);
775         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
776 }
777 | MATCHER_SIZE_SMALLER MATCHER_INTEGER
778 {
779         gint criteria = 0;
780         gint value    = 0;
781         criteria = MATCHCRITERIA_SIZE_SMALLER;
782         value = atoi($2);
783         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
784 }
785 | MATCHER_SIZE_EQUAL MATCHER_INTEGER
786 {
787         gint criteria = 0;
788         gint value    = 0;
789         criteria = MATCHCRITERIA_SIZE_EQUAL;
790         value = atoi($2);
791         prop = matcherprop_unquote_new(criteria, NULL, 0, NULL, value);
792 }
793 | MATCHER_HEADER MATCHER_STRING
794 {
795         header = g_strdup($2);
796 } match_type MATCHER_STRING
797 {
798         gint criteria = 0;
799         gchar *expr = NULL;
800
801         criteria = MATCHCRITERIA_HEADER;
802         expr = $2;
803         prop = matcherprop_unquote_new(criteria, header, match_type, expr, 0);
804         g_free(header);
805 }
806 | MATCHER_NOT_HEADER MATCHER_STRING
807 {
808         header = g_strdup($2);
809 } match_type MATCHER_STRING
810 {
811         gint criteria = 0;
812         gchar *expr = NULL;
813
814         criteria = MATCHCRITERIA_NOT_HEADER;
815         expr = $2;
816         prop = matcherprop_unquote_new(criteria, header, match_type, expr, 0);
817         g_free(header);
818 }
819 | MATCHER_HEADERS_PART match_type MATCHER_STRING
820 {
821         gint criteria = 0;
822         gchar *expr = NULL;
823
824         criteria = MATCHCRITERIA_HEADERS_PART;
825         expr = $3;
826         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
827 }
828 | MATCHER_NOT_HEADERS_PART match_type MATCHER_STRING
829 {
830         gint criteria = 0;
831         gchar *expr = NULL;
832
833         criteria = MATCHCRITERIA_NOT_HEADERS_PART;
834         expr = $3;
835         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
836 }
837 | MATCHER_MESSAGE match_type MATCHER_STRING
838 {
839         gint criteria = 0;
840         gchar *expr = NULL;
841
842         criteria = MATCHCRITERIA_MESSAGE;
843         expr = $3;
844         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
845 }
846 | MATCHER_NOT_MESSAGE match_type MATCHER_STRING
847 {
848         gint criteria = 0;
849         gchar *expr = NULL;
850
851         criteria = MATCHCRITERIA_NOT_MESSAGE;
852         expr = $3;
853         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
854 }
855 | MATCHER_BODY_PART match_type MATCHER_STRING
856 {
857         gint criteria = 0;
858         gchar *expr = NULL;
859
860         criteria = MATCHCRITERIA_BODY_PART;
861         expr = $3;
862         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
863 }
864 | MATCHER_NOT_BODY_PART match_type MATCHER_STRING
865 {
866         gint criteria = 0;
867         gchar *expr = NULL;
868
869         criteria = MATCHCRITERIA_NOT_BODY_PART;
870         expr = $3;
871         prop = matcherprop_unquote_new(criteria, NULL, match_type, expr, 0);
872 }
873 | MATCHER_EXECUTE MATCHER_STRING
874 {
875         gint criteria = 0;
876         gchar *expr = NULL;
877
878         criteria = MATCHCRITERIA_EXECUTE;
879         expr = $2;
880         prop = matcherprop_unquote_new(criteria, NULL, 0, expr, 0);
881 }
882 | MATCHER_NOT_EXECUTE MATCHER_STRING
883 {
884         gint criteria = 0;
885         gchar *expr = NULL;
886
887         criteria = MATCHCRITERIA_NOT_EXECUTE;
888         expr = $2;
889         prop = matcherprop_unquote_new(criteria, NULL, 0, expr, 0);
890 }
891 ;
892
893 filtering_action:
894 MATCHER_EXECUTE MATCHER_STRING
895 {
896         gchar *cmd = NULL;
897         gint action_type = 0;
898
899         action_type = MATCHACTION_EXECUTE;
900         cmd = $2;
901         action = filteringaction_new(action_type, 0, cmd, 0);
902 }
903 | MATCHER_MOVE MATCHER_STRING
904 {
905         gchar *destination = NULL;
906         gint action_type = 0;
907
908         action_type = MATCHACTION_MOVE;
909         destination = $2;
910         action = filteringaction_new(action_type, 0, destination, 0);
911 }
912 | MATCHER_COPY MATCHER_STRING
913 {
914         gchar *destination = NULL;
915         gint action_type = 0;
916
917         action_type = MATCHACTION_COPY;
918         destination = $2;
919         action = filteringaction_new(action_type, 0, destination, 0);
920 }
921 | MATCHER_DELETE
922 {
923         gint action_type = 0;
924
925         action_type = MATCHACTION_DELETE;
926         action = filteringaction_new(action_type, 0, NULL, 0);
927 }
928 | MATCHER_MARK
929 {
930         gint action_type = 0;
931
932         action_type = MATCHACTION_MARK;
933         action = filteringaction_new(action_type, 0, NULL, 0);
934 }
935 | MATCHER_UNMARK
936 {
937         gint action_type = 0;
938
939         action_type = MATCHACTION_UNMARK;
940         action = filteringaction_new(action_type, 0, NULL, 0);
941 }
942 | MATCHER_LOCK
943 {
944         gint action_type = 0;
945
946         action_type = MATCHACTION_LOCK;
947         action = filteringaction_new(action_type, 0, NULL, 0);
948 }
949 | MATCHER_UNLOCK
950 {
951         gint action_type = 0;
952
953         action_type = MATCHACTION_UNLOCK;
954         action = filteringaction_new(action_type, 0, NULL, 0);
955 }
956 | MATCHER_MARK_AS_READ
957 {
958         gint action_type = 0;
959
960         action_type = MATCHACTION_MARK_AS_READ;
961         action = filteringaction_new(action_type, 0, NULL, 0);
962 }
963 | MATCHER_MARK_AS_UNREAD
964 {
965         gint action_type = 0;
966
967         action_type = MATCHACTION_MARK_AS_UNREAD;
968         action = filteringaction_new(action_type, 0, NULL, 0);
969 }
970 | MATCHER_FORWARD MATCHER_INTEGER MATCHER_STRING
971 {
972         gchar *destination = NULL;
973         gint action_type = 0;
974         gint account_id = 0;
975
976         action_type = MATCHACTION_FORWARD;
977         account_id = atoi($2);
978         destination = $3;
979         action = filteringaction_new(action_type, account_id, destination, 0);
980 }
981 | MATCHER_FORWARD_AS_ATTACHMENT MATCHER_INTEGER MATCHER_STRING
982 {
983         gchar *destination = NULL;
984         gint action_type = 0;
985         gint account_id = 0;
986
987         action_type = MATCHACTION_FORWARD_AS_ATTACHMENT;
988         account_id = atoi($2);
989         destination = $3;
990         action = filteringaction_new(action_type, account_id, destination, 0);
991 }
992 | MATCHER_REDIRECT MATCHER_INTEGER MATCHER_STRING
993 {
994         gchar *destination = NULL;
995         gint action_type = 0;
996         gint account_id = 0;
997
998         action_type = MATCHACTION_REDIRECT;
999         account_id = atoi($2);
1000         destination = $3;
1001         action = filteringaction_new(action_type, account_id, destination, 0);
1002 }
1003 | MATCHER_COLOR MATCHER_INTEGER
1004 {
1005         gint action_type = 0;
1006         gint color = 0;
1007
1008         action_type = MATCHACTION_COLOR;
1009         color = atoi($2);
1010         action = filteringaction_new(action_type, 0, NULL, color);
1011 }
1012 | MATCHER_CHANGE_SCORE MATCHER_STRING
1013 {
1014         gint action_type = MATCHACTION_CHANGE_SCORE;
1015         char *last_tok = NULL;
1016         const gchar *first_tok;
1017         long int chscore;
1018         int change_type; /* -1 == decrement, 0 == assign, 1 == increment */     
1019
1020 #define is_number(x) ( ((x) == '+') || ((x) == '-') || (isdigit((x))) ) 
1021         /* find start */
1022         for (first_tok = $2; *first_tok && !is_number(*first_tok); first_tok++)
1023                 ;            
1024 #undef is_number                
1025         
1026         chscore = strtol(first_tok, &last_tok, 10);
1027         if (last_tok == first_tok || *last_tok == 0) 
1028                 chscore = 0;
1029         change_type = *first_tok == '+' ? 1 : *first_tok == '-' ? -1 : 0;
1030         action = filteringaction_new(MATCHACTION_CHANGE_SCORE, change_type,
1031                                      NULL, chscore);
1032 }
1033 ;
1034
1035 scoring_rule:
1036 MATCHER_SCORE MATCHER_INTEGER
1037 {
1038         score = atoi($2);
1039 }
1040 ;