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

static char *sccsid = "@(#)pti.c	4.1 (Berkeley) 10/1/80";
#define DBL 0200
/*
C version of pti
*/

char *ap;
char ibuf[512];
char *ibufp = ibuf;
char *eibufp = ibuf;
int fid;
int esc;
int escd;
int verd;
int esct;
int osize = 02;
int size = 02;
int leadtot;
int railmag;
int lead;
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};
char *asctab[128];
char *spectab[128];
long offset;
int lflg;
int xxx;

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 'l':
				lflg++;
				continue;
			default:
				ap = &argv[0][1];
				while(((j = *ap++ - '0') >= 0)
					&& (j <= 9))offset = 8*offset +j;
				continue;
		}
	}
	if(argc){
		if((fid=open(argv[0], 0)) < 0){
			printf("Cannot open: %s\n",argv[0]);
			exit(1);
		}
	}
	lseek(fid,offset,0);
	while((i = getc()) >= 0){
		if(i & 0200){
			if(!lflg)printf("%o ",i);
			esc += (~i) & 0177;
			continue;
		}
		if(esc){
			if(escd){
				if(!lflg)printf("< %d\n",esc);
				esc = -esc;
			}else{
				if(!lflg)printf("> %d\n",esc);
			}
			esct += esc;
			esc = 0;
		}
		if(!lflg)printf("%o ",i);
		if(!i){if(!lflg)printf("\n"); continue;}
		switch(i){
			case 0100:	/*init*/
				escd = verd = mcase = railmag = 0;
				if(!lflg)printf("Initialize\n");
				continue;
			case 0101:	/*lower rail*/
				railmag &= ~01;
				if(!lflg)printf("Lower rail\n");
				continue;
			case 0102:	/*upper rail*/
				railmag |= 01;
				if(!lflg)printf("Upper rail\n");
				continue;
			case 0103:	/*upper mag*/
				railmag |= 02;
				if(!lflg)printf("Upper mag\n");
				continue;
			case 0104:	/*lower mag*/
				railmag &= ~02;
				if(!lflg)printf("Lower mag\n");
				continue;
			case 0105:	/*lower case*/
				mcase = 0;
				if(!lflg)printf("Lower case\n");
				continue;
			case 0106:	/*upper case*/
				mcase = 0100;
				if(!lflg)printf("Upper case\n");
				continue;
			case 0107:	/*escape forward*/
				escd = 0;
				if(!lflg)printf("> mode, %d\n",esct);
				continue;
			case 0110:	/*escape backward*/
				escd = 1;
				if(!lflg)printf("< mode, %d\n",esct);
				continue;
			case 0111:	/*stop*/
				if(!lflg)printf("STOP\n");
				continue;
			case 0112:	/*lead forward*/
				verd = 0;
				if(!lflg)printf("Lead forward, %d\n",leadtot);
				continue;
			case 0114:	/*lead backward*/
				verd = 1;
				if(!lflg)printf("Lead backward, %d\n",leadtot);
				continue;
			case 0115:	/*undefined*/
				if(!lflg)printf("New page\n");
				continue;
			case 0116:
				lead = 64 * getc();
				goto leadin;
			case 0117:
			case 0113:
				if(!lflg)printf("Undefined code\n");
				continue;
		}
		if((i & 0340) == 0140){	/*leading*/
			lead = (~i) & 037;
leadin:
			if(!lflg)printf("Lead %d\n",lead);
			if(verd)lead = -lead;
			leadtot += lead;
			continue;
		}
		if((i & 0360) == 0120){	/*size change*/
			i &= 017;
			for(j = 0; i != (stab[j] & 017); j++);
			osize = size;
			size = stab[j];
			if(!lflg){
				printf("Size %d",rtab[j]);
				if(!(osize & DBL) && (size & DBL))printf(", double\n");
				else if((osize & DBL) && !(size & DBL))printf(", single\n");
				else printf("\n");
			}
			continue;
		}
		if(i & 0300)continue;
		i = (i & 077) | mcase;
		if(railmag != 03)k = asctab[i];
		else k = spectab[i];
		if(!lflg)printf("%s\n",k);
		continue;
	}
	ex();
}
ex(){
	printf("Total lead %d\n",leadtot);
	exit(0);
}
getc(){
	register i;

	if(ibufp >= eibufp){
		if((i=read(fid,ibuf,512)) <= 0)ex();
		eibufp = ibuf + i;
		ibufp = ibuf;
	}
	return(*ibufp++ & 0377);
}
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*/
   0,	/*fi*/
  0,	/*fl*/
  0,	/*ff*/
  0,	/*cent mark*/
  0,	/*ffl*/
  0,	/* ffi */
