%{
-/* 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 <string.h>
-/***********************************************************************
- module: poprc_l.l
- project: popclient
- programmer: Carl Harris, ceharris@mal.com
- Extensively hacked by esr.
- description: .poprc lexer
+#include "config.h"
+#include "fetchmail.h"
+#include "xmalloc.h"
+#include "rcfile_y.h"
- ***********************************************************************/
+int prc_lineno = 1;
-#include <config.h>
-#include "poproto.h"
-#include "poprc_y.h"
+#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
-int prc_lineno = 1;
%}
+%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; }
-remote(folder)? { return KW_REMOTEFOLDER; }
-local(folder)? { return KW_LOCALFOLDER; }
-mda { return KW_MDA; }
-keep { yylval.flag = 1; return KW_KEEP; }
-flush { yylval.flag = 1; return KW_FLUSH; }
-fetchall { yylval.flag = 1; return KW_FETCHALL; }
-nokeep { yylval.flag = -1; return KW_KEEP; }
-noflush { yylval.flag = -1; return KW_FLUSH; }
-nofetchall { yylval.flag = -1; return KW_FETCHALL; }
-
-(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; }
-
-[^ \t\r\n#]+ { yylval.sval = (char *) strdup(yytext); return PARAM_STRING; }
-\"[^\"]*\"` {
- 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;
+ }
+
+<NAME>[^=;:, \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;}
+<AUTH>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; }
+<INITIAL,NAME>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]+ ; /* 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';
+}