1*14486Ssam #ifndef lint 2*14486Ssam static char sccsid[] = "@(#)size.c 4.2 08/11/83"; 3*14486Ssam #endif 411017Sshannon 511017Sshannon # include "e.h" 611017Sshannon 711017Sshannon setsize(p) /* set size as found in p */ 811017Sshannon char *p; 911017Sshannon { 1011017Sshannon if (*p == '+') 1111017Sshannon ps += atoi(p+1); 1211017Sshannon else if (*p == '-') 1311017Sshannon ps -= atoi(p+1); 1411017Sshannon else 1511017Sshannon ps = atoi(p); 1611017Sshannon if(dbg)printf(".\tsetsize %s; ps = %d\n", p, ps); 1711017Sshannon } 1811017Sshannon 1911017Sshannon size(p1, p2) int p1, p2; { 2011017Sshannon /* old size in p1, new in ps */ 2111017Sshannon int effps, effp1; 2211017Sshannon 2311017Sshannon yyval = p2; 2411017Sshannon if(dbg)printf(".\tb:sb: S%d <- \\s%d S%d \\s%d; b=%d, h=%d\n", 2511017Sshannon yyval, ps, p2, p1, ebase[yyval], eht[yyval]); 2611017Sshannon effps = EFFPS(ps); 2711017Sshannon effp1 = EFFPS(p1); 2811017Sshannon printf(".ds %d \\s%d\\*(%d\\s%d\n", 2911017Sshannon yyval, effps, p2, effp1); 3011017Sshannon ps = p1; 3111017Sshannon } 3211017Sshannon 3311017Sshannon globsize() { 3411017Sshannon char temp[20]; 3511017Sshannon 3611017Sshannon getstr(temp, 20); 3711017Sshannon if (temp[0] == '+') 3811017Sshannon gsize += atoi(temp+1); 3911017Sshannon else if (temp[0] == '-') 4011017Sshannon gsize -= atoi(temp+1); 4111017Sshannon else 4211017Sshannon gsize = atoi(temp); 4311017Sshannon yyval = eqnreg = 0; 4411017Sshannon setps(gsize); 4511017Sshannon ps = gsize; 4611017Sshannon if (gsize >= 12) /* sub and sup size change */ 4711017Sshannon deltaps = gsize / 4; 4811017Sshannon else 4911017Sshannon deltaps = gsize / 3; 5011017Sshannon } 51