blob: 5b48feee7098716b32e721c2f4eb4e77153a3dec (
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
87
88
89
90
91
92
93
|
%{
/* 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: poprc_y.y
project: popclient
programmer: Carl Harris, ceharris@mal.com
Extensively hacked and fixed by esr.
description: .poprc parser
***********************************************************************/
#include <config.h>
#include <stdio.h>
extern char *poprcfile;
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_LOCALFOLDER KW_MDA KW_EOL KW_DEFAULTS
%token <proto> PROTO_POP2 PROTO_POP3 PROTO_IMAP PROTO_APOP PROTO_RPOP
%token <sval> PARAM_STRING
%token <flag> KW_KEEP KW_FLUSH KW_FETCHALL KW_REWRITE
%type <proto> proto;
/* these are actually used by the lexer */
%token TRUE 1
%token FALSE 0
%%
rcfile: rcline
| rcfile rcline
;
rcline: statement KW_EOL
;
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 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_LOCALFOLDER PARAM_STRING {prc_setlocal($2);}
| KW_MDA PARAM_STRING {prc_setmda($2);}
| KW_KEEP {prc_setkeep($1);}
| KW_FLUSH {prc_setflush($1);}
| KW_FETCHALL {prc_setfetchall($1);}
| KW_REWRITE {prc_setrewrite($1);}
;
proto: PROTO_POP2
| PROTO_POP3
| PROTO_IMAP
| PROTO_APOP
| PROTO_RPOP
;
%%
yyerror (s)
char *s;
{
fprintf(stderr,"%s line %d: %s at %s\n", poprcfile, prc_lineno, s, yytext);
prc_errflag++;
}
|
