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  * 4. Neither the name of the University nor the names of its contributors
  14  *    may be used to endorse or promote products derived from this software
  15  *    without specific prior written permission.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  18  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  20  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  21  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  22  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  23  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  25  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  26  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  27  * SUCH DAMAGE.
  28  */
  29
  30 #ifndef lint
  31 static const char copyright[] =
  32 "@(#) Copyright (c) 1983, 1993\n\
  33         The Regents of the University of California.  All rights reserved.\n";
  34 #endif /* not lint */
  35
  36 #if 0
  37 #ifndef lint
  38 static char sccsid[] = "@(#)lpf.c       8.1 (Berkeley) 6/6/93";
  39 #endif /* not lint */
  40 #endif
  41
  42 #include "lp.cdefs.h"           /* A cross-platform version of <sys/cdefs.h> */
  43 __FBSDID("$FreeBSD$");
  44
  45 /*
  46  *      filter which reads the output of nroff and converts lines
  47  *      with ^H's to overwritten lines.  Thus this works like 'ul'
  48  *      but is much better: it can handle more than 2 overwrites
  49  *      and it is written with some style.
  50  *      modified by kls to use register references instead of arrays
  51  *      to try to gain a little speed.
  52  */
  53
  54 #include <signal.h>
  55 #include <unistd.h>
  56 #include <stdlib.h>
  57 #include <stdio.h>
  58
  59 #define MAXWIDTH  132
  60 #define MAXREP    10
  61
  62 char    buf[MAXREP][MAXWIDTH];
  63 int     maxcol[MAXREP] = {-1};
  64 int     lineno;
  65 int     width = 132;    /* default line length */
  66 int     length = 66;    /* page length */
  67 int     indent;         /* indentation length */
  68 int     npages = 1;
  69 int     literal;        /* print control characters */
  70 char    *name;          /* user's login name */
  71 char    *host;          /* user's machine name */
  72 char    *acctfile;      /* accounting information file */
  73
  74 int
  75 main(int argc, char *argv[])
  76 {
  77         register FILE *p = stdin, *o = stdout;
  78         register int i, col;
  79         register char *cp;
  80         int done, linedone, maxrep;
  81         char *limit;
  82         int ch;
  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 }