3 /* Copyright 1993-95 by Carl Harris, Jr. Copyright 1996 by Eric S. Raymond
5 * For license terms, see the file COPYING in this directory.
8 /***********************************************************************
11 programmer: Carl Harris, ceharris@mal.com
12 Extensively hacked by esr.
13 description: .poprc lexer
15 ***********************************************************************/
27 defaults { return KW_DEFAULTS; }
28 server { return KW_SERVER; }
29 proto(col)? { return KW_PROTOCOL; }
30 user(name)? { return KW_USERNAME; }
31 pass(word)? { return KW_PASSWORD; }
32 remote(folder)? { return KW_REMOTEFOLDER; }
33 local(folder)? { return KW_LOCALFOLDER; }
34 mda { return KW_MDA; }
35 keep { yylval.flag = TRUE; return KW_KEEP; }
36 flush { yylval.flag = TRUE; return KW_FLUSH; }
37 fetchall { yylval.flag = TRUE; return KW_FETCHALL; }
38 rewrite { yylval.flag = TRUE; return KW_REWRITE; }
39 nokeep { yylval.flag = FALSE; return KW_KEEP; }
40 noflush { yylval.flag = FALSE; return KW_FLUSH; }
41 nofetchall { yylval.flag = FALSE; return KW_FETCHALL; }
42 norewrite { yylval.flag = FALSE; return KW_REWRITE; }
44 (auto)|(AUTO) { yylval.proto = P_AUTO; return PROTO_AUTO; }
45 (pop2)|(POP2) { yylval.proto = P_POP2; return PROTO_POP2; }
46 (pop3)|(POP3) { yylval.proto = P_POP3; return PROTO_POP3; }
47 (imap)|(IMAP) { yylval.proto = P_IMAP; return PROTO_IMAP; }
48 (apop)|(APOP) { yylval.proto = P_APOP; return PROTO_APOP; }
49 (rpop)|(RPOP) { yylval.proto = P_RPOP; return PROTO_RPOP; }
51 (#.*)?\\\n { prc_lineno++; } /* escaped newline is ignored */
53 (#.*)?\n { prc_lineno++; return KW_EOL; }
56 yytext[strlen(yytext)-1] = '\0';
57 yylval.sval = (char *) strdup(yytext+1);
60 [^ \t\r\n#]+ { yylval.sval = (char *) strdup(yytext); return PARAM_STRING; }
62 [ \t\r]+ ; /* whitespace */