Home | History | Annotate | Line # | Download | only in kern
subr_prf.c revision 1.116.6.1
      1  1.116.6.1       mjf /*	$NetBSD: subr_prf.c,v 1.116.6.1 2008/06/02 13:24:11 mjf Exp $	*/
      2       1.15       cgd 
      3       1.12       cgd /*-
      4       1.12       cgd  * Copyright (c) 1986, 1988, 1991, 1993
      5       1.12       cgd  *	The Regents of the University of California.  All rights reserved.
      6       1.12       cgd  * (c) UNIX System Laboratories, Inc.
      7       1.12       cgd  * All or some portions of this file are derived from material licensed
      8       1.12       cgd  * to the University of California by American Telephone and Telegraph
      9       1.12       cgd  * Co. or Unix System Laboratories, Inc. and are reproduced herein with
     10       1.12       cgd  * the permission of UNIX System Laboratories, Inc.
     11       1.12       cgd  *
     12       1.12       cgd  * Redistribution and use in source and binary forms, with or without
     13       1.12       cgd  * modification, are permitted provided that the following conditions
     14       1.12       cgd  * are met:
     15       1.12       cgd  * 1. Redistributions of source code must retain the above copyright
     16       1.12       cgd  *    notice, this list of conditions and the following disclaimer.
     17       1.12       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     18       1.12       cgd  *    notice, this list of conditions and the following disclaimer in the
     19       1.12       cgd  *    documentation and/or other materials provided with the distribution.
     20       1.93       agc  * 3. Neither the name of the University nor the names of its contributors
     21       1.12       cgd  *    may be used to endorse or promote products derived from this software
     22       1.12       cgd  *    without specific prior written permission.
     23       1.12       cgd  *
     24       1.12       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     25       1.12       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     26       1.12       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     27       1.12       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     28       1.12       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     29       1.12       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     30       1.12       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     31       1.12       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     32       1.12       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     33       1.12       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     34       1.12       cgd  * SUCH DAMAGE.
     35       1.12       cgd  *
     36       1.48      fvdl  *	@(#)subr_prf.c	8.4 (Berkeley) 5/4/95
     37       1.12       cgd  */
     38       1.82     lukem 
     39       1.82     lukem #include <sys/cdefs.h>
     40  1.116.6.1       mjf __KERNEL_RCSID(0, "$NetBSD: subr_prf.c,v 1.116.6.1 2008/06/02 13:24:11 mjf Exp $");
     41       1.54   thorpej 
     42       1.49  jonathan #include "opt_ddb.h"
     43       1.67        ws #include "opt_ipkdb.h"
     44       1.80     lukem #include "opt_kgdb.h"
     45       1.90    atatat #include "opt_dump.h"
     46       1.12       cgd 
     47       1.12       cgd #include <sys/param.h>
     48       1.78    kleink #include <sys/stdint.h>
     49       1.12       cgd #include <sys/systm.h>
     50       1.12       cgd #include <sys/buf.h>
     51      1.109        he #include <sys/device.h>
     52       1.12       cgd #include <sys/reboot.h>
     53       1.12       cgd #include <sys/msgbuf.h>
     54       1.12       cgd #include <sys/proc.h>
     55       1.12       cgd #include <sys/ioctl.h>
     56       1.12       cgd #include <sys/vnode.h>
     57       1.12       cgd #include <sys/file.h>
     58       1.12       cgd #include <sys/tty.h>
     59       1.12       cgd #include <sys/tprintf.h>
     60       1.12       cgd #include <sys/syslog.h>
     61       1.12       cgd #include <sys/malloc.h>
     62       1.87   thorpej #include <sys/kprintf.h>
     63      1.115        ad #include <sys/atomic.h>
     64      1.116    dogcow #include <sys/cpu.h>
     65       1.12       cgd 
     66       1.20  christos #include <dev/cons.h>
     67       1.20  christos 
     68      1.108     joerg #include <net/if.h>
     69      1.108     joerg 
     70       1.49  jonathan #ifdef DDB
     71       1.49  jonathan #include <ddb/ddbvar.h>
     72       1.72     jhawk #include <machine/db_machdep.h>
     73       1.72     jhawk #include <ddb/db_command.h>
     74       1.72     jhawk #include <ddb/db_interface.h>
     75       1.49  jonathan #endif
     76       1.49  jonathan 
     77       1.67        ws #ifdef IPKDB
     78       1.67        ws #include <ipkdb/ipkdb.h>
     79       1.67        ws #endif
     80       1.67        ws 
     81       1.63   thorpej struct simplelock kprintf_slock = SIMPLELOCK_INITIALIZER;
     82       1.49  jonathan 
     83       1.12       cgd /*
     84       1.45     chuck  * note that stdarg.h and the ansi style va_start macro is used for both
     85       1.45     chuck  * ansi and traditional c complers.
     86       1.45     chuck  * XXX: this requires that stdarg.h define: va_alist and va_dcl
     87       1.12       cgd  */
     88       1.12       cgd #include <machine/stdarg.h>
     89       1.12       cgd 
     90       1.28        ws 
     91       1.22  christos #ifdef KGDB
     92       1.42   thorpej #include <sys/kgdb.h>
     93       1.12       cgd #endif
     94       1.45     chuck #ifdef DDB
     95       1.45     chuck #include <ddb/db_output.h>	/* db_printf, db_putchar prototypes */
     96       1.45     chuck #endif
     97       1.45     chuck 
     98       1.45     chuck 
     99       1.45     chuck /*
    100       1.45     chuck  * defines
    101       1.45     chuck  */
    102       1.45     chuck 
    103       1.45     chuck 
    104       1.45     chuck /*
    105       1.45     chuck  * local prototypes
    106       1.45     chuck  */
    107       1.45     chuck 
    108       1.94  junyoung static void	 putchar(int, int, struct tty *);
    109       1.20  christos 
    110       1.12       cgd 
    111       1.37   thorpej /*
    112       1.45     chuck  * globals
    113       1.37   thorpej  */
    114       1.37   thorpej 
    115       1.77   tsutsui extern	struct tty *constty;	/* pointer to console "window" tty */
    116       1.45     chuck extern	int log_open;	/* subr_log: is /dev/klog open? */
    117       1.45     chuck const	char *panicstr; /* arg to first call to panic (used as a flag
    118       1.45     chuck 			   to indicate that panic has already been called). */
    119      1.115        ad struct cpu_info *paniccpu;	/* cpu that first paniced */
    120       1.79    simonb long	panicstart, panicend;	/* position in the msgbuf of the start and
    121       1.79    simonb 				   end of the formatted panicstr. */
    122       1.74  sommerfe int	doing_shutdown;	/* set to indicate shutdown in progress */
    123       1.45     chuck 
    124       1.90    atatat #ifndef	DUMP_ON_PANIC
    125       1.90    atatat #define	DUMP_ON_PANIC	1
    126       1.90    atatat #endif
    127       1.90    atatat int	dumponpanic = DUMP_ON_PANIC;
    128       1.90    atatat 
    129       1.45     chuck /*
    130       1.45     chuck  * v_putc: routine to putc on virtual console
    131       1.45     chuck  *
    132       1.45     chuck  * the v_putc pointer can be used to redirect the console cnputc elsewhere
    133       1.45     chuck  * [e.g. to a "virtual console"].
    134       1.45     chuck  */
    135       1.12       cgd 
    136       1.94  junyoung void (*v_putc)(int) = cnputc;	/* start with cnputc (normal cons) */
    137       1.94  junyoung void (*v_flush)(void) = cnflush;	/* start with cnflush (normal cons) */
    138       1.12       cgd 
    139       1.97  christos const char hexdigits[] = "0123456789abcdef";
    140       1.97  christos const char HEXDIGITS[] = "0123456789ABCDEF";
    141       1.97  christos 
    142       1.12       cgd 
    143       1.45     chuck /*
    144       1.45     chuck  * functions
    145       1.45     chuck  */
    146       1.12       cgd 
    147       1.12       cgd /*
    148       1.89   thorpej  * twiddle: spin a little propellor on the console.
    149       1.89   thorpej  */
    150       1.89   thorpej 
    151       1.89   thorpej void
    152       1.89   thorpej twiddle(void)
    153       1.89   thorpej {
    154       1.89   thorpej 	static const char twiddle_chars[] = "|/-\\";
    155       1.89   thorpej 	static int pos;
    156       1.89   thorpej 	int s;
    157       1.89   thorpej 
    158       1.89   thorpej 	KPRINTF_MUTEX_ENTER(s);
    159       1.89   thorpej 
    160       1.89   thorpej 	putchar(twiddle_chars[pos++ & 3], TOCONS, NULL);
    161       1.89   thorpej 	putchar('\b', TOCONS, NULL);
    162       1.89   thorpej 
    163       1.89   thorpej 	KPRINTF_MUTEX_EXIT(s);
    164       1.89   thorpej }
    165       1.89   thorpej 
    166       1.89   thorpej /*
    167       1.45     chuck  * panic: handle an unresolvable fatal error
    168       1.45     chuck  *
    169       1.45     chuck  * prints "panic: <message>" and reboots.   if called twice (i.e. recursive
    170       1.96     perry  * call) we avoid trying to sync the disk and just reboot (to avoid
    171       1.45     chuck  * recursive panics).
    172       1.12       cgd  */
    173       1.45     chuck 
    174       1.14       cgd void
    175       1.12       cgd panic(const char *fmt, ...)
    176       1.12       cgd {
    177      1.115        ad 	CPU_INFO_ITERATOR cii;
    178      1.115        ad 	struct cpu_info *ci, *oci;
    179       1.14       cgd 	int bootopt;
    180       1.12       cgd 	va_list ap;
    181       1.12       cgd 
    182      1.115        ad 	/*
    183      1.115        ad 	 * Disable preemption.  If already panicing on another CPU, sit
    184      1.115        ad 	 * here and spin until the system is rebooted.  Allow the CPU that
    185      1.115        ad 	 * first paniced to panic again.
    186      1.115        ad 	 */
    187  1.116.6.1       mjf 	kpreempt_disable();
    188      1.115        ad 	ci = curcpu();
    189      1.115        ad 	oci = atomic_cas_ptr((void *)&paniccpu, NULL, ci);
    190      1.115        ad 	if (oci != NULL && oci != ci) {
    191      1.115        ad 		/* Give interrupts a chance to try and prevent deadlock. */
    192      1.115        ad 		for (;;) {
    193      1.115        ad 			DELAY(10);
    194      1.115        ad 		}
    195      1.115        ad 	}
    196      1.115        ad 
    197      1.115        ad 	/*
    198      1.115        ad 	 * Convert the current thread to a bound thread and prevent all
    199      1.115        ad 	 * CPUs from scheduling unbound jobs.  Do so without taking any
    200      1.115        ad 	 * locks.
    201      1.115        ad 	 */
    202  1.116.6.1       mjf 	curlwp->l_pflag |= LP_BOUND;
    203      1.115        ad 	for (CPU_INFO_FOREACH(cii, ci)) {
    204      1.115        ad 		ci->ci_schedstate.spc_flags |= SPCF_OFFLINE;
    205      1.115        ad 	}
    206      1.115        ad 
    207       1.90    atatat 	bootopt = RB_AUTOBOOT;
    208       1.90    atatat 	if (dumponpanic)
    209       1.90    atatat 		bootopt |= RB_DUMP;
    210       1.74  sommerfe 	if (doing_shutdown)
    211       1.12       cgd 		bootopt |= RB_NOSYNC;
    212       1.74  sommerfe 	if (!panicstr)
    213       1.12       cgd 		panicstr = fmt;
    214       1.74  sommerfe 	doing_shutdown = 1;
    215       1.79    simonb 
    216       1.81      fvdl 	if (msgbufenabled && msgbufp->msg_magic == MSG_MAGIC)
    217       1.79    simonb 		panicstart = msgbufp->msg_bufx;
    218       1.96     perry 
    219       1.12       cgd 	va_start(ap, fmt);
    220       1.45     chuck 	printf("panic: ");
    221       1.45     chuck 	vprintf(fmt, ap);
    222       1.45     chuck 	printf("\n");
    223       1.12       cgd 	va_end(ap);
    224       1.79    simonb 
    225       1.81      fvdl 	if (msgbufenabled && msgbufp->msg_magic == MSG_MAGIC)
    226       1.79    simonb 		panicend = msgbufp->msg_bufx;
    227       1.12       cgd 
    228       1.67        ws #ifdef IPKDB
    229       1.32        ws 	ipkdb_panic();
    230       1.28        ws #endif
    231       1.12       cgd #ifdef KGDB
    232       1.12       cgd 	kgdb_panic();
    233       1.12       cgd #endif
    234       1.12       cgd #ifdef KADB
    235       1.14       cgd 	if (boothowto & RB_KDB)
    236       1.14       cgd 		kdbpanic();
    237       1.12       cgd #endif
    238       1.12       cgd #ifdef DDB
    239      1.101   darrenr 	if (db_onpanic == 1)
    240       1.38   thorpej 		Debugger();
    241      1.102   darrenr 	else if (db_onpanic >= 0) {
    242       1.73     jhawk 		static int intrace = 0;
    243       1.73     jhawk 
    244      1.101   darrenr 		if (intrace == 0) {
    245      1.101   darrenr 			intrace = 1;
    246       1.73     jhawk 			printf("Begin traceback...\n");
    247       1.73     jhawk 			db_stack_trace_print(
    248       1.85       scw 			    (db_expr_t)(intptr_t)__builtin_frame_address(0),
    249      1.105   thorpej 			    true, 65535, "", printf);
    250       1.73     jhawk 			printf("End traceback...\n");
    251      1.101   darrenr 			intrace = 0;
    252       1.73     jhawk 		} else
    253       1.73     jhawk 			printf("Faulted in mid-traceback; aborting...");
    254      1.101   darrenr 		if (db_onpanic == 2)
    255      1.101   darrenr 			Debugger();
    256       1.72     jhawk 	}
    257       1.12       cgd #endif
    258       1.39       gwr 	cpu_reboot(bootopt, NULL);
    259       1.12       cgd }
    260       1.12       cgd 
    261       1.12       cgd /*
    262       1.45     chuck  * kernel logging functions: log, logpri, addlog
    263       1.45     chuck  */
    264       1.45     chuck 
    265       1.45     chuck /*
    266       1.45     chuck  * log: write to the log buffer
    267       1.45     chuck  *
    268       1.45     chuck  * => will not sleep [so safe to call from interrupt]
    269       1.45     chuck  * => will log to console if /dev/klog isn't open
    270       1.45     chuck  */
    271       1.45     chuck 
    272       1.45     chuck void
    273       1.45     chuck log(int level, const char *fmt, ...)
    274       1.45     chuck {
    275       1.54   thorpej 	int s;
    276       1.45     chuck 	va_list ap;
    277       1.45     chuck 
    278       1.54   thorpej 	KPRINTF_MUTEX_ENTER(s);
    279       1.54   thorpej 
    280       1.54   thorpej 	klogpri(level);		/* log the level first */
    281       1.45     chuck 	va_start(ap, fmt);
    282       1.45     chuck 	kprintf(fmt, TOLOG, NULL, NULL, ap);
    283       1.45     chuck 	va_end(ap);
    284       1.45     chuck 	if (!log_open) {
    285       1.45     chuck 		va_start(ap, fmt);
    286       1.45     chuck 		kprintf(fmt, TOCONS, NULL, NULL, ap);
    287       1.45     chuck 		va_end(ap);
    288       1.45     chuck 	}
    289       1.64   thorpej 
    290       1.64   thorpej 	KPRINTF_MUTEX_EXIT(s);
    291       1.64   thorpej 
    292       1.64   thorpej 	logwakeup();		/* wake up anyone waiting for log msgs */
    293       1.64   thorpej }
    294       1.64   thorpej 
    295       1.64   thorpej /*
    296       1.64   thorpej  * vlog: write to the log buffer [already have va_alist]
    297       1.64   thorpej  */
    298       1.64   thorpej 
    299       1.64   thorpej void
    300       1.99   thorpej vlog(int level, const char *fmt, va_list ap)
    301       1.64   thorpej {
    302       1.64   thorpej 	int s;
    303       1.64   thorpej 
    304       1.64   thorpej 	KPRINTF_MUTEX_ENTER(s);
    305       1.64   thorpej 
    306       1.64   thorpej 	klogpri(level);		/* log the level first */
    307       1.64   thorpej 	kprintf(fmt, TOLOG, NULL, NULL, ap);
    308       1.64   thorpej 	if (!log_open)
    309       1.64   thorpej 		kprintf(fmt, TOCONS, NULL, NULL, ap);
    310       1.54   thorpej 
    311       1.54   thorpej 	KPRINTF_MUTEX_EXIT(s);
    312       1.54   thorpej 
    313       1.45     chuck 	logwakeup();		/* wake up anyone waiting for log msgs */
    314       1.45     chuck }
    315       1.45     chuck 
    316       1.45     chuck /*
    317       1.45     chuck  * logpri: log the priority level to the klog
    318       1.45     chuck  */
    319       1.45     chuck 
    320       1.54   thorpej void
    321       1.99   thorpej logpri(int level)
    322       1.45     chuck {
    323       1.54   thorpej 	int s;
    324       1.54   thorpej 
    325       1.54   thorpej 	KPRINTF_MUTEX_ENTER(s);
    326       1.54   thorpej 	klogpri(level);
    327       1.54   thorpej 	KPRINTF_MUTEX_EXIT(s);
    328       1.54   thorpej }
    329       1.54   thorpej 
    330       1.54   thorpej /*
    331       1.54   thorpej  * Note: we must be in the mutex here!
    332       1.54   thorpej  */
    333       1.87   thorpej void
    334       1.99   thorpej klogpri(int level)
    335       1.54   thorpej {
    336       1.45     chuck 	char *p;
    337       1.45     chuck 	char snbuf[KPRINTF_BUFSIZE];
    338       1.45     chuck 
    339       1.45     chuck 	putchar('<', TOLOG, NULL);
    340       1.76        tv 	snprintf(snbuf, sizeof(snbuf), "%d", level);
    341       1.45     chuck 	for (p = snbuf ; *p ; p++)
    342       1.45     chuck 		putchar(*p, TOLOG, NULL);
    343       1.45     chuck 	putchar('>', TOLOG, NULL);
    344       1.45     chuck }
    345       1.45     chuck 
    346       1.45     chuck /*
    347       1.45     chuck  * addlog: add info to previous log message
    348       1.12       cgd  */
    349       1.45     chuck 
    350       1.12       cgd void
    351       1.45     chuck addlog(const char *fmt, ...)
    352       1.45     chuck {
    353       1.54   thorpej 	int s;
    354       1.45     chuck 	va_list ap;
    355       1.45     chuck 
    356       1.54   thorpej 	KPRINTF_MUTEX_ENTER(s);
    357       1.54   thorpej 
    358       1.45     chuck 	va_start(ap, fmt);
    359       1.45     chuck 	kprintf(fmt, TOLOG, NULL, NULL, ap);
    360       1.45     chuck 	va_end(ap);
    361       1.45     chuck 	if (!log_open) {
    362       1.45     chuck 		va_start(ap, fmt);
    363       1.45     chuck 		kprintf(fmt, TOCONS, NULL, NULL, ap);
    364       1.45     chuck 		va_end(ap);
    365       1.45     chuck 	}
    366       1.54   thorpej 
    367       1.54   thorpej 	KPRINTF_MUTEX_EXIT(s);
    368       1.54   thorpej 
    369       1.45     chuck 	logwakeup();
    370       1.45     chuck }
    371       1.45     chuck 
    372       1.45     chuck 
    373       1.45     chuck /*
    374       1.45     chuck  * putchar: print a single character on console or user terminal.
    375       1.45     chuck  *
    376       1.45     chuck  * => if console, then the last MSGBUFS chars are saved in msgbuf
    377       1.45     chuck  *	for inspection later (e.g. dmesg/syslog)
    378       1.54   thorpej  * => we must already be in the mutex!
    379       1.45     chuck  */
    380       1.45     chuck static void
    381       1.99   thorpej putchar(int c, int flags, struct tty *tp)
    382       1.12       cgd {
    383       1.12       cgd 
    384       1.45     chuck 	if (panicstr)
    385       1.45     chuck 		constty = NULL;
    386       1.45     chuck 	if ((flags & TOCONS) && tp == NULL && constty) {
    387       1.45     chuck 		tp = constty;
    388       1.45     chuck 		flags |= TOTTY;
    389       1.45     chuck 	}
    390       1.91  christos 	if ((flags & TOTTY) && tp &&
    391       1.91  christos 	    tputchar(c, flags, tp) < 0 &&
    392       1.45     chuck 	    (flags & TOCONS) && tp == constty)
    393       1.45     chuck 		constty = NULL;
    394       1.45     chuck 	if ((flags & TOLOG) &&
    395      1.111        ad 	    c != '\0' && c != '\r' && c != 0177)
    396      1.111        ad 	    	logputchar(c);
    397       1.45     chuck 	if ((flags & TOCONS) && constty == NULL && c != '\0')
    398       1.45     chuck 		(*v_putc)(c);
    399       1.45     chuck #ifdef DDB
    400       1.45     chuck 	if (flags & TODDB)
    401       1.45     chuck 		db_putchar(c);
    402       1.45     chuck #endif
    403       1.12       cgd }
    404       1.12       cgd 
    405       1.45     chuck 
    406       1.12       cgd /*
    407       1.45     chuck  * uprintf: print to the controlling tty of the current process
    408       1.45     chuck  *
    409       1.45     chuck  * => we may block if the tty queue is full
    410       1.45     chuck  * => no message is printed if the queue doesn't clear in a reasonable
    411       1.45     chuck  *	time
    412       1.12       cgd  */
    413       1.45     chuck 
    414       1.12       cgd void
    415       1.12       cgd uprintf(const char *fmt, ...)
    416       1.12       cgd {
    417       1.69  augustss 	struct proc *p = curproc;
    418       1.12       cgd 	va_list ap;
    419       1.12       cgd 
    420  1.116.6.1       mjf 	/* mutex_enter(proc_lock); XXXSMP */
    421      1.104        ad 
    422      1.104        ad 	if (p->p_lflag & PL_CONTROLT && p->p_session->s_ttyvp) {
    423      1.104        ad 		/* No mutex needed; going to process TTY. */
    424      1.104        ad 		va_start(ap, fmt);
    425      1.104        ad 		kprintf(fmt, TOTTY, p->p_session->s_ttyp, NULL, ap);
    426      1.104        ad 		va_end(ap);
    427      1.104        ad 	}
    428      1.104        ad 
    429  1.116.6.1       mjf 	/* mutex_exit(proc_lock); XXXSMP */
    430      1.104        ad }
    431      1.104        ad 
    432      1.104        ad void
    433      1.104        ad uprintf_locked(const char *fmt, ...)
    434      1.104        ad {
    435      1.104        ad 	struct proc *p = curproc;
    436      1.104        ad 	va_list ap;
    437      1.104        ad 
    438      1.104        ad 	if (p->p_lflag & PL_CONTROLT && p->p_session->s_ttyvp) {
    439       1.54   thorpej 		/* No mutex needed; going to process TTY. */
    440       1.12       cgd 		va_start(ap, fmt);
    441       1.45     chuck 		kprintf(fmt, TOTTY, p->p_session->s_ttyp, NULL, ap);
    442       1.12       cgd 		va_end(ap);
    443       1.12       cgd 	}
    444       1.12       cgd }
    445       1.12       cgd 
    446       1.45     chuck /*
    447       1.45     chuck  * tprintf functions: used to send messages to a specific process
    448       1.45     chuck  *
    449       1.45     chuck  * usage:
    450       1.45     chuck  *   get a tpr_t handle on a process "p" by using "tprintf_open(p)"
    451       1.45     chuck  *   use the handle when calling "tprintf"
    452       1.45     chuck  *   when done, do a "tprintf_close" to drop the handle
    453       1.45     chuck  */
    454       1.45     chuck 
    455       1.45     chuck /*
    456       1.45     chuck  * tprintf_open: get a tprintf handle on a process "p"
    457       1.45     chuck  *
    458       1.45     chuck  * => returns NULL if process can't be printed to
    459       1.45     chuck  */
    460       1.45     chuck 
    461       1.12       cgd tpr_t
    462       1.99   thorpej tprintf_open(struct proc *p)
    463       1.12       cgd {
    464      1.104        ad 	tpr_t cookie;
    465       1.12       cgd 
    466      1.104        ad 	cookie = NULL;
    467      1.104        ad 
    468  1.116.6.1       mjf 	mutex_enter(proc_lock);
    469      1.104        ad 	if (p->p_lflag & PL_CONTROLT && p->p_session->s_ttyvp) {
    470       1.12       cgd 		SESSHOLD(p->p_session);
    471      1.104        ad 		cookie = (tpr_t)p->p_session;
    472       1.12       cgd 	}
    473  1.116.6.1       mjf 	mutex_exit(proc_lock);
    474      1.104        ad 
    475      1.104        ad 	return cookie;
    476       1.12       cgd }
    477       1.12       cgd 
    478       1.45     chuck /*
    479       1.45     chuck  * tprintf_close: dispose of a tprintf handle obtained with tprintf_open
    480       1.45     chuck  */
    481       1.45     chuck 
    482       1.12       cgd void
    483       1.99   thorpej tprintf_close(tpr_t sess)
    484       1.12       cgd {
    485       1.12       cgd 
    486  1.116.6.1       mjf 	if (sess) {
    487  1.116.6.1       mjf 		mutex_enter(proc_lock);
    488       1.12       cgd 		SESSRELE((struct session *) sess);
    489  1.116.6.1       mjf 		mutex_exit(proc_lock);
    490  1.116.6.1       mjf 	}
    491       1.12       cgd }
    492       1.12       cgd 
    493       1.12       cgd /*
    494       1.96     perry  * tprintf: given tprintf handle to a process [obtained with tprintf_open],
    495       1.45     chuck  * send a message to the controlling tty for that process.
    496       1.45     chuck  *
    497       1.45     chuck  * => also sends message to /dev/klog
    498       1.12       cgd  */
    499       1.12       cgd void
    500       1.12       cgd tprintf(tpr_t tpr, const char *fmt, ...)
    501       1.12       cgd {
    502       1.69  augustss 	struct session *sess = (struct session *)tpr;
    503       1.12       cgd 	struct tty *tp = NULL;
    504       1.54   thorpej 	int s, flags = TOLOG;
    505       1.12       cgd 	va_list ap;
    506       1.12       cgd 
    507  1.116.6.1       mjf 	/* mutex_enter(proc_lock); XXXSMP */
    508       1.12       cgd 	if (sess && sess->s_ttyvp && ttycheckoutq(sess->s_ttyp, 0)) {
    509       1.12       cgd 		flags |= TOTTY;
    510       1.12       cgd 		tp = sess->s_ttyp;
    511       1.12       cgd 	}
    512       1.54   thorpej 
    513       1.54   thorpej 	KPRINTF_MUTEX_ENTER(s);
    514       1.54   thorpej 
    515       1.54   thorpej 	klogpri(LOG_INFO);
    516       1.12       cgd 	va_start(ap, fmt);
    517       1.45     chuck 	kprintf(fmt, flags, tp, NULL, ap);
    518       1.12       cgd 	va_end(ap);
    519       1.54   thorpej 
    520       1.54   thorpej 	KPRINTF_MUTEX_EXIT(s);
    521  1.116.6.1       mjf 	/* mutex_exit(proc_lock);	XXXSMP */
    522       1.54   thorpej 
    523       1.12       cgd 	logwakeup();
    524       1.12       cgd }
    525       1.12       cgd 
    526       1.45     chuck 
    527       1.12       cgd /*
    528       1.45     chuck  * ttyprintf: send a message to a specific tty
    529       1.45     chuck  *
    530       1.45     chuck  * => should be used only by tty driver or anything that knows the
    531       1.52       mrg  *    underlying tty will not be revoked(2)'d away.  [otherwise,
    532       1.52       mrg  *    use tprintf]
    533       1.12       cgd  */
    534       1.12       cgd void
    535       1.12       cgd ttyprintf(struct tty *tp, const char *fmt, ...)
    536       1.12       cgd {
    537       1.12       cgd 	va_list ap;
    538       1.12       cgd 
    539       1.54   thorpej 	/* No mutex needed; going to process TTY. */
    540       1.12       cgd 	va_start(ap, fmt);
    541       1.45     chuck 	kprintf(fmt, TOTTY, tp, NULL, ap);
    542       1.12       cgd 	va_end(ap);
    543       1.12       cgd }
    544       1.12       cgd 
    545       1.45     chuck #ifdef DDB
    546       1.12       cgd 
    547       1.12       cgd /*
    548       1.45     chuck  * db_printf: printf for DDB (via db_putchar)
    549       1.12       cgd  */
    550       1.45     chuck 
    551       1.12       cgd void
    552       1.45     chuck db_printf(const char *fmt, ...)
    553       1.12       cgd {
    554       1.12       cgd 	va_list ap;
    555       1.12       cgd 
    556       1.54   thorpej 	/* No mutex needed; DDB pauses all processors. */
    557       1.12       cgd 	va_start(ap, fmt);
    558       1.45     chuck 	kprintf(fmt, TODDB, NULL, NULL, ap);
    559       1.12       cgd 	va_end(ap);
    560       1.95   reinoud 
    561       1.95   reinoud 	if (db_tee_msgbuf) {
    562       1.95   reinoud 		va_start(ap, fmt);
    563       1.95   reinoud 		kprintf(fmt, TOLOG, NULL, NULL, ap);
    564       1.95   reinoud 		va_end(ap);
    565       1.95   reinoud 	};
    566       1.84  drochner }
    567       1.84  drochner 
    568       1.84  drochner void
    569       1.99   thorpej db_vprintf(const char *fmt, va_list ap)
    570       1.84  drochner {
    571       1.84  drochner 
    572       1.84  drochner 	/* No mutex needed; DDB pauses all processors. */
    573       1.84  drochner 	kprintf(fmt, TODDB, NULL, NULL, ap);
    574       1.95   reinoud 	if (db_tee_msgbuf)
    575       1.95   reinoud 		kprintf(fmt, TOLOG, NULL, NULL, ap);
    576       1.12       cgd }
    577       1.12       cgd 
    578       1.45     chuck #endif /* DDB */
    579       1.12       cgd 
    580      1.108     joerg static void
    581      1.108     joerg kprintf_internal(const char *fmt, int oflags, void *vp, char *sbuf, ...)
    582      1.108     joerg {
    583      1.108     joerg 	va_list ap;
    584      1.108     joerg 
    585      1.108     joerg 	va_start(ap, sbuf);
    586      1.108     joerg 	(void)kprintf(fmt, oflags, vp, sbuf, ap);
    587      1.108     joerg 	va_end(ap);
    588      1.108     joerg }
    589      1.108     joerg 
    590       1.88   thorpej /*
    591       1.88   thorpej  * Device autoconfiguration printf routines.  These change their
    592       1.88   thorpej  * behavior based on the AB_* flags in boothowto.  If AB_SILENT
    593       1.88   thorpej  * is set, messages never go to the console (but they still always
    594       1.88   thorpej  * go to the log).  AB_VERBOSE overrides AB_SILENT.
    595       1.88   thorpej  */
    596       1.88   thorpej 
    597       1.88   thorpej /*
    598       1.88   thorpej  * aprint_normal: Send to console unless AB_QUIET.  Always goes
    599       1.88   thorpej  * to the log.
    600       1.88   thorpej  */
    601      1.108     joerg static void
    602      1.108     joerg aprint_normal_internal(const char *prefix, const char *fmt, va_list ap)
    603       1.88   thorpej {
    604       1.88   thorpej 	int s, flags = TOLOG;
    605       1.88   thorpej 
    606       1.88   thorpej 	if ((boothowto & (AB_SILENT|AB_QUIET)) == 0 ||
    607       1.88   thorpej 	    (boothowto & AB_VERBOSE) != 0)
    608       1.88   thorpej 		flags |= TOCONS;
    609       1.96     perry 
    610       1.88   thorpej 	KPRINTF_MUTEX_ENTER(s);
    611       1.88   thorpej 
    612      1.108     joerg 	if (prefix)
    613      1.108     joerg 		kprintf_internal("%s: ", flags, NULL, NULL, prefix);
    614       1.88   thorpej 	kprintf(fmt, flags, NULL, NULL, ap);
    615       1.88   thorpej 
    616       1.88   thorpej 	KPRINTF_MUTEX_EXIT(s);
    617       1.96     perry 
    618       1.88   thorpej 	if (!panicstr)
    619       1.88   thorpej 		logwakeup();
    620       1.88   thorpej }
    621       1.88   thorpej 
    622      1.108     joerg void
    623      1.108     joerg aprint_normal(const char *fmt, ...)
    624      1.108     joerg {
    625      1.108     joerg 	va_list ap;
    626      1.108     joerg 
    627      1.108     joerg 	va_start(ap, fmt);
    628      1.108     joerg 	aprint_normal_internal(NULL, fmt, ap);
    629      1.108     joerg 	va_end(ap);
    630      1.108     joerg }
    631      1.108     joerg 
    632      1.108     joerg void
    633      1.108     joerg aprint_normal_dev(device_t dv, const char *fmt, ...)
    634      1.108     joerg {
    635      1.108     joerg 	va_list ap;
    636      1.108     joerg 
    637      1.108     joerg 	va_start(ap, fmt);
    638      1.108     joerg 	aprint_normal_internal(device_xname(dv), fmt, ap);
    639      1.108     joerg 	va_end(ap);
    640      1.108     joerg }
    641      1.108     joerg 
    642      1.108     joerg void
    643      1.108     joerg aprint_normal_ifnet(struct ifnet *ifp, const char *fmt, ...)
    644      1.108     joerg {
    645      1.108     joerg 	va_list ap;
    646      1.108     joerg 
    647      1.108     joerg 	va_start(ap, fmt);
    648      1.108     joerg 	aprint_normal_internal(ifp->if_xname, fmt, ap);
    649      1.108     joerg 	va_end(ap);
    650      1.108     joerg }
    651      1.108     joerg 
    652       1.88   thorpej /*
    653       1.89   thorpej  * aprint_error: Send to console unless AB_QUIET.  Always goes
    654       1.89   thorpej  * to the log.  Also counts the number of times called so other
    655       1.89   thorpej  * parts of the kernel can report the number of errors during a
    656       1.89   thorpej  * given phase of system startup.
    657       1.89   thorpej  */
    658       1.89   thorpej static int aprint_error_count;
    659       1.89   thorpej 
    660       1.89   thorpej int
    661       1.89   thorpej aprint_get_error_count(void)
    662       1.89   thorpej {
    663       1.89   thorpej 	int count, s;
    664       1.89   thorpej 
    665       1.89   thorpej 	KPRINTF_MUTEX_ENTER(s);
    666       1.89   thorpej 
    667       1.89   thorpej 	count = aprint_error_count;
    668       1.89   thorpej 	aprint_error_count = 0;
    669       1.89   thorpej 
    670       1.89   thorpej 	KPRINTF_MUTEX_EXIT(s);
    671       1.89   thorpej 
    672       1.89   thorpej 	return (count);
    673       1.89   thorpej }
    674       1.89   thorpej 
    675      1.108     joerg static void
    676      1.108     joerg aprint_error_internal(const char *prefix, const char *fmt, va_list ap)
    677       1.89   thorpej {
    678       1.89   thorpej 	int s, flags = TOLOG;
    679       1.89   thorpej 
    680       1.89   thorpej 	if ((boothowto & (AB_SILENT|AB_QUIET)) == 0 ||
    681       1.89   thorpej 	    (boothowto & AB_VERBOSE) != 0)
    682       1.89   thorpej 		flags |= TOCONS;
    683       1.96     perry 
    684       1.89   thorpej 	KPRINTF_MUTEX_ENTER(s);
    685       1.89   thorpej 
    686       1.89   thorpej 	aprint_error_count++;
    687       1.89   thorpej 
    688      1.108     joerg 	if (prefix)
    689      1.108     joerg 		kprintf_internal("%s: ", flags, NULL, NULL, prefix);
    690       1.89   thorpej 	kprintf(fmt, flags, NULL, NULL, ap);
    691       1.89   thorpej 
    692       1.89   thorpej 	KPRINTF_MUTEX_EXIT(s);
    693       1.96     perry 
    694       1.89   thorpej 	if (!panicstr)
    695       1.89   thorpej 		logwakeup();
    696       1.89   thorpej }
    697       1.89   thorpej 
    698      1.108     joerg void
    699      1.108     joerg aprint_error(const char *fmt, ...)
    700      1.108     joerg {
    701      1.108     joerg 	va_list ap;
    702      1.108     joerg 
    703      1.108     joerg 	va_start(ap, fmt);
    704      1.108     joerg 	aprint_error_internal(NULL, fmt, ap);
    705      1.108     joerg 	va_end(ap);
    706      1.108     joerg }
    707      1.108     joerg 
    708      1.108     joerg void
    709      1.108     joerg aprint_error_dev(device_t dv, const char *fmt, ...)
    710      1.108     joerg {
    711      1.108     joerg 	va_list ap;
    712      1.108     joerg 
    713      1.108     joerg 	va_start(ap, fmt);
    714      1.108     joerg 	aprint_error_internal(device_xname(dv), fmt, ap);
    715      1.108     joerg 	va_end(ap);
    716      1.108     joerg }
    717      1.108     joerg 
    718      1.108     joerg void
    719      1.108     joerg aprint_error_ifnet(struct ifnet *ifp, const char *fmt, ...)
    720      1.108     joerg {
    721      1.108     joerg 	va_list ap;
    722      1.108     joerg 
    723      1.108     joerg 	va_start(ap, fmt);
    724      1.108     joerg 	aprint_error_internal(ifp->if_xname, fmt, ap);
    725      1.108     joerg 	va_end(ap);
    726      1.108     joerg }
    727      1.108     joerg 
    728       1.89   thorpej /*
    729       1.88   thorpej  * aprint_naive: Send to console only if AB_QUIET.  Never goes
    730       1.88   thorpej  * to the log.
    731       1.88   thorpej  */
    732      1.108     joerg static void
    733      1.108     joerg aprint_naive_internal(const char *prefix, const char *fmt, va_list ap)
    734      1.108     joerg {
    735      1.108     joerg 	int s;
    736      1.108     joerg 
    737      1.108     joerg 	if ((boothowto & (AB_QUIET|AB_SILENT|AB_VERBOSE)) != AB_QUIET)
    738      1.108     joerg 		return;
    739      1.108     joerg 
    740      1.108     joerg 	KPRINTF_MUTEX_ENTER(s);
    741      1.108     joerg 
    742      1.108     joerg 	if (prefix)
    743      1.108     joerg 		kprintf_internal("%s: ", TOCONS, NULL, NULL, prefix);
    744      1.108     joerg 	kprintf(fmt, TOCONS, NULL, NULL, ap);
    745      1.108     joerg 
    746      1.108     joerg 	KPRINTF_MUTEX_EXIT(s);
    747      1.108     joerg }
    748      1.108     joerg 
    749       1.88   thorpej void
    750       1.88   thorpej aprint_naive(const char *fmt, ...)
    751       1.88   thorpej {
    752       1.88   thorpej 	va_list ap;
    753       1.88   thorpej 
    754      1.108     joerg 	va_start(ap, fmt);
    755      1.108     joerg 	aprint_naive_internal(NULL, fmt, ap);
    756      1.108     joerg 	va_end(ap);
    757      1.108     joerg }
    758      1.108     joerg 
    759      1.108     joerg void
    760      1.108     joerg aprint_naive_dev(device_t dv, const char *fmt, ...)
    761      1.108     joerg {
    762      1.108     joerg 	va_list ap;
    763      1.108     joerg 
    764      1.108     joerg 	va_start(ap, fmt);
    765      1.108     joerg 	aprint_naive_internal(device_xname(dv), fmt, ap);
    766      1.108     joerg 	va_end(ap);
    767      1.108     joerg }
    768       1.88   thorpej 
    769      1.108     joerg void
    770      1.108     joerg aprint_naive_ifnet(struct ifnet *ifp, const char *fmt, ...)
    771      1.108     joerg {
    772      1.108     joerg 	va_list ap;
    773       1.88   thorpej 
    774      1.108     joerg 	va_start(ap, fmt);
    775      1.108     joerg 	aprint_naive_internal(ifp->if_xname, fmt, ap);
    776      1.108     joerg 	va_end(ap);
    777       1.88   thorpej }
    778       1.88   thorpej 
    779       1.88   thorpej /*
    780       1.88   thorpej  * aprint_verbose: Send to console only if AB_VERBOSE.  Always
    781       1.88   thorpej  * goes to the log.
    782       1.88   thorpej  */
    783      1.108     joerg static void
    784      1.108     joerg aprint_verbose_internal(const char *prefix, const char *fmt, va_list ap)
    785       1.88   thorpej {
    786       1.88   thorpej 	int s, flags = TOLOG;
    787       1.88   thorpej 
    788       1.88   thorpej 	if (boothowto & AB_VERBOSE)
    789       1.88   thorpej 		flags |= TOCONS;
    790       1.96     perry 
    791       1.88   thorpej 	KPRINTF_MUTEX_ENTER(s);
    792       1.88   thorpej 
    793      1.108     joerg 	if (prefix)
    794      1.108     joerg 		kprintf_internal("%s: ", flags, NULL, NULL, prefix);
    795       1.88   thorpej 	kprintf(fmt, flags, NULL, NULL, ap);
    796       1.88   thorpej 
    797       1.88   thorpej 	KPRINTF_MUTEX_EXIT(s);
    798       1.96     perry 
    799       1.88   thorpej 	if (!panicstr)
    800       1.88   thorpej 		logwakeup();
    801       1.88   thorpej }
    802       1.88   thorpej 
    803      1.108     joerg void
    804      1.108     joerg aprint_verbose(const char *fmt, ...)
    805      1.108     joerg {
    806      1.108     joerg 	va_list ap;
    807      1.108     joerg 
    808      1.108     joerg 	va_start(ap, fmt);
    809      1.108     joerg 	aprint_verbose_internal(NULL, fmt, ap);
    810      1.108     joerg 	va_end(ap);
    811      1.108     joerg }
    812      1.108     joerg 
    813      1.108     joerg void
    814      1.108     joerg aprint_verbose_dev(device_t dv, const char *fmt, ...)
    815      1.108     joerg {
    816      1.108     joerg 	va_list ap;
    817      1.108     joerg 
    818      1.108     joerg 	va_start(ap, fmt);
    819      1.108     joerg 	aprint_verbose_internal(device_xname(dv), fmt, ap);
    820      1.108     joerg 	va_end(ap);
    821      1.108     joerg }
    822      1.108     joerg 
    823      1.108     joerg void
    824      1.108     joerg aprint_verbose_ifnet(struct ifnet *ifp, const char *fmt, ...)
    825      1.108     joerg {
    826      1.108     joerg 	va_list ap;
    827      1.108     joerg 
    828      1.108     joerg 	va_start(ap, fmt);
    829      1.108     joerg 	aprint_verbose_internal(ifp->if_xname, fmt, ap);
    830      1.108     joerg 	va_end(ap);
    831      1.108     joerg }
    832      1.108     joerg 
    833       1.88   thorpej /*
    834       1.88   thorpej  * aprint_debug: Send to console and log only if AB_DEBUG.
    835       1.88   thorpej  */
    836      1.108     joerg static void
    837      1.108     joerg aprint_debug_internal(const char *prefix, const char *fmt, va_list ap)
    838      1.108     joerg {
    839      1.108     joerg 	int s;
    840      1.108     joerg 
    841      1.108     joerg 	if ((boothowto & AB_DEBUG) == 0)
    842      1.108     joerg 		return;
    843      1.108     joerg 
    844      1.108     joerg 	KPRINTF_MUTEX_ENTER(s);
    845      1.108     joerg 
    846      1.108     joerg 	if (prefix)
    847      1.108     joerg 		kprintf_internal("%s: ", TOCONS | TOLOG, NULL, NULL, prefix);
    848      1.108     joerg 	kprintf(fmt, TOCONS | TOLOG, NULL, NULL, ap);
    849      1.108     joerg 
    850      1.108     joerg 	KPRINTF_MUTEX_EXIT(s);
    851      1.108     joerg }
    852      1.108     joerg 
    853       1.88   thorpej void
    854       1.88   thorpej aprint_debug(const char *fmt, ...)
    855       1.88   thorpej {
    856       1.88   thorpej 	va_list ap;
    857       1.88   thorpej 
    858      1.108     joerg 	va_start(ap, fmt);
    859      1.108     joerg 	aprint_debug_internal(NULL, fmt, ap);
    860      1.108     joerg 	va_end(ap);
    861      1.108     joerg }
    862      1.108     joerg 
    863      1.108     joerg void
    864      1.108     joerg aprint_debug_dev(device_t dv, const char *fmt, ...)
    865      1.108     joerg {
    866      1.108     joerg 	va_list ap;
    867      1.108     joerg 
    868      1.108     joerg 	va_start(ap, fmt);
    869      1.108     joerg 	aprint_debug_internal(device_xname(dv), fmt, ap);
    870      1.108     joerg 	va_end(ap);
    871      1.108     joerg }
    872       1.88   thorpej 
    873      1.108     joerg void
    874      1.108     joerg aprint_debug_ifnet(struct ifnet *ifp, const char *fmt, ...)
    875      1.108     joerg {
    876      1.108     joerg 	va_list ap;
    877       1.88   thorpej 
    878      1.108     joerg 	va_start(ap, fmt);
    879      1.108     joerg 	aprint_debug_internal(ifp->if_xname, fmt, ap);
    880      1.108     joerg 	va_end(ap);
    881       1.89   thorpej }
    882       1.89   thorpej 
    883  1.116.6.1       mjf void
    884  1.116.6.1       mjf printf_tolog(const char *fmt, ...)
    885  1.116.6.1       mjf {
    886  1.116.6.1       mjf 	va_list ap;
    887  1.116.6.1       mjf 	int s;
    888  1.116.6.1       mjf 
    889  1.116.6.1       mjf 	KPRINTF_MUTEX_ENTER(s);
    890  1.116.6.1       mjf 
    891  1.116.6.1       mjf 	va_start(ap, fmt);
    892  1.116.6.1       mjf 	(void)kprintf(fmt, TOLOG, NULL, NULL, ap);
    893  1.116.6.1       mjf 	va_end(ap);
    894  1.116.6.1       mjf 
    895  1.116.6.1       mjf 	KPRINTF_MUTEX_EXIT(s);
    896  1.116.6.1       mjf }
    897  1.116.6.1       mjf 
    898       1.89   thorpej /*
    899       1.89   thorpej  * printf_nolog: Like printf(), but does not send message to the log.
    900       1.89   thorpej  */
    901       1.89   thorpej 
    902       1.89   thorpej void
    903       1.89   thorpej printf_nolog(const char *fmt, ...)
    904       1.89   thorpej {
    905       1.89   thorpej 	va_list ap;
    906       1.89   thorpej 	int s;
    907       1.89   thorpej 
    908       1.89   thorpej 	KPRINTF_MUTEX_ENTER(s);
    909       1.89   thorpej 
    910       1.89   thorpej 	va_start(ap, fmt);
    911       1.89   thorpej 	kprintf(fmt, TOCONS, NULL, NULL, ap);
    912       1.89   thorpej 	va_end(ap);
    913       1.89   thorpej 
    914       1.89   thorpej 	KPRINTF_MUTEX_EXIT(s);
    915       1.88   thorpej }
    916       1.12       cgd 
    917       1.45     chuck /*
    918       1.76        tv  * normal kernel printf functions: printf, vprintf, snprintf, vsnprintf
    919       1.45     chuck  */
    920       1.12       cgd 
    921       1.45     chuck /*
    922       1.45     chuck  * printf: print a message to the console and the log
    923       1.45     chuck  */
    924       1.12       cgd void
    925       1.30  christos printf(const char *fmt, ...)
    926       1.12       cgd {
    927       1.12       cgd 	va_list ap;
    928       1.66   thorpej 	int s;
    929       1.54   thorpej 
    930       1.54   thorpej 	KPRINTF_MUTEX_ENTER(s);
    931       1.12       cgd 
    932       1.12       cgd 	va_start(ap, fmt);
    933       1.45     chuck 	kprintf(fmt, TOCONS | TOLOG, NULL, NULL, ap);
    934       1.12       cgd 	va_end(ap);
    935       1.54   thorpej 
    936       1.54   thorpej 	KPRINTF_MUTEX_EXIT(s);
    937       1.54   thorpej 
    938       1.12       cgd 	if (!panicstr)
    939       1.12       cgd 		logwakeup();
    940       1.12       cgd }
    941       1.12       cgd 
    942       1.45     chuck /*
    943       1.45     chuck  * vprintf: print a message to the console and the log [already have
    944       1.45     chuck  *	va_alist]
    945       1.45     chuck  */
    946       1.45     chuck 
    947       1.40   thorpej void
    948       1.99   thorpej vprintf(const char *fmt, va_list ap)
    949       1.40   thorpej {
    950       1.66   thorpej 	int s;
    951       1.54   thorpej 
    952       1.54   thorpej 	KPRINTF_MUTEX_ENTER(s);
    953       1.40   thorpej 
    954       1.45     chuck 	kprintf(fmt, TOCONS | TOLOG, NULL, NULL, ap);
    955       1.54   thorpej 
    956       1.54   thorpej 	KPRINTF_MUTEX_EXIT(s);
    957       1.54   thorpej 
    958       1.40   thorpej 	if (!panicstr)
    959       1.40   thorpej 		logwakeup();
    960       1.40   thorpej }
    961       1.40   thorpej 
    962       1.12       cgd /*
    963       1.45     chuck  * sprintf: print a message to a buffer
    964       1.12       cgd  */
    965       1.45     chuck int
    966       1.98  christos sprintf(char *bf, const char *fmt, ...)
    967       1.45     chuck {
    968       1.45     chuck 	int retval;
    969       1.12       cgd 	va_list ap;
    970       1.12       cgd 
    971       1.45     chuck 	va_start(ap, fmt);
    972       1.98  christos 	retval = kprintf(fmt, TOBUFONLY, NULL, bf, ap);
    973       1.12       cgd 	va_end(ap);
    974       1.98  christos 	*(bf + retval) = 0;	/* null terminate */
    975       1.45     chuck 	return(retval);
    976       1.55   thorpej }
    977       1.55   thorpej 
    978       1.55   thorpej /*
    979       1.55   thorpej  * vsprintf: print a message to a buffer [already have va_alist]
    980       1.55   thorpej  */
    981       1.55   thorpej 
    982       1.55   thorpej int
    983       1.99   thorpej vsprintf(char *bf, const char *fmt, va_list ap)
    984       1.55   thorpej {
    985       1.55   thorpej 	int retval;
    986       1.55   thorpej 
    987       1.98  christos 	retval = kprintf(fmt, TOBUFONLY, NULL, bf, ap);
    988       1.98  christos 	*(bf + retval) = 0;	/* null terminate */
    989       1.55   thorpej 	return (retval);
    990       1.12       cgd }
    991       1.12       cgd 
    992       1.12       cgd /*
    993       1.58   msaitoh  * snprintf: print a message to a buffer
    994       1.58   msaitoh  */
    995       1.58   msaitoh int
    996       1.98  christos snprintf(char *bf, size_t size, const char *fmt, ...)
    997       1.58   msaitoh {
    998       1.58   msaitoh 	int retval;
    999       1.58   msaitoh 	va_list ap;
   1000       1.58   msaitoh 	char *p;
   1001       1.58   msaitoh 
   1002       1.58   msaitoh 	if (size < 1)
   1003       1.58   msaitoh 		return (-1);
   1004       1.98  christos 	p = bf + size - 1;
   1005       1.58   msaitoh 	va_start(ap, fmt);
   1006       1.98  christos 	retval = kprintf(fmt, TOBUFONLY, &p, bf, ap);
   1007       1.58   msaitoh 	va_end(ap);
   1008       1.58   msaitoh 	*(p) = 0;	/* null terminate */
   1009       1.58   msaitoh 	return(retval);
   1010       1.58   msaitoh }
   1011       1.58   msaitoh 
   1012       1.58   msaitoh /*
   1013       1.58   msaitoh  * vsnprintf: print a message to a buffer [already have va_alist]
   1014       1.58   msaitoh  */
   1015       1.58   msaitoh int
   1016       1.99   thorpej vsnprintf(char *bf, size_t size, const char *fmt, va_list ap)
   1017       1.58   msaitoh {
   1018       1.58   msaitoh 	int retval;
   1019       1.58   msaitoh 	char *p;
   1020       1.58   msaitoh 
   1021       1.58   msaitoh 	if (size < 1)
   1022       1.58   msaitoh 		return (-1);
   1023       1.98  christos 	p = bf + size - 1;
   1024       1.98  christos 	retval = kprintf(fmt, TOBUFONLY, &p, bf, ap);
   1025       1.58   msaitoh 	*(p) = 0;	/* null terminate */
   1026       1.58   msaitoh 	return(retval);
   1027       1.58   msaitoh }
   1028       1.58   msaitoh 
   1029       1.58   msaitoh /*
   1030       1.45     chuck  * kprintf: scaled down version of printf(3).
   1031       1.45     chuck  *
   1032       1.96     perry  * this version based on vfprintf() from libc which was derived from
   1033       1.45     chuck  * software contributed to Berkeley by Chris Torek.
   1034       1.45     chuck  *
   1035       1.76        tv  * NOTE: The kprintf mutex must be held if we're going TOBUF or TOCONS!
   1036       1.45     chuck  */
   1037       1.45     chuck 
   1038       1.45     chuck /*
   1039       1.45     chuck  * macros for converting digits to letters and vice versa
   1040       1.45     chuck  */
   1041       1.45     chuck #define	to_digit(c)	((c) - '0')
   1042       1.45     chuck #define is_digit(c)	((unsigned)to_digit(c) <= 9)
   1043       1.45     chuck #define	to_char(n)	((n) + '0')
   1044       1.45     chuck 
   1045       1.45     chuck /*
   1046       1.45     chuck  * flags used during conversion.
   1047       1.45     chuck  */
   1048       1.45     chuck #define	ALT		0x001		/* alternate form */
   1049       1.45     chuck #define	HEXPREFIX	0x002		/* add 0x or 0X prefix */
   1050       1.45     chuck #define	LADJUST		0x004		/* left adjustment */
   1051       1.45     chuck #define	LONGDBL		0x008		/* long double; unimplemented */
   1052       1.45     chuck #define	LONGINT		0x010		/* long integer */
   1053       1.45     chuck #define	QUADINT		0x020		/* quad integer */
   1054       1.45     chuck #define	SHORTINT	0x040		/* short integer */
   1055       1.78    kleink #define	MAXINT		0x080		/* intmax_t */
   1056       1.78    kleink #define	PTRINT		0x100		/* intptr_t */
   1057       1.78    kleink #define	SIZEINT		0x200		/* size_t */
   1058       1.78    kleink #define	ZEROPAD		0x400		/* zero (as opposed to blank) pad */
   1059       1.78    kleink #define FPT		0x800		/* Floating point number */
   1060       1.45     chuck 
   1061       1.45     chuck 	/*
   1062       1.45     chuck 	 * To extend shorts properly, we need both signed and unsigned
   1063       1.45     chuck 	 * argument extraction methods.
   1064       1.45     chuck 	 */
   1065       1.45     chuck #define	SARG() \
   1066       1.78    kleink 	(flags&MAXINT ? va_arg(ap, intmax_t) : \
   1067       1.78    kleink 	    flags&PTRINT ? va_arg(ap, intptr_t) : \
   1068       1.78    kleink 	    flags&SIZEINT ? va_arg(ap, ssize_t) : /* XXX */ \
   1069       1.78    kleink 	    flags&QUADINT ? va_arg(ap, quad_t) : \
   1070       1.45     chuck 	    flags&LONGINT ? va_arg(ap, long) : \
   1071       1.45     chuck 	    flags&SHORTINT ? (long)(short)va_arg(ap, int) : \
   1072       1.45     chuck 	    (long)va_arg(ap, int))
   1073       1.45     chuck #define	UARG() \
   1074       1.78    kleink 	(flags&MAXINT ? va_arg(ap, uintmax_t) : \
   1075       1.78    kleink 	    flags&PTRINT ? va_arg(ap, uintptr_t) : \
   1076       1.78    kleink 	    flags&SIZEINT ? va_arg(ap, size_t) : \
   1077       1.78    kleink 	    flags&QUADINT ? va_arg(ap, u_quad_t) : \
   1078       1.45     chuck 	    flags&LONGINT ? va_arg(ap, u_long) : \
   1079       1.45     chuck 	    flags&SHORTINT ? (u_long)(u_short)va_arg(ap, int) : \
   1080       1.45     chuck 	    (u_long)va_arg(ap, u_int))
   1081       1.45     chuck 
   1082       1.60  explorer #define KPRINTF_PUTCHAR(C) {						\
   1083       1.60  explorer 	if (oflags == TOBUFONLY) {					\
   1084       1.60  explorer 		if ((vp != NULL) && (sbuf == tailp)) {			\
   1085       1.60  explorer 			ret += 1;		/* indicate error */	\
   1086       1.60  explorer 			goto overflow;					\
   1087       1.60  explorer 		}							\
   1088       1.60  explorer 		*sbuf++ = (C);						\
   1089       1.60  explorer 	} else {							\
   1090       1.60  explorer 		putchar((C), oflags, (struct tty *)vp);			\
   1091       1.60  explorer 	}								\
   1092       1.58   msaitoh }
   1093       1.45     chuck 
   1094       1.54   thorpej /*
   1095       1.54   thorpej  * Guts of kernel printf.  Note, we already expect to be in a mutex!
   1096       1.54   thorpej  */
   1097       1.87   thorpej int
   1098       1.99   thorpej kprintf(const char *fmt0, int oflags, void *vp, char *sbuf, va_list ap)
   1099       1.45     chuck {
   1100       1.98  christos 	const char *fmt;	/* format string */
   1101       1.45     chuck 	int ch;			/* character from fmt */
   1102       1.45     chuck 	int n;			/* handy integer (short term usage) */
   1103       1.45     chuck 	char *cp;		/* handy char pointer (short term usage) */
   1104       1.45     chuck 	int flags;		/* flags as above */
   1105       1.45     chuck 	int ret;		/* return value accumulator */
   1106       1.45     chuck 	int width;		/* width from format (%8d), or 0 */
   1107       1.45     chuck 	int prec;		/* precision from format (%.3d), or -1 */
   1108       1.45     chuck 	char sign;		/* sign prefix (' ', '+', '-', or \0) */
   1109       1.45     chuck 
   1110       1.45     chuck 	u_quad_t _uquad;	/* integer arguments %[diouxX] */
   1111       1.45     chuck 	enum { OCT, DEC, HEX } base;/* base for [diouxX] conversion */
   1112       1.45     chuck 	int dprec;		/* a copy of prec if [diouxX], 0 otherwise */
   1113       1.45     chuck 	int realsz;		/* field size expanded by dprec */
   1114       1.45     chuck 	int size;		/* size of converted field or string */
   1115       1.97  christos 	const char *xdigs;	/* digits for [xX] conversion */
   1116       1.98  christos 	char bf[KPRINTF_BUFSIZE]; /* space for %c, %[diouxX] */
   1117       1.61  explorer 	char *tailp;		/* tail pointer for snprintf */
   1118       1.58   msaitoh 
   1119       1.61  explorer 	tailp = NULL;	/* XXX: shutup gcc */
   1120       1.60  explorer 	if (oflags == TOBUFONLY && (vp != NULL))
   1121       1.60  explorer 		tailp = *(char **)vp;
   1122       1.45     chuck 
   1123       1.45     chuck 	cp = NULL;	/* XXX: shutup gcc */
   1124       1.45     chuck 	size = 0;	/* XXX: shutup gcc */
   1125       1.45     chuck 
   1126       1.98  christos 	fmt = fmt0;
   1127       1.45     chuck 	ret = 0;
   1128       1.45     chuck 
   1129       1.45     chuck 	xdigs = NULL;		/* XXX: shut up gcc warning */
   1130       1.45     chuck 
   1131       1.45     chuck 	/*
   1132       1.45     chuck 	 * Scan the format for conversions (`%' character).
   1133       1.45     chuck 	 */
   1134       1.45     chuck 	for (;;) {
   1135       1.45     chuck 		while (*fmt != '%' && *fmt) {
   1136       1.58   msaitoh 			ret++;
   1137       1.45     chuck 			KPRINTF_PUTCHAR(*fmt++);
   1138       1.45     chuck 		}
   1139       1.45     chuck 		if (*fmt == 0)
   1140       1.45     chuck 			goto done;
   1141       1.45     chuck 
   1142       1.45     chuck 		fmt++;		/* skip over '%' */
   1143       1.45     chuck 
   1144       1.45     chuck 		flags = 0;
   1145       1.45     chuck 		dprec = 0;
   1146       1.45     chuck 		width = 0;
   1147       1.45     chuck 		prec = -1;
   1148       1.45     chuck 		sign = '\0';
   1149       1.45     chuck 
   1150       1.45     chuck rflag:		ch = *fmt++;
   1151       1.45     chuck reswitch:	switch (ch) {
   1152       1.45     chuck 		case ' ':
   1153       1.45     chuck 			/*
   1154       1.45     chuck 			 * ``If the space and + flags both appear, the space
   1155       1.45     chuck 			 * flag will be ignored.''
   1156       1.45     chuck 			 *	-- ANSI X3J11
   1157       1.45     chuck 			 */
   1158       1.45     chuck 			if (!sign)
   1159       1.45     chuck 				sign = ' ';
   1160       1.45     chuck 			goto rflag;
   1161       1.45     chuck 		case '#':
   1162       1.45     chuck 			flags |= ALT;
   1163       1.45     chuck 			goto rflag;
   1164       1.45     chuck 		case '*':
   1165       1.45     chuck 			/*
   1166       1.45     chuck 			 * ``A negative field width argument is taken as a
   1167       1.45     chuck 			 * - flag followed by a positive field width.''
   1168       1.45     chuck 			 *	-- ANSI X3J11
   1169       1.45     chuck 			 * They don't exclude field widths read from args.
   1170       1.45     chuck 			 */
   1171       1.45     chuck 			if ((width = va_arg(ap, int)) >= 0)
   1172       1.45     chuck 				goto rflag;
   1173       1.45     chuck 			width = -width;
   1174       1.45     chuck 			/* FALLTHROUGH */
   1175       1.45     chuck 		case '-':
   1176       1.45     chuck 			flags |= LADJUST;
   1177       1.45     chuck 			goto rflag;
   1178       1.45     chuck 		case '+':
   1179       1.45     chuck 			sign = '+';
   1180       1.45     chuck 			goto rflag;
   1181       1.45     chuck 		case '.':
   1182       1.45     chuck 			if ((ch = *fmt++) == '*') {
   1183       1.45     chuck 				n = va_arg(ap, int);
   1184       1.45     chuck 				prec = n < 0 ? -1 : n;
   1185       1.45     chuck 				goto rflag;
   1186       1.45     chuck 			}
   1187       1.45     chuck 			n = 0;
   1188       1.45     chuck 			while (is_digit(ch)) {
   1189       1.45     chuck 				n = 10 * n + to_digit(ch);
   1190       1.45     chuck 				ch = *fmt++;
   1191       1.45     chuck 			}
   1192       1.45     chuck 			prec = n < 0 ? -1 : n;
   1193       1.45     chuck 			goto reswitch;
   1194       1.45     chuck 		case '0':
   1195       1.45     chuck 			/*
   1196       1.45     chuck 			 * ``Note that 0 is taken as a flag, not as the
   1197       1.45     chuck 			 * beginning of a field width.''
   1198       1.45     chuck 			 *	-- ANSI X3J11
   1199       1.45     chuck 			 */
   1200       1.45     chuck 			flags |= ZEROPAD;
   1201       1.45     chuck 			goto rflag;
   1202       1.45     chuck 		case '1': case '2': case '3': case '4':
   1203       1.45     chuck 		case '5': case '6': case '7': case '8': case '9':
   1204       1.45     chuck 			n = 0;
   1205       1.45     chuck 			do {
   1206       1.45     chuck 				n = 10 * n + to_digit(ch);
   1207       1.45     chuck 				ch = *fmt++;
   1208       1.45     chuck 			} while (is_digit(ch));
   1209       1.45     chuck 			width = n;
   1210       1.45     chuck 			goto reswitch;
   1211       1.45     chuck 		case 'h':
   1212       1.45     chuck 			flags |= SHORTINT;
   1213       1.45     chuck 			goto rflag;
   1214       1.78    kleink 		case 'j':
   1215       1.78    kleink 			flags |= MAXINT;
   1216       1.78    kleink 			goto rflag;
   1217       1.45     chuck 		case 'l':
   1218       1.45     chuck 			if (*fmt == 'l') {
   1219       1.45     chuck 				fmt++;
   1220       1.45     chuck 				flags |= QUADINT;
   1221       1.45     chuck 			} else {
   1222       1.45     chuck 				flags |= LONGINT;
   1223       1.45     chuck 			}
   1224       1.45     chuck 			goto rflag;
   1225       1.45     chuck 		case 'q':
   1226       1.45     chuck 			flags |= QUADINT;
   1227       1.45     chuck 			goto rflag;
   1228       1.78    kleink 		case 't':
   1229       1.78    kleink 			flags |= PTRINT;
   1230       1.78    kleink 			goto rflag;
   1231       1.78    kleink 		case 'z':
   1232       1.78    kleink 			flags |= SIZEINT;
   1233       1.78    kleink 			goto rflag;
   1234       1.45     chuck 		case 'c':
   1235       1.98  christos 			*(cp = bf) = va_arg(ap, int);
   1236       1.45     chuck 			size = 1;
   1237       1.45     chuck 			sign = '\0';
   1238       1.45     chuck 			break;
   1239       1.45     chuck 		case 'D':
   1240       1.45     chuck 			flags |= LONGINT;
   1241       1.45     chuck 			/*FALLTHROUGH*/
   1242       1.45     chuck 		case 'd':
   1243       1.45     chuck 		case 'i':
   1244       1.45     chuck 			_uquad = SARG();
   1245       1.45     chuck 			if ((quad_t)_uquad < 0) {
   1246       1.45     chuck 				_uquad = -_uquad;
   1247       1.45     chuck 				sign = '-';
   1248       1.45     chuck 			}
   1249       1.45     chuck 			base = DEC;
   1250       1.45     chuck 			goto number;
   1251       1.45     chuck 		case 'n':
   1252       1.78    kleink 			if (flags & MAXINT)
   1253       1.78    kleink 				*va_arg(ap, intmax_t *) = ret;
   1254       1.78    kleink 			else if (flags & PTRINT)
   1255       1.78    kleink 				*va_arg(ap, intptr_t *) = ret;
   1256       1.78    kleink 			else if (flags & SIZEINT)
   1257       1.78    kleink 				*va_arg(ap, ssize_t *) = ret;
   1258       1.78    kleink 			else if (flags & QUADINT)
   1259       1.45     chuck 				*va_arg(ap, quad_t *) = ret;
   1260       1.45     chuck 			else if (flags & LONGINT)
   1261       1.45     chuck 				*va_arg(ap, long *) = ret;
   1262       1.45     chuck 			else if (flags & SHORTINT)
   1263       1.45     chuck 				*va_arg(ap, short *) = ret;
   1264       1.45     chuck 			else
   1265       1.45     chuck 				*va_arg(ap, int *) = ret;
   1266       1.45     chuck 			continue;	/* no output */
   1267       1.45     chuck 		case 'O':
   1268       1.45     chuck 			flags |= LONGINT;
   1269       1.45     chuck 			/*FALLTHROUGH*/
   1270       1.45     chuck 		case 'o':
   1271       1.45     chuck 			_uquad = UARG();
   1272       1.45     chuck 			base = OCT;
   1273       1.45     chuck 			goto nosign;
   1274       1.45     chuck 		case 'p':
   1275       1.45     chuck 			/*
   1276       1.45     chuck 			 * ``The argument shall be a pointer to void.  The
   1277       1.45     chuck 			 * value of the pointer is converted to a sequence
   1278       1.45     chuck 			 * of printable characters, in an implementation-
   1279       1.45     chuck 			 * defined manner.''
   1280       1.45     chuck 			 *	-- ANSI X3J11
   1281       1.45     chuck 			 */
   1282       1.45     chuck 			/* NOSTRICT */
   1283       1.45     chuck 			_uquad = (u_long)va_arg(ap, void *);
   1284       1.45     chuck 			base = HEX;
   1285       1.97  christos 			xdigs = hexdigits;
   1286       1.45     chuck 			flags |= HEXPREFIX;
   1287       1.45     chuck 			ch = 'x';
   1288       1.45     chuck 			goto nosign;
   1289       1.45     chuck 		case 's':
   1290       1.45     chuck 			if ((cp = va_arg(ap, char *)) == NULL)
   1291       1.98  christos 				/*XXXUNCONST*/
   1292       1.98  christos 				cp = __UNCONST("(null)");
   1293       1.45     chuck 			if (prec >= 0) {
   1294       1.45     chuck 				/*
   1295       1.45     chuck 				 * can't use strlen; can only look for the
   1296       1.45     chuck 				 * NUL in the first `prec' characters, and
   1297       1.45     chuck 				 * strlen() will go further.
   1298       1.45     chuck 				 */
   1299       1.45     chuck 				char *p = memchr(cp, 0, prec);
   1300       1.45     chuck 
   1301       1.45     chuck 				if (p != NULL) {
   1302       1.45     chuck 					size = p - cp;
   1303       1.45     chuck 					if (size > prec)
   1304       1.45     chuck 						size = prec;
   1305       1.45     chuck 				} else
   1306       1.45     chuck 					size = prec;
   1307       1.45     chuck 			} else
   1308       1.45     chuck 				size = strlen(cp);
   1309       1.45     chuck 			sign = '\0';
   1310       1.45     chuck 			break;
   1311       1.45     chuck 		case 'U':
   1312       1.45     chuck 			flags |= LONGINT;
   1313       1.45     chuck 			/*FALLTHROUGH*/
   1314       1.45     chuck 		case 'u':
   1315       1.45     chuck 			_uquad = UARG();
   1316       1.45     chuck 			base = DEC;
   1317       1.45     chuck 			goto nosign;
   1318       1.45     chuck 		case 'X':
   1319      1.103    martin 			xdigs = HEXDIGITS;
   1320       1.45     chuck 			goto hex;
   1321       1.45     chuck 		case 'x':
   1322       1.97  christos 			xdigs = hexdigits;
   1323       1.45     chuck hex:			_uquad = UARG();
   1324       1.45     chuck 			base = HEX;
   1325       1.45     chuck 			/* leading 0x/X only if non-zero */
   1326       1.45     chuck 			if (flags & ALT && _uquad != 0)
   1327       1.45     chuck 				flags |= HEXPREFIX;
   1328       1.45     chuck 
   1329       1.45     chuck 			/* unsigned conversions */
   1330       1.45     chuck nosign:			sign = '\0';
   1331       1.45     chuck 			/*
   1332       1.45     chuck 			 * ``... diouXx conversions ... if a precision is
   1333       1.45     chuck 			 * specified, the 0 flag will be ignored.''
   1334       1.45     chuck 			 *	-- ANSI X3J11
   1335       1.45     chuck 			 */
   1336       1.45     chuck number:			if ((dprec = prec) >= 0)
   1337       1.45     chuck 				flags &= ~ZEROPAD;
   1338       1.45     chuck 
   1339       1.45     chuck 			/*
   1340       1.45     chuck 			 * ``The result of converting a zero value with an
   1341       1.45     chuck 			 * explicit precision of zero is no characters.''
   1342       1.45     chuck 			 *	-- ANSI X3J11
   1343       1.45     chuck 			 */
   1344       1.98  christos 			cp = bf + KPRINTF_BUFSIZE;
   1345       1.45     chuck 			if (_uquad != 0 || prec != 0) {
   1346       1.45     chuck 				/*
   1347       1.45     chuck 				 * Unsigned mod is hard, and unsigned mod
   1348       1.45     chuck 				 * by a constant is easier than that by
   1349       1.45     chuck 				 * a variable; hence this switch.
   1350       1.45     chuck 				 */
   1351       1.45     chuck 				switch (base) {
   1352       1.45     chuck 				case OCT:
   1353       1.45     chuck 					do {
   1354       1.45     chuck 						*--cp = to_char(_uquad & 7);
   1355       1.45     chuck 						_uquad >>= 3;
   1356       1.45     chuck 					} while (_uquad);
   1357       1.45     chuck 					/* handle octal leading 0 */
   1358       1.45     chuck 					if (flags & ALT && *cp != '0')
   1359       1.45     chuck 						*--cp = '0';
   1360       1.45     chuck 					break;
   1361       1.45     chuck 
   1362       1.45     chuck 				case DEC:
   1363       1.45     chuck 					/* many numbers are 1 digit */
   1364       1.45     chuck 					while (_uquad >= 10) {
   1365       1.45     chuck 						*--cp = to_char(_uquad % 10);
   1366       1.45     chuck 						_uquad /= 10;
   1367       1.45     chuck 					}
   1368       1.45     chuck 					*--cp = to_char(_uquad);
   1369       1.45     chuck 					break;
   1370       1.45     chuck 
   1371       1.45     chuck 				case HEX:
   1372       1.45     chuck 					do {
   1373       1.45     chuck 						*--cp = xdigs[_uquad & 15];
   1374       1.45     chuck 						_uquad >>= 4;
   1375       1.45     chuck 					} while (_uquad);
   1376       1.45     chuck 					break;
   1377       1.45     chuck 
   1378       1.45     chuck 				default:
   1379       1.98  christos 					/*XXXUNCONST*/
   1380       1.98  christos 					cp = __UNCONST("bug in kprintf: bad base");
   1381       1.45     chuck 					size = strlen(cp);
   1382       1.45     chuck 					goto skipsize;
   1383       1.45     chuck 				}
   1384       1.45     chuck 			}
   1385       1.98  christos 			size = bf + KPRINTF_BUFSIZE - cp;
   1386       1.45     chuck 		skipsize:
   1387       1.45     chuck 			break;
   1388       1.45     chuck 		default:	/* "%?" prints ?, unless ? is NUL */
   1389       1.45     chuck 			if (ch == '\0')
   1390       1.45     chuck 				goto done;
   1391       1.45     chuck 			/* pretend it was %c with argument ch */
   1392       1.98  christos 			cp = bf;
   1393       1.45     chuck 			*cp = ch;
   1394       1.45     chuck 			size = 1;
   1395       1.45     chuck 			sign = '\0';
   1396       1.45     chuck 			break;
   1397       1.45     chuck 		}
   1398       1.45     chuck 
   1399       1.45     chuck 		/*
   1400       1.45     chuck 		 * All reasonable formats wind up here.  At this point, `cp'
   1401       1.45     chuck 		 * points to a string which (if not flags&LADJUST) should be
   1402       1.45     chuck 		 * padded out to `width' places.  If flags&ZEROPAD, it should
   1403       1.45     chuck 		 * first be prefixed by any sign or other prefix; otherwise,
   1404       1.45     chuck 		 * it should be blank padded before the prefix is emitted.
   1405       1.45     chuck 		 * After any left-hand padding and prefixing, emit zeroes
   1406       1.45     chuck 		 * required by a decimal [diouxX] precision, then print the
   1407       1.45     chuck 		 * string proper, then emit zeroes required by any leftover
   1408       1.45     chuck 		 * floating precision; finally, if LADJUST, pad with blanks.
   1409       1.45     chuck 		 *
   1410       1.45     chuck 		 * Compute actual size, so we know how much to pad.
   1411       1.45     chuck 		 * size excludes decimal prec; realsz includes it.
   1412       1.45     chuck 		 */
   1413       1.45     chuck 		realsz = dprec > size ? dprec : size;
   1414       1.45     chuck 		if (sign)
   1415       1.45     chuck 			realsz++;
   1416       1.45     chuck 		else if (flags & HEXPREFIX)
   1417       1.45     chuck 			realsz+= 2;
   1418       1.45     chuck 
   1419       1.58   msaitoh 		/* adjust ret */
   1420       1.58   msaitoh 		ret += width > realsz ? width : realsz;
   1421       1.58   msaitoh 
   1422       1.45     chuck 		/* right-adjusting blank padding */
   1423       1.45     chuck 		if ((flags & (LADJUST|ZEROPAD)) == 0) {
   1424       1.45     chuck 			n = width - realsz;
   1425       1.45     chuck 			while (n-- > 0)
   1426       1.45     chuck 				KPRINTF_PUTCHAR(' ');
   1427       1.45     chuck 		}
   1428       1.45     chuck 
   1429       1.45     chuck 		/* prefix */
   1430       1.45     chuck 		if (sign) {
   1431       1.45     chuck 			KPRINTF_PUTCHAR(sign);
   1432       1.45     chuck 		} else if (flags & HEXPREFIX) {
   1433       1.45     chuck 			KPRINTF_PUTCHAR('0');
   1434       1.45     chuck 			KPRINTF_PUTCHAR(ch);
   1435       1.45     chuck 		}
   1436       1.45     chuck 
   1437       1.45     chuck 		/* right-adjusting zero padding */
   1438       1.45     chuck 		if ((flags & (LADJUST|ZEROPAD)) == ZEROPAD) {
   1439       1.45     chuck 			n = width - realsz;
   1440       1.45     chuck 			while (n-- > 0)
   1441       1.45     chuck 				KPRINTF_PUTCHAR('0');
   1442       1.45     chuck 		}
   1443       1.45     chuck 
   1444       1.45     chuck 		/* leading zeroes from decimal precision */
   1445       1.45     chuck 		n = dprec - size;
   1446       1.45     chuck 		while (n-- > 0)
   1447       1.45     chuck 			KPRINTF_PUTCHAR('0');
   1448       1.45     chuck 
   1449       1.45     chuck 		/* the string or number proper */
   1450       1.45     chuck 		while (size--)
   1451       1.45     chuck 			KPRINTF_PUTCHAR(*cp++);
   1452       1.45     chuck 		/* left-adjusting padding (always blank) */
   1453       1.45     chuck 		if (flags & LADJUST) {
   1454       1.45     chuck 			n = width - realsz;
   1455       1.45     chuck 			while (n-- > 0)
   1456       1.45     chuck 				KPRINTF_PUTCHAR(' ');
   1457       1.45     chuck 		}
   1458       1.58   msaitoh 	}
   1459       1.45     chuck 
   1460       1.45     chuck done:
   1461       1.58   msaitoh 	if ((oflags == TOBUFONLY) && (vp != NULL))
   1462       1.58   msaitoh 		*(char **)vp = sbuf;
   1463       1.92      matt 	(*v_flush)();
   1464       1.58   msaitoh overflow:
   1465       1.45     chuck 	return (ret);
   1466       1.45     chuck 	/* NOTREACHED */
   1467       1.12       cgd }
   1468