1 /* $NetBSD: lpf.c,v 1.11 2003/08/07 11:25:26 agc 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\n\ 34 The Regents of the University of California. All rights reserved.\n"); 35 #if 0 36 static char sccsid[] = "@(#)lpf.c 8.1 (Berkeley) 6/6/93"; 37 #else 38 __RCSID("$NetBSD: lpf.c,v 1.11 2003/08/07 11:25:26 agc 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: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 default: 111 usage(); 112 } 113 argc -= optind; 114 argv += optind; 115 if (argc) 116 acctfile = *argv; 117 118 memset(buf, ' ', sizeof(buf)); 119 done = 0; 120 121 while (!done) { 122 col = indent; 123 maxrep = -1; 124 linedone = 0; 125 prch = ch = 0; 126 need_cr = 0; 127 while (!linedone) { 128 prch = ch; 129 switch (ch = getc(p)) { 130 case EOF: 131 linedone = done = 1; 132 ch = '\n'; 133 break; 134 135 case '\f': 136 lineno = length; 137 case '\n': 138 if (crnl && prch != '\r') 139 need_cr = 1; 140 if (maxrep < 0) 141 maxrep = 0; 142 linedone = 1; 143 break; 144 145 case '\b': 146 if (--col < indent) 147 col = indent; 148 break; 149 150 case '\r': 151 col = indent; 152 break; 153 154 case '\t': 155 col = ((col - indent) | 07) + indent + 1; 156 break; 157 158 case '\031': 159 /* 160 * lpd needs to use a different filter to 161 * print data so stop what we are doing and 162 * wait for lpd to restart us. 163 */ 164 if ((ch = getchar()) == '\1') { 165 fflush(stdout); 166 kill(getpid(), SIGSTOP); 167 break; 168 } else { 169 ungetc(ch, stdin); 170 ch = '\031'; 171 } 172 173 default: 174 if (col >= width || (!literal && ch < ' ')) { 175 col++; 176 break; 177 } 178 cp = &buf[0][col]; 179 for (i = 0; i < MAXREP; i++) { 180 if (i > maxrep) 181 maxrep = i; 182 if (*cp == ' ') { 183 *cp = ch; 184 if (col > maxcol[i]) 185 maxcol[i] = col; 186 break; 187 } 188 cp += MAXWIDTH; 189 } 190 col++; 191 break; 192 } 193 } 194 195 /* print out lines */ 196 for (i = 0; i <= maxrep; i++) { 197 for (cp = buf[i], limit = cp+maxcol[i]; cp <= limit;) { 198 putc(*cp, o); 199 *cp++ = ' '; 200 } 201 if (i < maxrep) 202 putc('\r', o); 203 else { 204 if (need_cr) 205 putc('\r', o); 206 putc(ch, o); 207 } 208 if (++lineno >= length) { 209 fflush(o); 210 npages++; 211 lineno = 0; 212 } 213 maxcol[i] = -1; 214 } 215 } 216 if (lineno) { /* be sure to end on a page boundary */ 217 putchar('\f'); 218 npages++; 219 } 220 if (name && acctfile && access(acctfile, 02) >= 0 && 221 freopen(acctfile, "a", stdout) != NULL) { 222 printf("%7.2f\t%s:%s\n", (float)npages, host, name); 223 } 224 exit(0); 225 } 226 227 void 228 usage(void) 229 { 230 fprintf(stderr, 231 "usage: lpf [-c] [-f] [-h host] [-i indent] [-l length] [-n name] [-w width] [acctfile]\n"); 232 exit(1); 233 234 } 235 236