subr_prf.c revision 1.34 1 1.34 gwr /* $NetBSD: subr_prf.c,v 1.34 1996/10/27 20:30:52 gwr 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.12 cgd * 3. All advertising materials mentioning features or use of this software
21 1.12 cgd * must display the following acknowledgement:
22 1.12 cgd * This product includes software developed by the University of
23 1.12 cgd * California, Berkeley and its contributors.
24 1.12 cgd * 4. Neither the name of the University nor the names of its contributors
25 1.12 cgd * may be used to endorse or promote products derived from this software
26 1.12 cgd * without specific prior written permission.
27 1.12 cgd *
28 1.12 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
29 1.12 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
30 1.12 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
31 1.12 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
32 1.12 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
33 1.12 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
34 1.12 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
35 1.12 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
36 1.12 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
37 1.12 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
38 1.12 cgd * SUCH DAMAGE.
39 1.12 cgd *
40 1.15 cgd * @(#)subr_prf.c 8.3 (Berkeley) 1/21/94
41 1.12 cgd */
42 1.12 cgd
43 1.12 cgd #include <sys/param.h>
44 1.12 cgd #include <sys/systm.h>
45 1.12 cgd #include <sys/buf.h>
46 1.12 cgd #include <sys/conf.h>
47 1.12 cgd #include <sys/reboot.h>
48 1.12 cgd #include <sys/msgbuf.h>
49 1.12 cgd #include <sys/proc.h>
50 1.12 cgd #include <sys/ioctl.h>
51 1.12 cgd #include <sys/vnode.h>
52 1.12 cgd #include <sys/file.h>
53 1.12 cgd #include <sys/tty.h>
54 1.12 cgd #include <sys/tprintf.h>
55 1.12 cgd #include <sys/syslog.h>
56 1.12 cgd #include <sys/malloc.h>
57 1.12 cgd
58 1.20 christos #include <dev/cons.h>
59 1.20 christos
60 1.12 cgd /*
61 1.12 cgd * Note that stdarg.h and the ANSI style va_start macro is used for both
62 1.12 cgd * ANSI and traditional C compilers.
63 1.12 cgd */
64 1.12 cgd #include <machine/stdarg.h>
65 1.34 gwr /* XXX - This is a total hack! */
66 1.34 gwr #ifndef va_alist
67 1.34 gwr #define va_alist __builtin_va_alist
68 1.34 gwr #define va_dcl long va_alist; ...
69 1.34 gwr #endif
70 1.12 cgd
71 1.32 ws #include "ipkdb.h"
72 1.28 ws
73 1.12 cgd #ifdef KADB
74 1.12 cgd #include <machine/kdbparam.h>
75 1.22 christos #endif
76 1.22 christos #ifdef KGDB
77 1.22 christos #include <machine/cpu.h>
78 1.12 cgd #endif
79 1.20 christos
80 1.12 cgd #define TOCONS 0x01
81 1.12 cgd #define TOTTY 0x02
82 1.12 cgd #define TOLOG 0x04
83 1.12 cgd
84 1.12 cgd struct tty *constty; /* pointer to console "window" tty */
85 1.12 cgd
86 1.20 christos void (*v_putc) __P((int)) = cnputc; /* routine to putc on virtual console */
87 1.12 cgd
88 1.20 christos static void putchar __P((int, int, struct tty *));
89 1.20 christos static char *ksprintn __P((u_long, int, int *));
90 1.30 christos void kprintf __P((const char *, int, struct tty *, va_list));
91 1.12 cgd
92 1.14 cgd int consintr = 1; /* Ok to handle console interrupts? */
93 1.12 cgd
94 1.12 cgd /*
95 1.14 cgd * Variable panicstr contains argument to first call to panic; used as flag
96 1.14 cgd * to indicate that the kernel has already called panic.
97 1.12 cgd */
98 1.14 cgd const char *panicstr;
99 1.12 cgd
100 1.12 cgd /*
101 1.12 cgd * Panic is called on unresolvable fatal errors. It prints "panic: mesg",
102 1.12 cgd * and then reboots. If we are called twice, then we avoid trying to sync
103 1.12 cgd * the disks as this often leads to recursive panics.
104 1.12 cgd */
105 1.14 cgd void
106 1.12 cgd #ifdef __STDC__
107 1.12 cgd panic(const char *fmt, ...)
108 1.12 cgd #else
109 1.14 cgd panic(fmt, va_alist)
110 1.12 cgd char *fmt;
111 1.20 christos va_dcl
112 1.12 cgd #endif
113 1.12 cgd {
114 1.14 cgd int bootopt;
115 1.12 cgd va_list ap;
116 1.12 cgd
117 1.14 cgd bootopt = RB_AUTOBOOT | RB_DUMP;
118 1.12 cgd if (panicstr)
119 1.12 cgd bootopt |= RB_NOSYNC;
120 1.12 cgd else
121 1.12 cgd panicstr = fmt;
122 1.12 cgd
123 1.12 cgd va_start(ap, fmt);
124 1.31 cgd printf("panic: %:\n", fmt, ap);
125 1.12 cgd va_end(ap);
126 1.12 cgd
127 1.32 ws #if NIPKDB > 0
128 1.32 ws ipkdb_panic();
129 1.28 ws #endif
130 1.12 cgd #ifdef KGDB
131 1.12 cgd kgdb_panic();
132 1.12 cgd #endif
133 1.12 cgd #ifdef KADB
134 1.14 cgd if (boothowto & RB_KDB)
135 1.14 cgd kdbpanic();
136 1.12 cgd #endif
137 1.12 cgd #ifdef DDB
138 1.12 cgd Debugger();
139 1.12 cgd #endif
140 1.26 mrg boot(bootopt, NULL);
141 1.12 cgd }
142 1.12 cgd
143 1.12 cgd /*
144 1.12 cgd * Warn that a system table is full.
145 1.12 cgd */
146 1.12 cgd void
147 1.12 cgd tablefull(tab)
148 1.12 cgd const char *tab;
149 1.12 cgd {
150 1.12 cgd
151 1.12 cgd log(LOG_ERR, "%s: table is full\n", tab);
152 1.12 cgd }
153 1.12 cgd
154 1.12 cgd /*
155 1.12 cgd * Uprintf prints to the controlling terminal for the current process.
156 1.12 cgd * It may block if the tty queue is overfull. No message is printed if
157 1.12 cgd * the queue does not clear in a reasonable time.
158 1.12 cgd */
159 1.12 cgd void
160 1.12 cgd #ifdef __STDC__
161 1.12 cgd uprintf(const char *fmt, ...)
162 1.12 cgd #else
163 1.14 cgd uprintf(fmt, va_alist)
164 1.12 cgd char *fmt;
165 1.20 christos va_dcl
166 1.12 cgd #endif
167 1.12 cgd {
168 1.12 cgd register struct proc *p = curproc;
169 1.12 cgd va_list ap;
170 1.12 cgd
171 1.12 cgd if (p->p_flag & P_CONTROLT && p->p_session->s_ttyvp) {
172 1.12 cgd va_start(ap, fmt);
173 1.30 christos kprintf(fmt, TOTTY, p->p_session->s_ttyp, ap);
174 1.12 cgd va_end(ap);
175 1.12 cgd }
176 1.12 cgd }
177 1.12 cgd
178 1.12 cgd tpr_t
179 1.12 cgd tprintf_open(p)
180 1.12 cgd register struct proc *p;
181 1.12 cgd {
182 1.12 cgd
183 1.12 cgd if (p->p_flag & P_CONTROLT && p->p_session->s_ttyvp) {
184 1.12 cgd SESSHOLD(p->p_session);
185 1.12 cgd return ((tpr_t) p->p_session);
186 1.12 cgd }
187 1.12 cgd return ((tpr_t) NULL);
188 1.12 cgd }
189 1.12 cgd
190 1.12 cgd void
191 1.12 cgd tprintf_close(sess)
192 1.12 cgd tpr_t sess;
193 1.12 cgd {
194 1.12 cgd
195 1.12 cgd if (sess)
196 1.12 cgd SESSRELE((struct session *) sess);
197 1.12 cgd }
198 1.12 cgd
199 1.12 cgd /*
200 1.12 cgd * tprintf prints on the controlling terminal associated
201 1.12 cgd * with the given session.
202 1.12 cgd */
203 1.12 cgd void
204 1.12 cgd #ifdef __STDC__
205 1.12 cgd tprintf(tpr_t tpr, const char *fmt, ...)
206 1.12 cgd #else
207 1.14 cgd tprintf(tpr, fmt, va_alist)
208 1.12 cgd tpr_t tpr;
209 1.12 cgd char *fmt;
210 1.20 christos va_dcl
211 1.12 cgd #endif
212 1.12 cgd {
213 1.12 cgd register struct session *sess = (struct session *)tpr;
214 1.12 cgd struct tty *tp = NULL;
215 1.12 cgd int flags = TOLOG;
216 1.12 cgd va_list ap;
217 1.12 cgd
218 1.12 cgd logpri(LOG_INFO);
219 1.12 cgd if (sess && sess->s_ttyvp && ttycheckoutq(sess->s_ttyp, 0)) {
220 1.12 cgd flags |= TOTTY;
221 1.12 cgd tp = sess->s_ttyp;
222 1.12 cgd }
223 1.12 cgd va_start(ap, fmt);
224 1.30 christos kprintf(fmt, flags, tp, ap);
225 1.12 cgd va_end(ap);
226 1.12 cgd logwakeup();
227 1.12 cgd }
228 1.12 cgd
229 1.12 cgd /*
230 1.12 cgd * Ttyprintf displays a message on a tty; it should be used only by
231 1.12 cgd * the tty driver, or anything that knows the underlying tty will not
232 1.12 cgd * be revoke(2)'d away. Other callers should use tprintf.
233 1.12 cgd */
234 1.12 cgd void
235 1.12 cgd #ifdef __STDC__
236 1.12 cgd ttyprintf(struct tty *tp, const char *fmt, ...)
237 1.12 cgd #else
238 1.14 cgd ttyprintf(tp, fmt, va_alist)
239 1.12 cgd struct tty *tp;
240 1.12 cgd char *fmt;
241 1.20 christos va_dcl
242 1.12 cgd #endif
243 1.12 cgd {
244 1.12 cgd va_list ap;
245 1.12 cgd
246 1.12 cgd va_start(ap, fmt);
247 1.30 christos kprintf(fmt, TOTTY, tp, ap);
248 1.12 cgd va_end(ap);
249 1.12 cgd }
250 1.12 cgd
251 1.12 cgd extern int log_open;
252 1.12 cgd
253 1.12 cgd /*
254 1.12 cgd * Log writes to the log buffer, and guarantees not to sleep (so can be
255 1.12 cgd * called by interrupt routines). If there is no process reading the
256 1.12 cgd * log yet, it writes to the console also.
257 1.12 cgd */
258 1.12 cgd void
259 1.12 cgd #ifdef __STDC__
260 1.12 cgd log(int level, const char *fmt, ...)
261 1.12 cgd #else
262 1.14 cgd log(level, fmt, va_alist)
263 1.12 cgd int level;
264 1.12 cgd char *fmt;
265 1.20 christos va_dcl
266 1.12 cgd #endif
267 1.12 cgd {
268 1.12 cgd register int s;
269 1.12 cgd va_list ap;
270 1.12 cgd
271 1.12 cgd s = splhigh();
272 1.12 cgd logpri(level);
273 1.12 cgd va_start(ap, fmt);
274 1.30 christos kprintf(fmt, TOLOG, NULL, ap);
275 1.12 cgd splx(s);
276 1.12 cgd va_end(ap);
277 1.12 cgd if (!log_open) {
278 1.12 cgd va_start(ap, fmt);
279 1.30 christos kprintf(fmt, TOCONS, NULL, ap);
280 1.12 cgd va_end(ap);
281 1.12 cgd }
282 1.12 cgd logwakeup();
283 1.12 cgd }
284 1.12 cgd
285 1.13 mycroft void
286 1.12 cgd logpri(level)
287 1.12 cgd int level;
288 1.12 cgd {
289 1.12 cgd register int ch;
290 1.12 cgd register char *p;
291 1.12 cgd
292 1.12 cgd putchar('<', TOLOG, NULL);
293 1.20 christos for (p = ksprintn((u_long)level, 10, NULL); (ch = *p--) != 0;)
294 1.12 cgd putchar(ch, TOLOG, NULL);
295 1.12 cgd putchar('>', TOLOG, NULL);
296 1.12 cgd }
297 1.12 cgd
298 1.12 cgd void
299 1.12 cgd #ifdef __STDC__
300 1.12 cgd addlog(const char *fmt, ...)
301 1.12 cgd #else
302 1.14 cgd addlog(fmt, va_alist)
303 1.12 cgd char *fmt;
304 1.20 christos va_dcl
305 1.12 cgd #endif
306 1.12 cgd {
307 1.12 cgd register int s;
308 1.12 cgd va_list ap;
309 1.12 cgd
310 1.12 cgd s = splhigh();
311 1.12 cgd va_start(ap, fmt);
312 1.30 christos kprintf(fmt, TOLOG, NULL, ap);
313 1.12 cgd splx(s);
314 1.12 cgd va_end(ap);
315 1.12 cgd if (!log_open) {
316 1.12 cgd va_start(ap, fmt);
317 1.30 christos kprintf(fmt, TOCONS, NULL, ap);
318 1.12 cgd va_end(ap);
319 1.12 cgd }
320 1.12 cgd logwakeup();
321 1.12 cgd }
322 1.12 cgd
323 1.12 cgd void
324 1.12 cgd #ifdef __STDC__
325 1.30 christos printf(const char *fmt, ...)
326 1.12 cgd #else
327 1.30 christos printf(fmt, va_alist)
328 1.12 cgd char *fmt;
329 1.20 christos va_dcl
330 1.12 cgd #endif
331 1.12 cgd {
332 1.12 cgd va_list ap;
333 1.12 cgd register int savintr;
334 1.12 cgd
335 1.12 cgd savintr = consintr; /* disable interrupts */
336 1.12 cgd consintr = 0;
337 1.12 cgd va_start(ap, fmt);
338 1.30 christos kprintf(fmt, TOCONS | TOLOG, NULL, ap);
339 1.12 cgd va_end(ap);
340 1.12 cgd if (!panicstr)
341 1.12 cgd logwakeup();
342 1.12 cgd consintr = savintr; /* reenable interrupts */
343 1.12 cgd }
344 1.12 cgd
345 1.12 cgd /*
346 1.12 cgd * Scaled down version of printf(3).
347 1.12 cgd *
348 1.12 cgd * Two additional formats:
349 1.12 cgd *
350 1.12 cgd * The format %b is supported to decode error registers.
351 1.12 cgd * Its usage is:
352 1.12 cgd *
353 1.30 christos * printf("reg=%b\n", regval, "<base><arg>*");
354 1.12 cgd *
355 1.12 cgd * where <base> is the output base expressed as a control character, e.g.
356 1.12 cgd * \10 gives octal; \20 gives hex. Each arg is a sequence of characters,
357 1.12 cgd * the first of which gives the bit number to be inspected (origin 1), and
358 1.12 cgd * the next characters (up to a control character, i.e. a character <= 32),
359 1.12 cgd * give the name of the register. Thus:
360 1.12 cgd *
361 1.30 christos * kprintf("reg=%b\n", 3, "\10\2BITTWO\1BITONE\n");
362 1.12 cgd *
363 1.12 cgd * would produce output:
364 1.12 cgd *
365 1.12 cgd * reg=3<BITTWO,BITONE>
366 1.12 cgd *
367 1.24 christos * The format %: passes an additional format string and argument list
368 1.14 cgd * recursively. Its usage is:
369 1.12 cgd *
370 1.14 cgd * fn(char *fmt, ...)
371 1.12 cgd * {
372 1.12 cgd * va_list ap;
373 1.12 cgd * va_start(ap, fmt);
374 1.30 christos * printf("prefix: %: suffix\n", fmt, ap);
375 1.12 cgd * va_end(ap);
376 1.14 cgd * }
377 1.12 cgd *
378 1.12 cgd * Space or zero padding and a field width are supported for the numeric
379 1.12 cgd * formats only.
380 1.12 cgd */
381 1.12 cgd void
382 1.30 christos kprintf(fmt, flags, tp, ap)
383 1.12 cgd register const char *fmt;
384 1.12 cgd int flags;
385 1.12 cgd struct tty *tp;
386 1.12 cgd va_list ap;
387 1.12 cgd {
388 1.14 cgd register char *p, *q;
389 1.12 cgd register int ch, n;
390 1.12 cgd u_long ul;
391 1.12 cgd int base, lflag, tmp, width;
392 1.12 cgd char padc;
393 1.12 cgd
394 1.12 cgd for (;;) {
395 1.12 cgd padc = ' ';
396 1.12 cgd width = 0;
397 1.33 cgd while ((ch = *(const u_char *)fmt++) != '%') {
398 1.12 cgd if (ch == '\0')
399 1.12 cgd return;
400 1.12 cgd putchar(ch, flags, tp);
401 1.12 cgd }
402 1.12 cgd lflag = 0;
403 1.33 cgd reswitch: switch (ch = *(const u_char *)fmt++) {
404 1.12 cgd case '0':
405 1.27 christos case '.':
406 1.12 cgd padc = '0';
407 1.12 cgd goto reswitch;
408 1.12 cgd case '1': case '2': case '3': case '4':
409 1.12 cgd case '5': case '6': case '7': case '8': case '9':
410 1.12 cgd for (width = 0;; ++fmt) {
411 1.12 cgd width = width * 10 + ch - '0';
412 1.12 cgd ch = *fmt;
413 1.12 cgd if (ch < '0' || ch > '9')
414 1.12 cgd break;
415 1.12 cgd }
416 1.12 cgd goto reswitch;
417 1.12 cgd case 'l':
418 1.12 cgd lflag = 1;
419 1.12 cgd goto reswitch;
420 1.12 cgd case 'b':
421 1.12 cgd ul = va_arg(ap, int);
422 1.12 cgd p = va_arg(ap, char *);
423 1.20 christos for (q = ksprintn(ul, *p++, NULL); (ch = *q--) != 0;)
424 1.12 cgd putchar(ch, flags, tp);
425 1.12 cgd
426 1.12 cgd if (!ul)
427 1.12 cgd break;
428 1.12 cgd
429 1.20 christos for (tmp = 0; (n = *p++) != 0;) {
430 1.12 cgd if (ul & (1 << (n - 1))) {
431 1.12 cgd putchar(tmp ? ',' : '<', flags, tp);
432 1.12 cgd for (; (n = *p) > ' '; ++p)
433 1.12 cgd putchar(n, flags, tp);
434 1.12 cgd tmp = 1;
435 1.12 cgd } else
436 1.14 cgd for (; *p > ' '; ++p)
437 1.14 cgd continue;
438 1.12 cgd }
439 1.12 cgd if (tmp)
440 1.12 cgd putchar('>', flags, tp);
441 1.12 cgd break;
442 1.12 cgd case 'c':
443 1.12 cgd putchar(va_arg(ap, int), flags, tp);
444 1.12 cgd break;
445 1.24 christos case ':':
446 1.12 cgd p = va_arg(ap, char *);
447 1.30 christos kprintf(p, flags, tp, va_arg(ap, va_list));
448 1.12 cgd break;
449 1.12 cgd case 's':
450 1.16 mycroft if ((p = va_arg(ap, char *)) == NULL)
451 1.16 mycroft p = "(null)";
452 1.20 christos while ((ch = *p++) != 0)
453 1.12 cgd putchar(ch, flags, tp);
454 1.12 cgd break;
455 1.12 cgd case 'd':
456 1.12 cgd ul = lflag ? va_arg(ap, long) : va_arg(ap, int);
457 1.12 cgd if ((long)ul < 0) {
458 1.12 cgd putchar('-', flags, tp);
459 1.12 cgd ul = -(long)ul;
460 1.12 cgd }
461 1.12 cgd base = 10;
462 1.12 cgd goto number;
463 1.12 cgd case 'o':
464 1.12 cgd ul = lflag ? va_arg(ap, u_long) : va_arg(ap, u_int);
465 1.12 cgd base = 8;
466 1.12 cgd goto number;
467 1.12 cgd case 'u':
468 1.12 cgd ul = lflag ? va_arg(ap, u_long) : va_arg(ap, u_int);
469 1.12 cgd base = 10;
470 1.12 cgd goto number;
471 1.17 mycroft case 'p':
472 1.17 mycroft putchar('0', flags, tp);
473 1.17 mycroft putchar('x', flags, tp);
474 1.18 mycroft ul = (u_long)va_arg(ap, void *);
475 1.18 mycroft base = 16;
476 1.18 mycroft goto number;
477 1.12 cgd case 'x':
478 1.12 cgd ul = lflag ? va_arg(ap, u_long) : va_arg(ap, u_int);
479 1.12 cgd base = 16;
480 1.12 cgd number: p = ksprintn(ul, base, &tmp);
481 1.12 cgd if (width && (width -= tmp) > 0)
482 1.12 cgd while (width--)
483 1.12 cgd putchar(padc, flags, tp);
484 1.20 christos while ((ch = *p--) != 0)
485 1.12 cgd putchar(ch, flags, tp);
486 1.12 cgd break;
487 1.12 cgd default:
488 1.12 cgd putchar('%', flags, tp);
489 1.12 cgd if (lflag)
490 1.12 cgd putchar('l', flags, tp);
491 1.12 cgd /* FALLTHROUGH */
492 1.12 cgd case '%':
493 1.12 cgd putchar(ch, flags, tp);
494 1.12 cgd }
495 1.12 cgd }
496 1.12 cgd }
497 1.12 cgd
498 1.12 cgd /*
499 1.12 cgd * Print a character on console or users terminal. If destination is
500 1.12 cgd * the console then the last MSGBUFS characters are saved in msgbuf for
501 1.12 cgd * inspection later.
502 1.12 cgd */
503 1.12 cgd static void
504 1.12 cgd putchar(c, flags, tp)
505 1.12 cgd register int c;
506 1.12 cgd int flags;
507 1.12 cgd struct tty *tp;
508 1.12 cgd {
509 1.14 cgd extern int msgbufmapped;
510 1.12 cgd register struct msgbuf *mbp;
511 1.12 cgd
512 1.12 cgd if (panicstr)
513 1.12 cgd constty = NULL;
514 1.12 cgd if ((flags & TOCONS) && tp == NULL && constty) {
515 1.12 cgd tp = constty;
516 1.12 cgd flags |= TOTTY;
517 1.12 cgd }
518 1.12 cgd if ((flags & TOTTY) && tp && tputchar(c, tp) < 0 &&
519 1.12 cgd (flags & TOCONS) && tp == constty)
520 1.12 cgd constty = NULL;
521 1.12 cgd if ((flags & TOLOG) &&
522 1.12 cgd c != '\0' && c != '\r' && c != 0177 && msgbufmapped) {
523 1.12 cgd mbp = msgbufp;
524 1.12 cgd if (mbp->msg_magic != MSG_MAGIC) {
525 1.12 cgd bzero((caddr_t)mbp, sizeof(*mbp));
526 1.12 cgd mbp->msg_magic = MSG_MAGIC;
527 1.12 cgd }
528 1.12 cgd mbp->msg_bufc[mbp->msg_bufx++] = c;
529 1.12 cgd if (mbp->msg_bufx < 0 || mbp->msg_bufx >= MSG_BSIZE)
530 1.12 cgd mbp->msg_bufx = 0;
531 1.12 cgd }
532 1.12 cgd if ((flags & TOCONS) && constty == NULL && c != '\0')
533 1.12 cgd (*v_putc)(c);
534 1.12 cgd }
535 1.12 cgd
536 1.12 cgd /*
537 1.12 cgd * Scaled down version of sprintf(3).
538 1.12 cgd */
539 1.20 christos int
540 1.12 cgd #ifdef __STDC__
541 1.30 christos sprintf(char *buf, const char *cfmt, ...)
542 1.12 cgd #else
543 1.30 christos sprintf(buf, cfmt, va_alist)
544 1.34 gwr char *buf;
545 1.34 gwr char *cfmt;
546 1.20 christos va_dcl
547 1.12 cgd #endif
548 1.12 cgd {
549 1.34 gwr register __const char *fmt = cfmt;
550 1.12 cgd register char *p, *bp;
551 1.12 cgd register int ch, base;
552 1.12 cgd u_long ul;
553 1.19 cgd int lflag, tmp, width;
554 1.12 cgd va_list ap;
555 1.19 cgd char padc;
556 1.12 cgd
557 1.12 cgd va_start(ap, cfmt);
558 1.12 cgd for (bp = buf; ; ) {
559 1.19 cgd padc = ' ';
560 1.19 cgd width = 0;
561 1.33 cgd while ((ch = *(const u_char *)fmt++) != '%')
562 1.12 cgd if ((*bp++ = ch) == '\0')
563 1.12 cgd return ((bp - buf) - 1);
564 1.12 cgd
565 1.12 cgd lflag = 0;
566 1.33 cgd reswitch: switch (ch = *(const u_char *)fmt++) {
567 1.19 cgd case '0':
568 1.19 cgd padc = '0';
569 1.19 cgd goto reswitch;
570 1.19 cgd case '1': case '2': case '3': case '4':
571 1.19 cgd case '5': case '6': case '7': case '8': case '9':
572 1.19 cgd for (width = 0;; ++fmt) {
573 1.19 cgd width = width * 10 + ch - '0';
574 1.19 cgd ch = *fmt;
575 1.19 cgd if (ch < '0' || ch > '9')
576 1.19 cgd break;
577 1.19 cgd }
578 1.19 cgd goto reswitch;
579 1.12 cgd case 'l':
580 1.12 cgd lflag = 1;
581 1.12 cgd goto reswitch;
582 1.19 cgd /* case 'b': ... break; XXX */
583 1.12 cgd case 'c':
584 1.12 cgd *bp++ = va_arg(ap, int);
585 1.12 cgd break;
586 1.19 cgd /* case 'r': ... break; XXX */
587 1.12 cgd case 's':
588 1.12 cgd p = va_arg(ap, char *);
589 1.20 christos while ((*bp++ = *p++) != 0)
590 1.14 cgd continue;
591 1.12 cgd --bp;
592 1.12 cgd break;
593 1.12 cgd case 'd':
594 1.12 cgd ul = lflag ? va_arg(ap, long) : va_arg(ap, int);
595 1.12 cgd if ((long)ul < 0) {
596 1.12 cgd *bp++ = '-';
597 1.12 cgd ul = -(long)ul;
598 1.12 cgd }
599 1.12 cgd base = 10;
600 1.12 cgd goto number;
601 1.12 cgd break;
602 1.12 cgd case 'o':
603 1.12 cgd ul = lflag ? va_arg(ap, u_long) : va_arg(ap, u_int);
604 1.12 cgd base = 8;
605 1.12 cgd goto number;
606 1.12 cgd break;
607 1.12 cgd case 'u':
608 1.12 cgd ul = lflag ? va_arg(ap, u_long) : va_arg(ap, u_int);
609 1.12 cgd base = 10;
610 1.12 cgd goto number;
611 1.12 cgd break;
612 1.19 cgd case 'p':
613 1.19 cgd *bp++ = '0';
614 1.19 cgd *bp++ = 'x';
615 1.19 cgd ul = (u_long)va_arg(ap, void *);
616 1.19 cgd base = 16;
617 1.19 cgd goto number;
618 1.12 cgd case 'x':
619 1.12 cgd ul = lflag ? va_arg(ap, u_long) : va_arg(ap, u_int);
620 1.12 cgd base = 16;
621 1.19 cgd number: p = ksprintn(ul, base, &tmp);
622 1.19 cgd if (width && (width -= tmp) > 0)
623 1.19 cgd while (width--)
624 1.19 cgd *bp++ = padc;
625 1.20 christos while ((ch = *p--) != 0)
626 1.12 cgd *bp++ = ch;
627 1.12 cgd break;
628 1.12 cgd default:
629 1.12 cgd *bp++ = '%';
630 1.12 cgd if (lflag)
631 1.12 cgd *bp++ = 'l';
632 1.12 cgd /* FALLTHROUGH */
633 1.12 cgd case '%':
634 1.12 cgd *bp++ = ch;
635 1.12 cgd }
636 1.12 cgd }
637 1.12 cgd va_end(ap);
638 1.12 cgd }
639 1.12 cgd
640 1.12 cgd /*
641 1.12 cgd * Put a number (base <= 16) in a buffer in reverse order; return an
642 1.12 cgd * optional length and a pointer to the NULL terminated (preceded?)
643 1.12 cgd * buffer.
644 1.12 cgd */
645 1.12 cgd static char *
646 1.12 cgd ksprintn(ul, base, lenp)
647 1.12 cgd register u_long ul;
648 1.12 cgd register int base, *lenp;
649 1.12 cgd { /* A long in base 8, plus NULL. */
650 1.12 cgd static char buf[sizeof(long) * NBBY / 3 + 2];
651 1.12 cgd register char *p;
652 1.12 cgd
653 1.12 cgd p = buf;
654 1.12 cgd do {
655 1.12 cgd *++p = "0123456789abcdef"[ul % base];
656 1.12 cgd } while (ul /= base);
657 1.12 cgd if (lenp)
658 1.12 cgd *lenp = p - buf;
659 1.12 cgd return (p);
660 1.12 cgd }
661