home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c410 / 1.ddi / LEX / GETTOK.C < prev    next >
Encoding:
C/C++ Source or Header  |  1980-01-01  |  1.5 KB  |  43 lines
  1. /*
  2.   HEADER:              CUG  nnn.nn;
  3.   TITLE:               LEX - A Lexical Analyser Generator
  4.   VERSION:             1.1 for IBM-PC
  5.   DATE:                Jan 30, 1985
  6.   DESCRIPTION:         A Lexical Analyser Generator. From UNIX
  7.   KEYWORDS:            Lexical Analyser Generator YACC C PREP
  8.   SYSTEM:              IBM-PC and Compatiables
  9.   FILENAME:            GETTOK.C
  10.   WARNINGS:            This program is not for the casual user. It will
  11.                        be useful primarily to expert developers.
  12.   CRC:                 N/A
  13.   SEE-ALSO:            YACC and PREP
  14.   AUTHORS:             Charles H. Forsyth
  15.                        Scott Guthery 11100 leafwood lane Austin, TX 78750
  16.                        Andrew M. Ward, Jr.  Houston, Texas (Modifications)
  17.   COMPILERS:           LATTICE C
  18.   REFERENCES:          UNIX Systems Manuals -- Lex Manual on distribution disks
  19. */
  20. /*
  21.  * Bob Denny     28-Aug-82      Remove reference to stdio.h
  22.  * Scott Guthery 20-Nov-83      Adapt for IBM PC & DeSmet C
  23.  * Andrew Ward   20 Jun 86      Adapt for Lattice C and defined
  24.  *                              argument lltbsiz.
  25.  */
  26.  
  27. #include "lex.h"
  28.  
  29. extern char *llend, llbuf[];
  30.  
  31. int gettoken(lltb, lltbsiz)
  32. char *lltb;
  33. int lltbsiz; /* AMW: fix undefined argument */
  34. {
  35.     char *lp, *tp, *ep;
  36.  
  37.     tp = lltb;
  38.     ep = tp+lltbsiz-1;
  39.     for (lp = llbuf; lp < llend && tp < ep;) *tp++ = *lp++;
  40.     *tp = 0;
  41.     return( strlen(lltb) );
  42. }
  43.