[unix-history] / usr / src / cmd / tc.c

static char *sccsid = "@(#)tc.c	4.1 (Berkeley) 10/1/80";
/*
 * Simulate typesetter on 4014
*/

#include <signal.h>
#include <stdio.h>

#define	oput(c) if (pgskip==0) putchar(c); else;
#define MAXY 3071
#define US 037
#define GS 035
#define ESC 033
#define FF 014
#define DBL 0200

int pl = 11*144;
int mpy = 1;
int div = 1;
char *ap;
int ch;
int nonumb;
int psize = 10;
int dfact = 1;
int esc;
int escd;
int verd;
int esct;
int osize = 02;
int size = 02;
int rx;
int xx;
int yy = MAXY+62+48;
int leadtot = -31;
int ohy = -1;
int ohx = -1;
int oxb = -1;
int oly = -1;
int olx = -1;
int tflag;
int railmag;
int lead;
int skip;
int pgskip;
int ksize = ';';
int mcase;
int stab[] = {010,0,01,07,02,03,04,05,0211,06,0212,0213,0214,0215,0216,0217};
int rtab[] = {6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 28, 36, 18};
int ktab[] = {';',';',';',';',';',';',':',':','9','9','9','9','8','8','8','9'};
int first = 1;
int alpha;
extern char *asctab[128];
extern char *spectab[128];
int erase = 1;
int	(*sigint)();
int	(*sigquit)();

