1 /* size.c 4.1 83/02/11 */ 2 3 # include "e.h" 4 5 setsize(p) /* set size as found in p */ 6 char *p; 7 { 8 if (*p == '+') 9 ps += atoi(p+1); 10 else if (*p == '-') 11 ps -= atoi(p+1); 12 else 13 ps = atoi(p); 14 if(dbg)printf(".\tsetsize %s; ps = %d\n", p, ps); 15 } 16 17 size(p1, p2) int p1, p2; { 18 /* old size in p1, new in ps */ 19 int effps, effp1; 20 21 yyval = p2; 22 if(dbg)printf(".\tb:sb: S%d <- \\s%d S%d \\s%d; b=%d, h=%d\n", 23 yyval, ps, p2, p1, ebase[yyval], eht[yyval]); 24 effps = EFFPS(ps); 25 effp1 = EFFPS(p1); 26 printf(".ds %d \\s%d\\*(%d\\s%d\n", 27 yyval, effps, p2, effp1); 28 ps = p1; 29 } 30 31 globsize() { 32 char temp[20]; 33 34 getstr(temp, 20); 35 if (temp[0] == '+') 36 gsize += atoi(temp+1); 37 else if (temp[0] == '-') 38 gsize -= atoi(temp+1); 39 else 40 gsize = atoi(temp); 41 yyval = eqnreg = 0; 42 setps(gsize); 43 ps = gsize; 44 if (gsize >= 12) /* sub and sup size change */ 45 deltaps = gsize / 4; 46 else 47 deltaps = gsize / 3; 48 } 49