1/*	$NetBSD: lpf.c,v 1.13 2008/07/21 13:36:58 lukem 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
36static char sccsid[] = "@(#)lpf.c	8.1 (Berkeley) 6/6/93";
37#else
38__RCSID("$NetBSD: lpf.c,v 1.13 2008/07/21 13:36:58 lukem 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
60static char	buf[MAXREP][MAXWIDTH];
61static int	maxcol[MAXREP] = {-1};
62static int	lineno;
63static int	width = 132;	/* default line length */
64static int	length = 66;	/* page length */
65static int	indent;		/* indentation length */
66static int	npages = 1;
67static int	literal;	/* print control characters */
68static char	*name;		/* user's login name */
69static char	*host;		/* user's machine name */
70static char	*acctfile;	/* accounting information file */
71static int	crnl;		/* \n -> \r\n */
72static int	need_cr;
73
74__dead static void usage(void);
75
76int
77main(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			case '\n':
139				if (crnl && prch != '\r')
140					need_cr = 1;
141				if (maxrep < 0)
142					maxrep = 0;
143				linedone = 1;
144				break;
145
146			case '\b':
147				if (--col < indent)
148					col = indent;
149				break;
150
151			case '\r':
152				col = indent;
153				break;
154
155			case '\t':
156				col = ((col - indent) | 07) + indent + 1;
157				break;
158
159			case '\031':
160				/*
161				 * lpd needs to use a different filter to
162				 * print data so stop what we are doing and
163				 * wait for lpd to restart us.
164				 */
165				if ((ch = getchar()) == '\1') {
166					fflush(stdout);
167					kill(getpid(), SIGSTOP);
168					break;
169				} else {
170					ungetc(ch, stdin);
171					ch = '\031';
172				}
173
174			default:
175				if (col >= width || (!literal && ch < ' ')) {
176					col++;
177					break;
178				}
179				cp = &buf[0][col];
180				for (i = 0; i < MAXREP; i++) {
181					if (i > maxrep)
182						maxrep = i;
183					if (*cp == ' ') {
184						*cp = ch;
185						if (col > maxcol[i])
186							maxcol[i] = col;
187						break;
188					}
189					cp += MAXWIDTH;
190				}
191				col++;
192				break;
193			}
194		}
195
196		/* print out lines */
197		for (i = 0; i <= maxrep; i++) {
198			for (cp = buf[i], limit = cp+maxcol[i]; cp <= limit;) {
199				putc(*cp, o);
200				*cp++ = ' ';
201			}
202			if (i < maxrep)
203				putc('\r', o);
204			else {
205				if (need_cr)
206					putc('\r', o);
207				putc(ch, o);
208			}
209			if (++lineno >= length) {
210				fflush(o);
211				npages++;
212				lineno = 0;
213			}
214			maxcol[i] = -1;
215		}
216	}
217	if (lineno) {		/* be sure to end on a page boundary */
218		putchar('\f');
219		npages++;
220	}
221	if (name && acctfile && access(acctfile, 02) >= 0 &&
222	    freopen(acctfile, "a", stdout) != NULL) {
223		printf("%7.2f\t%s:%s\n", (float)npages, host, name);
224	}
225	exit(0);
226}
227
228static void
229usage(void)
230{
231        fprintf(stderr,
232	  "usage: lpf [-c] [-f] [-h host] [-i indent] [-l length] [-n name] [-w width] [acctfile]\n");
233	exit(1);
234
235}
236
237