home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / Tex29 / StTeXsrc.zoo / src / evalstack.h < prev    next >
Text File  |  1988-03-13  |  1KB  |  55 lines
  1.  
  2. /*
  3.  * @(#)evalstack.h 2.5 EPA
  4.  *
  5.  * Copyright 1987,1988 Pat J Monardo
  6.  *
  7.  * Redistribution of this file is permitted through
  8.  * the specifications in the file COPYING.
  9.  *
  10.  * 
  11.  */
  12.  
  13. #define VMODE       1
  14. #define HMODE       (VMODE + MAX_COMMAND + 1)
  15. #define MMODE       (HMODE + MAX_COMMAND + 1)
  16.  
  17. int     push_nest();
  18. int     pop_nest();
  19. int     print_mode();
  20.  
  21. #define IGNORE_DEPTH    -65536000
  22.  
  23. typedef struct
  24. {
  25.     int     mode_field;
  26.     ptr     head_field;
  27.     ptr     tail_field;
  28.     int     pg_field;
  29.     val     aux_field;
  30.     val     ml_field;
  31. }
  32.     list;
  33.  
  34. global  list    cur_list;
  35. global  ptr     nest_ptr;
  36. global  list    nest[];
  37. global  int     max_nest_stack;
  38.  
  39. #define mode                cur_list.mode_field
  40. #define head                cur_list.head_field
  41. #define tail                cur_list.tail_field
  42. #define prev_graf           cur_list.pg_field
  43. #define aux                 cur_list.aux_field
  44. #define prev_depth          aux
  45. #define space_factor        aux
  46. #define incompleat_noad     aux
  47. #define mode_line           cur_list.ml_field
  48.  
  49. global  int     shown_mode;
  50.  
  51. int     show_activities();
  52.  
  53. #define tail_append(N) \
  54.     {link(tail) = N; tail = link(tail);}
  55.