Merge branch 'vendor/LIBPCAP' and updated build for new version.
[dragonfly.git] / usr.bin / colcrt / colcrt.c
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  * @(#) Copyright (c) 1980, 1993 The Regents of the University of California.  All rights reserved.
34  * @(#)colcrt.c 8.1 (Berkeley) 6/6/93
35  * $FreeBSD: src/usr.bin/colcrt/colcrt.c,v 1.5.2.4 2001/08/02 01:29:07 obrien Exp $
36  * $DragonFly: src/usr.bin/colcrt/colcrt.c,v 1.5 2005/08/04 17:31:22 drhodus Exp $
37  */
38
39 #include <err.h>
40 #include <stdio.h>
41 #include <stdlib.h>
42 #include <string.h>
43 #include <unistd.h>
44 /*
45  * colcrt - replaces col for crts with new nroff esp. when using tbl.
46  * Bill Joy UCB July 14, 1977
47  *
48  * This filter uses a screen buffer, 267 half-lines by 132 columns.
49  * It interprets the up and down sequences generated by the new
50  * nroff when used with tbl and by \u \d and \r.
51  * General overstriking doesn't work correctly.
52  * Underlining is split onto multiple lines, etc.
53  *
54  * Option - suppresses all underlining.
55  * Option -2 forces printing of all half lines.
56  */
57
58 char    page[267][132];
59
60 int     outline = 1;
61 int     outcol;
62
63 char    suppresul;
64 char    printall;
65
66 FILE    *f;
67
68 int             main(int, char *[]);
69 static void     move(int, int);
70 static void     pflush(int);
71 static int      plus(char, char);
72 static void     usage(void);
73
74 int
75 main(int argc, char **argv)
76 {
77         int c;
78         char *cp, *dp;
79         int ch;
80
81         while ((ch = getopt(argc, argv, "-2")) != -1)
82                 switch (ch) {
83                 case '-':
84                         suppresul = 1;
85                         break;
86                 case '2':
87                         printall = 1;
88                         break;
89                 default:
90                         usage();
91                 }
92         argc -= optind;
93         argv += optind;
94
95         do {
96                 if (argc > 0) {
97                         close(0);
98                         if (!(f = fopen(argv[0], "r"))) {
99                                 fflush(stdout);
100                                 err(1, "%s", argv[0]);
101                         }
102                         argc--;
103                         argv++;
104                 }
105                 for (;;) {
106                         c = getc(stdin);
107                         if (c == -1) {
108                                 pflush(outline);
109                                 fflush(stdout);
110                                 break;
111                         }
112                         switch (c) {
113                                 case '\n':
114                                         if (outline >= 265)
115                                                 pflush(62);
116                                         outline += 2;
117                                         outcol = 0;
118                                         continue;
119                                 case '\016':
120                                         case '\017':
121                                         continue;
122                                 case 033:
123                                         c = getc(stdin);
124                                         switch (c) {
125                                                 case '9':
126                                                         if (outline >= 266)
127                                                                 pflush(62);
128                                                         outline++;
129                                                         continue;
130                                                 case '8':
131                                                         if (outline >= 1)
132                                                                 outline--;
133                                                         continue;
134                                                 case '7':
135                                                         outline -= 2;
136                                                         if (outline < 0)
137                                                                 outline = 0;
138                                                         continue;
139                                                 default:
140                                                         continue;
141                                         }
142                                 case '\b':
143                                         if (outcol)
144                                                 outcol--;
145                                         continue;
146                                 case '\t':
147                                         outcol += 8;
148                                         outcol &= ~7;
149                                         outcol--;
150                                         c = ' ';
151                                 default:
152                                         if (outcol >= 132) {
153                                                 outcol++;
154                                                 continue;
155                                         }
156                                         cp = &page[outline][outcol];
157                                         outcol++;
158                                         if (c == '_') {
159                                                 if (suppresul)
160                                                         continue;
161                                                 cp += 132;
162                                                 c = '-';
163                                         }
164                                         if (*cp == 0) {
165                                                 *cp = c;
166                                                 dp = cp - outcol;
167                                                 for (cp--; cp >= dp && *cp == 0; cp--)
168                                                         *cp = ' ';
169                                         } else
170                                                 if (plus(c, *cp) || plus(*cp, c))
171                                                         *cp = '+';
172                                                 else if (*cp == ' ' || *cp == 0)
173                                                         *cp = c;
174                                         continue;
175                         }
176                 }
177         } while (argc > 0);
178         fflush(stdout);
179         exit(0);
180 }
181
182 static void
183 usage(void)
184 {
185         fprintf(stderr, "usage: colcrt [-] [-2] [file ...]\n");
186         exit(1);
187 }
188
189 static int
190 plus(char c, char d)
191 {
192
193         return ((c == '|' && d == '-') || d == '_');
194 }
195
196 int first;
197
198 static void
199 pflush(int ol)
200 {
201         int i;
202         char *cp;
203         char lastomit;
204         int l;
205
206         l = ol;
207         lastomit = 0;
208         if (l > 266)
209                 l = 266;
210         else
211                 l |= 1;
212         for (i = first | 1; i < l; i++) {
213                 move(i, i - 1);
214                 move(i, i + 1);
215         }
216         for (i = first; i < l; i++) {
217                 cp = page[i];
218                 if (printall == 0 && lastomit == 0 && *cp == 0) {
219                         lastomit = 1;
220                         continue;
221                 }
222                 lastomit = 0;
223                 printf("%s\n", cp);
224         }
225         bcopy(page[ol], page, (267 - ol) * 132);
226         bzero(page[267- ol], ol * 132);
227         outline -= ol;
228         outcol = 0;
229         first = 1;
230 }
231
232 static void
233 move(int l, int m)
234 {
235         char *cp, *dp;
236
237         for (cp = page[l], dp = page[m]; *cp; cp++, dp++) {
238                 switch (*cp) {
239                         case '|':
240                                 if (*dp != ' ' && *dp != '|' && *dp != 0)
241                                         return;
242                                 break;
243                         case ' ':
244                                 break;
245                         default:
246                                 return;
247                 }
248         }
249         if (*cp == 0) {
250                 for (cp = page[l], dp = page[m]; *cp; cp++, dp++)
251                         if (*cp == '|')
252                                 *dp = '|';
253                         else if (*dp == 0)
254                                 *dp = ' ';
255                 page[l][0] = 0;
256         }
257 }