home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / neqn / size.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  870 b   |  47 lines
  1. # include "e.h"
  2.  
  3. setsize(p)    /* set size as found in p */
  4. char *p;
  5. {
  6.     if (*p == '+')
  7.         ps += atoi(p+1);
  8.     else if (*p == '-')
  9.         ps -= atoi(p+1);
  10.     else
  11.         ps = atoi(p);
  12.     if(dbg)printf(".\tsetsize %s; ps = %d\n", p, ps);
  13. }
  14.  
  15. size(p1, p2) int p1, p2; {
  16.         /* old size in p1, new in ps */
  17.     int effps, effp1;
  18.  
  19.     yyval = p2;
  20.     if(dbg)printf(".\tb:sb: S%d <- \\s%d S%d \\s%d; b=%d, h=%d\n", 
  21.         yyval, ps, p2, p1, ebase[yyval], eht[yyval]);
  22.     effps = EFFPS(ps);
  23.     effp1 = EFFPS(p1);
  24.     printf(".ds %d \\s%d\\*(%d\\s%d\n", 
  25.         yyval, effps, p2, effp1);
  26.     ps = p1;
  27. }
  28.  
  29. globsize() {
  30.     char temp[20];
  31.  
  32.     getstr(temp, 20);
  33.     if (temp[0] == '+')
  34.         gsize += atoi(temp+1);
  35.     else if (temp[0] == '-')
  36.         gsize -= atoi(temp+1);
  37.     else
  38.         gsize = atoi(temp);
  39.     yyval = eqnreg = 0;
  40.     setps(gsize);
  41.     ps = gsize;
  42.     if (gsize >= 12)    /* sub and sup size change */
  43.         deltaps = gsize / 4;
  44.     else
  45.         deltaps = gsize / 3;
  46. }
  47.