[unix-history] / usr / src / local / ditroff / ditroff.okeeffe / t10.c

#ifndef lint
static char sccsid[] = "@(#)t10.c	2.1 (CWI) 85/07/18";
#endif lint
#include "tdef.h"
#include <sgtty.h>
#include <ctype.h>
#include "ext.h"
/*
 * troff10.c
 * 
 * typesetter interface
 */

int	vpos	 = 0;	/* absolute vertical position on page */
int	hpos	 = 0;	/* ditto horizontal */

short	*chtab;
char	*chname;
char	*fontab[NFONT+1];
char	*kerntab[NFONT+1];
char	*fitab[NFONT+1];
char	*codetab[NFONT+1];

int	Inch;
int	Hor;
int	Vert;
int	Unitwidth;
int	nfonts;
int	nsizes;
int	nchtab;

/* these characters are used as various signals or values
/* in miscellaneous places.
/* values are set in specnames in t10.c
*/

int	c_hyphen;
int	c_emdash;
int	c_rule;
int	c_minus;
int	c_fi;
int	c_fl;
int	c_ff;
int	c_ffi;
int	c_ffl;
int	c_acute;
int	c_grave;
int	c_under;
int	c_rooten;
int	c_boxrule;
int	c_lefthand;
int	c_dagger;

#include "dev.h"
struct dev dev;
struct Font *fontbase[NFONT+1];


ptinit()
{
	int	i, fin, nw;
	char	*setbrk(), *filebase, *p;

	/* open table for device,
	/* read in resolution, size info, font info, etc.
	/* and set params
	*/
	strcat(termtab, "/dev");
	strcat(termtab, devname);
	strcat(termtab, "/DESC.out");	/* makes "..../devXXX/DESC.out" */
	if ((fin = open(termtab, 0)) < 0) {
		errprint("can't open tables for %s", termtab);
		done3(1);
	}
	read(fin, (char *) &dev, sizeof(struct dev ));
	Inch = dev.res;
	Hor = dev.hor;
	Vert = dev.vert;
	Unitwidth = dev.unitwidth;
	nfonts = dev.nfonts;
	nsizes = dev.nsizes;
	nchtab = dev.nchtab;
	filebase = setbrk(dev.filesize + 2 * EXTRAFONT);	/* enough room for whole file */
	read(fin, filebase, dev.filesize);	/* all at once */
	pstab = (short *) filebase;
	chtab = pstab + nsizes + 1;
	chname = (char *) (chtab + dev.nchtab);
	p = chname + dev.lchname;
	for (i = 1; i <= nfonts; i++) {
		fontbase[i] = (struct Font *) p;
		nw = *p & BYTEMASK;	/* 1st thing is width count */
		fontlab[i] = PAIR(fontbase[i]->namefont[0], fontbase[i]->namefont[1]);
		/* for now, still 2 char names */
		if (smnt == 0 && fontbase[i]->specfont == 1)
			smnt = i;	/* first special font */
		p += sizeof(struct Font);	/* that's what's on the beginning */
		fontab[i] = p;
		kerntab[i] = p + nw;
		codetab[i] = p + 2 * nw;
		fitab[i] = p + 3 * nw;	/* skip width, kern, code */
		p += 3 * nw + dev.nchtab + 128 - 32;
		/*
		 * jaap
		 *
		 * skip also fcode, if there
		 * See remarks in dev.h and makedev.c
		 */
		if(fontbase[i]->fonttab == 1)
			p += nw * sizeof(short);
	}
	fontbase[0] = (struct Font *) p;	/* the last shall be first */
	fontbase[0]->nwfont = MAXCHARS;
	fontab[0] = p + sizeof (struct Font);
	close(fin);
	/* there are a lot of things that used to be constant
	/* that now require code to be executed.
	*/
	sps = SPS;
	ics = ICS;
	for (i = 0; i < 16; i++)
		tabtab[i] = DTAB * (i + 1);
	pl = 11 * INCH;
	po = PO;
	spacesz = SS;
	lss = lss1 = VS;
	ll = ll1 = lt = lt1 = LL;
	specnames();	/* install names like "hyphen", etc. */
	if (ascii)
		return;
	fdprintf(ptid, "x T %s\n", devname);
	fdprintf(ptid, "x res %d %d %d\n", Inch, Hor, Vert);
	fdprintf(ptid, "x init\n");	/* do initialization for particular device */
  /*
	for (i = 1; i <= nfonts; i++)
		fdprintf(ptid, "x font %d %s\n", i, fontbase[i]->namefont);
	fdprintf(ptid, "x xxx fonts=%d sizes=%d unit=%d\n", nfonts, nsizes, Unitwidth);
	fdprintf(ptid, "x xxx nchtab=%d lchname=%d nfitab=%d\n",
		dev.nchtab, dev.lchname, dev.nchtab+128-32);
	fdprintf(ptid, "x xxx sizes:\nx xxx ");
	for (i = 0; i < nsizes; i++)
		fdprintf(ptid, " %d", pstab[i]);
	fdprintf(ptid, "\nx xxx chars:\nx xxx ");
	for (i = 0; i < dev.nchtab; i++)
		fdprintf(ptid, " %s", &chname[chtab[i]]);
	fdprintf(ptid, "\nx xxx\n");
  */
}

