Pileus Git - ~andy/fetchmail/blob - rcfile_l.l

   1 %{
   2
   3 /* Copyright 1993-95 by Carl Harris, Jr. Copyright 1996 by Eric S. Raymond
   4  * All rights reserved.
   5  * For license terms, see the file COPYING in this directory.
   6  */
   7
   8 /***********************************************************************
   9   module:       rcfile_l.l
  10   project:      fetchmail
  11   programmer:   Carl Harris, ceharris@mal.com
  12                 Extensively hacked by esr.
  13   description:  configuration lexer
  14
  15  ***********************************************************************/
  16
  17 #include <config.h>
  18 #include "fetchmail.h"
  19 #include "rcfile_y.h"
  20
  21 int prc_lineno = 1;
  22 %}
  23
  24 %%
  25
  26 defaults        { return KW_DEFAULTS; }
  27 server          { return KW_SERVER; }
  28 proto(col)?     { return KW_PROTOCOL; }
  29 local(name)?    { return KW_LOCALNAME; }
  30 user(name)?     { return KW_REMOTENAME; }
  31 remote(name)?   { return KW_REMOTENAME; }
  32 pass(word)?     { return KW_PASSWORD; }
  33 mailbox         { return KW_MAILBOX; }
  34 smtp(host)?     { return KW_SMTPHOST; }
  35 mda             { return KW_MDA; }
  36 keep            { yylval.flag = FLAG_TRUE; return KW_KEEP; }
  37 flush           { yylval.flag = FLAG_TRUE; return KW_FLUSH; }
  38 fetchall        { yylval.flag = FLAG_TRUE; return KW_FETCHALL; }
  39 rewrite         { yylval.flag = FLAG_TRUE; return KW_REWRITE; }
  40 skip            { yylval.flag = FLAG_TRUE; return KW_SKIP; }
  41 nokeep          { yylval.flag = FLAG_FALSE; return KW_KEEP; }
  42 noflush         { yylval.flag = FLAG_FALSE; return KW_FLUSH; }
  43 nofetchall      { yylval.flag = FLAG_FALSE; return KW_FETCHALL; }
  44 norewrite       { yylval.flag = FLAG_FALSE; return KW_REWRITE; }
  45 noskip          { yylval.flag = FLAG_FALSE; return KW_SKIP; }
  46 port            { return KW_PORT; }
  47
  48 (auto)|(AUTO)   { yylval.proto = P_AUTO;  return KW_PROTO; }
  49 (pop2)|(POP2)   { yylval.proto = P_POP2;  return KW_PROTO; }
  50 (pop3)|(POP3)   { yylval.proto = P_POP3;  return KW_PROTO; }
  51 (imap)|(IMAP)   { yylval.proto = P_IMAP;  return KW_PROTO; }
  52 (apop)|(APOP)   { yylval.proto = P_APOP;  return KW_PROTO; }
  53 (rpop)|(RPOP)   { yylval.proto = P_RPOP;  return KW_PROTO; }
  54
  55 (#.*)?\\?\n     { prc_lineno++; }   /* newline is ignored */
  56
  57 \"[^\"]*\"      {
  58                         yytext[strlen(yytext)-1] = '\0';
  59                         yylval.sval = (char *) strdup(yytext+1);
  60                         return PARAM_STRING;
  61                 }
  62 [^ \t\r\n]+     { yylval.sval = (char *) strdup(yytext); return PARAM_STRING; }
  63
  64 [ \t\r]+        ;       /* whitespace */
  65