-/* subr_prf.c 4.1 %G% */
+/* subr_prf.c 4.28 83/07/01 */
#include "../h/param.h"
#include "../h/systm.h"
#include "../h/seg.h"
#include "../h/buf.h"
#include "../h/conf.h"
-#include "../h/mtpr.h"
#include "../h/reboot.h"
-
-#ifdef TRACE
-#define TRCBUFS 4096
-char trcbuf[TRCBUFS];
-char *trcbufp = trcbuf;
-int trcwrap;
-int trcprt = TRCBUFS;
+#include "../h/vm.h"
+#include "../h/msgbuf.h"
+#include "../h/dir.h"
+#include "../h/user.h"
+#include "../h/proc.h"
+#include "../h/tty.h"
+
+#ifdef vax
+#include "../vax/mtpr.h"
#endif
/*
* panicstr contains argument to last
* call to panic.
*/
-
char *panicstr;
/*
* Scaled down version of C Library printf.
- * Only %s %u %d (==%u) %o %x %D are recognized.
- * Used to print diagnostic information
- * directly on console tty.
- * Since it is not interrupt driven,
- * all system activities are pretty much
- * suspended.
- * Printf should not be used for chit-chat.
+ * Used to print diagnostic information directly on 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.
+ * 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=2<BITTWO,BITONE>
*/
/*VARARGS1*/
printf(fmt, x1)
-register char *fmt;
-unsigned x1;
+ char *fmt;
+ unsigned x1;
{
prf(fmt, &x1, 0);
}
-#ifdef TRACE
-trace(fmt, x1)
-register char *fmt;
-unsigned x1;
+/*
+ * Uprintf prints to the current user's terminal,
+ * guarantees not to sleep (so can be called by interrupt routines)
+ * and does no watermark checking - (so no verbose messages).
+ */
+/*VARARGS1*/
+uprintf(fmt, x1)
+ char *fmt;
+ unsigned x1;
{
- prf(fmt, &x1, 1);
+ prf(fmt, &x1, 2);
}
-#endif
-
-prf(fmt, adx, trace)
-register char *fmt;
-register unsigned int *adx;
+prf(fmt, adx, touser)
+ register char *fmt;
+ register u_int *adx;
{
- register c;
+ register int b, c, i;
char *s;
+ int any;
loop:
- while((c = *fmt++) != '%') {
+ while ((c = *fmt++) != '%') {
if(c == '\0')
return;
- putchar(c, trace);
+ putchar(c, touser);
}
+again:
c = *fmt++;
- if (c == 'X')
- printx((long)*adx, trace);
- else if (c == 'd' || c == 'u' || c == 'o' || c == 'x')
- printn((long)*adx, c=='o'? 8: (c=='x'? 16:10), trace);
- else if (c == 's') {
+ /* THIS CODE IS VAX DEPENDENT IN HANDLING %l? AND %c */
+ switch (c) {
+
+ case 'l':
+ goto again;
+ case 'x': case 'X':
+ b = 16;
+ goto number;
+ case 'd': case 'D':
+ case 'u': /* what a joke */
+ b = 10;
+ goto number;
+ case 'o': case 'O':
+ b = 8;
+number:
+ printn((u_long)*adx, b, touser);
+ break;
+ case 'c':
+ b = *adx;
+ for (i = 24; i >= 0; i -= 8)
+ if (c = (b >> i) & 0x7f)
+ putchar(c, touser);
+ break;
+ case 'b':
+ b = *adx++;
+ s = (char *)*adx;
+ printn((u_long)b, *s++, touser);
+ any = 0;
+ if (b) {
+ putchar('<', touser);
+ while (i = *s++) {
+ if (b & (1 << (i-1))) {
+ if (any)
+ putchar(',', touser);
+ any = 1;
+ for (; (c = *s) > 32; s++)
+ putchar(c, touser);
+ } else
+ for (; *s > 32; s++)
+ ;
+ }
+ if (any)
+ putchar('>', touser);
+ }
+ break;
+
+ case 's':
s = (char *)*adx;
while (c = *s++)
-#ifdef TRACE
- if (trace) {
- *trcbufp++ = c;
- if (trcbufp >= &trcbuf[TRCBUFS]) {
- trcbufp = trcbuf;
- trcwrap = 1;
- }
- } else
-#endif
- putchar(c, trace);
- } else if (c == 'D') {
- printn(*(long *)adx, 10, trace);
- adx += (sizeof(long) / sizeof(int)) - 1;
+ putchar(c, touser);
+ break;
+
+ case '%':
+ putchar('%', touser);
+ break;
}
adx++;
goto loop;
}
-printx(x, trace)
-long x;
-{
- int i;
-
- for (i = 0; i < 8; i++)
- putchar("0123456789ABCDEF"[(x>>((7-i)*4))&0xf], trace);
-}
-
/*
- * Print an unsigned integer in base b.
+ * Printn prints a number n in base b.
+ * We don't use recursion to avoid deep kernel stacks.
*/
-printn(n, b, trace)
-long n;
+printn(n, b, touser)
+ u_long n;
{
- register long a;
+ char prbuf[11];
+ register char *cp;
- if (n<0) { /* shouldn't happen */
- putchar('-', trace);
- n = -n;
+ if (b == 10 && (int)n < 0) {
+ putchar('-', touser);
+ n = (unsigned)(-(int)n);
}
- if(a = n/b)
- printn(a, b, trace);
- putchar("0123456789ABCDEF"[(int)(n%b)], trace);
+ cp = prbuf;
+ do {
+ *cp++ = "0123456789abcdef"[n%b];
+ n /= b;
+ } while (n);
+ do
+ putchar(*--cp, touser);
+ while (cp > prbuf);
}
/*
* Panic is called on unresolvable fatal errors.
- * It syncs, prints "panic: mesg", and then reboots.
+ * It prints "panic: mesg", and then reboots.
+ * If we are called twice, then we avoid trying to
+ * sync the disks as this often leads to recursive panics.
*/
panic(s)
-char *s;
+ char *s;
{
- panicstr = s;
+ int bootopt = RB_AUTOBOOT;
+
+ if (panicstr)
+ bootopt |= RB_NOSYNC;
+ else {
+ panicstr = s;
+ }
printf("panic: %s\n", s);
- spl0();
- for(;;)
- boot(RB_PANIC, RB_AUTOBOOT);
+ boot(RB_PANIC, bootopt);
}
/*
- * prdev prints a warning message of the
- * form "mesg on dev x/y".
- * x and y are the major and minor parts of
- * the device argument.
+ * Warn that a system table is full.
*/
-prdev(str, dev)
-char *str;
-dev_t dev;
+tablefull(tab)
+ char *tab;
{
- printf("%s on dev %u/%u\n", str, major(dev), minor(dev));
+ printf("%s: table is full\n", tab);
}
/*
- * deverr prints a diagnostic from
- * a device driver.
- * It prints the device, block number,
- * and an octal word (usually some error
- * status register) passed as argument.
+ * Hard error is the preface to plaintive error messages
+ * about failing disk transfers.
*/
-deverror(bp, o1, o2)
-register struct buf *bp;
+harderr(bp, cp)
+ struct buf *bp;
+ char *cp;
{
- prdev("err", bp->b_dev);
- printf("bn=%d er=%x,%x\n", bp->b_blkno, o1,o2);
+ printf("%s%d%c: hard error sn%d ", cp,
+ dkunit(bp), 'a'+(minor(bp->b_dev)&07), bp->b_blkno);
}
-#ifdef TRACE
-dumptrc()
-{
- register char *cp;
- register int pos, nch;
-
- nch = trcprt;
- if (nch < 0 || nch > TRCBUFS)
- nch = TRCBUFS;
- pos = (trcbufp - trcbuf) - nch;
- if (pos < 0)
- if (trcwrap)
- pos += TRCBUFS;
- else {
- nch += pos;
- pos = 0;
- }
- for (cp = &trcbuf[pos]; nch > 0; nch--) {
- putchar(*cp++, 0);
- if (cp >= &trcbuf[TRCBUFS])
- cp = trcbuf;
- }
-}
-#else
-/*ARGSUSED*/
-dumptrc(nch)
- int nch;
-{
-
-}
-#endif
-
-char *msgbufp = msgbuf; /* Next saved printf character */
/*
- * Print a character on console or in internal trace buffer.
+ * Print a character on console or users terminal.
* If destination is console then the last MSGBUFS characters
* are saved in msgbuf for inspection later.
*/
-putchar(c, trace)
-register c;
+/*ARGSUSED*/
+putchar(c, touser)
+ register int c;
{
- register s, timo;
-
-#ifdef TRACE
- if (trace) {
- *trcbufp++ = c;
- if (trcbufp >= &trcbuf[TRCBUFS]) {
- trcbufp = trcbuf;
- trcwrap = 1;
+
+ if (touser) {
+ register struct tty *tp = u.u_ttyp;
+
+ if (tp && (tp->t_state&TS_CARR_ON)) {
+ register s = spl6();
+ if (c == '\n')
+ (void) ttyoutput('\r', tp);
+ (void) ttyoutput(c, tp);
+ ttstart(tp);
+ splx(s);
}
return;
}
+ if (c != '\0' && c != '\r' && c != 0177
+#ifdef vax
+ && mfpr(MAPEN)
#endif
- if (c != '\0' && c != '\r' && c != 0177) {
- *msgbufp++ = c;
- if (msgbufp >= &msgbuf[MSGBUFS])
- msgbufp = msgbuf;
+ ) {
+ if (msgbuf.msg_magic != MSG_MAGIC) {
+ register int i;
+
+ msgbuf.msg_bufx = 0;
+ msgbuf.msg_magic = MSG_MAGIC;
+ for (i=0; i < MSG_BSIZE; i++)
+ msgbuf.msg_bufc[i] = 0;
+ }
+ if (msgbuf.msg_bufx < 0 || msgbuf.msg_bufx >= MSG_BSIZE)
+ msgbuf.msg_bufx = 0;
+ msgbuf.msg_bufc[msgbuf.msg_bufx++] = c;
}
if (c == 0)
return;