1 /* $NetBSD: lpf.c,v 1.13 2008/07/21 13:36:58 lukem 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.13 2008/07/21 13:36:58 lukem 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 238