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