specnames()
{
	static struct {
		int	*n;
		char	*v;
	} spnames[] = {
		&c_hyphen, "hy",
		&c_emdash, "em",
		&c_rule, "ru",
		&c_minus, "\\-",
		&c_fi, "fi",
		&c_fl, "fl",
		&c_ff, "ff",
		&c_ffi, "Fi",
		&c_ffl, "Fl",
		&c_acute, "aa",
		&c_grave, "ga",
		&c_under, "ul",
		&c_rooten, "rn",
		&c_boxrule, "br",
		&c_lefthand, "lh",
		&c_dagger, "dg",
		0, 0
	};
	int	i;

	for (i = 0; spnames[i].n; i++)
		*spnames[i].n = findch(spnames[i].v);
}

findch(s)	/* find char s in chname */
register char	*s;
{
	register int	i;

	for (i = 0; i < nchtab; i++)
		if (strcmp(s, &chname[chtab[i]]) == 0)
			return(i + 128);
	return(0);
}

ptout(i)
register tchar	i;
{
	register dv;
	register tchar	*k;
	int temp, a, b;

	if (cbits(i) != '\n') {
		*olinep++ = i;
		return;
	}
	if (olinep == oline) {
		lead += lss;
		return;
	}

	hpos = po;	/* ??? */
	esc = 0;	/* ??? */
	ptesc();	/* the problem is to get back to the left end of the line */
	dv = 0;
	for (k = oline; k < olinep; k++) {
		if (ismot(*k) && isvmot(*k)) {
			temp = absmot(*k);
			if (isnmot(*k))
				temp = -temp;
			dv += temp;
		}
	}
	if (dv) {
		vflag++;
		*olinep++ = makem(-dv);
		vflag = 0;
	}

	b = dip->blss + lss;
	lead += dip->blss + lss;
	dip->blss = 0;
	for (k = oline; k < olinep; )
		k += ptout0(k);	/* now passing a pointer! */
	olinep = oline;
	lead += dip->alss;
	a = dip->alss;
	dip->alss = 0;
	/*
	fdprintf(ptid, "x xxx end of line: hpos=%d, vpos=%d\n", hpos, vpos);
*/
	fdprintf(ptid, "n%d %d\n", b, a);	/* be nice to chuck */
}

