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