[unix-history] / usr / src / old / roff / troff / t6.c

#ifndef lint
static char sccsid[] = "@(#)t6.c	4.2 %G%";
#endif lint

#include "tdef.h"
extern
#include "d.h"
extern
#include "v.h"

/*
troff6.c

width functions, sizes and fonts
*/

extern	int	inchar[LNSIZE], *pinchar;	/* XXX */
extern int eschar;
extern int widthp;
extern int ohc;
extern int xpts;
extern int xfont;
extern int code;
extern int smnt;
extern int setwdf;
extern int cs;
extern int ccs;
extern int spacesz;
extern char trtab[];
extern int xbitf;
extern int mfont;
extern int mpts;
extern int pfont;
extern int ppts;
extern int oldbits;
extern int chbits;
extern int spbits;
extern int nonumb;
extern int noscale;
extern int font;
extern int font1;
extern int pts;
extern int pts1;
extern int apts;
extern int apts1;
extern int sps;
extern int nlflg;
extern int nform;
extern int dfact;
extern int lss;
extern int lss1;
extern int vflag;
extern int ch0;
extern int lg;
char *fontfile = "/usr/lib/font/ftXX";
int ffi = 0;
extern int bd;
extern int level;
extern int ch;
extern int res;
extern int ptid;
extern char W1[],W2[],W3[],W4[];
extern int xxx;
int trflg;
char *fontab[] = {W1,W2,W3,W4};
int fontlab[] = {'R','I','B','S',0};
char pstab[] = {6,7,8,9,10,11,12,14,16,18,20,22,24,28,36,0};
char psctab[] = {010,000,001,007,002,003,004,005,0211,006,
		0212,0213,0214,0215,0216,0};
int cstab[4], ccstab[4];
int bdtab[4];
int sbold = 0;
int spsz = 0;
struct fz {
	char sign;
	char size;
	int inc;
	} fz[4];