ptout0(pi)
tchar	*pi;
{
	register short j, k, w;
	short	z, dx, dy, dx2, dy2, n;
	register tchar	i;
	int outsize;	/* size of object being printed */

	outsize = 1;	/* default */
	i = *pi;
	k = cbits(i);
	if (ismot(i)) {
		j = absmot(i);
		if (isnmot(i))
			j = -j;
		if (isvmot(i))
			lead += j;
		else 
			esc += j;
		return(outsize);
	}
	if (k == XON) {
		int c;
		if (xfont != mfont)
			ptfont();
		if (xpts != mpts)
			ptps();
		if (lead)
			ptlead();
		fdprintf(ptid, "x X ");
		for (j = 1; (c=cbits(pi[j])) != XOFF; j++)
			outascii(pi[j]);
		oput('\n');
		return j+1;
	}
			;
	if (k == CHARHT) {
		if (xpts != mpts)
			ptps();
		fdprintf(ptid, "x H %d\n", sbits(i));
		return(outsize);
	}
	if (k == SLANT) {
		fdprintf(ptid, "x S %d\n", sfbits(i)-180);
		return(outsize);
	}
	if (k == WORDSP) {
		oput('w');
		return(outsize);
	}
	if (sfbits(i) == oldbits) {
		xfont = pfont;
		xpts = ppts;
	} else 
		xbits(i, 2);
	if (k < 040 && k != DRAWFCN)
		return(outsize);
	if (widcache[k-32].fontpts == (xfont<<8) + xpts  && !setwdf) {
		w = widcache[k-32].width;
		bd = 0;
		cs = 0;
	} else
		w = getcw(k-32);
	j = z = 0;
	if (k != DRAWFCN) {
		if (cs) {
			if (bd)
				w += (bd - 1) * HOR;
			j = (cs - w) / 2;
			w = cs - j;
			if (bd)
				w -= (bd - 1) * HOR;
		}
		if (iszbit(i)) {
			if (cs)
				w = -j; 
			else 
				w = 0;
			z = 1;
		}
	}
	esc += j;
	if (xfont != mfont)
		ptfont();
	if (xpts != mpts)
		ptps();
	if (lead)
		ptlead();
	/* put out the real character here */
	if (k == DRAWFCN) {
		if (esc)
			ptesc();
		dx = absmot(pi[3]);
		if (isnmot(pi[3]))
			dx = -dx;
		dy = absmot(pi[4]);
		if (isnmot(pi[4]))
			dy = -dy;
		switch (cbits(pi[1])) {
		case DRAWCIRCLE:	/* circle */
			fdprintf(ptid, "D%c %d\n", DRAWCIRCLE, dx);	/* dx is diameter */
			w = 0;
			hpos += dx;
			break;
		case DRAWELLIPSE:
			fdprintf(ptid, "D%c %d %d\n", DRAWELLIPSE, dx, dy);
			w = 0;
			hpos += dx;
			break;
		case DRAWLINE:	/* line */
			k = cbits(pi[2]);
			fdprintf(ptid, "D%c %d %d ", DRAWLINE, dx, dy);
			if (k < 128)
				fdprintf(ptid, "%c\n", k);
			else
				fdprintf(ptid, "%s\n", &chname[chtab[k - 128]]);
			w = 0;
			hpos += dx;
			vpos += dy;
			break;
		case DRAWARC:	/* arc */
			dx2 = absmot(pi[5]);
			if (isnmot(pi[5]))
				dx2 = -dx2;
			dy2 = absmot(pi[6]);
			if (isnmot(pi[6]))
				dy2 = -dy2;
			fdprintf(ptid, "D%c %d %d %d %d\n", DRAWARC,
				dx, dy, dx2, dy2);
			w = 0;
			hpos += dx + dx2;
			vpos += dy + dy2;
			break;
		case DRAWSPLINE:	/* spline */
		default:	/* something else; copy it like spline */
			fdprintf(ptid, "D%c %d %d", cbits(pi[1]), dx, dy);
			w = 0;
			hpos += dx;
			vpos += dy;
			if (cbits(pi[3]) == DRAWFCN || cbits(pi[4]) == DRAWFCN) {
				/* it was somehow defective */
				fdprintf(ptid, "\n");
				break;
			}
			for (n = 5; cbits(pi[n]) != DRAWFCN; n += 2) {
				dx = absmot(pi[n]);
				if (isnmot(pi[n]))
					dx = -dx;
				dy = absmot(pi[n+1]);
				if (isnmot(pi[n+1]))
					dy = -dy;
				fdprintf(ptid, " %d %d", dx, dy);
				hpos += dx;
				vpos += dy;
			}
			fdprintf(ptid, "\n");
			break;
		}
		for (n = 3; cbits(pi[n]) != DRAWFCN; n++)
			;
		outsize = n + 1;
	} else if (k < 128) {
		/* try to go faster and compress output */
		/* by printing nnc for small positive motion followed by c */
		/* kludgery; have to make sure set all the vars too */
		if (esc > 0 && esc < 100) {
			oput(esc / 10 + '0');
			oput(esc % 10 + '0');
			oput(k);
			hpos += esc;
			esc = 0;
		} else {
			if (esc)
				ptesc();
			oput('c');
			oput(k);
			oput('\n');
		}
	} else {
		if (esc)
			ptesc();
		if (k >= nchtab + 128)
			fdprintf(ptid, "N%d\n", k - (nchtab+128));
		else
			fdprintf(ptid, "C%s\n", &chname[chtab[k - 128]]);
	}
	if (bd) {
		bd -= HOR;
		if (esc += bd)
			ptesc();
		if (k < 128) {
			fdprintf(ptid, "c%c\n", k);
		} else if (k >= nchtab + 128) {
			fdprintf(ptid, "N%d\n", k - (nchtab+128));
		} else
			fdprintf(ptid, "C%s\n", &chname[chtab[k - 128]]);
		if (z)
			esc -= bd;
	}
	esc += w;
	return(outsize);
}

ptps()
{
	register i, j, k;

	i = xpts;
	for (j = 0; i > (k = pstab[j]); j++)
		if (!k) {
			k = pstab[--j];
			break;
		}
	fdprintf(ptid, "s%d\n", k);	/* really should put out string rep of size */
	mpts = i;
}

