usr.sbin/lpr/filters/lpf.c

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