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.1, Mon Nov 11 05:06:35 1996 UTC (27 years, 7 months ago) by downsj
compile_et now resides in /usr/libexec. |
%{ 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, '"')) *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.1 1996/11/11 05:06:35 downsj Exp $"; #endif