/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ #include "tdef.h"#include "ext.h"#include "fns.h" /* * troff9.c *  * misc functions */ Tchar setz(void){	Tchar i; 	if (!ismot(i = getch()))		i |= ZBIT;	return(i);} void setline(void){	Tchar *i;	Tchar c;	int length;	int j, w, cnt, delim, rem, temp;	Tchar linebuf[NC]; 	if (ismot(c = getch()))		return;	delim = cbits(c);	vflag = 0;	dfact = EM;	length = quant(atoi0(), HOR);	dfact = 1;	if (!length) {		eat(delim);		return;	}s0:	if ((j = cbits(c = getch())) == delim || j == '\n') {		ch = c;		c = RULE | chbits;	} else if (cbits(c) == FILLER)		goto s0;	w = width(c);	if (w <= 0) {		ERROR "zero-width underline character ignored" WARN;		c = RULE | chbits;		w = width(c);	}	i = linebuf;	if (length < 0) {		*i++ = makem(length);		length = -length;	}	if (!(cnt = length / w)) {		*i++ = makem(-(temp = ((w - length) / 2)));		*i++ = c;		*i++ = makem(-(w - length - temp));		goto s1;	}	if (rem = length % w) {		if (cbits(c) == RULE || cbits(c) == UNDERLINE || cbits(c) == ROOTEN)			*i++ = c | ZBIT;		*i++ = makem(rem);	}	if (cnt) {		*i++ = RPT;		*i++ = cnt;		*i++ = c;	}s1:	*i = 0;	eat(delim);	pushback(linebuf);}  eat(int c){	int i; 	while ((i = cbits(getch())) != c && i != '\n')		;	return(i);}  void setov(void){	int j, k;	Tchar i, o[NOV+1];	int delim, w[NOV+1]; 	if (ismot(i = getch()))		return;	delim = cbits(i);	for (k = 0; k < NOV && (j = cbits(i = getch())) != delim && j != '\n'; k++) {		o[k] = i;		w[k] = width(i);	}	o[k] = w[k] = 0;	if (o[0])		for (j = 1; j; ) {			j = 0;			for (k = 1; o[k] ; k++) {				if (w[k-1] < w[k]) {					j++;					i = w[k];					w[k] = w[k-1];					w[k-1] = i;					i = o[k];					o[k] = o[k-1];					o[k-1] = i;				}			}		}	else 		return;	*pbp++ = makem(w[0] / 2);	for (k = 0; o[k]; k++)		;	while (k>0) {		k--;		*pbp++ = makem(-((w[k] + w[k+1]) / 2));		*pbp++ = o[k];	}}  void setbra(void){	int k;	Tchar i, *j, dwn;	int cnt, delim;	Tchar brabuf[NC]; 	if (ismot(i = getch()))		return;	delim = cbits(i);	j = brabuf + 1;	cnt = 0;	if (NROFF)		dwn = (2 * t.Halfline) | MOT | VMOT;	else		dwn = EM | MOT | VMOT;	while ((k = cbits(i = getch())) != delim && k != '\n' && j <= brabuf + NC - 4) {		*j++ = i | ZBIT;		*j++ = dwn;		cnt++;	}	if (--cnt < 0)		return;	else if (!cnt) {		ch = *(j - 2);		return;	}	*j = 0;	if (NROFF)		*--j = *brabuf = (cnt * t.Halfline) | MOT | NMOT | VMOT;	else		*--j = *brabuf = (cnt * EM) / 2 | MOT | NMOT | VMOT;	*--j &= ~ZBIT;	pushback(brabuf);}  void setvline(void){	int i;	Tchar c, rem, ver, neg;	int cnt, delim, v;	Tchar vlbuf[NC];	Tchar *vlp; 	if (ismot(c = getch()))		return;	delim = cbits(c);	dfact = lss;	vflag++;	i = quant(atoi0(), VERT);	dfact = 1;	if (!i) {		eat(delim);		vflag = 0;		return;	}	if ((cbits(c = getch())) == delim) {		c = BOXRULE | chbits;	/*default box rule*/	} else 		getch();	c |= ZBIT;	neg = 0;	if (i < 0) {		i = -i;		neg = NMOT;	}	if (NROFF)		v = 2 * t.Halfline;	else {		v = EM;		if (v < VERT)		/* ATT EVK hack: Erik van Konijnenburg, */			v = VERT;	/* hvlpb!evkonij, ATT NSI Hilversum, Holland */	} 	cnt = i / v;	rem = makem(i % v) | neg;	ver = makem(v) | neg;	vlp = vlbuf;	if (!neg)		*vlp++ = ver;	if (absmot(rem) != 0) {		*vlp++ = c;		*vlp++ = rem;	}	while (vlp < vlbuf + NC - 3 && cnt--) {		*vlp++ = c;		*vlp++ = ver;	}	*(vlp - 2) &= ~ZBIT;	if (!neg)		vlp--;	*vlp = 0;	pushback(vlbuf);	vflag = 0;} #define	NPAIR	(NC/2-6)	/* max pairs in spline, etc. */ void setdraw(void)	/* generate internal cookies for a drawing function */{	int i, j, k, dx[NPAIR], dy[NPAIR], delim, type;	Tchar c, drawbuf[NC];	int drawch = '.';	/* character to draw with */ 	/* input is \D'f dx dy dx dy ... c' (or at least it had better be) */	/* this does drawing function f with character c and the */	/* specified dx,dy pairs interpreted as appropriate */	/* pairs are deltas from last point, except for radii */ 	/* l dx dy:	line from here by dx,dy */	/* c x:		circle of diameter x, left side here */	/* e x y:	ellipse of diameters x,y, left side here */	/* a dx1 dy1 dx2 dy2:			ccw arc: ctr at dx1,dy1, then end at dx2,dy2 from there */	/* ~ dx1 dy1 dx2 dy2...:			spline to dx1,dy1 to dx2,dy2 ... */	/* b x c:			built-up character of type c, ht x */	/* f dx dy ...:	f is any other char:  like spline */ 	if (ismot(c = getch()))		return;	delim = cbits(c);	numerr.escarg = type = cbits(getch());	if (type == '~')	/* head off the .tr ~ problem */		type = 's';	for (i = 0; i < NPAIR ; i++) {		skip();		vflag = 0;		dfact = EM;		dx[i] = quant(atoi0(), HOR);		if (dx[i] > MAXMOT)			dx[i] = MAXMOT;		else if (dx[i] < -MAXMOT)			dx[i] = -MAXMOT;		skip();		if (type == 'c') {			dy[i] = 0;			goto eat;		}		vflag = 1;		dfact = lss;		dy[i] = quant(atoi0(), VERT);		if (dy[i] > MAXMOT)			dy[i] = MAXMOT;		else if (dy[i] < -MAXMOT)			dy[i] = -MAXMOT;eat:		if (cbits(c = getch()) != ' ') {	/* must be the end */			if (cbits(c) != delim) {				drawch = cbits(c);				getch();			}			i++;			break;		}	}	dfact = 1;	vflag = 0;	if (TROFF) {		drawbuf[0] = DRAWFCN | chbits | ZBIT;		drawbuf[1] = type | chbits | ZBIT;		drawbuf[2] = drawch | chbits | ZBIT;		for (k = 0, j = 3; k < i; k++) {			drawbuf[j++] = MOT | ((dx[k] >= 0) ? dx[k] : (NMOT | -dx[k]));			drawbuf[j++] = MOT | VMOT | ((dy[k] >= 0) ? dy[k] : (NMOT | -dy[k]));		}		if (type == DRAWELLIPSE) {			drawbuf[5] = drawbuf[4] | NMOT;	/* so the net vertical is zero */			j = 6;		} else if (type == DRAWBUILD) {			drawbuf[4] = drawbuf[3] | NMOT;	/* net horizontal motion is zero */			drawbuf[2] &= ~ZBIT;		/* width taken from drawing char */			j = 5;		}		drawbuf[j++] = DRAWFCN | chbits | ZBIT;	/* marks end for ptout */		drawbuf[j] = 0;		pushback(drawbuf);	}}  void casefc(void){	int i;	Tchar j; 	gchtab[fc] &= ~FCBIT;	fc = IMP;	padc = ' ';	if (skip() || ismot(j = getch()) || (i = cbits(j)) == '\n')		return;	fc = i;	gchtab[fc] |= FCBIT;	if (skip() || ismot(ch) || (ch = cbits(ch)) == fc)		return;	padc = ch;}  Tchar setfield(int x){	Tchar rchar, ii, jj, *fp;	Tchar **pp, *padptr[NPP];	Tchar fbuf[FBUFSZ];	int i, j, length, ws, npad, temp, type, savepos, savfc, savtc, savlc;	static Tchar wbuf[] = { WORDSP, 0}; 	if (x == tabch) 		rchar = tabc | chbits;	else if (x == ldrch) 		rchar = dotc | chbits;	else		rchar = 0;	temp = npad = ws = 0;	savfc = fc;	savtc = tabch;	savlc = ldrch;	tabch = ldrch = fc = IMP;	savepos = numtabp[HP].val;	gchtab[tabch] &= ~TABBIT;	gchtab[ldrch] &= ~LDRBIT;	gchtab[fc] &= ~FCBIT;	gchtab[IMP] |= TABBIT|LDRBIT|FCBIT;	for (j = 0; ; j++) {		if ((tabtab[j] & TABMASK) == 0) {			if (x == savfc)				ERROR "zero field width." WARN;			jj = 0;			goto rtn;		}		if ((length = ((tabtab[j] & TABMASK) - numtabp[HP].val)) > 0 )			break;	}	type = tabtab[j] & ~TABMASK;	fp = fbuf;	pp = padptr;	if (x == savfc) {		while (1) {			j = cbits(ii = getch());			jj = width(ii);			widthp = jj;			numtabp[HP].val += jj;			if (j == padc) {				npad++;				*pp++ = fp;				if (pp > padptr + NPP - 1)					break;				goto s1;			} else if (j == savfc) 				break;			else if (j == '\n') {				temp = j;				if (nlflg && ip == 0) {					numtabp[CD].val--;					nlflg = 0;				}				break;			}			ws += jj;s1:			*fp++ = ii;			if (fp > fbuf + FBUFSZ - 3)				break;		}		if (ws)			*fp++ = WORDSP;		if (!npad) {			npad++;			*pp++ = fp;			*fp++ = 0;		}		*fp++ = temp;		*fp = 0;		temp = i = (j = length - ws) / npad;		i = (i / HOR) * HOR;		if ((j -= i * npad) < 0)			j = -j;		ii = makem(i);		if (temp < 0)			ii |= NMOT;		for (; npad > 0; npad--) {			*(*--pp) = ii;			if (j) {				j -= HOR;				(*(*pp)) += HOR;			}		}		pushback(fbuf);		jj = 0;	} else if (type == 0) {		/*plain tab or leader*/		if ((j = width(rchar)) > 0) {			int nchar = length / j;			while (nchar-->0 && pbp < &pbbuf[NC-3]) {				numtabp[HP].val += j;				widthp = j;				*pbp++ = rchar;			}			length %= j;		}		if (length)			jj = length | MOT;		else 			jj = getch0();		if (savepos > 0)			pushback(wbuf);	} else {		/*center tab*/		/*right tab*/		while ((j = cbits(ii = getch())) != savtc && j != '\n' && j != savlc) {			jj = width(ii);			ws += jj;			numtabp[HP].val += jj;			widthp = jj;			*fp++ = ii;			if (fp > fbuf + FBUFSZ - 3) 				break;		}		*fp++ = ii;		*fp = 0;		if (type == RTAB)			length -= ws;		else 			length -= ws / 2; /*CTAB*/		pushback(fbuf);		if ((j = width(rchar)) != 0 && length > 0) {			int nchar = length / j;			while (nchar-- > 0 && pbp < &pbbuf[NC-3])				*pbp++ = rchar;			length %= j;		}		if (savepos > 0)			pushback(wbuf);		length = (length / HOR) * HOR;		jj = makem(length);		if (nlflg) {			if (ip == 0)				numtabp[CD].val--;			nlflg = 0;		}	}rtn:	gchtab[fc] &= ~FCBIT;	gchtab[tabch] &= ~TABBIT;	gchtab[ldrch] &= ~LDRBIT;	fc = savfc;	tabch = savtc;	ldrch = savlc;	gchtab[fc] |= FCBIT;	gchtab[tabch] = TABBIT;	gchtab[ldrch] |= LDRBIT;	numtabp[HP].val = savepos;	return(jj);}