home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume16 / spiff / part01 / token.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-10  |  823 b   |  38 lines
  1. /*                        Copyright (c) 1988 Bellcore
  2. **                            All Rights Reserved
  3. **       Permission is granted to copy or use this program, EXCEPT that it
  4. **       may not be sold for profit, the copyright notice must be reproduced
  5. **       on copies, and credit should be given to Bellcore where it is due.
  6. **       BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
  7. */
  8.  
  9.  
  10. #ifndef lint
  11. static char rcsid[]= "$Header: token.c,v 1.1 88/09/15 11:34:01 daniel Rel $";
  12. #endif
  13.  
  14. #include "misc.h"
  15. #include "token.h"
  16.  
  17. K_token _K_ato[K_MAXTOKENS]; /* storage for tokens */
  18. K_token _K_bto[K_MAXTOKENS];
  19.  
  20. int _K_atm;
  21. int _K_btm;
  22.  
  23. void
  24. K_settoken(file,index,pointer)
  25. int file;
  26. int index;
  27. K_token pointer;
  28. {
  29.     if (file)
  30.     {
  31.         _K_bto[index] = pointer;
  32.     }
  33.     else
  34.     {
  35.         _K_ato[index] = pointer;
  36.     }
  37. }
  38.