4 * rcfile_l.l -- lexer for the run control file
6 * For license terms, see the file COPYING in this directory.
10 #include "fetchmail.h"
16 /* this doesn't work with Linux lex, see the INSTALL file */
23 batchlimit { return BATCHLIMIT; }
24 fetchlimit { return FETCHLIMIT; }
25 logfile { return LOGFILE; }
26 daemon { return DAEMON; }
27 syslog { return SYSLOG; }
29 defaults { return DEFAULTS; }
30 server { return POLL; }
35 local(domains) { return LOCALDOMAINS; }
36 proto(col)? { return PROTOCOL; }
38 interval { return INTERVAL; }
39 auth(enticate)? { return AUTHENTICATE; }
40 kerberos_v4 { return KERBEROS4; }
41 kerberos { return KERBEROS4; }
42 timeout { return TIMEOUT;}
43 envelope { return ENVELOPE; }
45 user(name)? { return USERNAME; }
46 pass(word)? { return PASSWORD; }
47 folder(s)? { return FOLDER; }
48 smtp(host)? { return SMTPHOST; }
50 pre(connect)? { return PRECONNECT; }
51 interface { return INTERFACE; }
52 monitor { return MONITOR; }
56 there { return THERE; }
59 "*" { return WILDCARD; }
61 no/[kfrsdu \t].* { return NO;}
64 flush { return FLUSH; }
65 fetchall { return FETCHALL; }
66 rewrite { return REWRITE; }
67 forcecr { return FORCECR; }
68 stripcr { return STRIPCR; }
69 pass8(bits)? { return PASS8BITS; }
70 dropstatus? { return DROPSTATUS; }
74 limit { return LIMIT; }
83 (auto)|(AUTO) { yylval.proto = P_AUTO; return PROTO; }
84 (pop2)|(POP2) { yylval.proto = P_POP2; return PROTO; }
85 (pop3)|(POP3) { yylval.proto = P_POP3; return PROTO; }
86 (imap-k4)|(IMAP-K4) { yylval.proto = P_IMAP_K4; return PROTO; }
87 (imap)|(IMAP) { yylval.proto = P_IMAP; return PROTO; }
88 (apop)|(APOP) { yylval.proto = P_APOP; return PROTO; }
89 (etrn)|(ETRN) { yylval.proto = P_ETRN; return PROTO; }
90 (kpop)|(KPOP) { return KPOP; }
94 "fetchmail: `remote' keyword is gone, use `folder'\n");
98 (#.*)?\\?\n { prc_lineno++; } /* newline is ignored */
100 [0-9]+ { yylval.number = atoi(yytext); return NUMBER; }
103 char buf[POPBUFSIZE];
105 yytext[strlen(yytext)-1] = '\0';
106 escapes(yytext+1, buf);
107 yylval.sval = (char *) xstrdup(buf);
111 char buf[POPBUFSIZE];
113 escapes(yytext, buf);
114 yylval.sval = (char *) xstrdup(buf);
118 [ \t\r]+ ; /* whitespace */
124 /* process standard C-style escape sequences in a string */
125 const char *cp; /* source string with escapes */
126 char *tp; /* target buffer for digested string */
132 if (*cp == '\\' && strchr("0123456789xX", cp[1]))
134 char *dp, *hex = "00112233445566778899aAbBcCdDeEfF";
137 if (*++cp == 'x' || *cp == 'X')
138 for (++cp; (dp = strchr(hex, *cp)) && (dcount++ < 2); cp++)
139 cval = (cval * 16) + (dp - hex) / 2;
141 while (strchr("01234567",*cp) != (char*)NULL && (dcount++ < 3))
142 cval = (cval * 8) + (*cp++ - '0');
144 while ((strchr("0123456789",*cp)!=(char*)NULL)&&(dcount++ < 3))
145 cval = (cval * 10) + (*cp++ - '0');
147 else if (*cp == '\\') /* C-style character escapes */
151 case '\\': cval = '\\'; break;
152 case 'n': cval = '\n'; break;
153 case 't': cval = '\t'; break;
154 case 'b': cval = '\b'; break;
155 case 'r': cval = '\r'; break;