Return to tty.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / troff

coherent

/*
 * tty.c
 * Nroff.
 * nroff output writer, aka TTY driver.
 */

#include <ctype.h>
#include "roff.h"

/* Font indices. */
#define	FONTR	0			/* Roman			*/
#define	FONTB	1			/* Bold				*/
#define	FONTI	2			/* Italic			*/

/* Special escape sequences. */
#define	RLF	"\0337"			/* Reverse line feed		*/
#define	HRLF	"\0338"			/* Half reverse line feed	*/
#define	HLF	"\0339"			/* Half line feed		*/
#define	LF	"\033B"			/* Line feed			*/

/*
 * Device parameters.
 */
int	ntroff	=	NROFF;		/* Programme is NROFF type	*/
long	semmul	=	3;		/* Multiplier for em space	*/
long	semdiv	=	5;		/* Divisor for em space		*/
long	senmul	=	3;		/* Multiplier for en space	*/
long	sendiv	=	5;		/* Divisor for en space		*/
long	shrmul	=	12;		/* Horizontal resolution (mul)	*/
long	shrdiv	=	1;		/* Horizontal resolution (div)	*/
long	sinmul	=	120;		/* Multiplier for inch		*/
long	sindiv	=	1;		/* Divisor for inch		*/
long	snrmul	=	0;		/* Narrow space (mul)		*/
long	snrdiv	=	1;		/* Narrow space (div)		*/
long	svrmul	=	20;		/* Vertical resolution (mul)	*/
long	svrdiv	=	1;		/* Vertical resolution (div)	*/

/*
 * Map user fontnames to font numbers.
 */
FTB fontab[NFNAMES] ={
	{ 'R',  '\0', FONTR },
	{ 'B',  '\0', FONTB },
	{ 'I',  '\0', FONTI }
};
static	char	*font_names[NFNAMES] = { "Roman", "Bold", "Italic" };

/*
 * Initialize nroff-specific parameters.
 */
dev_init()
{
	swdmul	= 1;			/* multiplier for width table */
	swddiv	= 20;			/* divisor for width table */
	vls = psz = unit(SMINCH, 6*SDINCH);

	/* Sanity check: width() below assumes swdmul*psz == swddiv. */
	if (swdmul * psz != swddiv)
		panic("botch: swdmul=%d psz=%d swddiv=%d", swdmul, psz, swddiv);
}

/*
 * Compute the scaled width of a character:
 *	width(c) == unit(swdmul*fonwidt[c]*psz, swddiv).
 * For nroff, swdmul*psz == swddiv and fonwidt[i] is constant, so it's trivial.
 */
int
width(c) register int c;
{
	return (c < NWIDTH) ? 12 : 0;
}

/*
 * Given a font number, change to the given font.
 */
dev_font(n) register int n;
{
	addidir(DFONT, curfont = n);
}

/*
 * Given a pointer to a buffer containing stream directives
 * and a pointer to the end of the buffer, print the buffer
 * out.
 */
flushl(buffer, bufend) CODE *buffer; CODE *bufend;
{
	static int hpos, hres, vres, font;
	register CODE *cp;
	register int i, n;
	char *tp;

#if	(DDEBUG & DBGFUNC)
	printd(DBGFUNC, "flushl: hpos=%d, hres=%d, vres=%d, font=%d\n",
		hpos, hres, vres, font);
#endif
	for (cp = buffer; cp < bufend; cp++) {
		i = cp->l_arg.c_iarg;
#if	(DDEBUG & DBGCODE)
		codebug(cp->l_arg.c_code, i);
#endif
#if	0
		fprintf(stderr, "output: %d arg=%d\n", cp->l_arg.c_code, i);
#endif
		switch (cp->l_arg.c_code) {
		case DNULL:
		case DHYPH:
			continue;
		case DHMOV:
		case DPADC:
			hres += i;
			if ((hpos += i) < 0) {
				hres -= hpos;
				hpos = 0;
			}
			continue;
		case DVMOV:
			vres += i;
			continue;
		case DFONT:
			font = i;
			continue;
		case DPSZE:
			continue;
		case DSPAR:
			hpos = hres = 0;
			vres += i;
			if (vres >= 0) {
				n = (vres+10) / 20;
				vres -= n*20;
				while (n--)
					putchar('\n');
			} else {
				putchar('\r');
				n = (-vres+9)/20;
				vres += n*20;
				while (n--)
					printf(RLF);
			}
			continue;
		case DTRAB:			/* transparent line */
			tp = cp->b_arg.c_bufp;
			while (*tp)
				putchar(*tp++);
			free(cp->b_arg.c_bufp);
			continue;
		default:
			if (vres >= 0) {
				vres += 5;
				n = (vres) / 20;
				while (n--)
					printf(LF);
				if (vres%20/10)
					printf(HLF);
			} else {
				vres -= 5;
				n = (-vres)/20;
				while (n--)
					printf(RLF);
				if (-vres%20/10)
					printf(HRLF);
			}
			vres = 0;
			if (hres >= 0) {
				n = (hres+6) / 12;
				hres -= n*12;
				while (n--)
					putchar(' ');
			} else {
				n = (-hres+5)/12;
				hres += n*12;
				while (n--)
					putchar('\b');
			}
			if (cp->l_arg.c_code==DHYPC)
				n = '-';
			else
				n = cp->l_arg.c_code;
			if (n < 0 || n >= NWIDTH)
				panic("bad directive %d", n);
			if ((font != FONTR)
			&&  (isascii(n))
			&&  (isupper(n) || islower(n) || isdigit(n)))
				switch (font) {
				case FONTB:
					printf("%c\b", n);
					break;
				case FONTI:
#if	1
					printf("_\b");
#else
					n |= 0x80;
#endif
					break;
#if	0
				case HELV:
					printf("_\b");
					break;
#endif
				default:
					panic("bad font %d", font);
				}
			putchar(n);
			hres += cp->c_arg.c_move-12;
			hpos += cp->c_arg.c_move;
		}
	}
}

/*
 * Display available fonts.
 */
void
font_display()
{
	register FTB *p;
	register int a, b;

	fprintf(stderr, "Fonts available in this version:\n");
	for (p = fontab; p < &fontab[NFNAMES]; p++) {
		if ((a = p->f_name[0]) == 0)
			break;
		if ((b = p->f_name[1]) == 0)
			b = ' ';
		fprintf(stderr," %c%c %s\n", a, b, font_names[p->f_font]);
	}
	fprintf(stderr, "Fonts may be renamed with the .rf request.\n");
}

/*
 * The following troff functions are nops for nroff.
 */
#if	ZKLUDGE
dev_close(){}
#endif
dev_cs(){}
dev_fz(){}
dev_ps(){}		/* psz initialized in devinit() */
newpsze(){}
load_font(){}


/* end of tty.c */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.