width(c)
int c;
{
	register i,j,k;

	j = c;
	k = 0;
	if(j & MOT){
		if(j & VMOT)goto rtn;
		k = j & ~MOTV;
		if(j & NMOT)k = -k;
		goto rtn;
	}
	if((i = (j & CMASK)) == 010){
		k = -widthp;
		goto rtn;
	}
	if(i == PRESC)i = eschar;
	if((i == ohc) ||
	   (i >= 0370))goto rtn;
	if((j>>BYTE) == oldbits){
		xfont = pfont;
		xpts = ppts;
	}else xbits(j);
	if(j & ZBIT)goto rtn;
	if(!trflg)i = trtab[i] & BMASK;
	if((i -= 32) < 0)goto rtn;
	k = getcw(i);
	if(bd)k += bd - 1;
	if(cs)k = cs;
	widthp = k;
rtn:
	xbitf = trflg = 0;
	return(k);
}
getcw(i)
int i;
{
	register j,k;
	register char *p;
	int x;
	extern char codetab[];

	bd = 0;
	if((code = codetab[i])  & 0200){
		if(smnt){
			p = fontab[smnt-1];
			if(xfont == (sbold-1))bd = bdtab[smnt-1];
			goto g0;
		}
		code = 0;
		k = 36;
		goto g1;
	}
	p = fontab[xfont];
g0:
	if(!i)k = spacesz;
	else k = *(p + i) & BMASK;
	if(setwdf)v.ct |= ((k>>6) & 3);
g1:
	k = (j = (k&077)*(xpts&077))/6;
	if((j%6) >= 3)k++;
	if(cs = cstab[xfont]){
		if(ccs = ccstab[xfont])x = ccs; else x = xpts;
		cs = (j = (cs&077)*(x&077))/6;
		if((j%6) >= 3)cs++;
	}
	if(!bd)bd = bdtab[xfont];
	return(k);
}
xbits(i)
int i;
{
	register j, k;

/*
	if((j = i >> BYTE) == oldbits){
		xfont = pfont;
		xpts = ppts;
		goto rtn;
	}
*/
	j = i >> BYTE;
	xfont = (j>>1) & 03;
	if(k = (j>>3) & 017){
		xpts = pstab[--k];
		if(psctab[k] < 0)xpts |= DBL;
		oldbits = j;
		pfont = xfont;
		ppts = xpts;
		goto rtn;
	}
	switch(xbitf){
		case 0:
			xfont = font;
			xpts = pts;
			break;
		case 1:
			xfont = pfont;
			xpts = ppts;
			break;
		case 2:
			xfont = mfont;
			xpts = mpts;
	}
rtn:
	xbitf = 0;
}
setch(){
	register i,*j,k;
	extern int chtab[];

	if((i = getrq()) == 0)return(0);
	for(j=chtab;*j != i;j++)if(*(j++) == 0)return(0);
	k = *(++j) | chbits;
/*
	if((i & CMASK) == '*'){
		if(((i = find('R',fontlab)) < 0) &&
		   ((i = find('G',fontlab)) < 0))
			return(k);
		else return((k & ~(03<<(BYTE+1))) | (i<<(BYTE+1)));
	}
*/
	return(k);
}
find(i,j)
int i,j[];
{
	register k;

	if(((k = i-'0') >= 1) && (k <= 4) && (k != smnt))return(--k);
	for(k=0; j[k] != i; k++)if(j[k] == 0)return(-1);
	return(k);
}
casefz(){
	register i, j, k;
	int savinc;

	k = 0;
fz0:
	if(skip() || !(i = getrq()) ||
	  ((j = find(i,fontlab))  == -1)){
		if(k)goto fz1;
		else return;
	}
	if(j == (smnt-1)){
		k = smnt;
		goto fz0;
	}
	if(k){
		spsz = j + 1;
		j = k -1;
	}
fz1:
	if((j==font) && fz[j].inc)savinc = fz[j].inc;
	else savinc = 0;
	fz[j].inc = fz[j].sign = fz[j].size = 0;
	if(skip()){
		if(k)spsz = 0;
		goto fz2;
	}
	if(((i=((k=getch()) & CMASK)) == '+') || (i == '-'))fz[j].sign = i;
	else{
		fz[j].sign = 0;
		ch = k;
	}
	noscale++;
	fz[j].size = atoi();
	noscale = 0;
fz2:
	if(j==font)casps1(apts + savinc);
	else if(j == smnt-1)mchbits();
}
caseps(){
	register i;

	if(skip())i = apts1;
	else{
		noscale++;
		i = inumb(&apts);
		noscale = 0;
		if(nonumb)return;
	}
	casps1(i);
}
casps1(i)
int i;
{
	if(i <= 0)return;
	if(fz[font].size){
		i = getfz(font, i);
	}
	apts1 = apts;
	apts = i;
	pts1 = pts;
	pts = findps(i & 077);
	mchbits();
}
findps(i)
int i;
{
	register j, k;

	for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
	if(psctab[j] < 0)k |= DBL;
	return(k);
}
mchbits(){
	register i, j, k;

	spbits = 0;
	i = pts & 077;
	for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
	chbits = (((++j)<<2) | font) << (BYTE + 1);
	sps = width(' ' | chbits);
	if(font == (spsz-1)){
		i = findps(getfz(smnt-1, apts + fz[font].inc));
		for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
		spbits = (((++j)<<2) | font) << (BYTE + 1);
	}
}
getfz(x,y)
int x, y;
{
	register i, j, k;

	i = fz[x].size;
	j = fz[x].sign;
	if(i || j){
		if(j == '+')i += y;
		else if(j == '-')i = y - i;
	}
	fz[x].inc = y - i;
	return(i);
}
setps(){
	register i,j;

	if((((i=getch() & CMASK) == '+')  || (i == '-')) &&
	  (((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9))){
		if(i == '-')j = -j;
		ch = 0;
		casps1(apts+j);
		return;
	}
	if((i -= '0') == 0){
		casps1(apts1);
		return;
	}
	if((i > 0) && (i <= 9)){
		if((i <= 3) &&
		  ((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9)){
			i = 10*i +j;
			ch = 0;
		}
		casps1(i);
	}
}
caseft(){
	skip();
	setfont(1);
}
setfont(a)
int a;
{
	register i,j;

	if(a)i = getrq();
		else i = getsn();
	if(!i || (i == 'P')){
		j = font1;
		goto s0;
	}
	if(i == 'S')return;
	if((j = find(i,fontlab))  == -1)return;
s0:
	font1 = font;
	font = j;
	i = 0;
	if(fz[font1].size){
		i++;
		casps1(apts + fz[font1].inc);
	}else if(fz[font].size){
		i++;
		casps1(apts);
	}
	if(!i)mchbits();
}
setwd(){
	register i, base, wid;
	int delim, em, k;
	int savlevel, savhp, savapts, savapts1, savfont, savfont1,
		savpts, savpts1;
        int *savpinchar, *p, *q, tempinchar[LNSIZE];    /* XXX */

	base = v.st = v.sb = wid = v.ct = 0;
	if((delim = getch() & CMASK) & MOT)return;
	savhp = v.hp;
        savpinchar = pinchar;   /* XXX */
        for (p=inchar, q=tempinchar; p < pinchar; )     /* XXX */
                *q++ = *p++;    /* XXX */
        pinchar = inchar;       /* XXX */
	savlevel = level;
	v.hp = level = 0;
	savapts = apts;
	savapts1 = apts1;
	savfont = font;
	savfont1 = font1;
	savpts = pts;
	savpts1 = pts1;
	setwdf++;
	while((((i = getch()) & CMASK) != delim) && !nlflg){
		wid += width(i);
		if(!(i & MOT)){
			em = (xpts & 077)*6;
		}else if(i & VMOT){
			k = i & ~MOTV;
			if(i & NMOT)k = -k;
			base -= k;
			em = 0;
		}else continue;
		if(base < v.sb)v.sb = base;
		if((k=base + em) > v.st)v.st = k;
	}
	nform = 0;
	setn1(wid);
	v.hp = savhp;
        pinchar = savpinchar;   /* XXX */
        for (p=inchar, q=tempinchar; p < pinchar; )     /* XXX */
                *p++ = *q++;    /* XXX */
	level = savlevel;
	apts = savapts;
	apts1 = savapts1;
	font = savfont;
	font1 = savfont1;
	pts = savpts;
	pts1 = savpts1;
	mchbits();
	setwdf = 0;
}
vmot(){
	dfact = lss;
	vflag++;
	return(mot());
}
hmot(){
	dfact = 6 * (pts & 077);
	return(mot());
}
mot(){
	register i, j;

	j = HOR;
	getch(); /*eat delim*/
	if(i = atoi()){
		if(vflag)j = VERT;
		i = makem(quant(i,j));
	}
	getch();
	vflag = 0;
	dfact = 1;
	return(i);
}
sethl(k)
int k;
{
	register i;

	i = 3 * (pts & 077);
	if(k == 'u')i = -i;
	else if(k == 'r')i = -2*i;
	vflag++;
	i = makem(i);
	vflag = 0;
	return(i);
}
makem(i)
int i;
{
	register j;

	if((j = i) < 0)j = -j;
	j = (j & ~MOTV) | MOT;
	if(i < 0)j |= NMOT;
	if(vflag)j |= VMOT;
	return(j);
}
getlg(i)
int i;
{
	register j, k;

	switch((j = getch0()) & CMASK){
		case 'f':
			if(lg!=2){switch((k =getch0()) & CMASK){
					case 'i':
						j = 0214;
						break;
					case 'l':
						j = 0215;
						break;
					default:
						ch0 = k;
						j = 0213;
				}
			}else j = 0213;
			break;
		case 'l':
			j = 0212;
			break;
		case 'i':
			j = 0211;
			break;
		default:
			ch0 = j;
			j = i;
	}
	return((i & ~CMASK) | j);
}
caselg(){

	lg = 1;
	if(skip())return;
	lg = atoi();
}
casefp(){
	register i, j, k;
	int x;

	if (ffi == 0)
		while (fontfile[ffi] != 'X')
			ffi++;
	skip();
	if(((i = (getch() & CMASK) - '0' -1) < 0) || (i >3)){prstr("fp: bad font position\n"); return;}
	if(skip() || !(j = getrq())){prstr("fp: no font name\n"); return;}
	fontfile[ffi] = j & BMASK;
	fontfile[ffi+1] = j>>BYTE;
	if((k = open(fontfile,0)) < 0){
		prstr("Cannot open ");
	c0:
		prstr(fontfile);
		prstr("\n");
		done(-1);
	}
	if(lseek(k,8L * sizeof(int),0) < 0)goto c1; 
	if(read(k,fontab[i],256-32) != 256-32){
	c1:
		prstr("Cannot read ");
		goto c0;
	}
	close(k);
	if(i == (smnt-1)){smnt = 0; sbold = 0; spsz = 0;}
	if((fontlab[i] = j) == 'S')smnt = i + 1;
	bdtab[i] = cstab[i] = ccstab[i] = 0;
	fz[i].inc = fz[i].sign = fz[i].size = 0;
	if(ptid != 1){
		prstr("Mount font ");
		prstr(&fontfile[ffi]);
		prstr(" on ");
		x = PAIR((i + '1'),0);
		prstr((char *)&x);
		prstr("\n");
	}
}
casecs(){
	register i, j;

	noscale++;
	skip();
	if(!(i=getrq()) ||
	  ((i = find(i,fontlab)) < 0))goto rtn;
	skip();
	cstab[i] = atoi();
	skip();
	j = atoi();
	if(!nonumb)ccstab[i] = findps(j);
rtn:
	noscale = 0;
}
casebd(){
	register i, j, k;

	k = 0;
bd0:
	if(skip() || !(i = getrq()) ||
	  ((j = find(i,fontlab))  == -1)){
		if(k)goto bd1;
		else return;
	}
	if(j == (smnt-1)){
		k = smnt;
		goto bd0;
	}
	if(k){
		sbold = j + 1;
		j = k -1;
	}
bd1:
	skip();
	noscale++;
	bdtab[j] = atoi();
	noscale = 0;
}
casevs(){
	register i;

	skip();
	vflag++;
	dfact = 6; /*default scaling is points!*/
	res = VERT;
	i = inumb(&lss);
	if(nonumb)i = lss1;
	if(i < VERT)i = VERT;
	lss1 = lss;
	lss = i;
}
casess(){
	register i;

	noscale++;
	skip();
	if(i = atoi()){
		spacesz = i& 0177;
		sps = width(' ' | chbits);
	}
	noscale = 0;
}
xlss(){
	register i, j;

	getch();
	dfact = lss;
	i = quant(atoi(),VERT);
	dfact = 1;
	getch();
	if((j = i) < 0)j = -j;
	ch0 = ((j & 03700)<<3) | HX;
	if(i < 0)ch0 |= 040000;
	return(((j & 077)<<9) | LX);
}
Commit	Line	Data
346e7ddd	1	#ifndef lint
5673b9a7	2	static char sccsid[] = "@(#)t6.c 4.2 %G%";
346e7ddd RH	3	#endif lint
	4
	5	#include "tdef.h"
	6	extern
	7	#include "d.h"
	8	extern
	9	#include "v.h"
	10
	11	/*
	12	troff6.c
	13
	14	width functions, sizes and fonts
	15	*/
	16
	17	extern int inchar[LNSIZE], pinchar; / XXX */
	18	extern int eschar;
	19	extern int widthp;
	20	extern int ohc;
	21	extern int xpts;
	22	extern int xfont;
	23	extern int code;
	24	extern int smnt;
	25	extern int setwdf;
	26	extern int cs;
	27	extern int ccs;
	28	extern int spacesz;
	29	extern char trtab[];
	30	extern int xbitf;
	31	extern int mfont;
	32	extern int mpts;
	33	extern int pfont;
	34	extern int ppts;
	35	extern int oldbits;
	36	extern int chbits;
	37	extern int spbits;
	38	extern int nonumb;
	39	extern int noscale;
	40	extern int font;
	41	extern int font1;
	42	extern int pts;
	43	extern int pts1;
	44	extern int apts;
	45	extern int apts1;
	46	extern int sps;
	47	extern int nlflg;
	48	extern int nform;
	49	extern int dfact;
	50	extern int lss;
	51	extern int lss1;
	52	extern int vflag;
	53	extern int ch0;
	54	extern int lg;
5673b9a7 BS	55	char *fontfile = "/usr/lib/font/ftXX";
5673b9a7 BS	56	int ffi = 0;
346e7ddd RH	57	extern int bd;
	58	extern int level;
	59	extern int ch;
	60	extern int res;
	61	extern int ptid;
	62	extern char W1[],W2[],W3[],W4[];
	63	extern int xxx;
	64	int trflg;
	65	char *fontab[] = {W1,W2,W3,W4};
	66	int fontlab[] = {'R','I','B','S',0};
	67	char pstab[] = {6,7,8,9,10,11,12,14,16,18,20,22,24,28,36,0};
	68	char psctab[] = {010,000,001,007,002,003,004,005,0211,006,
	69	0212,0213,0214,0215,0216,0};
	70	int cstab[4], ccstab[4];
	71	int bdtab[4];
	72	int sbold = 0;
	73	int spsz = 0;
	74	struct fz {
	75	char sign;
	76	char size;
	77	int inc;
	78	} fz[4];
	79
	80	width(c)
	81	int c;
	82	{
	83	register i,j,k;
	84
	85	j = c;
	86	k = 0;
	87	if(j & MOT){
	88	if(j & VMOT)goto rtn;
	89	k = j & ~MOTV;
	90	if(j & NMOT)k = -k;
	91	goto rtn;
	92	}
	93	if((i = (j & CMASK)) == 010){
	94	k = -widthp;
	95	goto rtn;
	96	}
	97	if(i == PRESC)i = eschar;
	98	if((i == ohc) \|\|
	99	(i >= 0370))goto rtn;
	100	if((j>>BYTE) == oldbits){
	101	xfont = pfont;
	102	xpts = ppts;
	103	}else xbits(j);
	104	if(j & ZBIT)goto rtn;
	105	if(!trflg)i = trtab[i] & BMASK;
	106	if((i -= 32) < 0)goto rtn;
	107	k = getcw(i);
	108	if(bd)k += bd - 1;
	109	if(cs)k = cs;
	110	widthp = k;
	111	rtn:
	112	xbitf = trflg = 0;
	113	return(k);
	114	}
	115	getcw(i)
	116	int i;
	117	{
	118	register j,k;
	119	register char *p;
	120	int x;
121	extern char codetab[];
122
123	bd = 0;
124	if((code = codetab[i]) & 0200){
125	if(smnt){
126	p = fontab[smnt-1];
127	if(xfont == (sbold-1))bd = bdtab[smnt-1];
128	goto g0;
129	}
130	code = 0;
131	k = 36;
132	goto g1;
133	}
134	p = fontab[xfont];
135	g0:
136	if(!i)k = spacesz;
137	else k = *(p + i) & BMASK;
138	if(setwdf)v.ct \|= ((k>>6) & 3);
139	g1:
140	k = (j = (k&077)*(xpts&077))/6;
141	if((j%6) >= 3)k++;
142	if(cs = cstab[xfont]){
143	if(ccs = ccstab[xfont])x = ccs; else x = xpts;
144	cs = (j = (cs&077)*(x&077))/6;
145	if((j%6) >= 3)cs++;
146	}
147	if(!bd)bd = bdtab[xfont];
148	return(k);
149	}
150	xbits(i)
151	int i;
152	{
153	register j, k;
154
155	/*
156	if((j = i >> BYTE) == oldbits){
157	xfont = pfont;
158	xpts = ppts;
159	goto rtn;
160	}
161	*/
162	j = i >> BYTE;
163	xfont = (j>>1) & 03;
164	if(k = (j>>3) & 017){
165	xpts = pstab[--k];
166	if(psctab[k] < 0)xpts \|= DBL;
167	oldbits = j;
168	pfont = xfont;
169	ppts = xpts;
170	goto rtn;
171	}
172	switch(xbitf){
173	case 0:
174	xfont = font;
175	xpts = pts;
176	break;
177	case 1:
178	xfont = pfont;
179	xpts = ppts;
180	break;
181	case 2:
182	xfont = mfont;
183	xpts = mpts;
184	}
185	rtn:
186	xbitf = 0;
187	}
188	setch(){
189	register i,*j,k;
190	extern int chtab[];
191
192	if((i = getrq()) == 0)return(0);
193	for(j=chtab;j != i;j++)if((j++) == 0)return(0);
194	k = *(++j) \| chbits;
195	/*
196	if((i & CMASK) == '*'){
197	if(((i = find('R',fontlab)) < 0) &&
198	((i = find('G',fontlab)) < 0))
199	return(k);
200	else return((k & ~(03<<(BYTE+1))) \| (i<<(BYTE+1)));
201	}
202	*/
203	return(k);
204	}
205	find(i,j)
206	int i,j[];
207	{
208	register k;
209
210	if(((k = i-'0') >= 1) && (k <= 4) && (k != smnt))return(--k);
211	for(k=0; j[k] != i; k++)if(j[k] == 0)return(-1);
212	return(k);
213	}
214	casefz(){
215	register i, j, k;
216	int savinc;
217
218	k = 0;
219	fz0:
220	if(skip() \|\| !(i = getrq()) \|\|
221	((j = find(i,fontlab)) == -1)){
222	if(k)goto fz1;
223	else return;
224	}
225	if(j == (smnt-1)){
226	k = smnt;
227	goto fz0;
228	}
229	if(k){
230	spsz = j + 1;
231	j = k -1;
232	}
233	fz1:
234	if((j==font) && fz[j].inc)savinc = fz[j].inc;
235	else savinc = 0;
236	fz[j].inc = fz[j].sign = fz[j].size = 0;
237	if(skip()){
238	if(k)spsz = 0;
239	goto fz2;
240	}
241	if(((i=((k=getch()) & CMASK)) == '+') \|\| (i == '-'))fz[j].sign = i;
242	else{
243	fz[j].sign = 0;
244	ch = k;
245	}
246	noscale++;
247	fz[j].size = atoi();
248	noscale = 0;
249	fz2:
250	if(j==font)casps1(apts + savinc);
251	else if(j == smnt-1)mchbits();
252	}
253	caseps(){
254	register i;
255
256	if(skip())i = apts1;
257	else{
258	noscale++;
259	i = inumb(&apts);
260	noscale = 0;
261	if(nonumb)return;
262	}
263	casps1(i);
264	}
265	casps1(i)
266	int i;
267	{
268	if(i <= 0)return;
269	if(fz[font].size){
270	i = getfz(font, i);
271	}
272	apts1 = apts;
273	apts = i;
274	pts1 = pts;
275	pts = findps(i & 077);
276	mchbits();
277	}
278	findps(i)
279	int i;
280	{
281	register j, k;
282
283	for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
284	if(psctab[j] < 0)k \|= DBL;
285	return(k);
286	}
287	mchbits(){
288	register i, j, k;
289
290	spbits = 0;
291	i = pts & 077;
292	for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
293	chbits = (((++j)<<2) \| font) << (BYTE + 1);
294	sps = width(' ' \| chbits);
295	if(font == (spsz-1)){
296	i = findps(getfz(smnt-1, apts + fz[font].inc));
297	for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
298	spbits = (((++j)<<2) \| font) << (BYTE + 1);
299	}
300	}
301	getfz(x,y)
302	int x, y;
303	{
304	register i, j, k;
305
306	i = fz[x].size;
307	j = fz[x].sign;
308	if(i \|\| j){
309	if(j == '+')i += y;
310	else if(j == '-')i = y - i;
311	}
312	fz[x].inc = y - i;
313	return(i);
314	}
315	setps(){
316	register i,j;
317
318	if((((i=getch() & CMASK) == '+') \|\| (i == '-')) &&
319	(((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9))){
320	if(i == '-')j = -j;
321	ch = 0;
322	casps1(apts+j);
323	return;
324	}
325	if((i -= '0') == 0){
326	casps1(apts1);
327	return;
328	}
329	if((i > 0) && (i <= 9)){
330	if((i <= 3) &&
331	((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9)){
332	i = 10*i +j;
333	ch = 0;
334	}
335	casps1(i);
336	}
337	}
338	caseft(){
339	skip();
340	setfont(1);
341	}
342	setfont(a)
343	int a;
344	{
345	register i,j;
346
347	if(a)i = getrq();
348	else i = getsn();
349	if(!i \|\| (i == 'P')){
350	j = font1;
351	goto s0;
352	}
353	if(i == 'S')return;
354	if((j = find(i,fontlab)) == -1)return;
355	s0:
356	font1 = font;
357	font = j;
358	i = 0;
359	if(fz[font1].size){
360	i++;
361	casps1(apts + fz[font1].inc);
362	}else if(fz[font].size){
363	i++;
364	casps1(apts);
365	}
366	if(!i)mchbits();
367	}
368	setwd(){
369	register i, base, wid;
370	int delim, em, k;
371	int savlevel, savhp, savapts, savapts1, savfont, savfont1,
372	savpts, savpts1;
373	int savpinchar, p, q, tempinchar[LNSIZE]; / XXX */
374
375	base = v.st = v.sb = wid = v.ct = 0;
376	if((delim = getch() & CMASK) & MOT)return;
377	savhp = v.hp;
378	savpinchar = pinchar; /* XXX */
379	for (p=inchar, q=tempinchar; p < pinchar; ) /* XXX */
380	q++ = p++; /* XXX */
381	pinchar = inchar; /* XXX */
382	savlevel = level;
383	v.hp = level = 0;
384	savapts = apts;
385	savapts1 = apts1;
386	savfont = font;
387	savfont1 = font1;
388	savpts = pts;
389	savpts1 = pts1;
390	setwdf++;
391	while((((i = getch()) & CMASK) != delim) && !nlflg){
392	wid += width(i);
393	if(!(i & MOT)){
394	em = (xpts & 077)*6;
395	}else if(i & VMOT){
396	k = i & ~MOTV;
397	if(i & NMOT)k = -k;
398	base -= k;
399	em = 0;
400	}else continue;
401	if(base < v.sb)v.sb = base;
402	if((k=base + em) > v.st)v.st = k;
403	}
404	nform = 0;
405	setn1(wid);
406	v.hp = savhp;
407	pinchar = savpinchar; /* XXX */
408	for (p=inchar, q=tempinchar; p < pinchar; ) /* XXX */
409	p++ = q++; /* XXX */
410	level = savlevel;
411	apts = savapts;
412	apts1 = savapts1;
413	font = savfont;
414	font1 = savfont1;
415	pts = savpts;
416	pts1 = savpts1;
417	mchbits();
418	setwdf = 0;
419	}
420	vmot(){
421	dfact = lss;
422	vflag++;
423	return(mot());
424	}
425	hmot(){
426	dfact = 6 * (pts & 077);
427	return(mot());
428	}
429	mot(){
430	register i, j;
431
432	j = HOR;
433	getch(); /eat delim/
434	if(i = atoi()){
435	if(vflag)j = VERT;
436	i = makem(quant(i,j));
437	}
438	getch();
439	vflag = 0;
440	dfact = 1;
441	return(i);
442	}
443	sethl(k)
444	int k;
445	{
446	register i;
447
448	i = 3 * (pts & 077);
449	if(k == 'u')i = -i;
450	else if(k == 'r')i = -2*i;
451	vflag++;
452	i = makem(i);
453	vflag = 0;
454	return(i);
455	}
456	makem(i)
457	int i;
458	{
459	register j;
460
461	if((j = i) < 0)j = -j;
462	j = (j & ~MOTV) \| MOT;
463	if(i < 0)j \|= NMOT;
464	if(vflag)j \|= VMOT;
465	return(j);
466	}
467	getlg(i)
468	int i;
469	{
470	register j, k;
471
472	switch((j = getch0()) & CMASK){
473	case 'f':
474	if(lg!=2){switch((k =getch0()) & CMASK){
475	case 'i':
476	j = 0214;
477	break;
478	case 'l':
479	j = 0215;
480	break;
481	default:
482	ch0 = k;
483	j = 0213;
484	}
485	}else j = 0213;
486	break;
487	case 'l':
488	j = 0212;
489	break;
490	case 'i':
491	j = 0211;
492	break;
493	default:
494	ch0 = j;
495	j = i;
496	}
497	return((i & ~CMASK) \| j);
498	}
499	caselg(){
500
501	lg = 1;
502	if(skip())return;
503	lg = atoi();
504	}
505	casefp(){
506	register i, j, k;
507	int x;
508
5673b9a7 BS	509	if (ffi == 0)
	510	while (fontfile[ffi] != 'X')
	511	ffi++;
346e7ddd RH	512	skip();
	513	if(((i = (getch() & CMASK) - '0' -1) < 0) \|\| (i >3)){prstr("fp: bad font position\n"); return;}
	514	if(skip() \|\| !(j = getrq())){prstr("fp: no font name\n"); return;}
	515	fontfile[ffi] = j & BMASK;
	516	fontfile[ffi+1] = j>>BYTE;
	517	if((k = open(fontfile,0)) < 0){
	518	prstr("Cannot open ");
	519	c0:
	520	prstr(fontfile);
	521	prstr("\n");
	522	done(-1);
	523	}
	524	if(lseek(k,8L * sizeof(int),0) < 0)goto c1;
	525	if(read(k,fontab[i],256-32) != 256-32){
	526	c1:
	527	prstr("Cannot read ");
	528	goto c0;
	529	}
	530	close(k);
	531	if(i == (smnt-1)){smnt = 0; sbold = 0; spsz = 0;}
	532	if((fontlab[i] = j) == 'S')smnt = i + 1;
	533	bdtab[i] = cstab[i] = ccstab[i] = 0;
	534	fz[i].inc = fz[i].sign = fz[i].size = 0;
	535	if(ptid != 1){
	536	prstr("Mount font ");
	537	prstr(&fontfile[ffi]);
	538	prstr(" on ");
	539	x = PAIR((i + '1'),0);
	540	prstr((char *)&x);
	541	prstr("\n");
	542	}
	543	}
	544	casecs(){
	545	register i, j;
	546
	547	noscale++;
	548	skip();
	549	if(!(i=getrq()) \|\|
	550	((i = find(i,fontlab)) < 0))goto rtn;
	551	skip();
	552	cstab[i] = atoi();
	553	skip();
	554	j = atoi();
	555	if(!nonumb)ccstab[i] = findps(j);
	556	rtn:
	557	noscale = 0;
	558	}
	559	casebd(){
	560	register i, j, k;
	561
	562	k = 0;
	563	bd0:
	564	if(skip() \|\| !(i = getrq()) \|\|
	565	((j = find(i,fontlab)) == -1)){
	566	if(k)goto bd1;
	567	else return;
	568	}
	569	if(j == (smnt-1)){
	570	k = smnt;
	571	goto bd0;
	572	}
	573	if(k){
	574	sbold = j + 1;
	575	j = k -1;
576	}
577	bd1:
578	skip();
579	noscale++;
580	bdtab[j] = atoi();
581	noscale = 0;
582	}
583	casevs(){
584	register i;
585
586	skip();
587	vflag++;
588	dfact = 6; /default scaling is points!/
589	res = VERT;
590	i = inumb(&lss);
591	if(nonumb)i = lss1;
592	if(i < VERT)i = VERT;
593	lss1 = lss;
594	lss = i;
595	}
596	casess(){
597	register i;
598
599	noscale++;
600	skip();
601	if(i = atoi()){
602	spacesz = i& 0177;
603	sps = width(' ' \| chbits);
604	}
605	noscale = 0;
606	}
607	xlss(){
608	register i, j;
609
610	getch();
611	dfact = lss;
612	i = quant(atoi(),VERT);
613	dfact = 1;
614	getch();
615	if((j = i) < 0)j = -j;
616	ch0 = ((j & 03700)<<3) \| HX;
617	if(i < 0)ch0 \|= 040000;
618	return(((j & 077)<<9) \| LX);
619	}