main(argc,argv)
int argc;
char **argv;
{
	register i, j;
	register char *k;
	extern ex();

	while((--argc > 0) && ((++argv)[0][0]=='-')){
		switch(argv[0][1]){
			case 'p':
				ap = &argv[0][2];
				dfact = 72;
				if(i = atoi())pl = i/3;
				continue;
			case 't':
				tflag++;
				continue;
			case 's':
				ap = &argv[0][2];
				dfact = 1;
				pgskip = atoi();
				continue;
			default:
				dfact = 1;
				ap = &argv[0][1];
				if(i = atoi())mpy = i;
				if(i = atoi())div = i;
				continue;
		}
	}
	if(argc){
		if (freopen(argv[0], "r", stdin) == NULL) {
			fprintf(stderr, "tc: cannot open %s\n", argv[0]);
			exit(1);
		}
	}
	sigint = signal(SIGINT, ex);
	sigquit = signal(SIGQUIT, SIG_IGN);
	while((i = getchar()) != EOF){
		if(!i)continue;
		if(i & 0200){
			esc += (~i) & 0177;
			continue;
		}
		if(esc){
			if(escd)esc = -esc;
			esct += esc;
			xx += (esc*mpy + rx)/div;
			rx = (esc*mpy + rx)%div;
			sendpt();
			esc = 0;
		}
		switch(i){
			case 0100:	/*init*/
				escd = verd = mcase = railmag = xx = 0;
				yy = MAXY + 48;
				leadtot = -31;
				ohy = oxb = oly = ohx = olx = -1;
				oput(US);
				fflush(stdout);
				if(!first && !tflag)kwait();
				if(first){
					first = 0;
					yy += 62;
				}
				init();
				continue;
			case 0101:	/*lower rail*/
				railmag &= ~01;
				continue;
			case 0102:	/*upper rail*/
				railmag |= 01;
				continue;
			case 0103:	/*upper mag*/
				railmag |= 02;
				continue;
			case 0104:	/*lower mag*/
				railmag &= ~02;
				continue;
			case 0105:	/*lower case*/
				mcase = 0;
				continue;
			case 0106:	/*upper case*/
				mcase = 0100;
				continue;
			case 0107:	/*escape forward*/
				escd = 0;
				continue;
			case 0110:	/*escape backward*/
				escd = 1;
				continue;
			case 0111:	/*stop*/
				continue;
			case 0112:	/*lead forward*/
				verd = 0;
				continue;
			case 0113:	/*undefined*/
				continue;
			case 0114:	/*lead backward*/
				verd = 1;
				continue;
			case 0115:	/*undefined*/
			case 0116:
			case 0117:
				continue;
		}
		if((i & 0340) == 0140){	/*leading*/
			lead = (~i) & 037;
			if(verd)lead = -lead;
			if((leadtot += lead) > pl){
				leadtot = lead;
				oput(US);
				fflush(stdout);
				if(!tflag)kwait();
				yy = MAXY;
				if(pgskip)--pgskip;
				init();
				continue;
			}
			if(skip)continue;
			if((yy -= (lead<<1)) < 0){
				skip++;
				yy = 0;
			}else sendpt();
			continue;
		}
		if((i & 0360) == 0120){	/*size change*/
			i &= 017;
			for(j = 0; i != (stab[j] & 017); j++);
			osize = size;
			size = stab[j];
			psize = rtab[j];
			ksize = ktab[j];
			oput(ESC);
			oput(ksize);
			i = 0;
			if(!(osize & DBL) && (size & DBL))i = -55;
			else if((osize & DBL) && !(size & DBL))i = 55;
			if(escd)i = -i;
			esc += i;
			continue;
		}
		if(i & 0300)continue;
		i = (i & 077) | mcase;
		if(railmag != 03)k = asctab[i];
		else k = spectab[i];
		if(alpha)sendpt();
		if(*k!='\0'){
			oput(US);
			while(*k & 0377)oput(*k++);
			alpha++;
			continue;
		}else{
			if(railmag != 03){
				switch(i){
				case 0124: lig("fi"); break;
				case 0125: lig("fl"); break;
				case 0126: lig("ff"); break;
				case 0130: lig("ffl"); break;
				case 0131: lig("ffi"); break;
				default: continue;
				}
			}
			continue;
		}
	}
	ex();
}
lig(x)
char *x;
{
	register i, j;
	register char *k;

	j = 0;
	k = x;
	oput(US);
	oput(*k++);
	i = psize * 8 * mpy / (div * 6); /* 8/36 em */
	while(*k){
		xx += i;
		j += i;
		sendpt();
		oput(US);
		oput(*k++);
	}
	xx -= j;
	sendpt();
}
init(){

	fflush(stdout);
	if(erase){
		oput(ESC);
		oput(FF);
	}else erase = 1;
	oput(ESC);
	oput(ksize);
	/*delay about a second*/
/* let the system do it...
	for(i = 960; i > 0; i--)oput(GS);
*/
	skip = 0;
	sendpt();
}
ex(){
	yy = MAXY;
	xx = 0;
	sendpt();
	oput(ESC);
	oput(';');
	oput(US);
	fflush(stdout);
	exit(0);
}
kwait(){
	char buf[128]; char *bptr; char c;
	if(pgskip) return;
next:
	bptr=buf;
	while((c=readch())&&(c!='\n')) *bptr++=c;
	*bptr=0;
	if(bptr!=buf){
		bptr = buf;
		if(*bptr == '!'){callunix(&buf[1]); fputs("!\n", stderr); goto next;}
		else switch(*bptr++){
			case 'e':
				erase = 0;
				goto next;
			case 's':
				ap = &buf[1];
				dfact = 1;
				pgskip = atoi() + 1;
				goto next;
			default:
				fputs("?\n", stderr);
				goto next;
		}
	}
	else if (c==0) ex();
	else	return;
}
callunix(line)
char line[];
{
	int rc, status, unixpid;
	if( (unixpid=fork())==0 ) {
		signal(SIGINT,sigint); signal(SIGQUIT,sigquit);
		close(0); dup(2);
		execl("/bin/sh", "-sh", "-c", line, 0);
		exit(255);
	}
	else if(unixpid == -1)
		return;
	else{	signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN);
		while( (rc = wait(&status)) != unixpid && rc != -1 ) ;
		signal(SIGINT,ex); signal(SIGQUIT,sigquit);
	}
}
readch(){
	char c;
	if (read(2,&c,1)<1) c=0;
	return(c);
}
sendpt(){
	int hy,xb,ly,hx,lx;

	oput(GS);
	hy = ((yy>>7) & 037);
	xb = ((xx & 03) + ((yy<<2) & 014) & 017);
	ly = ((yy>>2) & 037);
	hx = ((xx>>7) & 037);
	lx = ((xx>>2) & 037);
	if(hy != ohy)oput(hy | 040);
	if(xb != oxb)oput(xb | 0140);
	if((ly != oly) || (hx != ohx) || (xb != oxb))
		oput(ly | 0140);
	if(hx != ohx)oput(hx | 040);
	oput(lx | 0100);
	ohy = hy;
	oxb = xb;
	oly = ly;
	ohx = hx;
	olx = lx;
	alpha = 0;
	return;
}
atoi()
{
	register i, j, acc;
	int field, digits;
	long dd;
	long tscale();

	field = digits = acc = 0;
a1:
	while(((j = (i = getch()) - '0') >= 0) && (j <= 9)){
		field++;
		digits++;
		acc = 10*acc + j;
	}
	if(i == '.'){
		field++;
		digits = 0;
		goto a1;
	}
	if(!(ch = i))ch = 'x';
	dd = tscale(acc);
	acc = dd;
	if((field != digits) && (digits > 0)){
		j = 1;
		while(digits--)j *= 10;
		acc = dd/j;
	}
	nonumb = !field;
	ch = 0;
	return(acc);
}
long tscale(n)
int n;
{
	register i, j;

	switch(i = getch()){
		case 'u':
			j = 1;
			break;
		case 'p':	/*Points*/
			j = 6;
			break;
		case 'i':	/*Inches*/
			j = 432;
			break;
		case 'c':	/*Centimeters; should be 170.0787*/
			j = 170;
			break;
		case 'P':	/*Picas*/
			j = 72;
			break;
		default:
			j = dfact;
			ch = i;
	}
	return((long)n*j);
}
getch(){
	register i;

	if(ch){
		i = ch;
		ch = 0;
		return(i);
	}
	return(*ap++);
}

