home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume17 / com_err / part01 / et_lex.lex.l < prev    next >
Text File  |  1991-02-25  |  700b  |  36 lines
  1. PC    [^\"]
  2. AN    [A-Z_a-z0-9]
  3. %{
  4. #ifdef SYSV
  5. #include <string.h>
  6. #define index strchr
  7. #define rindex strrchr
  8. #else
  9. #include <strings.h>
  10. #endif /* SYSV */
  11. %}
  12. %%
  13.  
  14. error_table    return ERROR_TABLE;
  15. et        return ERROR_TABLE;
  16. error_code    return ERROR_CODE_ENTRY;
  17. ec        return ERROR_CODE_ENTRY;
  18. end        return END;
  19.  
  20. [\t\n ]        ;
  21.  
  22. \"{PC}*\"    { register char *p; yylval.dynstr = ds(yytext+1);
  23.           if (p=rindex(yylval.dynstr, '"')) *p='\0';
  24.           return QUOTED_STRING;
  25.         }
  26.  
  27. {AN}*    { yylval.dynstr = ds(yytext); return STRING; }
  28.  
  29. #.*\n        ;
  30.  
  31. .        { return (*yytext); }
  32. %%
  33. #ifndef lint
  34. static char rcsid_et_lex_lex_l[] = "$Header: /afs/athena.mit.edu/user/j/jik/src/delete/et/RCS/et_lex.lex.l,v 1.3 90/06/07 22:53:55 jik Exp $";
  35. #endif
  36.