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