ptfont()
{
	extern char *unpair();
	mfont = xfont;
	if( xfont > nfonts) {
		register char *temp = unpair(fontlab[xfont]);
		ptfpcmd(0, temp);	/* Put the desired font in the
					 * fontcache of the filter */
		fdprintf(ptid, "f0\n");	/* make sure that it gets noticed */
	} else
		fdprintf(ptid, "f%d\n", xfont);
}

ptfpcmd(f, s)
int	f;
char	*s;
{
	if (ascii)
		return;
	fdprintf(ptid, "x font %d %s\n", f, s);
}

ptlead()
{
	vpos += lead;
	if (!ascii)
		fdprintf(ptid, "V%d\n", vpos);
	lead = 0;
}

ptesc()
{
	hpos += esc;
	if (esc > 0) {
		oput('h');
		if (esc>=10 && esc<100) {
			oput(esc/10 + '0');
			oput(esc%10 + '0');
		} else
			fdprintf(ptid, "%d", esc);
	} else
		fdprintf(ptid, "H%d\n", hpos);
	esc = 0;
}

newpage(n)	/* called at end of each output page (we hope) */
{
	int i;

	ptlead();
	vpos = 0;
	if (ascii)
		return;
	fdprintf(ptid, "p%d\n", n);	/* new page */
	for (i = 0; i <= nfonts; i++)
		if (fontbase[i]->namefont && fontbase[i]->namefont[0])
			fdprintf(ptid, "x font %d %s\n", i, fontbase[i]->namefont);
	ptps();
	ptfont();
}

pttrailer()
{
	fdprintf(ptid, "x trailer\n");
}

ptstop()
{
	fdprintf(ptid, "x stop\n");
}

dostop()
{
	if (ascii)
		return;
	ptlead();
	vpos = 0;
	/* fdprintf(ptid, "x xxx end of page\n");*/
	if (!nofeed)
		pttrailer();
	ptlead();
	fdprintf(ptid, "x pause\n");
	flusho();
	mpts = mfont = 0;
	ptesc();
	esc = po;
	hpos = vpos = 0;	/* probably in wrong place */
}
Commit	Line	Data
3bd975a1	1	#ifndef lint
655e9788	2	static char sccsid[] = "@(#)t10.c 2.1 (CWI) 85/07/18";
3bd975a1	3	#endif lint
3bd975a1	4	#include "tdef.h"
3bd975a1	5	#include <sgtty.h>
655e9788	6	#include <ctype.h>
3bd975a1	7	#include "ext.h"
655e9788 JA	8	/*
	9	* troff10.c
	10	*
	11	* typesetter interface
	12	*/
	13
3bd975a1 JA	14	int vpos = 0; /* absolute vertical position on page */
	15	int hpos = 0; /* ditto horizontal */
	16
3bd975a1 JA	17	short *chtab;
	18	char *chname;
	19	char *fontab[NFONT+1];
	20	char *kerntab[NFONT+1];
	21	char *fitab[NFONT+1];
655e9788	22	char *codetab[NFONT+1];
3bd975a1 JA	23
	24	int Inch;
	25	int Hor;
	26	int Vert;
	27	int Unitwidth;
	28	int nfonts;
	29	int nsizes;
	30	int nchtab;
	31
	32	/* these characters are used as various signals or values
	33	/* in miscellaneous places.
	34	/* values are set in specnames in t10.c
	35	*/
	36
	37	int c_hyphen;
	38	int c_emdash;
	39	int c_rule;
	40	int c_minus;
3bd975a1 JA	41	int c_fi;
	42	int c_fl;
	43	int c_ff;
	44	int c_ffi;
	45	int c_ffl;
	46	int c_acute;
	47	int c_grave;
	48	int c_under;
	49	int c_rooten;
	50	int c_boxrule;
	51	int c_lefthand;
655e9788	52	int c_dagger;
3bd975a1 JA	53
	54	#include "dev.h"
	55	struct dev dev;