char *asctab[128] = {
"\0",	/*blank*/
"h",	/*h*/
"t",	/*t*/
"n",	/*n*/
"m",	/*m*/
"l",	/*l*/
"i",	/*i*/
"z",	/*z*/
"s",	/*s*/
"d",	/*d*/
"b",	/*b*/
"x",	/*x*/
"f",	/*f*/
"j",	/*j*/
"u",	/*u*/
"k",	/*k*/
"\0",	/*blank*/
"p",	/*p*/
"-",	/*_ 3/4 em dash*/
";",	/*;*/
"\0",	/*blank*/
"a",	/*a*/
"_",	/*rule*/
"c",	/*c*/
"`",	/*` open*/
"e",	/*e*/
"\'",	/*' close*/
"o",	/*o*/
"\0",	/*1/4*/
"r",	/*r*/
"\0",	/*1/2*/
"v",	/*v*/
"-",	/*- hyphen*/
"w",	/*w*/
"q",	/*q*/
"/",	/*/*/
".",	/*.*/
"g",	/*g*/
"\0",	/*3/4*/
",",	/*,*/
"&",	/*&*/
"y",	/*y*/
"\0",	/*blank*/
"%",	/*%*/
"\0",	/*blank*/
"Q",	/*Q*/
"T",	/*T*/
"O",	/*O*/
"H",	/*H*/
"N",	/*N*/
"M",	/*M*/
"L",	/*L*/
"R",	/*R*/
"G",	/*G*/
"I",	/*I*/
"P",	/*P*/
"C",	/*C*/
"V",	/*V*/
"E",	/*E*/
"Z",	/*Z*/
"D",	/*D*/
"B",	/*B*/
"S",	/*S*/
"Y",	/*Y*/
"\0",	/*blank*/
"F",	/*F*/
"X",	/*X*/
"A",	/*A*/
"W",	/*W*/
"J",	/*J*/
"U",	/*U*/
"K",	/*K*/
"0",	/*0*/
"1",	/*1*/
"2",	/*2*/
"3",	/*3*/
"4",	/*4*/
"5",	/*5*/
"6",	/*6*/
"7",	/*7*/
"8",	/*8*/
"9",	/*9*/
"*",	/***/
"-",	/*minus*/
"",	/*fi*/
"",	/*fl*/
"",	/*ff*/
"\033\016Z\bM\033\017",	/*cent sign*/
"",	/*ffl*/
"",	/*ffi*/
"(",	/*(*/
")",	/*)*/
"[",	/*[*/
"]",	/*]*/
"\033\016J\033\017",	/*degree*/
"\033\016M\b_\033\017",	/*dagger*/
"=",	/*=*/
"\033\016O\b&\033\017",	/*registered*/
":",	/*:*/
"+",	/*+*/
"\0",	/*blank*/
"!",	/*!*/
"\033\016O\b~\033\017",	/*bullet*/
"?",	/*?*/
"\'",	/*foot mark*/
"|",	/*|*/
"\0",	/*blank*/
"\033\016O\b#\033\017",	/*copyright*/
"\033\016L\033\017",	/*square*/
"$" };	/*$*/

