[unix-history] / usr / src / ucb / berknet / chktroff.c

static char sccsid[] = "@(#)chktroff.c	4.1	(Berkeley)	9/12/82";

/* sccs id variable */
static char *chktroff_sid = "@(#)chktroff.c	1.2";

/*
	chktroff [-l] [-num] [file]

		-l	says list the code
		-num	num is octal offset into file
		file	if specified, read from file, otherwise stdin
*/
# include  "local.h"
# ifdef ONYX
# define NOFP
# endif

# define FEET 15.0
#define DBL 0200
#define	BUFSIZ	1024
/*
C version of pti
*/

char *ap;
char ibuf[BUFSIZ];
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 = 1;
int xxx;
long bytetot = 0L;
int init = 0, stop = 0;

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

	while((--argc > 0) && ((++argv)[0][0]=='-')){
		switch(argv[0][1]){
			case 'l':
				lflg = 0;
				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){
			perror(argv[0]);
			exit(1);
		}
	}
	if((i = getc()) != 0100){
		printf("Not typesetter format file. Sorry.\n");
		exit(1);
		}
	escd = verd = mcase = railmag = 0;
	if(!lflg)printf("Initialize\n");
	init++;
/*
	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");
				init++;
				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");
				stop++;
				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*/
			case 0116:
			case 0117:
			case 0113:
				if(!lflg)printf("Undefined code\n");
				continue;
		}
		if((i & 0340) == 0140){	/*leading*/
			lead = (~i) & 037;
			if(!lflg)printf("Lead %d\n",lead);
			if(verd)lead = -lead;
			leadtot += lead;
#ifndef NOFP
			f = ((float)leadtot / (float)(144 * 12));
			if(f > FEET){
				printf("Only %3.0f feet maximum per request. Sorry.\n",FEET);
				exit(1);
				}
#endif
			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(){
	double f1;
#ifndef NOFP
	f1 = ((leadtot * 3)/432.0)/12.0;
	printf("Total bytes %ld, lead %d, feet %4.2f\n",bytetot,leadtot,f1);
#endif
	if(stop != 1 || init != 2){
		printf("Error - wrong # init %d, # stop %d\n",init,stop);
		exit(1);
		}
	exit(0);
}
getc(){
	register i;

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