1*364Sceastha /*
2*364Sceastha * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
3*364Sceastha * Use is subject to license terms.
4*364Sceastha */
5*364Sceastha
60Sstevel@tonic-gate /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
70Sstevel@tonic-gate /* All Rights Reserved */
80Sstevel@tonic-gate
90Sstevel@tonic-gate /*
100Sstevel@tonic-gate * Copyright (c) 1980 Regents of the University of California.
110Sstevel@tonic-gate * All rights reserved. The Berkeley software License Agreement
120Sstevel@tonic-gate * specifies the terms and conditions for redistribution.
130Sstevel@tonic-gate */
14*364Sceastha
15*364Sceastha #pragma ident "%Z%%M% %I% %E% SMI"
160Sstevel@tonic-gate
17*364Sceastha #include "e.h"
180Sstevel@tonic-gate
19*364Sceastha void
setsize(char * p)20*364Sceastha setsize(char *p) /* set size as found in p */
210Sstevel@tonic-gate {
220Sstevel@tonic-gate if (*p == '+')
230Sstevel@tonic-gate ps += atoi(p+1);
240Sstevel@tonic-gate else if (*p == '-')
250Sstevel@tonic-gate ps -= atoi(p+1);
260Sstevel@tonic-gate else
270Sstevel@tonic-gate ps = atoi(p);
28*364Sceastha if (dbg) printf(".\tsetsize %s; ps = %d\n", p, ps);
290Sstevel@tonic-gate }
300Sstevel@tonic-gate
31*364Sceastha void
size(int p1,int p2)32*364Sceastha size(int p1, int p2)
33*364Sceastha {
34*364Sceastha /* old size in p1, new in ps */
35*364Sceastha
360Sstevel@tonic-gate int effps, effp1;
370Sstevel@tonic-gate
380Sstevel@tonic-gate yyval = p2;
39*364Sceastha if (dbg)
40*364Sceastha printf(".\tb:sb: S%d <- \\s%d S%d \\s%d; b=%d, h=%d\n",
41*364Sceastha yyval, ps, p2, p1, ebase[yyval], eht[yyval]);
420Sstevel@tonic-gate effps = EFFPS(ps);
430Sstevel@tonic-gate effp1 = EFFPS(p1);
44*364Sceastha printf(".ds %d \\s%d\\*(%d\\s%d\n", yyval, effps, p2, effp1);
450Sstevel@tonic-gate ps = p1;
460Sstevel@tonic-gate }
470Sstevel@tonic-gate
48*364Sceastha void
globsize(void)49*364Sceastha globsize(void)
50*364Sceastha {
510Sstevel@tonic-gate char temp[20];
520Sstevel@tonic-gate
530Sstevel@tonic-gate getstr(temp, 20);
540Sstevel@tonic-gate if (temp[0] == '+')
550Sstevel@tonic-gate gsize += atoi(temp+1);
560Sstevel@tonic-gate else if (temp[0] == '-')
570Sstevel@tonic-gate gsize -= atoi(temp+1);
580Sstevel@tonic-gate else
590Sstevel@tonic-gate gsize = atoi(temp);
600Sstevel@tonic-gate yyval = eqnreg = 0;
610Sstevel@tonic-gate setps(gsize);
620Sstevel@tonic-gate ps = gsize;
630Sstevel@tonic-gate if (gsize >= 12) /* sub and sup size change */
640Sstevel@tonic-gate deltaps = gsize / 4;
650Sstevel@tonic-gate else
660Sstevel@tonic-gate deltaps = gsize / 3;
670Sstevel@tonic-gate }
68