110 lines · 2.7 KB · C
RawDownload
/*  * 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 <u.h>#include <libc.h>#include <bio.h>#include "../common/common.h"#include "tr2post.h" voidconv(Biobufhdr *Bp) {	long n;	int r;	char special[10];	int save; 	inputlineno = 1;	if (debug)		fprint(2, "conv(Biobufhdr *Bp=%#p)\n", Bp);	while ((r = Bgetrune(Bp)) >= 0) {		switch (r) {		case 's':	/* set point size */			Bgetfield(Bp, 'd', &fontsize, 0);			break;		case 'f':	/* set font to postion */			Bgetfield(Bp, 'd', &fontpos, 0);			save = inputlineno;			settrfont();			inputlineno = save;	/* ugh */			break;		case 'c':	/* print rune */			r = Bgetrune(Bp);			runeout(r);			break;		case 'C':	/* print special character */			Bgetfield(Bp, 's', special, 10);			specialout(special);			break;		case 'N':	/* print character with numeric value from current font */			Bgetfield(Bp, 'd', &n, 0);			break;		case 'H':	/* go to absolute horizontal position */			Bgetfield(Bp, 'd', &n, 0);			hgoto(n);			break;		case 'V':	/* go to absolute vertical position */			Bgetfield(Bp, 'd', &n, 0);			vgoto(n);			break;		case 'h':	/* go to relative horizontal position */			Bgetfield(Bp, 'd', &n, 0);			hmot(n);			break;		case 'v':	/* go to relative vertical position */			Bgetfield(Bp, 'd', &n, 0);			vmot(n);			break;		case '0': case '1': case '2': case '3': case '4':		case '5': case '6': case '7': case '8': case '9':				/* move right nn units, then print character c */			n = (r - '0') * 10;			r = Bgetrune(Bp);			if (r < 0)				error(FATAL, "EOF or error reading input\n");			else if (r < '0' || r > '9')				error(FATAL, "integer expected\n");			n += r - '0';			r = Bgetrune(Bp);			hmot(n);			runeout(r);			break;		case 'p':	/* begin page */			Bgetfield(Bp, 'd', &n, 0);			endpage();			startpage();			break;		case 'n':	/* end of line (information only 'b a' follows) */			Brdline(Bp, '\n');	/* toss rest of line */			inputlineno++;			break;		case 'w':	/* paddable word space (information only) */			break;		case 'D':	/* graphics function */			draw(Bp);			break;		case 'x':	/* device control functions */			devcntl(Bp);			break;		case '#':	/* comment */			Brdline(Bp, '\n');	/* toss rest of line */		case '\n':			inputlineno++;			break;		default:			error(WARNING, "unknown troff function <%c>\n", r);			break;		}	}	endpage();	if (debug) {		fprint(2, "r=%#ux\n", r);		fprint(2, "leaving conv\n");	}}