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