4 * rcfile_l.l -- lexer for the run control file, to be used with GNU flex.
6 * For license terms, see the file COPYING in this directory.
10 #include "fetchmail.h"
19 #define SETSTATE(n) do {BEGIN(n); if (yydebug) fprintf(stderr, "Entering lexer state %d\n", n);} while (0)
21 #define SETSTATE(n) BEGIN(n)
28 %option nounput noyywrap
29 %option warn nodefault
38 char *in = xstrndup(yytext+1, yyleng-2);
45 <NAME>[^=;:, \t\r\n]+ {
46 char *in = xstrdup(yytext);
54 logfile { return LOGFILE; }
55 idfile { return IDFILE; }
56 pidfile { return PIDFILE; }
57 daemon { return DAEMON; }
58 syslog { return SYSLOG; }
59 invisible { return INVISIBLE; }
60 showdots { return SHOWDOTS; }
61 postmaster { return POSTMASTER; }
62 bouncemail { return BOUNCEMAIL; }
63 spambounce { return SPAMBOUNCE; }
64 softbounce { return SOFTBOUNCE; }
65 warnings { return WARNINGS; }
66 tracepolls { return TRACEPOLLS; }
68 defaults { return DEFAULTS; }
69 server { return POLL; }
74 local(domains)? { return LOCALDOMAINS; }
75 proto(col)? { return PROTOCOL; }
76 service { return SERVICE; }
78 interval { return INTERVAL; }
79 preauth(enticate)? { SETSTATE(AUTH); return AUTHENTICATE; }
80 auth(enticate)? { SETSTATE(AUTH); return AUTHENTICATE; }
81 any { SETSTATE(0); yylval.proto = A_ANY; return AUTHTYPE;}
82 gssapi { SETSTATE(0); yylval.proto = A_GSSAPI; return AUTHTYPE;}
83 kerberos(_v)?5 { SETSTATE(0); yylval.proto = A_KERBEROS_V5; return AUTHTYPE;}
84 kerberos { SETSTATE(0); yylval.proto = A_KERBEROS_V5; return AUTHTYPE;}
85 ssh { SETSTATE(0); yylval.proto = A_SSH; return AUTHTYPE;}
86 external { SETSTATE(0); yylval.proto = A_EXTERNAL; return AUTHTYPE;}
87 (otp|opie) { SETSTATE(0); yylval.proto = A_OTP; return AUTHTYPE;}
88 cram(-md5)? { SETSTATE(0); yylval.proto = A_CRAM_MD5; return AUTHTYPE;}
89 msn { SETSTATE(0); yylval.proto = A_MSN; return AUTHTYPE;}
90 ntlm { SETSTATE(0); yylval.proto = A_NTLM; return AUTHTYPE;}
91 <AUTH>password { SETSTATE(0); yylval.proto = A_PASSWORD; return AUTHTYPE;}
92 timeout { return TIMEOUT;}
93 envelope { return ENVELOPE; }
94 qvirtual { return QVIRTUAL; }
95 principal { return PRINCIPAL; }
96 esmtpname { return ESMTPNAME; }
97 esmtppassword { return ESMTPPASSWORD; }
98 bad-header { return BADHEADER; }
99 accept { return ACCEPT; }
100 reject { return REJECT_; }
101 retrieve-error { return RETRIEVEERROR; }
102 abort { return ABORT; }
103 continue { return CONTINUE; }
104 markseen { return MARKSEEN; }
106 user(name)? {SETSTATE(NAME); return USERNAME; }
107 pwmd_socket { return PWMD_SOCKET; }
108 pwmd_file { return PWMD_FILE; }
109 pinentry_timeout { return PINENTRY_TIMEOUT; }
110 <INITIAL,NAME>pass(word)? {SETSTATE(NAME); return PASSWORD; }
111 folder(s)? { return FOLDER; }
112 smtp(host)? { return SMTPHOST; }
113 fetchdomains { return FETCHDOMAINS; }
114 smtpaddress { return SMTPADDRESS; }
115 smtpname { return SMTPNAME; }
116 antispam { return SPAMRESPONSE; }
118 bsmtp { return BSMTP; }
119 lmtp { return LMTP; }
120 pre(connect)? { return PRECONNECT; }
121 post(connect)? { return POSTCONNECT; }
122 interface { return INTERFACE; }
123 monitor { return MONITOR; }
124 plugin { return PLUGIN; }
125 plugout { return PLUGOUT; }
126 batchlimit { return BATCHLIMIT; }
127 fetchlimit { return FETCHLIMIT; }
128 fetchsizelimit { return FETCHSIZELIMIT; }
129 fastuidl { return FASTUIDL; }
130 expunge { return EXPUNGE; }
131 properties { return PROPERTIES; }
133 is { SETSTATE(NAME); return IS; }
134 here { return HERE; }
135 there { return THERE; }
136 to { SETSTATE(NAME); return TO; }
137 = { SETSTATE(NAME); return MAP; }
163 keep { return KEEP; }
164 flush { return FLUSH; }
165 limitflush { return LIMITFLUSH; }
166 fetchall { return FETCHALL; }
167 rewrite { return REWRITE; }
168 forcecr { return FORCECR; }
169 stripcr { return STRIPCR; }
170 pass8(bits)? { return PASS8BITS; }
171 dropstatus { return DROPSTATUS; }
172 dropdelivered { return DROPDELIVERED; }
173 mimedec(ode)? { return MIMEDECODE; }
174 idle { return IDLE; }
176 uidl { return UIDL; }
178 sslkey { return SSLKEY; }
179 sslcert { return SSLCERT; }
180 sslproto { return SSLPROTO; }
181 sslcertck { return SSLCERTCK; }
182 sslcertfile { return SSLCERTFILE; }
183 sslcertpath { return SSLCERTPATH; }
184 sslcommonname { return SSLCOMMONNAME; }
185 sslfingerprint { return SSLFINGERPRINT; }
186 checkalias { return CHECKALIAS; }
188 limit { return LIMIT; }
194 options {/* EMPTY */}
197 (auto)|(AUTO) { yylval.proto = P_AUTO; return PROTO; }
198 (sdps)|(SDPS) { return SDPS; }
199 (pop3)|(POP3) { yylval.proto = P_POP3; return PROTO; }
200 (imap)|(IMAP) { yylval.proto = P_IMAP; return PROTO; }
201 (apop)|(APOP) { yylval.proto = P_APOP; return PROTO; }
202 (etrn)|(ETRN) { yylval.proto = P_ETRN; return PROTO; }
203 (odmr)|(ODMR) { yylval.proto = P_ODMR; return PROTO; }
204 (kpop)|(KPOP) { return KPOP; }
206 (#.*)?\\?\n { prc_lineno++; } /* newline is ignored */
208 -?[0-9]+ { yylval.number = atoi(yytext); return NUMBER; }
211 char *in = xstrdup(yytext);
217 [ \t\r]+ ; /* whitespace */
221 /** process standard C-style escape sequences in a string,
222 * this can never lengthen the output, so cp and tp may overlap as long
224 void escapes(const char *cp /** source string with escapes */,
225 char *tp /** target buffer for digested string */)
231 /* we MUST check for NUL explicitly, as strchr(string, 0) will
233 if (*cp == '\\' && cp[1] && strchr("0123456789xX", cp[1]))
236 const char *hex = "00112233445566778899aAbBcCdDeEfF";
239 if (*++cp == 'x' || *cp == 'X')
240 for (++cp; *cp && (dp = strchr(hex, *cp)) && (dcount++ < 2); cp++)
241 cval = (cval * 16) + (dp - hex) / 2;
243 while (*cp && strchr("01234567",*cp) != (char*)NULL && (dcount++ < 3))
244 cval = (cval * 8) + (*cp++ - '0');
246 while (*cp && (strchr("0123456789",*cp)!=(char*)NULL)&&(dcount++ < 3))
247 cval = (cval * 10) + (*cp++ - '0');
249 else if (*cp == '\\') /* C-style character escapes */
253 case '\n': cp++; continue; /* backslash before LF to join lines */
254 case '\0': goto done; /* ignore backslash at file end */
255 case '\\': cval = '\\'; break;
256 case 'n': cval = '\n'; break;
257 case 't': cval = '\t'; break;
258 case 'b': cval = '\b'; break;
259 case 'r': cval = '\r'; break;