1 /* $NetBSD: lpf.c,v 1.14 2011/08/30 19:27:37 joerg 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.14 2011/08/30 19:27:37 joerg 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 case '\n': 139 if (crnl && prch != '\r') 140 need_cr = 1; 141 if (maxrep < 0) 142 maxrep = 0; 143 linedone = 1; 144 break; 145 146 case '\b': 147 if (--col < indent) 148 col = indent; 149 break; 150 151 case '\r': 152 col = indent; 153 break; 154 155 case '\t': 156 col = ((col - indent) | 07) + indent + 1; 157 break; 158 159 case '\031': 160 /* 161 * lpd needs to use a different filter to 162 * print data so stop what we are doing and 163 * wait for lpd to restart us. 164 */ 165 if ((ch = getchar()) == '\1') { 166 fflush(stdout); 167 kill(getpid(), SIGSTOP); 168 break; 169 } else { 170 ungetc(ch, stdin); 171 ch = '\031'; 172 } 173 174 default: 175 if (col >= width || (!literal && ch < ' ')) { 176 col++; 177 break; 178 } 179 cp = &buf[0][col]; 180 for (i = 0; i < MAXREP; i++) { 181 if (i > maxrep) 182 maxrep = i; 183 if (*cp == ' ') { 184 *cp = ch; 185 if (col > maxcol[i]) 186 maxcol[i] = col; 187 break; 188 } 189 cp += MAXWIDTH; 190 } 191 col++; 192 break; 193 } 194 } 195 196 /* print out lines */ 197 for (i = 0; i <= maxrep; i++) { 198 for (cp = buf[i], limit = cp+maxcol[i]; cp <= limit;) { 199 putc(*cp, o); 200 *cp++ = ' '; 201 } 202 if (i < maxrep) 203 putc('\r', o); 204 else { 205 if (need_cr) 206 putc('\r', o); 207 putc(ch, o); 208 } 209 if (++lineno >= length) { 210 fflush(o); 211 npages++; 212 lineno = 0; 213 } 214 maxcol[i] = -1; 215 } 216 } 217 if (lineno) { /* be sure to end on a page boundary */ 218 putchar('\f'); 219 npages++; 220 } 221 if (name && acctfile && access(acctfile, 02) >= 0 && 222 freopen(acctfile, "a", stdout) != NULL) { 223 printf("%7.2f\t%s:%s\n", (float)npages, host, name); 224 } 225 exit(0); 226 } 227 228 static void 229 usage(void) 230 { 231 fprintf(stderr, 232 "usage: lpf [-c] [-f] [-h host] [-i indent] [-l length] [-n name] [-w width] [acctfile]\n"); 233 exit(1); 234 235 } 236 237