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