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