home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / OS2_LEX.ZIP / LEXINP.C < prev    next >
C/C++ Source or Header  |  1989-12-11  |  413b  |  34 lines
  1. #include <lex.h>
  2.  
  3. int save_tok = LEXERR;
  4.  
  5. int input(void)
  6. {
  7.     extern FILE *lexin;
  8.  
  9.     fgetc(lexin);
  10. /***
  11.     int retval;
  12.  
  13.     if (save_tok != LEXERR)
  14.         {
  15.         retval = save_tok;
  16.         save_tok = LEXERR;
  17.         return(retval);
  18.         }
  19.     return(yylex());
  20. ***/
  21. }
  22.  
  23.  
  24. unput(int tok)
  25. {
  26.     extern FILE *lexin;
  27.  
  28.     ungetc(tok, lexin);
  29. /***
  30.     save_tok = tok;
  31. ***/
  32. }
  33.  
  34.