X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/fdaeefb78f37bf1e3dce5396513b8f50ee583cfe..5c0abf7f0266f9f08a9c0e711dc0c2d70840421b:/usr/src/usr.sbin/lpr/filters/lpf.c

diff --git a/usr/src/usr.sbin/lpr/filters/lpf.c b/usr/src/usr.sbin/lpr/filters/lpf.c
index 0a023871b6..0149fd1285 100644
--- a/usr/src/usr.sbin/lpr/filters/lpf.c
+++ b/usr/src/usr.sbin/lpr/filters/lpf.c
@@ -1,143 +1,160 @@
-/*	lpf.c	4.4	83/01/05	*/
-/*
- * lpf -- Line printer filter: handles underlines for those printers/
- *	  device drivers that won't
+/*		lpf.c	4.7	83/03/07
+ * 	filter which reads the output of nroff and converts lines
+ *	with ^H's to overwritten lines.  Thus this works like 'ul'
+ *	but is much better: it can handle more than 2 overwrites
+ *	and it is written with some style.
+ *	modified by kls to use register references instead of arrays
+ *	to try to gain a little speed.
  */
-
 #include <stdio.h>
 #include <signal.h>
 
-#define	LINELN	132
-
-char	linebuf[LINELN+2];
-int	ov;
-int	ff;
-char	ovbuf[LINELN];
-
-main()
-{
-	extern char _sobuf[BUFSIZ];
-
-	setbuf(stdout, _sobuf);
-	while (getline())
-		putline();
-	fflush(stdout);
-	if (ferror(stdout))
-		exit(1);
-	exit(0);
-}
-
-getline()
+#define MAXWIDTH  132
+#define MAXREP    10
+
+char	buf[MAXREP][MAXWIDTH];
+int	maxcol[MAXREP] = {-1};
+int	lineno;
+int	width = 132;	/* default line length */
+int	length = 66;	/* page length */
+int	npages = 1;
+int	literal;	/* print control characters */
+char	*name;		/* user's login name */
+char	*host;		/* user's machine name */
+char	*acctfile;	/* accounting information file */
+
+main(argc, argv)
+int argc;
+char *argv[];
 {
-	register int col, maxcol, c;
-
-	ov = 0;
-	for (col = 0; col < LINELN; col++) {
-		linebuf[col] = ' ';
-		ovbuf[col] = 0;
-	}
-	col = 0;
-	maxcol = 0;
-	for (;;) switch (c = getchar()) {
-
-	case EOF:
-		return(0);
-
-	default:
-		if (c >= ' ') {
-			if (col < LINELN) {
-				if (linebuf[col] != ' ') {
-					ov++;
-					ovbuf[col] = c;
-				} else
-					linebuf[col] = c;
-				if (++col > maxcol)
-					maxcol = col;
+	register FILE *p = stdin, *o = stdout;
+	register int i, col;
+	register char *cp;
+	int done, linedone, maxrep;
+	char ch, *limit;
+
+	while (--argc) {
+		if (*(cp = *++argv) == '-') {
+			switch (cp[1]) {
+			case 'n':
+				argc--;
+				name = *++argv;
+				break;
+
+			case 'h':
+				argc--;
+				host = *++argv;
+				break;
+
+			case 'w':
+				if ((i = atoi(&cp[2])) > 0 && i <= MAXWIDTH)
+					width = i;
+				break;
+
+			case 'l':
+				length = atoi(&cp[2]);
+				break;
+
+			case 'c':	/* Print control chars */
+				literal++;
+				break;
 			}
-		}
-		continue;
-
-	case ' ':
-		col++;
-		continue;
-
-	case '\t':
-		col = (col|07) + 1;
-		if (col > maxcol)
-			maxcol = col;
-		continue;
+		} else
+			acctfile = cp;
+	}
 
-	case '\r':
+	for (cp = buf[0], limit = buf[MAXREP]; cp < limit; *cp++ = ' ');
+	done = 0;
+	
+	while (!done) {
 		col = 0;
-		continue;
-
-	case '\f':
-		ff = 1;		/* force form feed */
-	case '\n':
-		if (maxcol >= LINELN)
-			maxcol = LINELN;
-		linebuf[maxcol] = 0;
-		return(1);
-
-	case '\b':
-		if (col > 0)
-			col--;
-		continue;
-	}
-}
+		maxrep = 0;
+		linedone = 0;
+		while (!linedone) {
+			switch (ch = getc(p)) {
+			case EOF:
+				linedone = done = 1;
+				ch = '\n';
+				break;
+
+			case '\f':
+				lineno = length;
+			case '\n':
+				if (++lineno >= length) {
+					npages++;
+					lineno = 0;
+				}
+				linedone = 1;
+				break;
+
+			case '\b':
+				if (col-- < 0)
+					col = 0;
+				break;
+
+			case '\r':
+				col = 0;
+				break;
+
+			case '\t':
+				col = (col | 07) + 1;
+				break;
+
+			case '\031':
+				/*
+				 * lpd needs to use a different filter to
+				 * print data so stop what we are doing and
+				 * wait for lpd to restart us.
+				 */
+				if ((ch = getchar()) == '\1') {
+					fflush(stdout);
+					kill(getpid(), SIGSTOP);
+					break;
+				} else {
+					ungetc(ch, stdin);
+					ch = '\031';
+				}
+
+			default:
+				if (col >= width || !literal && ch < ' ')
+					break;
+				cp = &buf[0][col];
+				for (i = 0; i < MAXREP; i++) {
+					if (i > maxrep)
+						maxrep = i;
+					if (*cp == ' ') {
+						*cp = ch;
+						if (col > maxcol[i])
+							maxcol[i] = col;
+						break;
+					}
+					cp += MAXWIDTH;
+				}
+				col++;
+				break;
+			}
+		}
 
-putline()
-{
-	register char c, *lp;
-
-	lp = linebuf;
-	while (c = *lp++)
-		output(c);
-	if (ov) {
-		putchar('\r');
-		lp = ovbuf;
-		while (ov) {
-			if (c = *lp++) {
-				output(c);
-				ov--;
-			} else
-				output(' ');
+		/* print out lines */
+		for (i = 0; i <= maxrep; i++) {
+			for (cp = buf[i], limit = cp+maxcol[i]; cp <= limit;) {
+				putc(*cp, o);
+				*cp++ = ' ';
+			}
+			if (i < maxrep)
+				putc('\r', o);
+			else
+				putc(ch, o);
+			maxcol[i] = -1;
 		}
 	}
-	putchar('\n');
-	if (ff) {
-		ff = 0;
+	if (lineno) {		/* be sure to end on a page boundary */
 		putchar('\f');
+		npages++;
 	}
-	if (ferror(stdout))
-		exit(1);
-}
-
-output(c)
-register char c;
-{
-
-	if (c == -1)
-		return;
-	c &= 0177;
-	if (c == 0177)
-		putchar('^'), c = '?';
-	if (c == 033)
-		c = '$';
-	if (c < ' ') switch (c) {
-
-	case '\n':
-		break;
-
-	case '\f':
-	case '\b':
-	case '\t':
-	case '\r':
-		break;
-
-	default:
-		putchar('^');
-		c |= 0100;
+	if (name && acctfile && access(acctfile, 02) >= 0 &&
+	    freopen(acctfile, "a", stdout) != NULL) {
+		printf("%7.2f\t%s:%s\n", (float)npages, host, name);
 	}
-	putchar(c);
+	exit(0);
 }