tools/llvm: Do not build with symbols
[minix3.git] / usr.bin / vis / vis.c
blob1509c81c41231e1adfb2831353f0f56d35ab1694
1 /* $NetBSD: vis.c,v 1.22 2013/02/20 17:04:45 christos Exp $ */
3 /*-
4 * Copyright (c) 1989, 1993
5 * The Regents of the University of California. All rights reserved.
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.
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.
32 #include <sys/cdefs.h>
33 #ifndef lint
34 __COPYRIGHT("@(#) Copyright (c) 1989, 1993\
35 The Regents of the University of California. All rights reserved.");
36 #endif /* not lint */
38 #ifndef lint
39 #if 0
40 static char sccsid[] = "@(#)vis.c 8.1 (Berkeley) 6/6/93";
41 #endif
42 __RCSID("$NetBSD: vis.c,v 1.22 2013/02/20 17:04:45 christos Exp $");
43 #endif /* not lint */
45 #include <stdio.h>
46 #include <string.h>
47 #include <stdlib.h>
48 #include <string.h>
49 #include <errno.h>
50 #include <wchar.h>
51 #include <limits.h>
52 #include <unistd.h>
53 #include <err.h>
54 #include <vis.h>
56 #include "extern.h"
58 static int eflags, fold, foldwidth = 80, none, markeol;
59 #ifdef DEBUG
60 int debug;
61 #endif
62 static const char *extra = "";
64 static void process(FILE *);
66 int
67 main(int argc, char *argv[])
69 FILE *fp;
70 int ch;
71 int rval;
73 while ((ch = getopt(argc, argv, "bcde:F:fhlmnostw")) != -1)
74 switch((char)ch) {
75 case 'b':
76 eflags |= VIS_NOSLASH;
77 break;
78 case 'c':
79 eflags |= VIS_CSTYLE;
80 break;
81 #ifdef DEBUG
82 case 'd':
83 debug++;
84 break;
85 #endif
86 case 'e':
87 extra = optarg;
88 break;
89 case 'F':
90 if ((foldwidth = atoi(optarg)) < 5) {
91 errx(1, "can't fold lines to less than 5 cols");
92 /* NOTREACHED */
94 markeol++;
95 break;
96 case 'f':
97 fold++; /* fold output lines to 80 cols */
98 break; /* using hidden newline */
99 case 'h':
100 eflags |= VIS_HTTPSTYLE;
101 break;
102 case 'l':
103 markeol++; /* mark end of line with \$ */
104 break;
105 case 'm':
106 eflags |= VIS_MIMESTYLE;
107 if (foldwidth == 80)
108 foldwidth = 76;
109 break;
110 case 'n':
111 none++;
112 break;
113 case 'o':
114 eflags |= VIS_OCTAL;
115 break;
116 case 's':
117 eflags |= VIS_SAFE;
118 break;
119 case 't':
120 eflags |= VIS_TAB;
121 break;
122 case 'w':
123 eflags |= VIS_WHITE;
124 break;
125 case '?':
126 default:
127 (void)fprintf(stderr,
128 "Usage: %s [-bcfhlmnostw] [-e extra]"
129 " [-F foldwidth] [file ...]\n", getprogname());
130 return 1;
133 if ((eflags & (VIS_HTTPSTYLE|VIS_MIMESTYLE)) ==
134 (VIS_HTTPSTYLE|VIS_MIMESTYLE))
135 errx(1, "Can't specify -m and -h at the same time");
137 argc -= optind;
138 argv += optind;
140 rval = 0;
142 if (*argv)
143 while (*argv) {
144 if ((fp = fopen(*argv, "r")) != NULL) {
145 process(fp);
146 (void)fclose(fp);
147 } else {
148 warn("%s", *argv);
149 rval = 1;
151 argv++;
153 else
154 process(stdin);
155 return rval;
158 static void
159 process(FILE *fp)
161 static int col = 0;
162 static char nul[] = "\0";
163 char *cp = nul + 1; /* so *(cp-1) starts out != '\n' */
164 wint_t c, c1, rachar;
165 char mbibuff[2 * MB_LEN_MAX + 1]; /* max space for 2 wchars */
166 char buff[4 * MB_LEN_MAX + 1]; /* max encoding length for one char */
167 int mbilen, cerr = 0, raerr = 0;
170 * The input stream is considered to be multibyte characters.
171 * The input loop will read this data inputing one character,
172 * possibly multiple bytes, at a time and converting each to
173 * a wide character wchar_t.
175 * The vis(3) functions, however, require single either bytes
176 * or a multibyte string as their arguments. So we convert
177 * our input wchar_t and the following look-ahead wchar_t to
178 * a multibyte string for processing by vis(3).
181 /* Read one multibyte character, store as wchar_t */
182 c = getwc(fp);
183 if (c == WEOF && errno == EILSEQ) {
184 /* Error in multibyte data. Read one byte. */
185 c = (wint_t)getc(fp);
186 cerr = 1;
188 while (c != WEOF) {
189 /* Clear multibyte input buffer. */
190 memset(mbibuff, 0, sizeof(mbibuff));
191 /* Read-ahead next multibyte character. */
192 if (!cerr)
193 rachar = getwc(fp);
194 if (cerr || (rachar == WEOF && errno == EILSEQ)) {
195 /* Error in multibyte data. Read one byte. */
196 rachar = (wint_t)getc(fp);
197 raerr = 1;
199 if (none) {
200 /* Handle -n flag. */
201 cp = buff;
202 *cp++ = c;
203 if (c == '\\')
204 *cp++ = '\\';
205 *cp = '\0';
206 } else if (markeol && c == '\n') {
207 /* Handle -l flag. */
208 cp = buff;
209 if ((eflags & VIS_NOSLASH) == 0)
210 *cp++ = '\\';
211 *cp++ = '$';
212 *cp++ = '\n';
213 *cp = '\0';
214 } else {
216 * Convert character using vis(3) library.
217 * At this point we will process one character.
218 * But we must pass the vis(3) library this
219 * character plus the next one because the next
220 * one is used as a look-ahead to decide how to
221 * encode this one under certain circumstances.
223 * Since our characters may be multibyte, e.g.,
224 * in the UTF-8 locale, we cannot use vis() and
225 * svis() which require byte input, so we must
226 * create a multibyte string and use strvisx().
228 /* Treat EOF as a NUL char. */
229 c1 = rachar;
230 if (c1 == WEOF)
231 c1 = L'\0';
233 * If we hit a multibyte conversion error above,
234 * insert byte directly into string buff because
235 * wctomb() will fail. Else convert wchar_t to
236 * multibyte using wctomb().
238 if (cerr) {
239 *mbibuff = (char)c;
240 mbilen = 1;
241 } else
242 mbilen = wctomb(mbibuff, c);
243 /* Same for look-ahead character. */
244 if (raerr)
245 mbibuff[mbilen] = (char)c1;
246 else
247 wctomb(mbibuff + mbilen, c1);
248 /* Perform encoding on just first character. */
249 (void) strsenvisx(buff, 4 * MB_LEN_MAX, mbibuff,
250 1, eflags, extra, &cerr);
253 cp = buff;
254 if (fold) {
255 #ifdef DEBUG
256 if (debug)
257 (void)printf("<%02d,", col);
258 #endif
259 col = foldit(cp, col, foldwidth, eflags);
260 #ifdef DEBUG
261 if (debug)
262 (void)printf("%02d>", col);
263 #endif
265 do {
266 (void)putchar(*cp);
267 } while (*++cp);
268 c = rachar;
269 cerr = raerr;
272 * terminate partial line with a hidden newline
274 if (fold && *(cp - 1) != '\n')
275 (void)printf(eflags & VIS_MIMESTYLE ? "=\n" : "\\\n");