655e9788	56	struct Font *fontbase[NFONT+1];
3bd975a1 JA	57
	58
	59	ptinit()
	60	{
	61	int i, fin, nw;
	62	char setbrk(), filebase, *p;
	63
	64	/* open table for device,
	65	/* read in resolution, size info, font info, etc.
	66	/* and set params
	67	*/
	68	strcat(termtab, "/dev");
	69	strcat(termtab, devname);
	70	strcat(termtab, "/DESC.out"); /* makes "..../devXXX/DESC.out" */
	71	if ((fin = open(termtab, 0)) < 0) {
655e9788	72	errprint("can't open tables for %s", termtab);
3bd975a1 JA	73	done3(1);
3bd975a1 JA	74	}
655e9788	75	read(fin, (char *) &dev, sizeof(struct dev ));
3bd975a1 JA	76	Inch = dev.res;
	77	Hor = dev.hor;
	78	Vert = dev.vert;
	79	Unitwidth = dev.unitwidth;
	80	nfonts = dev.nfonts;
	81	nsizes = dev.nsizes;
	82	nchtab = dev.nchtab;
655e9788	83	filebase = setbrk(dev.filesize + 2 * EXTRAFONT); /* enough room for whole file */
3bd975a1 JA	84	read(fin, filebase, dev.filesize); /* all at once */
	85	pstab = (short *) filebase;
	86	chtab = pstab + nsizes + 1;
	87	chname = (char *) (chtab + dev.nchtab);
	88	p = chname + dev.lchname;
	89	for (i = 1; i <= nfonts; i++) {
655e9788 JA	90	fontbase[i] = (struct Font *) p;
655e9788 JA	91	nw = p & BYTEMASK; / 1st thing is width count */
3bd975a1 JA	92	fontlab[i] = PAIR(fontbase[i]->namefont[0], fontbase[i]->namefont[1]);
	93	/* for now, still 2 char names */
	94	if (smnt == 0 && fontbase[i]->specfont == 1)
	95	smnt = i; /* first special font */
655e9788	96	p += sizeof(struct Font); /* that's what's on the beginning */
3bd975a1 JA	97	fontab[i] = p;
3bd975a1 JA	98	kerntab[i] = p + nw;
655e9788	99	codetab[i] = p + 2 * nw;
3bd975a1 JA	100	fitab[i] = p + 3 * nw; /* skip width, kern, code */
	101	p += 3 * nw + dev.nchtab + 128 - 32;
	102	/*
655e9788 JA	103	* jaap
	104	*
	105	* skip also fcode, if there
	106	* See remarks in dev.h and makedev.c
3bd975a1 JA	107	*/
	108	if(fontbase[i]->fonttab == 1)
	109	p += nw * sizeof(short);
	110	}
655e9788	111	fontbase[0] = (struct Font ) p; / the last shall be first */
3bd975a1	112	fontbase[0]->nwfont = MAXCHARS;
655e9788	113	fontab[0] = p + sizeof (struct Font);
3bd975a1 JA	114	close(fin);
	115	/* there are a lot of things that used to be constant
	116	/* that now require code to be executed.
	117	*/
	118	sps = SPS;
	119	ics = ICS;
	120	for (i = 0; i < 16; i++)
	121	tabtab[i] = DTAB * (i + 1);
	122	pl = 11 * INCH;
	123	po = PO;
	124	spacesz = SS;
	125	lss = lss1 = VS;
	126	ll = ll1 = lt = lt1 = LL;
	127	specnames(); /* install names like "hyphen", etc. */
	128	if (ascii)
	129	return;
655e9788 JA	130	fdprintf(ptid, "x T %s\n", devname);
	131	fdprintf(ptid, "x res %d %d %d\n", Inch, Hor, Vert);
	132	fdprintf(ptid, "x init\n"); /* do initialization for particular device */
3bd975a1	133	/*
655e9788 JA	134	for (i = 1; i <= nfonts; i++)
	135	fdprintf(ptid, "x font %d %s\n", i, fontbase[i]->namefont);
	136	fdprintf(ptid, "x xxx fonts=%d sizes=%d unit=%d\n", nfonts, nsizes, Unitwidth);
	137	fdprintf(ptid, "x xxx nchtab=%d lchname=%d nfitab=%d\n",
3bd975a1	138	dev.nchtab, dev.lchname, dev.nchtab+128-32);
655e9788	139	fdprintf(ptid, "x xxx sizes:\nx xxx ");
3bd975a1	140	for (i = 0; i < nsizes; i++)
655e9788 JA	141	fdprintf(ptid, " %d", pstab[i]);
655e9788 JA	142	fdprintf(ptid, "\nx xxx chars:\nx xxx ");
3bd975a1	143	for (i = 0; i < dev.nchtab; i++)
655e9788 JA	144	fdprintf(ptid, " %s", &chname[chtab[i]]);
655e9788 JA	145	fdprintf(ptid, "\nx xxx\n");
3bd975a1 JA	146	*/
	147	}
	148
	149	specnames()
	150	{
	151	static struct {
	152	int *n;
	153	char *v;
	154	} spnames[] = {
	155	&c_hyphen, "hy",
	156	&c_emdash, "em",
	157	&c_rule, "ru",
	158	&c_minus, "\\-",
3bd975a1 JA	159	&c_fi, "fi",
	160	&c_fl, "fl",
	161	&c_ff, "ff",
	162	&c_ffi, "Fi",
	163	&c_ffl, "Fl",
	164	&c_acute, "aa",
	165	&c_grave, "ga",
	166	&c_under, "ul",
	167	&c_rooten, "rn",
	168	&c_boxrule, "br",
	169	&c_lefthand, "lh",
655e9788	170	&c_dagger, "dg",
3bd975a1 JA	171	0, 0
	172	};
	173	int i;
	174
	175	for (i = 0; spnames[i].n; i++)
	176	*spnames[i].n = findch(spnames[i].v);
	177	}
	178
	179	findch(s) /* find char s in chname */
	180	register char *s;
	181	{
	182	register int i;
	183
	184	for (i = 0; i < nchtab; i++)
	185	if (strcmp(s, &chname[chtab[i]]) == 0)
	186	return(i + 128);
	187	return(0);
	188	}
	189
	190	ptout(i)