"(",	/*(*/
")",	/*)*/
"[",	/*[*/
"]",	/*]*/
  0,	/*degree*/
  0,	/*dagger*/
"=",	/*=*/
  0,	/*registered*/
":",	/*:*/
"+",	/*+*/
  0,	/*blank*/
"!",	/*!*/
  0,	/*bullet*/
"?",	/*?*/
"'",	/*foot mark*/
"|",	/*|*/
  0,	/*blank*/
  0,	/*copyright*/
  0,	/*square*/
"$" };	/*$*/

char *spectab[128] = {
  0,	/*blank*/
  0,	/*psi*/
  0,	/*theta*/
  0,	/*nu*/
  0,	/*mu*/
  0,	/*lambda*/
  0,	/*iota*/
  0,	/*zeta*/
  0,	/*sigma*/
  0,	/*delta*/
  0,	/*beta*/
  0,	/*xi*/
  0,	/*eta*/
  0,	/*phi*/
  "u",	/*upsilon*/
  0,	/*kappa*/
  0,	/*blank*/
  0,	/*pi*/
  "@",	/*at sign @*/
  0,	/*down arrow*/
  0,	/*blank*/
  0,	/*alpha*/
"|",	/*or*/
  0,	/*chi*/
"\"",	/*"*/
  0,	/*epsilon*/
  "=",	/*equals*/
  "o",	/*omicron*/
  0,	/*left arrow*/
  0,	/*rho*/
  0,	/*up arrow*/
  0,	/*tau*/
"_",	/*underrule*/
"\\",	/*\*/
  0,	/*Psi*/
  0,	/*bell system sign*/
  0,	/*infinity*/
  0,	/*gamma*/
  0,	/*improper superset*/
  0,	/*proportional to*/
  0,	/*right hand*/
  0,	/*omega*/
  0,	/*blank*/
  0,	/*gradient*/
  0,	/*blank*/
  0,	/*Phi*/
  0,	/*Theta*/
  0,	/*Omega*/
  0,	/*cup (union)*/
  0,	/*root en*/
  0,	/*terminal sigma*/
  0,	/*Lambda*/
  "-",	/*some horizontal line*/
  0,	/*Gamma*/
  0,	/*integral sign*/
  0,	/*Pi*/
  0,	/*subset of*/
  0,	/*superset of*/
  0,	/*approximates*/
  0,	/*partial derivative*/
  0,	/*Delta*/
  0,	/*square root*/
  0,	/*Sigma*/
  0,	/*approx =*/
  0,	/*blank*/
">",	/*>*/
  0,	/*Xi*/
"<",	/*<*/
"/",	/*slash (longer)*/
  0,	/*cap (intersection)*/
  "Y",	/*Upsilon*/
  0,	/*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 ")*/
"x",	/*multiply*/
  0,	/*divide*/
  0,	/*plus-minus*/
  0,	/*<=*/
  0,	/*>=*/
  0,	/*identically equal*/
  0,	/*not equal*/
"{",	/*{*/
"}",	/*}*/
"'",	/*' acute accent*/
"`",	/*` grave accent*/
"^",	/*^*/
  "#",	/*sharp*/
  0,	/*left hand*/
  0,	/*member of*/
"~",	/*~*/
  0,	/*empty set*/
  0,	/*blank*/
  0,	/*dbl dagger*/
"|",	/*box rule*/
  "*",	/*telephone asterisk?*/
  0,	/*improper subset*/
  0,	/*circle*/
  0,	/*blank*/
  "+",	/*eqn plus sign*/
  0,	/*right arrow*/
  0 };	/*section mark*/
