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