655e9788	191	register tchar i;
3bd975a1	192	{
655e9788	193	register dv;
3bd975a1	194	register tchar *k;
655e9788	195	int temp, a, b;
3bd975a1 JA	196
	197	if (cbits(i) != '\n') {
	198	*olinep++ = i;
	199	return;
	200	}
	201	if (olinep == oline) {
	202	lead += lss;
	203	return;
	204	}
	205
	206	hpos = po; /* ??? */
	207	esc = 0; /* ??? */
	208	ptesc(); /* the problem is to get back to the left end of the line */
	209	dv = 0;
	210	for (k = oline; k < olinep; k++) {
	211	if (ismot(k) && isvmot(k)) {
	212	temp = absmot(*k);
	213	if (isnmot(*k))
	214	temp = -temp;
	215	dv += temp;
	216	}
	217	}
	218	if (dv) {
	219	vflag++;
	220	*olinep++ = makem(-dv);
	221	vflag = 0;
	222	}
	223
	224	b = dip->blss + lss;
	225	lead += dip->blss + lss;
	226	dip->blss = 0;
	227	for (k = oline; k < olinep; )
	228	k += ptout0(k); /* now passing a pointer! */
	229	olinep = oline;
	230	lead += dip->alss;
	231	a = dip->alss;
	232	dip->alss = 0;
	233	/*
655e9788	234	fdprintf(ptid, "x xxx end of line: hpos=%d, vpos=%d\n", hpos, vpos);
3bd975a1	235	*/
655e9788	236	fdprintf(ptid, "n%d %d\n", b, a); /* be nice to chuck */
3bd975a1 JA	237	}
	238
	239	ptout0(pi)
	240	tchar *pi;
	241	{
	242	register short j, k, w;
	243	short z, dx, dy, dx2, dy2, n;
655e9788	244	register tchar i;
3bd975a1 JA	245	int outsize; /* size of object being printed */
	246
	247	outsize = 1; /* default */
	248	i = *pi;
	249	k = cbits(i);
	250	if (ismot(i)) {
	251	j = absmot(i);
	252	if (isnmot(i))
	253	j = -j;
	254	if (isvmot(i))
	255	lead += j;
	256	else
	257	esc += j;
	258	return(outsize);
	259	}
655e9788 JA	260	if (k == XON) {
	261	int c;
	262	if (xfont != mfont)
	263	ptfont();
	264	if (xpts != mpts)
	265	ptps();
	266	if (lead)
	267	ptlead();
	268	fdprintf(ptid, "x X ");
	269	for (j = 1; (c=cbits(pi[j])) != XOFF; j++)
	270	outascii(pi[j]);
	271	oput('\n');
	272	return j+1;
	273	}
	274	;
3bd975a1 JA	275	if (k == CHARHT) {
	276	if (xpts != mpts)
	277	ptps();
655e9788	278	fdprintf(ptid, "x H %d\n", sbits(i));
3bd975a1 JA	279	return(outsize);
	280	}
	281	if (k == SLANT) {
655e9788	282	fdprintf(ptid, "x S %d\n", sfbits(i)-180);
3bd975a1 JA	283	return(outsize);
	284	}
	285	if (k == WORDSP) {
	286	oput('w');
	287	return(outsize);
	288	}
3bd975a1 JA	289	if (sfbits(i) == oldbits) {
	290	xfont = pfont;
	291	xpts = ppts;
3bd975a1	292	} else
655e9788	293	xbits(i, 2);
3bd975a1 JA	294	if (k < 040 && k != DRAWFCN)
3bd975a1 JA	295	return(outsize);
655e9788 JA	296	if (widcache[k-32].fontpts == (xfont<<8) + xpts && !setwdf) {
	297	w = widcache[k-32].width;
	298	bd = 0;
	299	cs = 0;
	300	} else
	301	w = getcw(k-32);
3bd975a1 JA	302	j = z = 0;
	303	if (k != DRAWFCN) {
	304	if (cs) {
	305	if (bd)
	306	w += (bd - 1) * HOR;
	307	j = (cs - w) / 2;
	308	w = cs - j;
	309	if (bd)
	310	w -= (bd - 1) * HOR;
	311	}
	312	if (iszbit(i)) {
	313	if (cs)
	314	w = -j;
	315	else
	316	w = 0;
	317	z = 1;
	318	}
	319	}
	320	esc += j;
	321	if (xfont != mfont)
	322	ptfont();
	323	if (xpts != mpts)
	324	ptps();
	325	if (lead)
	326	ptlead();
	327	/* put out the real character here */
	328	if (k == DRAWFCN) {
	329	if (esc)
	330	ptesc();
	331	dx = absmot(pi[3]);
	332	if (isnmot(pi[3]))
	333	dx = -dx;
	334	dy = absmot(pi[4]);
	335	if (isnmot(pi[4]))
	336	dy = -dy;
	337	switch (cbits(pi[1])) {
	338	case DRAWCIRCLE: /* circle */
655e9788	339	fdprintf(ptid, "D%c %d\n", DRAWCIRCLE, dx); /* dx is diameter */
3bd975a1 JA	340	w = 0;
	341	hpos += dx;
	342	break;
	343	case DRAWELLIPSE:
655e9788	344	fdprintf(ptid, "D%c %d %d\n", DRAWELLIPSE, dx, dy);
3bd975a1 JA	345	w = 0;
	346	hpos += dx;
	347	break;
	348	case DRAWLINE: /* line */
	349	k = cbits(pi[2]);
655e9788	350	fdprintf(ptid, "D%c %d %d ", DRAWLINE, dx, dy);
3bd975a1	351	if (k < 128)
655e9788	352	fdprintf(ptid, "%c\n", k);
3bd975a1	353	else
655e9788	354	fdprintf(ptid, "%s\n", &chname[chtab[k - 128]]);
3bd975a1 JA	355	w = 0;
	356	hpos += dx;
	357	vpos += dy;
	358	break;
	359	case DRAWARC: /* arc */
	360	dx2 = absmot(pi[5]);
	361	if (isnmot(pi[5]))
	362	dx2 = -dx2;
	363	dy2 = absmot(pi[6]);
	364	if (isnmot(pi[6]))
	365	dy2 = -dy2;
655e9788	366	fdprintf(ptid, "D%c %d %d %d %d\n", DRAWARC,
3bd975a1 JA	367	dx, dy, dx2, dy2);
	368	w = 0;
	369	hpos += dx + dx2;
	370	vpos += dy + dy2;
	371	break;
655e9788 JA	372	case DRAWSPLINE: /* spline */
	373	default: /* something else; copy it like spline */
	374	fdprintf(ptid, "D%c %d %d", cbits(pi[1]), dx, dy);
3bd975a1 JA	375	w = 0;
	376	hpos += dx;
	377	vpos += dy;
655e9788 JA	378	if (cbits(pi[3]) == DRAWFCN \|\| cbits(pi[4]) == DRAWFCN) {
	379	/* it was somehow defective */
	380	fdprintf(ptid, "\n");
	381	break;
	382	}
	383	for (n = 5; cbits(pi[n]) != DRAWFCN; n += 2) {
3bd975a1 JA	384	dx = absmot(pi[n]);
	385	if (isnmot(pi[n]))
	386	dx = -dx;
	387	dy = absmot(pi[n+1]);
	388	if (isnmot(pi[n+1]))
	389	dy = -dy;
655e9788	390	fdprintf(ptid, " %d %d", dx, dy);
3bd975a1 JA	391	hpos += dx;
	392	vpos += dy;
	393	}
655e9788	394	fdprintf(ptid, "\n");
3bd975a1 JA	395	break;
3bd975a1 JA	396	}
655e9788	397	for (n = 3; cbits(pi[n]) != DRAWFCN; n++)
3bd975a1 JA	398	;
	399	outsize = n + 1;
	400	} else if (k < 128) {
	401	/* try to go faster and compress output */
	402	/* by printing nnc for small positive motion followed by c */
	403	/* kludgery; have to make sure set all the vars too */
	404	if (esc > 0 && esc < 100) {
	405	oput(esc / 10 + '0');
	406	oput(esc % 10 + '0');
	407	oput(k);
	408	hpos += esc;
	409	esc = 0;
	410	} else {
	411	if (esc)
	412	ptesc();
655e9788 JA	413	oput('c');
	414	oput(k);
	415	oput('\n');
3bd975a1 JA	416	}
	417	} else {
	418	if (esc)
	419	ptesc();
655e9788 JA	420	if (k >= nchtab + 128)
	421	fdprintf(ptid, "N%d\n", k - (nchtab+128));
	422	else
	423	fdprintf(ptid, "C%s\n", &chname[chtab[k - 128]]);
3bd975a1 JA	424	}
	425	if (bd) {
	426	bd -= HOR;
	427	if (esc += bd)
	428	ptesc();
	429	if (k < 128) {
655e9788 JA	430	fdprintf(ptid, "c%c\n", k);
	431	} else if (k >= nchtab + 128) {
	432	fdprintf(ptid, "N%d\n", k - (nchtab+128));
3bd975a1	433	} else
655e9788	434	fdprintf(ptid, "C%s\n", &chname[chtab[k - 128]]);
3bd975a1 JA	435	if (z)
	436	esc -= bd;
	437	}
	438	esc += w;
	439	return(outsize);
	440	}
	441
	442	ptps()
	443	{
	444	register i, j, k;
	445
	446	i = xpts;
	447	for (j = 0; i > (k = pstab[j]); j++)
	448	if (!k) {
	449	k = pstab[--j];
	450	break;
	451	}
655e9788	452	fdprintf(ptid, "s%d\n", k); /* really should put out string rep of size */
3bd975a1 JA	453	mpts = i;
	454	}
	455
	456	ptfont()
	457	{
655e9788	458	extern char *unpair();
3bd975a1 JA	459	mfont = xfont;
3bd975a1 JA	460	if( xfont > nfonts) {
655e9788	461	register char *temp = unpair(fontlab[xfont]);
3bd975a1 JA	462	ptfpcmd(0, temp); /* Put the desired font in the
3bd975a1 JA	463	* fontcache of the filter */
655e9788	464	fdprintf(ptid, "f0\n"); /* make sure that it gets noticed */
3bd975a1	465	} else
655e9788	466	fdprintf(ptid, "f%d\n", xfont);
3bd975a1 JA	467	}
	468
	469	ptfpcmd(f, s)
	470	int f;
	471	char *s;
	472	{
	473	if (ascii)
	474	return;
655e9788	475	fdprintf(ptid, "x font %d %s\n", f, s);
3bd975a1 JA	476	}
	477
	478	ptlead()
	479	{
	480	vpos += lead;
	481	if (!ascii)
655e9788	482	fdprintf(ptid, "V%d\n", vpos);
3bd975a1 JA	483	lead = 0;
	484	}
	485
	486	ptesc()
	487	{
	488	hpos += esc;
655e9788 JA	489	if (esc > 0) {
	490	oput('h');
	491	if (esc>=10 && esc<100) {
	492	oput(esc/10 + '0');
	493	oput(esc%10 + '0');
	494	} else
	495	fdprintf(ptid, "%d", esc);
	496	} else
	497	fdprintf(ptid, "H%d\n", hpos);
3bd975a1 JA	498	esc = 0;
	499	}
	500
	501	newpage(n) /* called at end of each output page (we hope) */
	502	{
655e9788 JA	503	int i;
655e9788 JA	504
3bd975a1 JA	505	ptlead();
	506	vpos = 0;
	507	if (ascii)
	508	return;
655e9788 JA	509	fdprintf(ptid, "p%d\n", n); /* new page */
	510	for (i = 0; i <= nfonts; i++)
	511	if (fontbase[i]->namefont && fontbase[i]->namefont[0])
	512	fdprintf(ptid, "x font %d %s\n", i, fontbase[i]->namefont);
3bd975a1 JA	513	ptps();
	514	ptfont();
	515	}
	516
	517	pttrailer()
	518	{
655e9788	519	fdprintf(ptid, "x trailer\n");
3bd975a1 JA	520	}
	521
	522	ptstop()
	523	{
655e9788	524	fdprintf(ptid, "x stop\n");
3bd975a1 JA	525	}
	526
	527	dostop()
	528	{
	529	if (ascii)
	530	return;
	531	ptlead();
	532	vpos = 0;
655e9788	533	/* fdprintf(ptid, "x xxx end of page\n");*/
3bd975a1 JA	534	if (!nofeed)
	535	pttrailer();
	536	ptlead();
655e9788	537	fdprintf(ptid, "x pause\n");
3bd975a1 JA	538	flusho();
3bd975a1 JA	539	mpts = mfont = 0;
3bd975a1 JA	540	ptesc();
	541	esc = po;
	542	hpos = vpos = 0; /* probably in wrong place */
	543	}