home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d172 / spiff.lha / Spiff / token.h.orig < prev    next >
Text File  |  1988-11-22  |  2KB  |  82 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 K_INCLUDED
  11. #include "float.h"
  12. #include "tol.h"
  13. #include "strings.h"
  14.  
  15. #define        K_MAXTOKENS    50000
  16. /*
  17. **    values for token type
  18. */
  19. #define K_LIT        1
  20. #define    K_FLO_NUM    2
  21.  
  22.  
  23. typedef struct {
  24.     int linenum;        /* line that the token started on */
  25.     int pos;        /* position on the line where token started */
  26.     int type;        /* token type */
  27.     char *text;         /* literal token text */
  28.     /*
  29.     **    canonical floationg point representation
  30.     */
  31.     F_float flo_num;
  32.     T_tol tolerance;
  33. } _K_str, *K_token;
  34.  
  35. /*
  36. **    this should really be a two dimensional array
  37. **    but i'm too lazy to recode it
  38. */
  39. extern K_token _K_ato[];    /* storage for the tokens */
  40. extern K_token _K_bto[];
  41. /*
  42. **    save token X from file
  43. */
  44. extern void K_settoken(/*file,X,ptr*/);
  45. #define K_gettoken(file, X)    (file?(_K_bto[X]):(_K_ato[X]))
  46.  
  47. extern int _K_atm;    /* count of tokens */
  48. extern int _K_btm;
  49.  
  50. /*
  51. **    get token number X from file
  52. */
  53. #define K_get_token(file, X)    (file?(_K_bto[X]):(_K_ato[X]))
  54.  
  55. #define K_gettmax(file)        (file?_K_btm:_K_atm)
  56. #define K_settmax(file,value)    (file?(_K_btm=(value)):(_K_atm=(value)))
  57. /*
  58. **    increment and return true on overflow
  59. */
  60. #define    K_inctmax(file)        ((file?(++_K_btm):(++_K_atm))>=K_MAXTOKENS)
  61.  
  62. #define K_setline(x,y)        (x->linenum = y)
  63. #define K_setpos(x,y)        (x->pos = y)
  64. #define K_settext(x,y)        (x->text = y)
  65. #define K_savetext(x,y,z)    S_savestr(&(x->text),y)
  66. #define K_saventext(x,y,z)    S_savenstr(&(x->text),y,z)
  67. #define K_setfloat(x,y)        (x->flo_num = y)
  68. #define K_settol(x,y)        (x->tolerance = y)
  69. #define K_settype(x,y)        (x->type = y)
  70.  
  71. #define K_getline(x)        (x->linenum)
  72. #define K_getpos(x)        (x->pos)
  73. #define K_gettext(x)        (x->text)
  74. #define K_getfloat(x)        (x->flo_num)
  75. #define K_gettol(x)        (x->tolerance)
  76. #define K_gettype(x)        (x->type)
  77.  
  78. #define K_maketoken()        (Z_ALLOC(1,_K_str))
  79.  
  80. #define K_INCLUDED
  81. #endif
  82.