[unix-history] / .ref-BSD-2 / src / iul.c

/* Copyright (c) 1979 Regents of the University of California */
#include <stdio.h>

#define BACKSPACE 0
#define	QUOTE	0200
/*
 * iul - a cat like program to indicate underlining for graphic terminals
 *
 * Bill Joy UCB June 22, 1977
 *
 * This program was a piece of the editor ex.
 */

#define	LBSIZE	512

char	linebuf[LBSIZE], genbuf[LBSIZE];
char	*strcpy();

main(argc, argv)
	int argc;
	char *argv[];
{
	register c;
	register char *lp;
	char obuf[BUFSIZ];

	setbuf(stdout, obuf);
	argc--;
	argv++;
	do {
		if (argc > 0) {
			if (freopen(argv[0], "r", stdin) == NULL) {
				perror(argv[0]);
				exit(1);
			}
			argc--; argv++;
		}
		while (fgets(linebuf, sizeof linebuf, stdin) != 0) {
			for (lp = linebuf; *lp; lp++)
				continue;
			*--lp = 0;
			doulg();
			dographic();
			if (genbuf[0])
				printf("\n%s", genbuf);
			putchar('\n');
			fflush(stdout);
		}
	} while (argc > 0);
	exit(0);
}

dographic()
{
	register char *lp;
	register c;

	for (lp = linebuf; c = *lp++;) {
		switch (c) {
			case '\b':
				if (BACKSPACE == 0)
					c = '?';
				break;
			default:
				if (c < ' ' || c == 0177)
					c = '?';
				break;
			case '\t':
				break;
		}
		putchar(c);
	}
}

doulg()
{
	register char *lp, *gp;
	char *maxgp;
	register c;
	char csw;
	int col;

	gp = genbuf;
	*gp = 0;
	maxgp = gp;
	col = 0;
	for (lp = linebuf; c = *lp++;) {
		switch (c) {
			case '\t':
				while ((col & 7) != 7) {
					*gp++ = ' ';
					if (gp >= &genbuf[LBSIZE - 2])
						goto ovflo;
					col++;
				}
				break;
			default:
				if (gp >= maxgp)
					break;
				c =| (*gp & QUOTE);
				break;
			case '_':
				if (gp >= maxgp)
					c = QUOTE;
				else
					c = *gp | QUOTE;
				break;
			case '\b':
				if (gp > genbuf) {
					gp--;
					col--;
				}
				continue;
		}
		if (gp >= &genbuf[LBSIZE - 2]) {
ovflo:
			fprintf(stderr, "Line too long\n");
			exit(1);
		}
		*gp++ = c;
		if (gp > maxgp)
			maxgp = gp;
		col++;
	}
	*maxgp = 0;
	strcpy(linebuf, genbuf);
	for (lp = linebuf, gp = genbuf; c = *lp; gp++, lp++)
		if (c & QUOTE) {
			c =& 0177;
			if (c == 0)
				*lp = '_', *gp = ' ';
			else
				*lp = c, *gp = '-';
		} else
			*gp = ' ';
	--gp;
	while (gp >= genbuf && *gp == ' ')
		--gp;
	gp[1] = 0;
}
Commit	Line	Data
cc6679ee BJ	1	/* Copyright (c) 1979 Regents of the University of California */
	2	#include <stdio.h>
	3
	4	#define BACKSPACE 0
	5	#define QUOTE 0200
	6	/*
	7	* iul - a cat like program to indicate underlining for graphic terminals
	8	*
	9	* Bill Joy UCB June 22, 1977
	10	*
	11	* This program was a piece of the editor ex.
	12	*/
	13
	14	#define LBSIZE 512
	15
	16	char linebuf[LBSIZE], genbuf[LBSIZE];
	17	char *strcpy();
	18
	19	main(argc, argv)
	20	int argc;
	21	char *argv[];
	22	{
	23	register c;
	24	register char *lp;
	25	char obuf[BUFSIZ];
	26
	27	setbuf(stdout, obuf);
	28	argc--;
	29	argv++;
	30	do {
	31	if (argc > 0) {
	32	if (freopen(argv[0], "r", stdin) == NULL) {
	33	perror(argv[0]);
	34	exit(1);
	35	}
	36	argc--; argv++;
	37	}
	38	while (fgets(linebuf, sizeof linebuf, stdin) != 0) {
	39	for (lp = linebuf; *lp; lp++)
	40	continue;
	41	*--lp = 0;
	42	doulg();
	43	dographic();
	44	if (genbuf[0])
	45	printf("\n%s", genbuf);
	46	putchar('\n');
	47	fflush(stdout);
	48	}
	49	} while (argc > 0);
	50	exit(0);
	51	}
	52
	53	dographic()
	54	{
	55	register char *lp;
	56	register c;
	57
	58	for (lp = linebuf; c = *lp++;) {
	59	switch (c) {
	60	case '\b':
	61	if (BACKSPACE == 0)
	62	c = '?';
	63	break;
	64	default:
65	if (c < ' ' \|\| c == 0177)
66	c = '?';
67	break;
68	case '\t':
69	break;
70	}
71	putchar(c);
72	}
73	}
74
75	doulg()
76	{
77	register char lp, gp;
78	char *maxgp;
79	register c;
80	char csw;
81	int col;
82
83	gp = genbuf;
84	*gp = 0;
85	maxgp = gp;
86	col = 0;
87	for (lp = linebuf; c = *lp++;) {
88	switch (c) {
89	case '\t':
90	while ((col & 7) != 7) {
91	*gp++ = ' ';
92	if (gp >= &genbuf[LBSIZE - 2])
93	goto ovflo;
94	col++;
95	}
96	break;
97	default:
98	if (gp >= maxgp)
99	break;
100	c =\| (*gp & QUOTE);
101	break;
102	case '_':
103	if (gp >= maxgp)
104	c = QUOTE;
105	else
106	c = *gp \| QUOTE;
107	break;
108	case '\b':
109	if (gp > genbuf) {
110	gp--;
111	col--;
112	}
113	continue;
114	}
115	if (gp >= &genbuf[LBSIZE - 2]) {
116	ovflo:
117	fprintf(stderr, "Line too long\n");
118	exit(1);
119	}
120	*gp++ = c;
121	if (gp > maxgp)
122	maxgp = gp;
123	col++;
124	}
125	*maxgp = 0;
126	strcpy(linebuf, genbuf);
127	for (lp = linebuf, gp = genbuf; c = *lp; gp++, lp++)
128	if (c & QUOTE) {
129	c =& 0177;
130	if (c == 0)
131	lp = '_', gp = ' ';
132	else
133	lp = c, gp = '-';
134	} else
135	*gp = ' ';
136	--gp;
137	while (gp >= genbuf && *gp == ' ')
138	--gp;
139	gp[1] = 0;
140	}