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