From: Keith Bostic <bostic@ucbvax.Berkeley.EDU>
Date: Sat, 4 May 1991 07:54:23 +0000 (-0800)
Subject: date and time created 91/05/03 16:54:23 by bostic
X-Git-Tag: BSD-4_4-Snapshot-Development~11083
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/e157cc69420fdb261059b3cd273e2230d3a6341d

date and time created 91/05/03 16:54:23 by bostic

SCCS-vsn: sys/stand.att/printf.c 5.1
---

diff --git a/usr/src/sys/stand.att/printf.c b/usr/src/sys/stand.att/printf.c
new file mode 100644
index 0000000000..336ee2f279
--- /dev/null
+++ b/usr/src/sys/stand.att/printf.c
@@ -0,0 +1,154 @@
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ *
+ *	@(#)printf.c	5.1 (Berkeley) %G%
+ */
+
+#include <sys/param.h>
+
+/*
+ * Scaled down version of C Library printf.
+ *
+ * Used to print diagnostic information directly on the console tty.  Since
+ * it is not interrupt driven, all system activities are suspended.  Printf
+ * should not be used for chit-chat.
+ *
+ * One additional format: %b is supported to decode error registers.
+ * Its usage is:
+ *
+ *	printf("reg=%b\n", regval, "<base><arg>*");
+ *
+ * where <base> is the output base expressed as a control character, e.g.
+ * \10 gives octal; \20 gives hex.  Each arg is a sequence of characters,
+ * the first of which gives the bit number to be inspected (origin 1), and
+ * the next characters (up to a control character, i.e. a character <= 32),
+ * give the name of the register.  Thus:
+ *
+ *	printf("reg=%b\n", 3, "\10\2BITTWO\1BITONE\n");
+ *
+ * would produce output:
+ *
+ *	reg=3<BITTWO,BITONE>
+ */
+
+#if __STDC__
+#include <stdarg.h>
+#else
+#include <varargs.h>
+#endif
+
+static void abort(){}				/* Needed by stdarg macros. */
+static void number();
+
+void
+#if __STDC__
+printf(const char *fmt, ...)
+#else
+printf(fmt, va_alist)
+	char *fmt;
+        va_dcl
+#endif
+{
+	register char *p;
+	register int ch, n;
+	unsigned long _ulong;
+	int lflag, set;
+
+	va_list ap;
+#if __STDC__
+	va_start(ap, fmt);
+#else
+	va_start(ap);
+#endif
+	for (;;) {
+		while ((ch = *fmt++) != '%') {
+			if (ch == '\0')
+				return;
+			putchar(ch);
+		}
+		lflag = 0;
+reswitch:	switch (ch = *fmt++) {
+		case 'l':
+			lflag = 1;
+			goto reswitch;
+		case 'b':
+			_ulong = va_arg(ap, int);
+			p = va_arg(ap, char *);
+			number(_ulong, *p++);
+
+			if (!_ulong)
+				break;
+
+			for (set = 0; n = *p++;) {
+				if (_ulong & (1 << (n - 1))) {
+					putchar(set ? ',' : '<');
+					for (; (n = *p) > ' '; ++p)
+						putchar(n);
+					set = 1;
+				} else
+					for (; *p > ' '; ++p);
+			}
+			if (set)
+				putchar('>');
+			break;
+		case 'c':
+			ch = va_arg(ap, int);
+				putchar(ch & 0x7f);
+			break;
+		case 's':
+			p = va_arg(ap, char *);
+			while (ch = *p++)
+				putchar(ch);
+			break;
+		case 'd':
+			_ulong = lflag ?
+			    va_arg(ap, long) : va_arg(ap, int);
+			if ((long)_ulong < 0) {
+				putchar('-');
+				_ulong = -_ulong;
+			}
+			number(_ulong, 10);
+			break;
+		case 'o':
+			_ulong = lflag ?
+			    va_arg(ap, long) : va_arg(ap, unsigned int);
+			number(_ulong, 8);
+			break;
+		case 'u':
+			_ulong = lflag ?
+			    va_arg(ap, long) : va_arg(ap, unsigned int);
+			number(_ulong, 10);
+			break;
+		case 'x':
+			_ulong = lflag ?
+			    va_arg(ap, long) : va_arg(ap, unsigned int);
+			number(_ulong, 16);
+			break;
+		default:
+			putchar('%');
+			if (lflag)
+				putchar('l');
+			putchar(ch);
+		}
+	}
+	va_end(ap);
+}
+
+static void
+number(_ulong, base)
+	unsigned long _ulong;
+	int base;
+{
+	char *p, buf[11];			/* hold 2^32 in base 8 */
+
+	p = buf;
+	do {
+		*p++ = "0123456789abcdef"[_ulong % base];
+	} while (_ulong /= base);
+	do {
+		putchar(*--p);
+	} while (p > buf);
+}