1 /* $NetBSD: nl.c,v 1.15 2020/12/31 04:07:37 ginsbach Exp $ */
2
3 /*-
4 * Copyright (c) 1999 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Klaus Klein.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32 #include <sys/cdefs.h>
33 #ifndef lint
34 __COPYRIGHT("@(#) Copyright (c) 1999\
35 The NetBSD Foundation, Inc. All rights reserved.");
36 __RCSID("$NetBSD: nl.c,v 1.15 2020/12/31 04:07:37 ginsbach Exp $");
37 #endif
38
39 #include <errno.h>
40 #include <limits.h>
41 #include <locale.h>
42 #include <regex.h>
43 #include <stdio.h>
44 #include <stdlib.h>
45 #include <string.h>
46 #include <unistd.h>
47 #include <err.h>
48
49 typedef enum {
50 number_all, /* number all lines */
51 number_nonempty, /* number non-empty lines */
52 number_none, /* no line numbering */
53 number_regex /* number lines matching regular expression */
54 } numbering_type;
55
56 struct numbering_property {
57 const char * const name; /* for diagnostics */
58 numbering_type type; /* numbering type */
59 regex_t expr; /* for type == number_regex */
60 };
61
62 /* line numbering formats */
63 #define FORMAT_LN "%-*d" /* left justified, leading zeros suppressed */
64 #define FORMAT_RN "%*d" /* right justified, leading zeros suppressed */
65 #define FORMAT_RZ "%0*d" /* right justified, leading zeros kept */
66
67 #define FOOTER 0
68 #define BODY 1
69 #define HEADER 2
70 #define NP_LAST HEADER
71
72 static struct numbering_property numbering_properties[NP_LAST + 1] = {
73 { "footer", number_none, { 0, 0, 0, 0 } },
74 { "body", number_nonempty, { 0, 0, 0, 0 } },
75 { "header", number_none, { 0, 0, 0, 0 } },
76 };
77
78 #define max(a, b) ((a) > (b) ? (a) : (b))
79
80 /*
81 * Maximum number of characters required for a decimal representation of a
82 * (signed) int; courtesy of tzcode.
83 */
84 #define INT_STRLEN_MAXIMUM \
85 ((sizeof (int) * CHAR_BIT - 1) * 302 / 1000 + 2)
86
87 static void filter(void);
88 static void parse_numbering(const char *, int);
89 static void usage(void) __attribute__((__noreturn__));
90
91 /*
92 * Pointer to dynamically allocated input line buffer, and its size.
93 */
94 static char *buffer;
95 static size_t buffersize;
96
97 /*
98 * Dynamically allocated buffer suitable for string representation of ints.
99 */
100 static char *intbuffer;
101 static size_t intbuffersize;
102
103 /*
104 * Configurable parameters.
105 */
106 /* delimiter characters that indicate the start of a logical page section */
107 static char delim[2] = { '\\', ':' };
108
109 /* line numbering format */
110 static const char *format = FORMAT_RN;
111
112 /* increment value used to number logical page lines */
113 static int incr = 1;
114
115 /* number of adjacent blank lines to be considered (and numbered) as one */
116 static unsigned int nblank = 1;
117
118 /* whether to restart numbering at logical page delimiters */
119 static int restart = 1;
120
121 /* characters used in separating the line number and the corrsp. text line */
122 static const char *sep = "\t";
123
124 /* initial value used to number logical page lines */
125 static int startnum = 1;
126
127 /* number of characters to be used for the line number */
128 /* should be unsigned but required signed by `*' precision conversion */
129 static int width = 6;
130
131
132 int
main(int argc,char * argv[])133 main(int argc, char *argv[])
134 {
135 int c;
136 long val;
137 unsigned long uval;
138 char *ep;
139
140 (void)setlocale(LC_ALL, "");
141
142 /*
143 * Note: this implementation strictly conforms to the XBD Utility
144 * Syntax Guidelines and does not permit the optional `file' operand
145 * to be intermingled with the options, which is defined in the
146 * XCU specification (Issue 5) but declared an obsolescent feature that
147 * will be removed from a future issue. It shouldn't matter, though.
148 */
149 while ((c = getopt(argc, argv, "pb:d:f:h:i:l:n:s:v:w:")) != -1) {
150 switch (c) {
151 case 'p':
152 restart = 0;
153 break;
154 case 'b':
155 parse_numbering(optarg, BODY);
156 break;
157 case 'd':
158 if (optarg[0] != '\0')
159 delim[0] = optarg[0];
160 if (optarg[1] != '\0') {
161 delim[1] = optarg[1];
162 /* at most two delimiter characters */
163 if (optarg[2] != '\0') {
164 errx(EXIT_FAILURE,
165 "invalid delim argument -- %s",
166 optarg);
167 /* NOTREACHED */
168 }
169 }
170 break;
171 case 'f':
172 parse_numbering(optarg, FOOTER);
173 break;
174 case 'h':
175 parse_numbering(optarg, HEADER);
176 break;
177 case 'i':
178 errno = 0;
179 val = strtol(optarg, &ep, 10);
180 if ((ep != NULL && *ep != '\0') ||
181 ((val == LONG_MIN || val == LONG_MAX) && errno != 0))
182 errx(EXIT_FAILURE,
183 "invalid incr argument -- %s", optarg);
184 incr = (int)val;
185 break;
186 case 'l':
187 errno = 0;
188 uval = strtoul(optarg, &ep, 10);
189 if ((ep != NULL && *ep != '\0') ||
190 (uval == ULONG_MAX && errno != 0))
191 errx(EXIT_FAILURE,
192 "invalid num argument -- %s", optarg);
193 nblank = (unsigned int)uval;
194 break;
195 case 'n':
196 if (strcmp(optarg, "ln") == 0) {
197 format = FORMAT_LN;
198 } else if (strcmp(optarg, "rn") == 0) {
199 format = FORMAT_RN;
200 } else if (strcmp(optarg, "rz") == 0) {
201 format = FORMAT_RZ;
202 } else
203 errx(EXIT_FAILURE,
204 "illegal format -- %s", optarg);
205 break;
206 case 's':
207 sep = optarg;
208 break;
209 case 'v':
210 errno = 0;
211 val = strtol(optarg, &ep, 10);
212 if ((ep != NULL && *ep != '\0') ||
213 ((val == LONG_MIN || val == LONG_MAX) && errno != 0))
214 errx(EXIT_FAILURE,
215 "invalid startnum value -- %s", optarg);
216 startnum = (int)val;
217 break;
218 case 'w':
219 errno = 0;
220 val = strtol(optarg, &ep, 10);
221 if ((ep != NULL && *ep != '\0') ||
222 ((val == LONG_MIN || val == LONG_MAX) && errno != 0))
223 errx(EXIT_FAILURE,
224 "invalid width value -- %s", optarg);
225 width = (int)val;
226 if (!(width > 0))
227 errx(EXIT_FAILURE,
228 "width argument must be > 0 -- %d",
229 width);
230 break;
231 case '?':
232 default:
233 usage();
234 /* NOTREACHED */
235 }
236 }
237 argc -= optind;
238 argv += optind;
239
240 switch (argc) {
241 case 0:
242 break;
243 case 1:
244 if (strcmp(argv[0], "-") != 0 &&
245 freopen(argv[0], "r", stdin) == NULL)
246 err(EXIT_FAILURE, "Cannot open `%s'", argv[0]);
247 break;
248 default:
249 usage();
250 /* NOTREACHED */
251 }
252
253 /* Determine the maximum input line length to operate on. */
254 if ((val = sysconf(_SC_LINE_MAX)) == -1) /* ignore errno */
255 val = LINE_MAX;
256 /* Allocate sufficient buffer space (including the terminating NUL). */
257 buffersize = (size_t)val + 1;
258 if ((buffer = malloc(buffersize)) == NULL)
259 err(EXIT_FAILURE, "Cannot allocate input line buffer");
260
261 /* Allocate a buffer suitable for preformatting line number. */
262 intbuffersize = max((int)INT_STRLEN_MAXIMUM, width) + 1; /* NUL */
263 if ((intbuffer = malloc(intbuffersize)) == NULL)
264 err(EXIT_FAILURE, "cannot allocate preformatting buffer");
265
266 /* Do the work. */
267 filter();
268
269 return EXIT_SUCCESS;
270 /* NOTREACHED */
271 }
272
273 static void
filter(void)274 filter(void)
275 {
276 int line; /* logical line number */
277 int section; /* logical page section */
278 unsigned int adjblank; /* adjacent blank lines */
279 int consumed; /* intbuffer measurement */
280 int donumber, idx;
281
282 adjblank = 0;
283 line = startnum;
284 section = BODY;
285 #ifdef __GNUC__
286 donumber = 0; /* avoid bogus `uninitialized' warning */
287 #endif
288
289 while (fgets(buffer, (int)buffersize, stdin) != NULL) {
290 for (idx = FOOTER; idx <= NP_LAST; idx++) {
291 /* Does it look like a delimiter? */
292 if (buffer[2 * idx + 0] == delim[0] &&
293 buffer[2 * idx + 1] == delim[1]) {
294 /* Was this the whole line? */
295 if (buffer[2 * idx + 2] == '\n') {
296 section = idx;
297 adjblank = 0;
298 if (restart)
299 line = startnum;
300 goto nextline;
301 }
302 } else {
303 break;
304 }
305 }
306
307 switch (numbering_properties[section].type) {
308 case number_all:
309 /*
310 * Doing this for number_all only is disputable, but
311 * the standard expresses an explicit dependency on
312 * `-b a' etc.
313 */
314 if (buffer[0] == '\n' && ++adjblank < nblank)
315 donumber = 0;
316 else
317 donumber = 1, adjblank = 0;
318 break;
319 case number_nonempty:
320 donumber = (buffer[0] != '\n');
321 break;
322 case number_none:
323 donumber = 0;
324 break;
325 case number_regex:
326 donumber =
327 (regexec(&numbering_properties[section].expr,
328 buffer, 0, NULL, 0) == 0);
329 break;
330 }
331
332 if (donumber) {
333 consumed = snprintf(intbuffer, intbuffersize, format,
334 width, line);
335 (void)printf("%s%s",
336 intbuffer + max(0, consumed - width), sep);
337 line += incr;
338 } else {
339 (void)printf("%*s%*s", width, "", (int)strlen(sep), "");
340 }
341 (void)printf("%s", buffer);
342
343 if (ferror(stdout))
344 err(EXIT_FAILURE, "output error");
345 nextline:
346 ;
347 }
348
349 if (ferror(stdin))
350 err(EXIT_FAILURE, "input error");
351 }
352
353 /*
354 * Various support functions.
355 */
356
357 static void
parse_numbering(const char * argstr,int section)358 parse_numbering(const char *argstr, int section)
359 {
360 int error;
361 char errorbuf[NL_TEXTMAX];
362
363 switch (argstr[0]) {
364 case 'a':
365 numbering_properties[section].type = number_all;
366 break;
367 case 'n':
368 numbering_properties[section].type = number_none;
369 break;
370 case 't':
371 numbering_properties[section].type = number_nonempty;
372 break;
373 case 'p':
374 /* If there was a previous expression, throw it away. */
375 if (numbering_properties[section].type == number_regex)
376 regfree(&numbering_properties[section].expr);
377 else
378 numbering_properties[section].type = number_regex;
379
380 /* Compile/validate the supplied regular expression. */
381 if ((error = regcomp(&numbering_properties[section].expr,
382 &argstr[1], REG_NEWLINE|REG_NOSUB)) != 0) {
383 (void)regerror(error,
384 &numbering_properties[section].expr,
385 errorbuf, sizeof (errorbuf));
386 errx(EXIT_FAILURE,
387 "%s expr: %s -- %s",
388 numbering_properties[section].name, errorbuf,
389 &argstr[1]);
390 }
391 break;
392 default:
393 errx(EXIT_FAILURE,
394 "illegal %s line numbering type -- %s",
395 numbering_properties[section].name, argstr);
396 }
397 }
398
399 static void
usage(void)400 usage(void)
401 {
402 (void)fprintf(stderr, "Usage: %s [-p] [-b type] [-d delim] [-f type] "
403 "[-h type] [-i incr] [-l num]\n\t[-n format] [-s sep] "
404 "[-v startnum] [-w width] [file]\n", getprogname());
405 exit(EXIT_FAILURE);
406 }
407