char *spectab[128] = {
"\0",	/*blank*/
"\033\016(\bM\033\017",	/*psi*/
"\033\016o\b_\033\017",	/*theta*/
"v\b)",	/*nu*/
"\033\016V\b,\033\017",	/*mu*/
"\033\016)\b?\033\017",	/*lambda*/
"\033\016I\033\017",	/*iota*/
"S\b\033\016Z\033\017",	/*zeta*/
"o\b\'",	/*sigma*/
"o\b\033\0165\033\017",	/*delta*/
"\033\016b\033\017",	/*beta*/
"\033\016e\bc\033\017",	/*xi*/
"j\b\033\016C\033\017",	/*eta*/
"\033\016O\bM\033\017",	/*phi*/
"\033\016(\033\017",	/*upsilon*/
"\033\016k\033\017",	/*kappa*/
"\0",	/*blank*/
"T\b\033\016S\033\017",	/*pi*/
"@",	/*at-sign*/
"\033\016U\033\017",	/*down arrow*/
"\0",	/*blank*/
"\033\016A\033\017",	/*alpha*/
"|",	/*or*/
"l\b/",	/*chi*/
"\"",	/*"*/
"\033\016E\033\017",	/*epsilon*/
"=",	/*=*/
"\033\016O\033\017",	/*omicron*/
"\033\016[\033\017",	/*left arrow*/
"\033\016R\033\017",	/*rho*/
"\033\016Y\033\017",	/*up arrow*/
"\033\016N\033\017",	/*tau*/
"_",	/*underrule*/
"\\",	/*\*/
"I\b\033\016(\033\017",	/*Psi*/
"\033\016O\bJ\033\017",	/*bell system sign*/
"\033\016W\bX\033\017",	/*infinity*/
"`\b/",	/*gamma*/
"\033\016X\bF\033\017",	/*improper superset*/
"\033\016A\033\017",	/*proportional to*/
"\033\016\\\b]\033\017",	/*right hand*/
"\033\016W\033\017",	/*omega*/
"\0",	/*blank*/
"\033\016G\033\017",	/*gradient*/
"\0",	/*blank*/
"I\033\016\bO\033\017",	/*Phi*/
"O\b=",	/*Theta*/
"O\b_",	/*Omega*/
"\033\016V\033\017",	/*cup (union)*/
"\033\016@\033\017",	/*root en*/
"s",	/*terminal sigma*/
"\033\016)\bK\033\017",	/*Lambda*/
"-",	/*minus*/
"\033\016S\bK\033\017",	/*Gamma*/
"\033\016i\033\017",	/*integral sign*/
"\033\016t\b'\033\017",	/*Pi*/
"\033\016Z\033\017",	/*subset of*/
"\033\016X\033\017",	/*superset of*/
"\033\016T\033\017",	/*approximates*/
"o\b`",	/*partial derivative*/
"\033\016H\033\017",	/*Delta*/
"\033\016I\b'\033\017",	/*square root*/
">\b\033\016F\b@\033\017",	/*Sigma*/
"\033\016T\bF\033\017",	/*approx =*/
"\0",	/*blank*/
">",	/*>*/
"\033\016_\bF\b@\033\017",	/*Xi*/
"<",	/*<*/
"/",	/*slash (longer)*/
"\033\016C\033\017",	/*cap (intersection)*/
"\033\016y\033\017",	/*Upsilon*/
"\033\016|\033\017",	/*not*/
"|",	/*right ceiling (rt of ")*/
"|",	/*left top (of big curly)*/
"|",	/*bold vertical*/
"|",	/*left center of big curly bracket*/
"|",	/*left bottom*/
"|",	/*right top*/
"|",	/*right center of big curly bracket*/
"|",	/*right bot*/
"|",	/*right floor (rb of ")*/
"|",	/*left floor (left bot of big sq bract)*/
"|",	/*left ceiling (lt of ")*/
"\033\016=\033\017",	/*multiply*/
"\033\016+\033\017",	/*divide*/
"+\b_",	/*plus-minus*/
"\033\016$\033\017",	/*<=*/
"\033\016^\033\017",	/*>=*/
"=\b_",	/*identically equal*/
"\033\016*\033\017",	/*not equal*/
"{",	/*{*/
"}",	/*}*/
"\'",	/*' acute accent*/
"`",	/*` grave accent*/
"^",	/*^*/
"#",	/*sharp*/
"\033\016|\b[\033\017",	/*left hand*/
"\033\016c\b_\033\017",	/*member of*/
"~",	/*~*/
"\033\016O\b/\033\017",	/*empty set*/
"\0",	/*blank*/
"\033\016%\bM\033\017",	/*dbl dagger*/
"|",	/*box rule*/
"*",	/*asterisk*/
"\033\016Z\bF\033\017",	/*improper subset*/
"\033\016O\033\017",	/*circle*/
"\0",	/*blank*/
"+",	/*eqn plus*/
"\033\016]\033\017",	/*right arrow*/
"g\b\033\016C\033\017" };	/*section mark*/
Commit	Line	Data
31cef89c	1	static char *sccsid = "@(#)tc.c 4.1 (Berkeley) 10/1/80";
9c79dca0 BJ	2	/*
	3	* Simulate typesetter on 4014
	4	*/
	5
	6	#include <signal.h>
	7	#include <stdio.h>
	8
	9	#define oput(c) if (pgskip==0) putchar(c); else;
	10	#define MAXY 3071
	11	#define US 037
	12	#define GS 035
	13	#define ESC 033
	14	#define FF 014
	15	#define DBL 0200
	16
	17	int pl = 11*144;
	18	int mpy = 1;
	19	int div = 1;
	20	char *ap;
	21	int ch;
	22	int nonumb;
	23	int psize = 10;
	24	int dfact = 1;
	25	int esc;
	26	int escd;
	27	int verd;
	28	int esct;
	29	int osize = 02;
	30	int size = 02;
	31	int rx;
	32	int xx;
	33	int yy = MAXY+62+48;
	34	int leadtot = -31;
	35	int ohy = -1;
	36	int ohx = -1;
	37	int oxb = -1;
	38	int oly = -1;
	39	int olx = -1;
	40	int tflag;
	41	int railmag;
	42	int lead;
	43	int skip;
	44	int pgskip;
	45	int ksize = ';';
	46	int mcase;
	47	int stab[] = {010,0,01,07,02,03,04,05,0211,06,0212,0213,0214,0215,0216,0217};
	48	int rtab[] = {6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 28, 36, 18};
	49	int ktab[] = {';',';',';',';',';',';',':',':','9','9','9','9','8','8','8','9'};
	50	int first = 1;
	51	int alpha;
	52	extern char *asctab[128];
	53	extern char *spectab[128];
	54	int erase = 1;
	55	int (*sigint)();
	56	int (*sigquit)();
	57
	58	main(argc,argv)
	59	int argc;
	60	char **argv;
	61	{
	62	register i, j;
	63	register char *k;
	64	extern ex();
	65
66	while((--argc > 0) && ((++argv)[0][0]=='-')){
67	switch(argv[0][1]){
68	case 'p':
69	ap = &argv[0][2];
70	dfact = 72;
71	if(i = atoi())pl = i/3;
72	continue;
73	case 't':
74	tflag++;
75	continue;
76	case 's':
77	ap = &argv[0][2];
78	dfact = 1;
79	pgskip = atoi();
80	continue;
81	default:
82	dfact = 1;
83	ap = &argv[0][1];
84	if(i = atoi())mpy = i;
85	if(i = atoi())div = i;
86	continue;
87	}
88	}
89	if(argc){
90	if (freopen(argv[0], "r", stdin) == NULL) {
91	fprintf(stderr, "tc: cannot open %s\n", argv[0]);
92	exit(1);
93	}
94	}
95	sigint = signal(SIGINT, ex);
96	sigquit = signal(SIGQUIT, SIG_IGN);
97	while((i = getchar()) != EOF){
98	if(!i)continue;
99	if(i & 0200){
100	esc += (~i) & 0177;
101	continue;
102	}
103	if(esc){
104	if(escd)esc = -esc;
105	esct += esc;
106	xx += (esc*mpy + rx)/div;
107	rx = (esc*mpy + rx)%div;
108	sendpt();
109	esc = 0;
110	}
111	switch(i){
112	case 0100: /init/
113	escd = verd = mcase = railmag = xx = 0;
114	yy = MAXY + 48;
115	leadtot = -31;
116	ohy = oxb = oly = ohx = olx = -1;
117	oput(US);
118	fflush(stdout);
119	if(!first && !tflag)kwait();
120	if(first){
121	first = 0;
122	yy += 62;
123	}
124	init();
125	continue;
126	case 0101: /lower rail/
127	railmag &= ~01;
128	continue;
129	case 0102: /upper rail/
130	railmag \|= 01;
131	continue;
132	case 0103: /upper mag/
133	railmag \|= 02;
134	continue;
135	case 0104: /lower mag/
136	railmag &= ~02;
137	continue;
138	case 0105: /lower case/
139	mcase = 0;
140	continue;
141	case 0106: /upper case/
142	mcase = 0100;
143	continue;
144	case 0107: /escape forward/
145	escd = 0;
146	continue;
147	case 0110: /escape backward/
148	escd = 1;
149	continue;
150	case 0111: /stop/
151	continue;
152	case 0112: /lead forward/
153	verd = 0;
154	continue;
155	case 0113: /undefined/
156	continue;
157	case 0114: /lead backward/
158	verd = 1;
159	continue;
160	case 0115: /undefined/
161	case 0116:
162	case 0117:
163	continue;
164	}
165	if((i & 0340) == 0140){ /leading/
166	lead = (~i) & 037;
167	if(verd)lead = -lead;
168	if((leadtot += lead) > pl){
169	leadtot = lead;
170	oput(US);
171	fflush(stdout);
172	if(!tflag)kwait();
173	yy = MAXY;
174	if(pgskip)--pgskip;
175	init();
176	continue;
177	}
178	if(skip)continue;
179	if((yy -= (lead<<1)) < 0){
180	skip++;
181	yy = 0;
182	}else sendpt();
183	continue;
184	}
185	if((i & 0360) == 0120){ /size change/
186	i &= 017;
187	for(j = 0; i != (stab[j] & 017); j++);
188	osize = size;
189	size = stab[j];
190	psize = rtab[j];
191	ksize = ktab[j];
192	oput(ESC);
193	oput(ksize);
194	i = 0;
195	if(!(osize & DBL) && (size & DBL))i = -55;
196	else if((osize & DBL) && !(size & DBL))i = 55;
197	if(escd)i = -i;
198	esc += i;
199	continue;
200	}
201	if(i & 0300)continue;
202	i = (i & 077) \| mcase;
203	if(railmag != 03)k = asctab[i];
204	else k = spectab[i];
205	if(alpha)sendpt();
206	if(*k!='\0'){
207	oput(US);
208	while(k & 0377)oput(k++);
209	alpha++;
210	continue;
211	}else{
212	if(railmag != 03){
213	switch(i){
214	case 0124: lig("fi"); break;
215	case 0125: lig("fl"); break;
216	case 0126: lig("ff"); break;
217	case 0130: lig("ffl"); break;
218	case 0131: lig("ffi"); break;
219	default: continue;
220	}
221	}
222	continue;
223	}
224	}
225	ex();
226	}
227	lig(x)
228	char *x;
229	{
230	register i, j;
231	register char *k;
232
233	j = 0;
234	k = x;
235	oput(US);
236	oput(*k++);
237	i = psize * 8 * mpy / (div * 6); /* 8/36 em */
238	while(*k){
239	xx += i;
240	j += i;
241	sendpt();
242	oput(US);
243	oput(*k++);
244	}
245	xx -= j;
246	sendpt();
247	}
248	init(){
249
250	fflush(stdout);
251	if(erase){
252	oput(ESC);
253	oput(FF);
254	}else erase = 1;
255	oput(ESC);
256	oput(ksize);
257	/delay about a second/
258	/* let the system do it...
259	for(i = 960; i > 0; i--)oput(GS);
260	*/
261	skip = 0;
262	sendpt();
263	}
264	ex(){
265	yy = MAXY;
266	xx = 0;
267	sendpt();
268	oput(ESC);
269	oput(';');
270	oput(US);
271	fflush(stdout);
272	exit(0);
273	}
274	kwait(){
275	char buf[128]; char *bptr; char c;
276	if(pgskip) return;
277	next:
278	bptr=buf;
279	while((c=readch())&&(c!='\n')) *bptr++=c;
280	*bptr=0;
281	if(bptr!=buf){
282	bptr = buf;
283	if(*bptr == '!'){callunix(&buf[1]); fputs("!\n", stderr); goto next;}
284	else switch(*bptr++){
285	case 'e':
286	erase = 0;
287	goto next;
288	case 's':
289	ap = &buf[1];
290	dfact = 1;
291	pgskip = atoi() + 1;
292	goto next;
293	default:
294	fputs("?\n", stderr);
295	goto next;
296	}
297	}
298	else if (c==0) ex();
299	else return;
300	}
301	callunix(line)
302	char line[];
303	{
304	int rc, status, unixpid;
305	if( (unixpid=fork())==0 ) {
306	signal(SIGINT,sigint); signal(SIGQUIT,sigquit);
307	close(0); dup(2);
308	execl("/bin/sh", "-sh", "-c", line, 0);
309	exit(255);
310	}
311	else if(unixpid == -1)
312	return;
313	else{ signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN);
314	while( (rc = wait(&status)) != unixpid && rc != -1 ) ;
315	signal(SIGINT,ex); signal(SIGQUIT,sigquit);
316	}
317	}
318	readch(){
319	char c;
320	if (read(2,&c,1)<1) c=0;
321	return(c);
322	}
323	sendpt(){
324	int hy,xb,ly,hx,lx;
325
326	oput(GS);
327	hy = ((yy>>7) & 037);
328	xb = ((xx & 03) + ((yy<<2) & 014) & 017);
329	ly = ((yy>>2) & 037);
330	hx = ((xx>>7) & 037);
331	lx = ((xx>>2) & 037);
332	if(hy != ohy)oput(hy \| 040);
333	if(xb != oxb)oput(xb \| 0140);
334	if((ly != oly) \|\| (hx != ohx) \|\| (xb != oxb))
335	oput(ly \| 0140);
336	if(hx != ohx)oput(hx \| 040);
337	oput(lx \| 0100);
338	ohy = hy;
339	oxb = xb;
340	oly = ly;
341	ohx = hx;
342	olx = lx;
343	alpha = 0;
344	return;
345	}
346	atoi()
347	{
348	register i, j, acc;
349	int field, digits;
350	long dd;
351	long tscale();
352
353	field = digits = acc = 0;
354	a1:
355	while(((j = (i = getch()) - '0') >= 0) && (j <= 9)){
356	field++;
357	digits++;
358	acc = 10*acc + j;
359	}
360	if(i == '.'){
361	field++;
362	digits = 0;
363	goto a1;
364	}
365	if(!(ch = i))ch = 'x';
366	dd = tscale(acc);
367	acc = dd;
368	if((field != digits) && (digits > 0)){
369	j = 1;
370	while(digits--)j *= 10;
371	acc = dd/j;
372	}
373	nonumb = !field;
374	ch = 0;
375	return(acc);
376	}
377	long tscale(n)
378	int n;
379	{
380	register i, j;
381
382	switch(i = getch()){
383	case 'u':
384	j = 1;
385	break;
386	case 'p': /Points/
387	j = 6;
388	break;
389	case 'i': /Inches/
390	j = 432;
391	break;
392	case 'c': /Centimeters; should be 170.0787/
393	j = 170;
394	break;
395	case 'P': /Picas/
396	j = 72;
397	break;
398	default:
399	j = dfact;
400	ch = i;
401	}
402	return((long)n*j);
403	}
404	getch(){
405	register i;
406
407	if(ch){
408	i = ch;
409	ch = 0;
410	return(i);
411	}
412	return(*ap++);
413	}
414
415	char *asctab[128] = {
416	"\0", /blank/
417	"h", /h/
418	"t", /t/
419	"n", /n/
420	"m", /m/
421	"l", /l/
422	"i", /i/
423	"z", /z/
424	"s", /s/
425	"d", /d/
426	"b", /b/
427	"x", /x/
428	"f", /f/
429	"j", /j/
430	"u", /u/
431	"k", /k/
432	"\0", /blank/
433	"p", /p/
434	"-", /_ 3/4 em dash/
435	";", /;/
436	"\0", /blank/
437	"a", /a/
438	"_", /rule/
439	"c", /c/
440	"`", /` open/
441	"e", /e/
442	"\'", /' close/
443	"o", /o/
444	"\0", /1/4/
445	"r", /r/
446	"\0", /1/2/
447	"v", /v/
448	"-", /- hyphen/
449	"w", /w/
450	"q", /q/
451	"/", ///
452	".", /./
453	"g", /g/
454	"\0", /3/4/
455	",", /,/
456	"&", /&/
457	"y", /y/
458	"\0", /blank/
459	"%", /%/
460	"\0", /blank/
461	"Q", /Q/
462	"T", /T/
463	"O", /O/
464	"H", /H/
465	"N", /N/
466	"M", /M/
467	"L", /L/
468	"R", /R/
469	"G", /G/
470	"I", /I/
471	"P", /P/
472	"C", /C/
473	"V", /V/
474	"E", /E/
475	"Z", /Z/
476	"D", /D/
477	"B", /B/
478	"S", /S/
479	"Y", /Y/
480	"\0", /blank/
481	"F", /F/
482	"X", /X/
483	"A", /A/
484	"W", /W/
485	"J", /J/
486	"U", /U/
487	"K", /K/
488	"0", /0/
489	"1", /1/
490	"2", /2/
491	"3", /3/
492	"4", /4/
493	"5", /5/
494	"6", /6/
495	"7", /7/
496	"8", /8/
497	"9", /9/
498	"", /**/
499	"-", /minus/
500	"", /fi/
501	"", /fl/
502	"", /ff/
503	"\033\016Z\bM\033\017", /cent sign/
504	"", /ffl/
505	"", /ffi/
506	"(", /(/
507	")", /)/
508	"[", /[/
509	"]", /]/
510	"\033\016J\033\017", /degree/
511	"\033\016M\b_\033\017", /dagger/
512	"=", /=/
513	"\033\016O\b&\033\017", /registered/
514	":", /:/
515	"+", /+/
516	"\0", /blank/
517	"!", /!/
518	"\033\016O\b~\033\017", /bullet/
519	"?", /?/
520	"\'", /foot mark/
521	"\|", /\|/
522	"\0", /blank/
523	"\033\016O\b#\033\017", /copyright/
524	"\033\016L\033\017", /square/
525	"$" }; /$/
526
527	char *spectab[128] = {
528	"\0", /blank/
529	"\033\016(\bM\033\017", /psi/
530	"\033\016o\b_\033\017", /theta/
531	"v\b)", /nu/
532	"\033\016V\b,\033\017", /mu/
533	"\033\016)\b?\033\017", /lambda/
534	"\033\016I\033\017", /iota/
535	"S\b\033\016Z\033\017", /zeta/
536	"o\b\'", /sigma/
537	"o\b\033\0165\033\017", /delta/
538	"\033\016b\033\017", /beta/
539	"\033\016e\bc\033\017", /xi/
540	"j\b\033\016C\033\017", /eta/
541	"\033\016O\bM\033\017", /phi/
542	"\033\016(\033\017", /upsilon/
543	"\033\016k\033\017", /kappa/
544	"\0", /blank/
545	"T\b\033\016S\033\017", /pi/
546	"@", /at-sign/
547	"\033\016U\033\017", /down arrow/
548	"\0", /blank/
549	"\033\016A\033\017", /alpha/
550	"\|", /or/
551	"l\b/", /chi/
552	"\"", /"/
553	"\033\016E\033\017", /epsilon/
554	"=", /=/
555	"\033\016O\033\017", /omicron/
556	"\033\016[\033\017", /left arrow/
557	"\033\016R\033\017", /rho/
558	"\033\016Y\033\017", /up arrow/
559	"\033\016N\033\017", /tau/
560	"_", /underrule/
561	"\\", /\/
562	"I\b\033\016(\033\017", /Psi/
563	"\033\016O\bJ\033\017", /bell system sign/
564	"\033\016W\bX\033\017", /infinity/
565	"`\b/", /gamma/
566	"\033\016X\bF\033\017", /improper superset/
567	"\033\016A\033\017", /proportional to/
568	"\033\016\\\b]\033\017", /right hand/
569	"\033\016W\033\017", /omega/
570	"\0", /blank/
571	"\033\016G\033\017", /gradient/
572	"\0", /blank/
573	"I\033\016\bO\033\017", /Phi/
574	"O\b=", /Theta/
575	"O\b_", /Omega/
576	"\033\016V\033\017", /cup (union)/
577	"\033\016@\033\017", /root en/
578	"s", /terminal sigma/
579	"\033\016)\bK\033\017", /Lambda/
580	"-", /minus/
581	"\033\016S\bK\033\017", /Gamma/
582	"\033\016i\033\017", /integral sign/
583	"\033\016t\b'\033\017", /Pi/
584	"\033\016Z\033\017", /subset of/
585	"\033\016X\033\017", /superset of/
586	"\033\016T\033\017", /approximates/
587	"o\b`", /partial derivative/
588	"\033\016H\033\017", /Delta/
589	"\033\016I\b'\033\017", /square root/
590	">\b\033\016F\b@\033\017", /Sigma/
591	"\033\016T\bF\033\017", /approx =/
592	"\0", /blank/
593	">", />/
594	"\033\016_\bF\b@\033\017", /Xi/
595	"<", /</
596	"/", /slash (longer)/
597	"\033\016C\033\017", /cap (intersection)/
598	"\033\016y\033\017", /Upsilon/
599	"\033\016\|\033\017", /not/
600	"\|", /right ceiling (rt of ")/
601	"\|", /left top (of big curly)/
602	"\|", /bold vertical/
603	"\|", /left center of big curly bracket/
604	"\|", /left bottom/
605	"\|", /right top/
606	"\|", /right center of big curly bracket/
607	"\|", /right bot/
608	"\|", /right floor (rb of ")/
609	"\|", /left floor (left bot of big sq bract)/
610	"\|", /left ceiling (lt of ")/
611	"\033\016=\033\017", /multiply/
612	"\033\016+\033\017", /divide/
613	"+\b_", /plus-minus/
614	"\033\016$\033\017", /<=/
615	"\033\016^\033\017", />=/
616	"=\b_", /identically equal/
617	"\033\016\033\017", /not equal*/
618	"{", /{/
619	"}", /}/
620	"\'", /' acute accent/
621	"`", /` grave accent/
622	"^", /^/
623	"#", /sharp/
624	"\033\016\|\b[\033\017", /left hand/
625	"\033\016c\b_\033\017", /member of/
626	"~", /~/
627	"\033\016O\b/\033\017", /empty set/
628	"\0", /blank/
629	"\033\016%\bM\033\017", /dbl dagger/
630	"\|", /box rule/
631	"", /asterisk*/
632	"\033\016Z\bF\033\017", /improper subset/
633	"\033\016O\033\017", /circle/
634	"\0", /blank/
635	"+", /eqn plus/
636	"\033\016]\033\017", /right arrow/
637	"g\b\033\016C\033\017" }; /section mark/