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