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