1/*
2 * Copyright (c) 1980, 1993
3 *	The Regents of the University of California.  All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 * 3. All advertising materials mentioning features or use of this software
14 *    must display the following acknowledgement:
15 *	This product includes software developed by the University of
16 *	California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 *    may be used to endorse or promote products derived from this software
19 *    without specific prior written permission.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
32 */
33
34#ifndef lint
35static const char copyright[] =
36"@(#) Copyright (c) 1980, 1993\n\
37	The Regents of the University of California.  All rights reserved.\n";
38#endif
39
40#if 0
41#ifndef lint
42static char sccsid[] = "@(#)colcrt.c	8.1 (Berkeley) 6/6/93";
43#endif
44#endif
45
46#include <sys/cdefs.h>
47__FBSDID("$FreeBSD: src/usr.bin/colcrt/colcrt.c,v 1.18 2004/07/31 06:22:57 tjr Exp $");
48
49#include <err.h>
50#include <locale.h>
51#include <stdio.h>
52#include <stdlib.h>
53#include <string.h>
54#include <unistd.h>
55#include <wchar.h>
56
57/*
58 * colcrt - replaces col for crts with new nroff esp. when using tbl.
59 * Bill Joy UCB July 14, 1977
60 *
61 * This filter uses a screen buffer, 267 half-lines by 132 columns.
62 * It interprets the up and down sequences generated by the new
63 * nroff when used with tbl and by \u \d and \r.
64 * General overstriking doesn't work correctly.
65 * Underlining is split onto multiple lines, etc.
66 *
67 * Option - suppresses all underlining.
68 * Option -2 forces printing of all half lines.
69 */
70
71wchar_t	page[267][132];
72
73int	outline = 1;
74int	outcol;
75
76char	suppresul;
77char	printall;
78
79static void	move(int, int);
80static void	pflush(int);
81static int	plus(wchar_t, wchar_t);
82static void	usage(void);
83
84int
85main(int argc, char *argv[])
86{
87	wint_t c;
88	wchar_t *cp, *dp;
89	int ch, i, w;
90
91	setlocale(LC_ALL, "");
92
93	while ((ch = getopt(argc, argv, "-2")) != -1)
94		switch (ch) {
95		case '-':
96			suppresul = 1;
97			break;
98		case '2':
99			printall = 1;
100			break;
101		default:
102			usage();
103		}
104	argc -= optind;
105	argv += optind;
106
107	do {
108		if (argc > 0) {
109			if (freopen(argv[0], "r", stdin) == NULL) {
110				fflush(stdout);
111				err(1, "%s", argv[0]);
112			}
113			argc--;
114			argv++;
115		}
116		for (;;) {
117			c = getwc(stdin);
118			if (c == WEOF) {
119				pflush(outline);
120				fflush(stdout);
121				break;
122			}
123			switch (c) {
124			case '\n':
125				if (outline >= 265)
126					pflush(62);
127				outline += 2;
128				outcol = 0;
129				continue;
130			case '\016':
131			case '\017':
132				continue;
133			case 033:
134				c = getwc(stdin);
135				switch (c) {
136				case '9':
137					if (outline >= 266)
138						pflush(62);
139					outline++;
140					continue;
141				case '8':
142					if (outline >= 1)
143						outline--;
144					continue;
145				case '7':
146					outline -= 2;
147					if (outline < 0)
148						outline = 0;
149					continue;
150				default:
151					continue;
152				}
153			case '\b':
154				if (outcol)
155					outcol--;
156				continue;
157			case '\t':
158				outcol += 8;
159				outcol &= ~7;
160				outcol--;
161				c = ' ';
162			default:
163				if ((w = wcwidth(c)) <= 0)
164					w = 1;	/* XXX */
165				if (outcol + w > 132) {
166					outcol += w;
167					continue;
168				}
169				cp = &page[outline][outcol];
170				outcol += w;
171				if (c == '_') {
172					if (suppresul)
173						continue;
174					cp += 132;
175					c = '-';
176				}
177				if (*cp == 0) {
178					for (i = 0; i < w; i++)
179						cp[i] = c;
180					dp = cp - (outcol - w);
181					for (cp--; cp >= dp && *cp == 0; cp--)
182						*cp = ' ';
183				} else {
184					if (plus(c, *cp) || plus(*cp, c))
185						*cp = '+';
186					else if (*cp == ' ' || *cp == 0) {
187						for (i = 1; i < w; i++)
188							if (cp[i] != ' ' &&
189							    cp[i] != 0)
190								goto cont;
191						for (i = 0; i < w; i++)
192							cp[i] = c;
193					}
194				}
195cont:
196				continue;
197			}
198		}
199		if (ferror(stdin))
200			err(1, NULL);
201	} while (argc > 0);
202	fflush(stdout);
203	exit(0);
204}
205
206static void
207usage(void)
208{
209	fprintf(stderr, "usage: colcrt [-] [-2] [file ...]\n");
210	exit(1);
211}
212
213static int
214plus(wchar_t c, wchar_t d)
215{
216
217	return ((c == '|' && d == '-') || d == '_');
218}
219
220static void
221pflush(int ol)
222{
223	static int first;
224	int i;
225	wchar_t *cp;
226	char lastomit;
227	int l, w;
228
229	l = ol;
230	lastomit = 0;
231	if (l > 266)
232		l = 266;
233	else
234		l |= 1;
235	for (i = first | 1; i < l; i++) {
236		move(i, i - 1);
237		move(i, i + 1);
238	}
239	for (i = first; i < l; i++) {
240		cp = page[i];
241		if (printall == 0 && lastomit == 0 && *cp == 0) {
242			lastomit = 1;
243			continue;
244		}
245		lastomit = 0;
246		while (*cp != L'\0') {
247			if ((w = wcwidth(*cp)) > 0) {
248				putwchar(*cp);
249				cp += w;
250			} else
251				cp++;
252		}
253		putwchar(L'\n');
254	}
255	wmemcpy(page[0], page[ol], (267 - ol) * 132);
256	wmemset(page[267- ol], L'\0', ol * 132);
257	outline -= ol;
258	outcol = 0;
259	first = 1;
260}
261
262static void
263move(int l, int m)
264{
265	wchar_t *cp, *dp;
266
267	for (cp = page[l], dp = page[m]; *cp; cp++, dp++) {
268		switch (*cp) {
269			case '|':
270				if (*dp != ' ' && *dp != '|' && *dp != 0)
271					return;
272				break;
273			case ' ':
274				break;
275			default:
276				return;
277		}
278	}
279	if (*cp == 0) {
280		for (cp = page[l], dp = page[m]; *cp; cp++, dp++)
281			if (*cp == '|')
282				*dp = '|';
283			else if (*dp == 0)
284				*dp = ' ';
285		page[l][0] = 0;
286	}
287}
288