Return to et_lex.lex.l CVS log

Up to [local] / src / usr.bin / compile_et

Annotation of src/usr.bin/compile_et/et_lex.lex.l, Revision 1.1

1.1     ! downsj      1: %{
        !             2:   unsigned lineno = 1;
        !             3: %}
        !             4:
        !             5: PC     [^\"]
        !             6: AN     [A-Z_a-z0-9]
        !             7: %%
        !             8:
        !             9: error_table    return ERROR_TABLE;
        !            10: et             return ERROR_TABLE;
        !            11: error_code     return ERROR_CODE_ENTRY;
        !            12: ec             return ERROR_CODE_ENTRY;
        !            13: end            return END;
        !            14:
        !            15: [\t ]          ;
        !            16: \n             ++lineno;
        !            17:
        !            18: \"{PC}*\"      { register char *p; yylval.dynstr = ds(yytext+1);
        !            19:                  if (p=strrchr(yylval.dynstr, '"')) *p='\0';
        !            20:                  return QUOTED_STRING;
        !            21:                }
        !            22:
        !            23: {AN}*  { yylval.dynstr = ds(yytext); return STRING; }
        !            24:
        !            25: #.*\n          ++lineno;
        !            26:
        !            27: .              { return (*yytext); }
        !            28: %%
        !            29: #ifndef lint
        !            30: static char rcsid_et_lex_lex_l[] = "$Id: et_lex.lex.l,v 1.1.1.1 1995/12/14 06:52:49 tholo Exp $";
        !            31: #endif