Home | History | Annotate | Line # | Download | only in filters 
      1 /*	$NetBSD: lpf.c,v 1.15 2019/02/03 03:19:30 mrg 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.15 2019/02/03 03:19:30 mrg 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 static char	buf[MAXREP][MAXWIDTH];
     61 static int	maxcol[MAXREP] = {-1};
     62 static int	lineno;
     63 static int	width = 132;	/* default line length */
     64 static int	length = 66;	/* page length */
     65 static int	indent;		/* indentation length */
     66 static int	npages = 1;
     67 static int	literal;	/* print control characters */
     68 static char	*name;		/* user's login name */
     69 static char	*host;		/* user's machine name */
     70 static char	*acctfile;	/* accounting information file */
     71 static int	crnl;		/* \n -> \r\n */
     72 static int	need_cr;
     73 
     74 __dead static void usage(void);
     75 
     76 int
     77 main(int argc, char *argv[])
     78 {
     79 	FILE *p = stdin, *o = stdout;
     80 	int i, col;
     81 	char *cp;
     82 	int done, linedone, maxrep, ch, prch;
     83 	char *limit;
     84 
     85         while ((ch = getopt(argc, argv, "cfh:i:j:l:n:w:")) != -1)
     86 		switch (ch) {
     87 		case 'n':
     88 			name = optarg;
     89 			break;
     90 		case 'h':
     91 			host = optarg;
     92 			break;
     93 		case 'w':
     94 			if ((i = atoi(optarg)) > 0 && i <= MAXWIDTH)
     95 				width = i;
     96 			break;
     97 		case 'l':
     98 			length = atoi(optarg);
     99 			break;
    100 		case 'i':
    101 			indent = atoi(optarg);
    102 			break;
    103 		case 'c':	/* Print control chars */
    104 			literal++;
    105 			break;
    106 		case 'f':	/* Fix missing carriage returns */
    107 			crnl++;
    108 			break;
    109 		case 'j':	/* ignore job name */
    110 			break;
    111 		default:
    112 			usage();
    113 		}
    114 	argc -= optind;
    115 	argv += optind;
    116 	if (argc)
    117 		acctfile = *argv;
    118 
    119 	memset(buf, ' ',  sizeof(buf));
    120 	done = 0;
    121 
    122 	while (!done) {
    123 		col = indent;
    124 		maxrep = -1;
    125 		linedone = 0;
    126 		prch = ch = 0;
    127 		need_cr = 0;
    128 		while (!linedone) {
    129 			prch = ch;
    130 			switch (ch = getc(p)) {
    131 			case EOF:
    132 				linedone = done = 1;
    133 				ch = '\n';
    134 				break;
    135 
    136 			case '\f':
    137 				lineno = length;
    138 				/* FALLTHROUGH */
    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 				/* FALLTHROUGH */
    176 			default:
    177 				if (col >= width || (!literal && ch < ' ')) {
    178 					col++;
    179 					break;
    180 				}
    181 				cp = &buf[0][col];
    182 				for (i = 0; i < MAXREP; i++) {
    183 					if (i > maxrep)
    184 						maxrep = i;
    185 					if (*cp == ' ') {
    186 						*cp = ch;
    187 						if (col > maxcol[i])
    188 							maxcol[i] = col;
    189 						break;
    190 					}
    191 					cp += MAXWIDTH;
    192 				}
    193 				col++;
    194 				break;
    195 			}
    196 		}
    197 
    198 		/* print out lines */
    199 		for (i = 0; i <= maxrep; i++) {
    200 			for (cp = buf[i], limit = cp+maxcol[i]; cp <= limit;) {
    201 				putc(*cp, o);
    202 				*cp++ = ' ';
    203 			}
    204 			if (i < maxrep)
    205 				putc('\r', o);
    206 			else {
    207 				if (need_cr)
    208 					putc('\r', o);
    209 				putc(ch, o);
    210 			}
    211 			if (++lineno >= length) {
    212 				fflush(o);
    213 				npages++;
    214 				lineno = 0;
    215 			}
    216 			maxcol[i] = -1;
    217 		}
    218 	}
    219 	if (lineno) {		/* be sure to end on a page boundary */
    220 		putchar('\f');
    221 		npages++;
    222 	}
    223 	if (name && acctfile && access(acctfile, 02) >= 0 &&
    224 	    freopen(acctfile, "a", stdout) != NULL) {
    225 		printf("%7.2f\t%s:%s\n", (float)npages, host, name);
    226 	}
    227 	exit(0);
    228 }
    229 
    230 static void
    231 usage(void)
    232 {
    233         fprintf(stderr,
    234 	  "usage: lpf [-c] [-f] [-h host] [-i indent] [-l length] [-n name] [-w width] [acctfile]\n");
    235 	exit(1);
    236 
    237 }
    238 
    239