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