home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Tex / Tex29 / StTeXsrc.zoo / src / pack.h < prev    next >
Text File  |  1988-03-13  |  1KB  |  43 lines
  1.  
  2. /*
  3.  * @(#)pack.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 EXACTLY             0
  14. #define ADDITIONAL          1
  15. #define NATURAL             0L, ADDITIONAL
  16.  
  17. global  ptr     adjust_tail;
  18. global  scal    total_stretch[];
  19. global  scal    total_shrink[];
  20.  
  21. global  long    pack_begin_line;
  22.  
  23. #define make_char_from_lig() \
  24.     {mem[lig_trick] = mem[lig_char(p)]; \
  25.     link(lig_trick) = link(p); \
  26.     p = lig_trick;}
  27.  
  28. #define get_stretch_order() \
  29.     {if (total_stretch[FILLL] != 0) o = FILLL; \
  30.     else if (total_stretch[FILL] != 0) o = FILL; \
  31.     else if (total_stretch[FIL] != 0) o = FIL; \
  32.     else o = NORMAL;}
  33.             
  34. #define get_shrink_order() \
  35.     {if (total_shrink[FILLL] != 0) o = FILLL; \
  36.     else if (total_shrink[FILL] != 0) o = FILL; \
  37.     else if (total_shrink[FIL] != 0) o = FIL; \
  38.     else o = NORMAL;}
  39.  
  40. #define vpack(P, H)         vpackage(P, H, MAX_DIMEN)
  41. ptr     vpackage();
  42. ptr     hpack();
  43.