X-Git-Url: http://pileus.org/git/?a=blobdiff_plain;f=rcfile_l.l;h=c7e49fea6999c97e6a17982940f19a8255838937;hb=d31db10231e9ed89f64fdf6e0fb7cae182aa377e;hp=5ac469d6f7b00cbd4c33b2ede99e336e903d439d;hpb=95f82bd08d67a5ca66949846481d11159e38827b;p=~andy%2Ffetchmail diff --git a/rcfile_l.l b/rcfile_l.l index 5ac469d6..c7e49fea 100644 --- a/rcfile_l.l +++ b/rcfile_l.l @@ -1,68 +1,265 @@ %{ -/* Copyright 1993-95 by Carl Harris, Jr. Copyright 1996 by Eric S. Raymond - * All rights reserved. +/* + * rcfile_l.l -- lexer for the run control file, to be used with GNU flex. + * * For license terms, see the file COPYING in this directory. */ +#include -/*********************************************************************** - module: rcfile_l.l - project: fetchmail - programmer: Carl Harris, ceharris@mal.com - Extensively hacked by esr. - description: configuration lexer - - ***********************************************************************/ - -#include +#include "config.h" #include "fetchmail.h" +#include "xmalloc.h" #include "rcfile_y.h" int prc_lineno = 1; + +#ifdef LEXDEBUG +#define SETSTATE(n) do {BEGIN(n); if (yydebug) fprintf(stderr, "Entering lexer state %d\n", n);} while (0) +#else +#define SETSTATE(n) BEGIN(n) +#endif /* LEXDEBUG */ + +#define YY_NO_INPUT + %} +%option nounput noyywrap +%option warn nodefault +%option 8bit batch + +%s NAME AUTH %% -defaults { return KW_DEFAULTS; } -server { return KW_SERVER; } -proto(col)? { return KW_PROTOCOL; } -user(name)? { return KW_USERNAME; } -pass(word)? { return KW_PASSWORD; } -rpopid { return KW_RPOPID; } -remote(folder)? { return KW_REMOTEFOLDER; } -local(folder)? { return KW_LOCALFOLDER; } -smtp(host)? { return KW_SMTPHOST; } -mda { return KW_MDA; } -keep { yylval.flag = TRUE; return KW_KEEP; } -flush { yylval.flag = TRUE; return KW_FLUSH; } -fetchall { yylval.flag = TRUE; return KW_FETCHALL; } -rewrite { yylval.flag = TRUE; return KW_REWRITE; } -explicit { yylval.flag = TRUE; return KW_EXPLICIT; } -nokeep { yylval.flag = FALSE; return KW_KEEP; } -noflush { yylval.flag = FALSE; return KW_FLUSH; } -nofetchall { yylval.flag = FALSE; return KW_FETCHALL; } -norewrite { yylval.flag = FALSE; return KW_REWRITE; } -noexplicit { yylval.flag = FALSE; return KW_EXPLICIT; } -port { return KW_PORT; } - -(auto)|(AUTO) { yylval.proto = P_AUTO; return PROTO_AUTO; } -(pop2)|(POP2) { yylval.proto = P_POP2; return PROTO_POP2; } -(pop3)|(POP3) { yylval.proto = P_POP3; return PROTO_POP3; } -(imap)|(IMAP) { yylval.proto = P_IMAP; return PROTO_IMAP; } -(apop)|(APOP) { yylval.proto = P_APOP; return PROTO_APOP; } -(rpop)|(RPOP) { yylval.proto = P_RPOP; return PROTO_RPOP; } - -(#.*)?\\\n { prc_lineno++; } /* escaped newline is ignored */ - -(#.*)?\n { prc_lineno++; return KW_EOL; } - -\"[^\"]*\" { - yytext[strlen(yytext)-1] = '\0'; - yylval.sval = (char *) strdup(yytext+1); - return PARAM_STRING; +\"[^\"]*\" | +\'[^\']*\' { + char *in = xstrndup(yytext+1, yyleng-2); + escapes(in, in); + yylval.sval = in; + SETSTATE(0); + return STRING; + } + +[^=;:, \t\r\n]+ { + char *in = xstrdup(yytext); + escapes(in, in); + yylval.sval = in; + SETSTATE(0); + return STRING; + } + +set { return SET; } +logfile { return LOGFILE; } +idfile { return IDFILE; } +pidfile { return PIDFILE; } +daemon { return DAEMON; } +syslog { return SYSLOG; } +invisible { return INVISIBLE; } +showdots { return SHOWDOTS; } +postmaster { return POSTMASTER; } +bouncemail { return BOUNCEMAIL; } +spambounce { return SPAMBOUNCE; } +softbounce { return SOFTBOUNCE; } +warnings { return WARNINGS; } +tracepolls { return TRACEPOLLS; } + +defaults { return DEFAULTS; } +server { return POLL; } +poll { return POLL; } +skip { return SKIP; } +via { return VIA; } +aka { return AKA; } +local(domains)? { return LOCALDOMAINS; } +proto(col)? { return PROTOCOL; } +service { return SERVICE; } +port { return PORT; } +interval { return INTERVAL; } +preauth(enticate)? { SETSTATE(AUTH); return AUTHENTICATE; } +auth(enticate)? { SETSTATE(AUTH); return AUTHENTICATE; } +any { SETSTATE(0); yylval.proto = A_ANY; return AUTHTYPE;} +gssapi { SETSTATE(0); yylval.proto = A_GSSAPI; return AUTHTYPE;} +kerberos(_v)?4 { SETSTATE(0); yylval.proto = A_KERBEROS_V4; return AUTHTYPE;} +kerberos(_v)?5 { SETSTATE(0); yylval.proto = A_KERBEROS_V5; return AUTHTYPE;} +kerberos { SETSTATE(0); yylval.proto = A_KERBEROS_V4; return AUTHTYPE;} +ssh { SETSTATE(0); yylval.proto = A_SSH; return AUTHTYPE;} +external { SETSTATE(0); yylval.proto = A_EXTERNAL; return AUTHTYPE;} +(otp|opie) { SETSTATE(0); yylval.proto = A_OTP; return AUTHTYPE;} +cram(-md5)? { SETSTATE(0); yylval.proto = A_CRAM_MD5; return AUTHTYPE;} +msn { SETSTATE(0); yylval.proto = A_MSN; return AUTHTYPE;} +ntlm { SETSTATE(0); yylval.proto = A_NTLM; return AUTHTYPE;} +password { SETSTATE(0); yylval.proto = A_PASSWORD; return AUTHTYPE;} +timeout { return TIMEOUT;} +envelope { return ENVELOPE; } +qvirtual { return QVIRTUAL; } +principal { return PRINCIPAL; } +esmtpname { return ESMTPNAME; } +esmtppassword { return ESMTPPASSWORD; } +bad-header { return BADHEADER; } +accept { return ACCEPT; } +reject { return REJECT_; } + +user(name)? {SETSTATE(NAME); return USERNAME; } +pass(word)? {SETSTATE(NAME); return PASSWORD; } +folder(s)? { return FOLDER; } +smtp(host)? { return SMTPHOST; } +fetchdomains { return FETCHDOMAINS; } +smtpaddress { return SMTPADDRESS; } +smtpname { return SMTPNAME; } +antispam { return SPAMRESPONSE; } +mda { return MDA; } +bsmtp { return BSMTP; } +lmtp { return LMTP; } +pre(connect)? { return PRECONNECT; } +post(connect)? { return POSTCONNECT; } +interface { return INTERFACE; } +monitor { return MONITOR; } +plugin { return PLUGIN; } +plugout { return PLUGOUT; } +batchlimit { return BATCHLIMIT; } +fetchlimit { return FETCHLIMIT; } +fetchsizelimit { return FETCHSIZELIMIT; } +fastuidl { return FASTUIDL; } +expunge { return EXPUNGE; } +properties { return PROPERTIES; } + +is { SETSTATE(NAME); return IS; } +here { return HERE; } +there { return THERE; } +to { SETSTATE(NAME); return TO; } += { SETSTATE(NAME); return MAP; } + +nobouncemail | +nouidl | +nocheckalias | +nodns | +noenvelope | +nokeep | +noflush | +nolimitflush | +nofetchall | +norewrite | +noforcecr | +nostripcr | +nopass8(bits)? | +nodropstatus | +nodropdelivered | +nomimedec(ode)? | +nospambounce | +noidle { + yyless(2); + return NO; + } + +no {return NO;} + +keep { return KEEP; } +flush { return FLUSH; } +limitflush { return LIMITFLUSH; } +fetchall { return FETCHALL; } +rewrite { return REWRITE; } +forcecr { return FORCECR; } +stripcr { return STRIPCR; } +pass8(bits)? { return PASS8BITS; } +dropstatus { return DROPSTATUS; } +dropdelivered { return DROPDELIVERED; } +mimedec(ode)? { return MIMEDECODE; } +idle { return IDLE; } +dns { return DNS; } +uidl { return UIDL; } +ssl { return SSL; } +sslkey { return SSLKEY; } +sslcert { return SSLCERT; } +sslproto { return SSLPROTO; } +sslcertck { return SSLCERTCK; } +sslcertfile { return SSLCERTFILE; } +sslcertpath { return SSLCERTPATH; } +sslcommonname { return SSLCOMMONNAME; } +sslfingerprint { return SSLFINGERPRINT; } +checkalias { return CHECKALIAS; } + +limit { return LIMIT; } + +with {/* EMPTY */} +and {/* EMPTY */} +has {/* EMPTY */} +wants {/* EMPTY */} +options {/* EMPTY */} +[;:,] {/* EMPTY */} + +(auto)|(AUTO) { yylval.proto = P_AUTO; return PROTO; } +(pop2)|(POP2) { yylval.proto = P_POP2; return PROTO; } +(sdps)|(SDPS) { return SDPS; } +(pop3)|(POP3) { yylval.proto = P_POP3; return PROTO; } +(imap)|(IMAP) { yylval.proto = P_IMAP; return PROTO; } +(apop)|(APOP) { yylval.proto = P_APOP; return PROTO; } +(rpop)|(RPOP) { yylval.proto = P_RPOP; return PROTO; } +(etrn)|(ETRN) { yylval.proto = P_ETRN; return PROTO; } +(odmr)|(ODMR) { yylval.proto = P_ODMR; return PROTO; } +(kpop)|(KPOP) { return KPOP; } + +(#.*)?\\?\n { prc_lineno++; } /* newline is ignored */ + +-?[0-9]+ { yylval.number = atoi(yytext); return NUMBER; } + +[^=;:, \t\r\n]+ { + char *in = xstrdup(yytext); + escapes(in, in); + yylval.sval = in; + return STRING; } -[^ \t\r\n]+ { yylval.sval = (char *) strdup(yytext); return PARAM_STRING; } [ \t\r]+ ; /* whitespace */ +%% + +/** process standard C-style escape sequences in a string, + * this can never lengthen the output, so cp and tp may overlap as long + * as cp >= tp. */ +void escapes(const char *cp /** source string with escapes */, + char *tp /** target buffer for digested string */) +{ + while (*cp) + { + int cval = 0; + + /* we MUST check for NUL explicitly, as strchr(string, 0) will + * always succeed! */ + if (*cp == '\\' && cp[1] && strchr("0123456789xX", cp[1])) + { + const char *dp; + const char *hex = "00112233445566778899aAbBcCdDeEfF"; + int dcount = 0; + + if (*++cp == 'x' || *cp == 'X') + for (++cp; *cp && (dp = strchr(hex, *cp)) && (dcount++ < 2); cp++) + cval = (cval * 16) + (dp - hex) / 2; + else if (*cp == '0') + while (*cp && strchr("01234567",*cp) != (char*)NULL && (dcount++ < 3)) + cval = (cval * 8) + (*cp++ - '0'); + else + while (*cp && (strchr("0123456789",*cp)!=(char*)NULL)&&(dcount++ < 3)) + cval = (cval * 10) + (*cp++ - '0'); + } + else if (*cp == '\\') /* C-style character escapes */ + { + switch (*++cp) + { + case '\n': cp++; continue; /* backslash before LF to join lines */ + case '\0': goto done; /* ignore backslash at file end */ + case '\\': cval = '\\'; break; + case 'n': cval = '\n'; break; + case 't': cval = '\t'; break; + case 'b': cval = '\b'; break; + case 'r': cval = '\r'; break; + default: cval = *cp; + } + cp++; + } + else + cval = *cp++; + *tp++ = cval; + } +done: + *tp = '\0'; +}