Commit	Line	Data
31cef89c	1	static char *sccsid = "@(#)pti.c 4.1 (Berkeley) 10/1/80";
2aa6f883 BJ	2	#define DBL 0200
	3	/*
	4	C version of pti
	5	*/
	6
	7	char *ap;
	8	char ibuf[512];
	9	char *ibufp = ibuf;
	10	char *eibufp = ibuf;
	11	int fid;
	12	int esc;
	13	int escd;
	14	int verd;
	15	int esct;
	16	int osize = 02;
	17	int size = 02;
	18	int leadtot;
	19	int railmag;
	20	int lead;
	21	int mcase;
	22	int stab[] = {010,0,01,07,02,03,04,05,0211,06,0212,0213,0214,0215,0216,0217};
	23	int rtab[] = {6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 28, 36, 18};
	24	char *asctab[128];
	25	char *spectab[128];
	26	long offset;
	27	int lflg;
	28	int xxx;
	29
	30	main(argc,argv)
	31	int argc;
	32	char **argv;
	33	{
	34	register i, j;
	35	register char *k;
	36	extern ex();
	37
	38	while((--argc > 0) && ((++argv)[0][0]=='-')){
	39	switch(argv[0][1]){
	40	case 'l':
	41	lflg++;
	42	continue;
	43	default:
	44	ap = &argv[0][1];
	45	while(((j = *ap++ - '0') >= 0)
	46	&& (j <= 9))offset = 8*offset +j;
	47	continue;
	48	}
	49	}
	50	if(argc){
	51	if((fid=open(argv[0], 0)) < 0){
	52	printf("Cannot open: %s\n",argv[0]);
	53	exit(1);
	54	}
	55	}
	56	lseek(fid,offset,0);
	57	while((i = getc()) >= 0){
	58	if(i & 0200){
	59	if(!lflg)printf("%o ",i);
	60	esc += (~i) & 0177;
	61	continue;
	62	}
	63	if(esc){
	64	if(escd){
	65	if(!lflg)printf("< %d\n",esc);
66	esc = -esc;
67	}else{
68	if(!lflg)printf("> %d\n",esc);
69	}
70	esct += esc;
71	esc = 0;
72	}
73	if(!lflg)printf("%o ",i);
74	if(!i){if(!lflg)printf("\n"); continue;}
75	switch(i){
76	case 0100: /init/
77	escd = verd = mcase = railmag = 0;
78	if(!lflg)printf("Initialize\n");
79	continue;
80	case 0101: /lower rail/
81	railmag &= ~01;
82	if(!lflg)printf("Lower rail\n");
83	continue;
84	case 0102: /upper rail/
85	railmag \|= 01;
86	if(!lflg)printf("Upper rail\n");
87	continue;
88	case 0103: /upper mag/
89	railmag \|= 02;
90	if(!lflg)printf("Upper mag\n");
91	continue;
92	case 0104: /lower mag/
93	railmag &= ~02;
94	if(!lflg)printf("Lower mag\n");
95	continue;
96	case 0105: /lower case/
97	mcase = 0;
98	if(!lflg)printf("Lower case\n");
99	continue;
100	case 0106: /upper case/
101	mcase = 0100;
102	if(!lflg)printf("Upper case\n");
103	continue;
104	case 0107: /escape forward/
105	escd = 0;
106	if(!lflg)printf("> mode, %d\n",esct);
107	continue;
108	case 0110: /escape backward/
109	escd = 1;
110	if(!lflg)printf("< mode, %d\n",esct);
111	continue;
112	case 0111: /stop/
113	if(!lflg)printf("STOP\n");
114	continue;
115	case 0112: /lead forward/
116	verd = 0;
117	if(!lflg)printf("Lead forward, %d\n",leadtot);
118	continue;
119	case 0114: /lead backward/
120	verd = 1;
121	if(!lflg)printf("Lead backward, %d\n",leadtot);
122	continue;
123	case 0115: /undefined/
124	if(!lflg)printf("New page\n");
125	continue;
126	case 0116:
127	lead = 64 * getc();
128	goto leadin;
129	case 0117:
130	case 0113:
131	if(!lflg)printf("Undefined code\n");
132	continue;
133	}
134	if((i & 0340) == 0140){ /leading/
135	lead = (~i) & 037;
136	leadin:
137	if(!lflg)printf("Lead %d\n",lead);
138	if(verd)lead = -lead;
139	leadtot += lead;
140	continue;
141	}
142	if((i & 0360) == 0120){ /size change/
143	i &= 017;
144	for(j = 0; i != (stab[j] & 017); j++);
145	osize = size;
146	size = stab[j];
147	if(!lflg){
148	printf("Size %d",rtab[j]);
149	if(!(osize & DBL) && (size & DBL))printf(", double\n");
150	else if((osize & DBL) && !(size & DBL))printf(", single\n");
151	else printf("\n");
152	}
153	continue;
154	}
155	if(i & 0300)continue;
156	i = (i & 077) \| mcase;
157	if(railmag != 03)k = asctab[i];
158	else k = spectab[i];
159	if(!lflg)printf("%s\n",k);
160	continue;
161	}
162	ex();
163	}
164	ex(){
165	printf("Total lead %d\n",leadtot);
166	exit(0);
167	}
168	getc(){
169	register i;
170
171	if(ibufp >= eibufp){
172	if((i=read(fid,ibuf,512)) <= 0)ex();
173	eibufp = ibuf + i;
174	ibufp = ibuf;
175	}
176	return(*ibufp++ & 0377);
177	}
178	char *asctab[128] = {
179	0, /blank/
180	"h", /h/
181	"t", /t/
182	"n", /n/
183	"m", /m/
184	"l", /l/
185	"i", /i/
186	"z", /z/
187	"s", /s/
188	"d", /d/
189	"b", /b/
190	"x", /x/
191	"f", /f/
192	"j", /j/
193	"u", /u/
194	"k", /k/
195	0, /blank/
196	"p", /p/
197	"-", /_ 3/4 em dash/
198	";", /;/
199	0, /blank/
200	"a", /a/
201	"_", /rule/
202	"c", /c/
203	"`", /` open/
204	"e", /e/
205	"'", /' close/
206	"o", /o/
207	0, /1/4/
208	"r", /r/
209	0, /1/2/
210	"v", /v/
211	"-", /- hyphen/
212	"w", /w/
213	"q", /q/
214	"/", ///
215	".", /./
216	"g", /g/
217	0, /3/4/
218	",", /,/
219	"&", /&/
220	"y", /y/
221	0, /blank/
222	"%", /%/
223	0, /blank/
224	"Q", /Q/
225	"T", /T/
226	"O", /O/
227	"H", /H/
228	"N", /N/
229	"M", /M/
230	"L", /L/
231	"R", /R/
232	"G", /G/
233	"I", /I/
234	"P", /P/
235	"C", /C/
236	"V", /V/
237	"E", /E/
238	"Z", /Z/
239	"D", /D/
240	"B", /B/
241	"S", /S/
242	"Y", /Y/
243	0, /blank/
244	"F", /F/
245	"X", /X/
246	"A", /A/
247	"W", /W/
248	"J", /J/
249	"U", /U/
250	"K", /K/
251	"0", /0/
252	"1", /1/
253	"2", /2/
254	"3", /3/
255	"4", /4/
256	"5", /5/
257	"6", /6/
258	"7", /7/
259	"8", /8/
260	"9", /9/
261	"", /**/
262	"-", /minus/
263	0, /fi/
264	0, /fl/
265	0, /ff/
266	0, /cent mark/
267	0, /ffl/
268	0, /* ffi */
269	"(", /(/
270	")", /)/
271	"[", /[/
272	"]", /]/
273	0, /degree/
274	0, /dagger/
275	"=", /=/
276	0, /registered/
277	":", /:/
278	"+", /+/
279	0, /blank/
280	"!", /!/
281	0, /bullet/
282	"?", /?/
283	"'", /foot mark/
284	"\|", /\|/
285	0, /blank/
286	0, /copyright/
287	0, /square/
288	"$" }; /$/
289
290	char *spectab[128] = {
291	0, /blank/
292	0, /psi/
293	0, /theta/
294	0, /nu/
295	0, /mu/
296	0, /lambda/
297	0, /iota/
298	0, /zeta/
299	0, /sigma/
300	0, /delta/
301	0, /beta/
302	0, /xi/
303	0, /eta/
304	0, /phi/
305	"u", /upsilon/
306	0, /kappa/
307	0, /blank/
308	0, /pi/
309	"@", /at sign @/
310	0, /down arrow/
311	0, /blank/
312	0, /alpha/
313	"\|", /or/
314	0, /chi/
315	"\"", /"/
316	0, /epsilon/
317	"=", /equals/
318	"o", /omicron/
319	0, /left arrow/
320	0, /rho/
321	0, /up arrow/
322	0, /tau/
323	"_", /underrule/
324	"\\", /\/
325	0, /Psi/
326	0, /bell system sign/
327	0, /infinity/
328	0, /gamma/
329	0, /improper superset/
330	0, /proportional to/
331	0, /right hand/
332	0, /omega/
333	0, /blank/
334	0, /gradient/
335	0, /blank/
336	0, /Phi/
337	0, /Theta/
338	0, /Omega/
339	0, /cup (union)/
340	0, /root en/
341	0, /terminal sigma/
342	0, /Lambda/
343	"-", /some horizontal line/
344	0, /Gamma/
345	0, /integral sign/
346	0, /Pi/
347	0, /subset of/
348	0, /superset of/
349	0, /approximates/
350	0, /partial derivative/
351	0, /Delta/
352	0, /square root/
353	0, /Sigma/
354	0, /approx =/
355	0, /blank/
356	">", />/
357	0, /Xi/
358	"<", /</
359	"/", /slash (longer)/
360	0, /cap (intersection)/
361	"Y", /Upsilon/
362	0, /not/
363	"\|", /right ceiling (rt of ")/
364	"\|", /left top (of big curly)/
365	"\|", /bold vertical/
366	"\|", /left center of big curly bracket/
367	"\|", /left bottom/
368	"\|", /right top/
369	"\|", /right center of big curly bracket/
370	"\|", /right bot/
371	"\|", /right floor (rb of ")/
372	"\|", /left floor (left bot of big sq bract)/
373	"\|", /left ceiling (lt of ")/
374	"x", /multiply/
375	0, /divide/
376	0, /plus-minus/
377	0, /<=/
378	0, />=/
379	0, /identically equal/
380	0, /not equal/
381	"{", /{/
382	"}", /}/
383	"'", /' acute accent/
384	"`", /` grave accent/
385	"^", /^/
386	"#", /sharp/
387	0, /left hand/
388	0, /member of/
389	"~", /~/
390	0, /empty set/
391	0, /blank/
392	0, /dbl dagger/
393	"\|", /box rule/
394	"", /telephone asterisk?*/
395	0, /improper subset/
396	0, /circle/
397	0, /blank/
398	"+", /eqn plus sign/
399	0, /right arrow/
400	0 }; /section mark/