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.2

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);
1.2     ! art        19:                  if ((p = strrchr(yylval.dynstr, '"')) != NULL) *p = '\0';
1.1       downsj     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
1.2     ! art        30: static char rcsid_et_lex_lex_l[] = "$Id: et_lex.lex.l,v 1.1 1996/11/11 05:06:35 downsj Exp $";
1.1       downsj     31: #endif