freebsd-dev/usr.bin/compile_et/et_lex.lex.l
1999-08-28 05:11:36 +00:00

27 lines
482 B
Plaintext

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 ] ;
\"{PC}*\" { register char *p; yylval.dynstr = ds(yytext+1);
if ( (p=rindex(yylval.dynstr, '"')) ) *p='\0';
return QUOTED_STRING;
}
{AN}* { yylval.dynstr = ds(yytext); return STRING; }
#.*\n ;
. { return (*yytext); }
%%
#ifndef lint
static char rcsid_et_lex_lex_l[] = "$FreeBSD$";
#endif