4 * rcfile_l.l -- lexer for the run control file
6 * For license terms, see the file COPYING in this directory.
11 #include "fetchmail.h"
17 /* this doesn't work with Linux lex, see the INSTALL file */
25 logfile { return LOGFILE; }
26 idfile { return IDFILE; }
27 daemon { return DAEMON; }
28 syslog { return SYSLOG; }
29 invisible { return INVISIBLE; }
30 postmaster { return POSTMASTER; }
31 bouncemail { return BOUNCEMAIL; }
32 warnings { return WARNINGS; }
34 defaults { return DEFAULTS; }
35 server { return POLL; }
40 local(domains) { return LOCALDOMAINS; }
41 proto(col)? { return PROTOCOL; }
42 service { return SERVICE; }
44 interval { return INTERVAL; }
45 auth(enticate)? { return AUTHENTICATE; }
46 kerberos(_v)?4 { return KERBEROS4; }
47 kerberos(_v)?5 { return KERBEROS5; }
48 kerberos { return KERBEROS; }
49 timeout { return TIMEOUT;}
50 envelope { return ENVELOPE; }
51 qvirtual { return QVIRTUAL; }
53 user(name)? { return USERNAME; }
54 pass(word)? { return PASSWORD; }
55 folder(s)? { return FOLDER; }
56 smtp(host)? { return SMTPHOST; }
57 smtpaddress { return SMTPADDRESS; }
58 antispam { return SPAMRESPONSE; }
60 bsmtp { return BSMTP; }
62 pre(connect)? { return PRECONNECT; }
63 post(connect)? { return POSTCONNECT; }
64 netsec { return NETSEC; }
65 interface { return INTERFACE; }
66 monitor { return MONITOR; }
67 plugin { return PLUGIN; }
68 plugout { return PLUGIN; }
69 batchlimit { return BATCHLIMIT; }
70 fetchlimit { return FETCHLIMIT; }
71 expunge { return EXPUNGE; }
72 properties { return PROPERTIES; }
76 there { return THERE; }
79 "*" { return WILDCARD; }
101 keep { return KEEP; }
102 flush { return FLUSH; }
103 fetchall { return FETCHALL; }
104 rewrite { return REWRITE; }
105 forcecr { return FORCECR; }
106 stripcr { return STRIPCR; }
107 pass8(bits)? { return PASS8BITS; }
108 dropstatus { return DROPSTATUS; }
109 mimedec(ode)? { return MIMEDECODE; }
111 uidl { return UIDL; }
112 checkalias { return CHECKALIAS; }
114 limit { return LIMIT; }
120 options {/* EMPTY */}
123 (auto)|(AUTO) { yylval.proto = P_AUTO; return PROTO; }
124 (pop2)|(POP2) { yylval.proto = P_POP2; return PROTO; }
125 (sdps)|(SDPS) { return SDPS; }
126 (pop3)|(POP3) { yylval.proto = P_POP3; return PROTO; }
127 (imap-k4)|(IMAP-K4) { yylval.proto = P_IMAP_K4; return PROTO; }
128 (imap-gss)|(IMAP-GSS) { yylval.proto = P_IMAP_GSS; return PROTO; }
129 (imap)|(IMAP) { yylval.proto = P_IMAP; return PROTO; }
130 (apop)|(APOP) { yylval.proto = P_APOP; return PROTO; }
131 (etrn)|(ETRN) { yylval.proto = P_ETRN; return PROTO; }
132 (kpop)|(KPOP) { return KPOP; }
136 "fetchmail: `remote' keyword is gone, use `folder'\n");
140 (#.*)?\\?\n { prc_lineno++; } /* newline is ignored */
142 [0-9]+ { yylval.number = atoi(yytext); return NUMBER; }
145 char buf[MSGBUFSIZE];
147 yytext[strlen(yytext)-1] = '\0';
148 escapes(yytext+1, buf);
149 yylval.sval = (char *) xstrdup(buf);
153 char buf[MSGBUFSIZE];
155 yytext[strlen(yytext)-1] = '\0';
156 escapes(yytext+1, buf);
157 yylval.sval = (char *) xstrdup(buf);
161 char buf[MSGBUFSIZE];
163 escapes(yytext, buf);
164 yylval.sval = (char *) xstrdup(buf);
168 [ \t\r]+ ; /* whitespace */
173 /* process standard C-style escape sequences in a string */
174 const char *cp; /* source string with escapes */
175 char *tp; /* target buffer for digested string */
181 if (*cp == '\\' && strchr("0123456789xX", cp[1]))
184 const char *hex = "00112233445566778899aAbBcCdDeEfF";
187 if (*++cp == 'x' || *cp == 'X')
188 for (++cp; (dp = strchr(hex, *cp)) && (dcount++ < 2); cp++)
189 cval = (cval * 16) + (dp - hex) / 2;
191 while (strchr("01234567",*cp) != (char*)NULL && (dcount++ < 3))
192 cval = (cval * 8) + (*cp++ - '0');
194 while ((strchr("0123456789",*cp)!=(char*)NULL)&&(dcount++ < 3))
195 cval = (cval * 10) + (*cp++ - '0');
197 else if (*cp == '\\') /* C-style character escapes */
201 case '\\': cval = '\\'; break;
202 case 'n': cval = '\n'; break;
203 case 't': cval = '\t'; break;
204 case 'b': cval = '\b'; break;
205 case 'r': cval = '\r'; break;