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
setsize(p)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
size(p1,p2)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
globsize()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