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