Return to et_lex.lex.l CVS log | Up to [local] / src / usr.bin / compile_et |
File: [local] / src / usr.bin / compile_et / Attic / et_lex.lex.l (download)
Revision 1.2, Wed May 13 17:54:22 1998 UTC (26 years ago) by art
generate int errorcodes instead of long to match the new libcom_err This should solve the problems with having kerberos servers on alphas. |
%{ unsigned lineno = 1; %} PC [^\"] AN [A-Z_a-z0-9] %% error_table return ERROR_TABLE; et return ERROR_TABLE; error_code return ERROR_CODE_ENTRY; ec return ERROR_CODE_ENTRY; end return END; [\t ] ; \n ++lineno; \"{PC}*\" { register char *p; yylval.dynstr = ds(yytext+1); if ((p = strrchr(yylval.dynstr, '"')) != NULL) *p = '\0'; return QUOTED_STRING; } {AN}* { yylval.dynstr = ds(yytext); return STRING; } #.*\n ++lineno; . { return (*yytext); } %% #ifndef lint static char rcsid_et_lex_lex_l[] = "$Id: et_lex.lex.l,v 1.2 1998/05/13 17:54:22 art Exp $"; #endif