home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / LEX.ZIP / LMOVB.C < prev    next >
Encoding:
C/C++ Source or Header  |  1980-01-01  |  734 b   |  30 lines
  1. /*
  2.  * Bob Denny     28-Aug-82  Remove reference to stdio.h
  3.  * Scott Guthery 20-Nov-83    Adapt for IBM PC & DeSmet C
  4.  */
  5.  
  6. #include <lex.h>
  7.  
  8. _lmovb(lp, c, st)
  9. register c, st;
  10. register struct lextab *lp;
  11. {
  12.         int base;
  13.  
  14.         while ((base = lp->llbase[st]+c) > lp->llnxtmax ||
  15.                         (lp->llcheck[base] & 0377) != st) {
  16.  
  17.                 if (st != lp->llendst) {
  18. /*
  19.  * This miscompiled on Decus C many years ago:
  20.  *                      st = lp->lldefault[st] & 0377;
  21.  */
  22.                         base = lp->lldefault[st] & 0377;
  23.                         st = base;
  24.                 }
  25.                 else
  26.                         return(-1);
  27.         }
  28.         return(lp->llnext[base]&0377);
  29. }
  30.