lpf.c revision 1553 
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 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
41static char sccsid[] = "@(#)lpf.c	8.1 (Berkeley) 6/6/93";
42#endif /* not lint */
43
44/*
45 * 	filter which reads the output of nroff and converts lines
46 *	with ^H's to overwritten lines.  Thus this works like 'ul'
47 *	but is much better: it can handle more than 2 overwrites
48 *	and it is written with some style.
49 *	modified by kls to use register references instead of arrays
50 *	to try to gain a little speed.
51 */
52
53#include <signal.h>
54#include <unistd.h>
55#include <stdlib.h>
56#include <stdio.h>
57
58#define MAXWIDTH  132
59#define MAXREP    10
60
61char	buf[MAXREP][MAXWIDTH];
62int	maxcol[MAXREP] = {-1};
63int	lineno;
64int	width = 132;	/* default line length */
65int	length = 66;	/* page length */
66int	indent;		/* indentation length */
67int	npages = 1;
68int	literal;	/* print control characters */
69char	*name;		/* user's login name */
70char	*host;		/* user's machine name */
71char	*acctfile;	/* accounting information file */
72
73int
74main(argc, argv)
75	int argc;
76	char *argv[];
77{
78	register FILE *p = stdin, *o = stdout;
79	register int i, col;
80	register char *cp;
81	int done, linedone, maxrep;
82	char ch, *limit;
83
84	while (--argc) {
85		if (*(cp = *++argv) == '-') {
86			switch (cp[1]) {
87			case 'n':
88				argc--;
89				name = *++argv;
90				break;
91
92			case 'h':
93				argc--;
94				host = *++argv;
95				break;
96
97			case 'w':
98				if ((i = atoi(&cp[2])) > 0 && i <= MAXWIDTH)
99					width = i;
100				break;
101
102			case 'l':
103				length = atoi(&cp[2]);
104				break;
105
106			case 'i':
107				indent = atoi(&cp[2]);
108				break;
109
110			case 'c':	/* Print control chars */
111				literal++;
112				break;
113			}
114		} else
115			acctfile = cp;
116	}
117
118	for (cp = buf[0], limit = buf[MAXREP]; cp < limit; *cp++ = ' ');
119	done = 0;
120
121	while (!done) {
122		col = indent;
123		maxrep = -1;
124		linedone = 0;
125		while (!linedone) {
126			switch (ch = getc(p)) {
127			case EOF:
128				linedone = done = 1;
129				ch = '\n';
130				break;
131
132			case '\f':
133				lineno = length;
134			case '\n':
135				if (maxrep < 0)
136					maxrep = 0;
137				linedone = 1;
138				break;
139
140			case '\b':
141				if (--col < indent)
142					col = indent;
143				break;
144
145			case '\r':
146				col = indent;
147				break;
148
149			case '\t':
150				col = ((col - indent) | 07) + indent + 1;
151				break;
152
153			case '\031':
154				/*
155				 * lpd needs to use a different filter to
156				 * print data so stop what we are doing and
157				 * wait for lpd to restart us.
158				 */
159				if ((ch = getchar()) == '\1') {
160					fflush(stdout);
161					kill(getpid(), SIGSTOP);
162					break;
163				} else {
164					ungetc(ch, stdin);
165					ch = '\031';
166				}
167
168			default:
169				if (col >= width || !literal && ch < ' ') {
170					col++;
171					break;
172				}
173				cp = &buf[0][col];
174				for (i = 0; i < MAXREP; i++) {
175					if (i > maxrep)
176						maxrep = i;
177					if (*cp == ' ') {
178						*cp = ch;
179						if (col > maxcol[i])
180							maxcol[i] = col;
181						break;
182					}
183					cp += MAXWIDTH;
184				}
185				col++;
186				break;
187			}
188		}
189
190		/* print out lines */
191		for (i = 0; i <= maxrep; i++) {
192			for (cp = buf[i], limit = cp+maxcol[i]; cp <= limit;) {
193				putc(*cp, o);
194				*cp++ = ' ';
195			}
196			if (i < maxrep)
197				putc('\r', o);
198			else
199				putc(ch, o);
200			if (++lineno >= length) {
201				fflush(o);
202				npages++;
203				lineno = 0;
204			}
205			maxcol[i] = -1;
206		}
207	}
208	if (lineno) {		/* be sure to end on a page boundary */
209		putchar('\f');
210		npages++;
211	}
212	if (name && acctfile && access(acctfile, 02) >= 0 &&
213	    freopen(acctfile, "a", stdout) != NULL) {
214		printf("%7.2f\t%s:%s\n", (float)npages, host, name);
215	}
216	exit(0);
217}
218