blob: a899315de9313ec0cd273e6799772540b67c21f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
%{
/* Copyright 1993-95 by Carl Harris, Jr. Copyright 1996 by Eric S. Raymond
* All rights reserved.
* For license terms, see the file COPYING in this directory.
*/
/***********************************************************************
module: rcfile_y.y
project: fetchmail
programmer: Carl Harris, ceharris@mal.com
Extensively hacked and fixed by esr.
description: configuration file parser
***********************************************************************/
#include <config.h>
#include <stdio.h>
extern char *rcfile;
extern int prc_lineno;
extern int prc_errflag;
extern char *yytext;
int yydebug; /* in case we didn't generate with -- debug */
%}
%union {
int proto;
int flag;
char *sval;
}
%token KW_SERVER KW_PROTOCOL KW_USERNAME KW_PASSWORD
%token KW_REMOTEFOLDER KW_SMTPHOST KW_MDA KW_DEFAULTS
%token <proto> KW_PROTO
%token <sval> PARAM_STRING
%token <flag> KW_KEEP KW_FLUSH KW_FETCHALL KW_REWRITE KW_PORT KW_SKIP
/* these are actually used by the lexer */
%token FLAG_TRUE 2
%token FLAG_FALSE 1
%%
rcfile: rcline
| rcfile rcline
;
rcline: statement
;
statement:
| define_server {prc_register(); prc_reset();}
;
define_server: KW_SERVER PARAM_STRING server_options {prc_setserver($2);}
| KW_SERVER PARAM_STRING {prc_setserver($2);}
| KW_DEFAULTS server_options {prc_setserver("defaults");}
;
server_options: serv_option_clause
| server_options serv_option_clause
;
serv_option_clause:
KW_PROTOCOL KW_PROTO {prc_setproto($2);}
| KW_USERNAME PARAM_STRING {prc_remotename($2);}
| KW_PASSWORD PARAM_STRING {prc_setpassword($2);}
| KW_REMOTEFOLDER PARAM_STRING {prc_setremote($2);}
| KW_SMTPHOST PARAM_STRING {prc_setsmtphost($2);}
| KW_MDA PARAM_STRING {prc_setmda($2);}
| KW_KEEP {prc_setkeep($1==FLAG_TRUE);}
| KW_FLUSH {prc_setflush($1==FLAG_TRUE);}
| KW_FETCHALL {prc_setfetchall($1==FLAG_TRUE);}
| KW_REWRITE {prc_setrewrite($1==FLAG_TRUE);}
| KW_SKIP {prc_setskip($1==FLAG_TRUE);}
| KW_PORT PARAM_STRING {prc_setport($2);}
;
%%
yyerror (s)
char *s;
{
fprintf(stderr,"%s line %d: %s at %s\n", rcfile, prc_lineno, s, yytext);
prc_errflag++;
}
|
