56 #define	C	((c = getc(infile)) == EOF ? eof() : \  macro
59 #define	SKIP	while (C != '\n')
61 			while ((C != '.') || (pc != '\n') || \
62 			    (C > 'Z')) { \
245 	return (C);  in eof()
261 	while (C == ' ')  in getfname()
266 		(void) C;  in getfname()
270 		(void) C;  in getfname()
325 		if ((C == '.') || (c == '\''))  in work()
368 			line[lindx] = C;  in regline()
371 				line[lindx] = C;  in regline()
374 			line[lindx] = C;  in regline()
467 	while ((C == ' ') || (c == '\t'))  in comline()
472 	c2 = C;  in comline()
566 			while (C == '.')  in comline()
588 		} while ((C != '.') || (C != '.') || (C == '.'));  in macro()
610 		while (C != '.')  in sdis()
612 		if ((c1 = C) == '\n')  in sdis()
614 		if ((c2 = C) == '\n')  in sdis()
634 	while (C != '.')  in tbl()
643 	while (C != '.')  in stbl()
646 	if ((c != 'T') || (C != 'E')) {  in stbl()
649 		while ((C != '.') || (pc != '\n') ||  in stbl()
650 		    (C != 'T') || (C != 'E')) {  in stbl()
722 sw:	switch (C) {  in backsl()
727 		if (C == '\\') {  in backsl()
730 			while ((C >= '0') && (c <= '9'))  in backsl()
741 		if (C != '(')  in backsl()
746 		if (C != '\n') {  in backsl()
747 			(void) C;  in backsl()
752 		(void) C;	/* discard argument number */  in backsl()
763 		if ((bdelim = C) == '\n')  in backsl()
765 		while ((C != '\n') && (c != bdelim))  in backsl()
801 	for (ap = a; C != '\n'; ap++) {  in sce()
815 		if (C == '.') {  in sce()
816 			if (C == 'c') {  in sce()
817 				if (C == 'e') {  in sce()
818 					while (C == ' ')  in sce()