1 /* $NetBSD: lpf.c,v 1.15 2019/02/03 03:19:30 mrg Exp $ */
2 /*
3 * Copyright (c) 1983, 1993
4 * The Regents of the University of California. All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 * 3. Neither the name of the University nor the names of its contributors
15 * may be used to endorse or promote products derived from this software
16 * without specific prior written permission.
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
19 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
22 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 * SUCH DAMAGE.
29 */
30
31 #include <sys/cdefs.h>
32 #ifndef lint
33 __COPYRIGHT("@(#) Copyright (c) 1983, 1993\
34 The Regents of the University of California. All rights reserved.");
35 #if 0
36 static char sccsid[] = "@(#)lpf.c 8.1 (Berkeley) 6/6/93";
37 #else
38 __RCSID("$NetBSD: lpf.c,v 1.15 2019/02/03 03:19:30 mrg Exp $");
39 #endif
40 #endif /* not lint */
41
42 /*
43 * filter which reads the output of nroff and converts lines
44 * with ^H's to overwritten lines. Thus this works like 'ul'
45 * but is much better: it can handle more than 2 overwrites
46 * and it is written with some style.
47 * modified by kls to use register references instead of arrays
48 * to try to gain a little speed.
49 */
50
51 #include <signal.h>
52 #include <string.h>
53 #include <unistd.h>
54 #include <stdlib.h>
55 #include <stdio.h>
56
57 #define MAXWIDTH 132
58 #define MAXREP 10
59
60 static char buf[MAXREP][MAXWIDTH];
61 static int maxcol[MAXREP] = {-1};
62 static int lineno;
63 static int width = 132; /* default line length */
64 static int length = 66; /* page length */
65 static int indent; /* indentation length */
66 static int npages = 1;
67 static int literal; /* print control characters */
68 static char *name; /* user's login name */
69 static char *host; /* user's machine name */
70 static char *acctfile; /* accounting information file */
71 static int crnl; /* \n -> \r\n */
72 static int need_cr;
73
74 __dead static void usage(void);
75
76 int
main(int argc,char * argv[])77 main(int argc, char *argv[])
78 {
79 FILE *p = stdin, *o = stdout;
80 int i, col;
81 char *cp;
82 int done, linedone, maxrep, ch, prch;
83 char *limit;
84
85 while ((ch = getopt(argc, argv, "cfh:i:j:l:n:w:")) != -1)
86 switch (ch) {
87 case 'n':
88 name = optarg;
89 break;
90 case 'h':
91 host = optarg;
92 break;
93 case 'w':
94 if ((i = atoi(optarg)) > 0 && i <= MAXWIDTH)
95 width = i;
96 break;
97 case 'l':
98 length = atoi(optarg);
99 break;
100 case 'i':
101 indent = atoi(optarg);
102 break;
103 case 'c': /* Print control chars */
104 literal++;
105 break;
106 case 'f': /* Fix missing carriage returns */
107 crnl++;
108 break;
109 case 'j': /* ignore job name */
110 break;
111 default:
112 usage();
113 }
114 argc -= optind;
115 argv += optind;
116 if (argc)
117 acctfile = *argv;
118
119 memset(buf, ' ', sizeof(buf));
120 done = 0;
121
122 while (!done) {
123 col = indent;
124 maxrep = -1;
125 linedone = 0;
126 prch = ch = 0;
127 need_cr = 0;
128 while (!linedone) {
129 prch = ch;
130 switch (ch = getc(p)) {
131 case EOF:
132 linedone = done = 1;
133 ch = '\n';
134 break;
135
136 case '\f':
137 lineno = length;
138 /* FALLTHROUGH */
139 case '\n':
140 if (crnl && prch != '\r')
141 need_cr = 1;
142 if (maxrep < 0)
143 maxrep = 0;
144 linedone = 1;
145 break;
146
147 case '\b':
148 if (--col < indent)
149 col = indent;
150 break;
151
152 case '\r':
153 col = indent;
154 break;
155
156 case '\t':
157 col = ((col - indent) | 07) + indent + 1;
158 break;
159
160 case '\031':
161 /*
162 * lpd needs to use a different filter to
163 * print data so stop what we are doing and
164 * wait for lpd to restart us.
165 */
166 if ((ch = getchar()) == '\1') {
167 fflush(stdout);
168 kill(getpid(), SIGSTOP);
169 break;
170 } else {
171 ungetc(ch, stdin);
172 ch = '\031';
173 }
174
175 /* FALLTHROUGH */
176 default:
177 if (col >= width || (!literal && ch < ' ')) {
178 col++;
179 break;
180 }
181 cp = &buf[0][col];
182 for (i = 0; i < MAXREP; i++) {
183 if (i > maxrep)
184 maxrep = i;
185 if (*cp == ' ') {
186 *cp = ch;
187 if (col > maxcol[i])
188 maxcol[i] = col;
189 break;
190 }
191 cp += MAXWIDTH;
192 }
193 col++;
194 break;
195 }
196 }
197
198 /* print out lines */
199 for (i = 0; i <= maxrep; i++) {
200 for (cp = buf[i], limit = cp+maxcol[i]; cp <= limit;) {
201 putc(*cp, o);
202 *cp++ = ' ';
203 }
204 if (i < maxrep)
205 putc('\r', o);
206 else {
207 if (need_cr)
208 putc('\r', o);
209 putc(ch, o);
210 }
211 if (++lineno >= length) {
212 fflush(o);
213 npages++;
214 lineno = 0;
215 }
216 maxcol[i] = -1;
217 }
218 }
219 if (lineno) { /* be sure to end on a page boundary */
220 putchar('\f');
221 npages++;
222 }
223 if (name && acctfile && access(acctfile, 02) >= 0 &&
224 freopen(acctfile, "a", stdout) != NULL) {
225 printf("%7.2f\t%s:%s\n", (float)npages, host, name);
226 }
227 exit(0);
228 }
229
230 static void
usage(void)231 usage(void)
232 {
233 fprintf(stderr,
234 "usage: lpf [-c] [-f] [-h host] [-i indent] [-l length] [-n name] [-w width] [acctfile]\n");
235 exit(1);
236
237 }
238
239