Annotation of prex-old/usr/lib/libc/stdio/vfprintf.c, Revision 1.1.1.1
1.1 nbrk 1: /*-
2: * Copyright (c) 1990, 1993
3: * The Regents of the University of California. All rights reserved.
4: *
5: * This code is derived from software contributed to Berkeley by
6: * Chris Torek.
7: *
8: * Redistribution and use in source and binary forms, with or without
9: * modification, are permitted provided that the following conditions
10: * are met:
11: * 1. Redistributions of source code must retain the above copyright
12: * notice, this list of conditions and the following disclaimer.
13: * 2. Redistributions in binary form must reproduce the above copyright
14: * notice, this list of conditions and the following disclaimer in the
15: * documentation and/or other materials provided with the distribution.
16: * 3. Neither the name of the University nor the names of its contributors
17: * may be used to endorse or promote products derived from this software
18: * without specific prior written permission.
19: *
20: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30: * SUCH DAMAGE.
31: */
32:
33: /*
34: * Actual printf innards.
35: *
36: * This code is large and complicated...
37: */
38:
39: #include <sys/types.h>
40:
41: #include <limits.h>
42: #include <stdio.h>
43: #include <stdlib.h>
44: #include <string.h>
45: #include <stdarg.h>
46:
47: #include "local.h"
48: #include "fvwrite.h"
49:
50: /*
51: * Flush out all the vectors defined by the given uio,
52: * then reset it so that it can be reused.
53: */
54: static int
55: __sprint(FILE *fp, struct __suio *uio)
56: {
57: int err;
58:
59: if (uio->uio_resid == 0) {
60: uio->uio_iovcnt = 0;
61: return (0);
62: }
63: err = __sfvwrite(fp, uio);
64: uio->uio_resid = 0;
65: uio->uio_iovcnt = 0;
66: return (err);
67: }
68:
69: /*
70: * Helper function for `fprintf to unbuffered unix file': creates a
71: * temporary buffer. We only work on write-only files; this avoids
72: * worries about ungetc buffers and so forth.
73: */
74: static int
75: __sbprintf(FILE *fp, const char *fmt, va_list ap)
76: {
77: int ret;
78: FILE fake;
79: unsigned char buf[BUFSIZ];
80:
81: /* copy the important variables */
82: fake._flags = fp->_flags & ~__SNBF;
83: fake._file = fp->_file;
84:
85: /* set up the buffer */
86: fake._bf._base = fake._p = buf;
87: fake._bf._size = fake._w = sizeof(buf);
88:
89: /* do the work, then copy any error status */
90: ret = vfprintf(&fake, fmt, ap);
91: if (ret >= 0 && fflush(&fake))
92: ret = EOF;
93: if (fake._flags & __SERR)
94: fp->_flags |= __SERR;
95: return (ret);
96: }
97:
98: /*
99: * Macros for converting digits to letters and vice versa
100: */
101: #define to_digit(c) ((c) - '0')
102: #define is_digit(c) ((unsigned)to_digit(c) <= 9)
103: #define to_char(n) ((n) + '0')
104:
105: /*
106: * Convert an unsigned long to ASCII for printf purposes, returning
107: * a pointer to the first character of the string representation.
108: * Octal numbers can be forced to have a leading zero; hex numbers
109: * use the given digits.
110: */
111: static char *
112: __ultoa(u_long val, char *endp, int base, int octzero, char *xdigs)
113: {
114: char *cp = endp;
115: long sval;
116:
117: /*
118: * Handle the three cases separately, in the hope of getting
119: * better/faster code.
120: */
121: switch (base) {
122: case 10:
123: if (val < 10) { /* many numbers are 1 digit */
124: *--cp = to_char(val);
125: return (cp);
126: }
127: /*
128: * On many machines, unsigned arithmetic is harder than
129: * signed arithmetic, so we do at most one unsigned mod and
130: * divide; this is sufficient to reduce the range of
131: * the incoming value to where signed arithmetic works.
132: */
133: if (val > LONG_MAX) {
134: *--cp = to_char(val % 10);
135: sval = val / 10;
136: } else
137: sval = val;
138: do {
139: *--cp = to_char(sval % 10);
140: sval /= 10;
141: } while (sval != 0);
142: break;
143:
144: case 8:
145: do {
146: *--cp = to_char(val & 7);
147: val >>= 3;
148: } while (val);
149: if (octzero && *cp != '0')
150: *--cp = '0';
151: break;
152:
153: case 16:
154: do {
155: *--cp = xdigs[val & 15];
156: val >>= 4;
157: } while (val);
158: break;
159:
160: default: /* oops */
161: abort();
162: }
163: return (cp);
164: }
165:
166:
167: #define BUF 32
168:
169:
170: /*
171: * Flags used during conversion.
172: */
173: #define ALT 0x001 /* alternate form */
174: #define HEXPREFIX 0x002 /* add 0x or 0X prefix */
175: #define LADJUST 0x004 /* left adjustment */
176: #define LONGDBL 0x008 /* long double; unimplemented */
177: #define LONGINT 0x010 /* long integer */
178: #define SHORTINT 0x040 /* short integer */
179: #define ZEROPAD 0x080 /* zero (as opposed to blank) pad */
180: int
181: vfprintf(fp, fmt0, ap)
182: FILE *fp;
183: const char *fmt0;
184: va_list ap;
185: {
186: char *fmt; /* format string */
187: int ch; /* character from fmt */
188: int n; /* handy integer (short term usage) */
189: char *cp; /* handy char pointer (short term usage) */
190: struct __siov *iovp; /* for PRINT macro */
191: int flags; /* flags as above */
192: int ret; /* return value accumulator */
193: int width; /* width from format (%8d), or 0 */
194: int prec; /* precision from format (%.3d), or -1 */
195: char sign; /* sign prefix (' ', '+', '-', or \0) */
196: u_long ulval; /* integer arguments %[diouxX] */
197: int base; /* base for [diouxX] conversion */
198: int dprec; /* a copy of prec if [diouxX], 0 otherwise */
199: int fieldsz; /* field size expanded by sign, etc */
200: int realsz; /* field size expanded by dprec */
201: int size; /* size of converted field or string */
202: char *xdigs = NULL; /* digits for [xX] conversion */
203: #define NIOV 8
204: struct __suio uio; /* output information: summary */
205: struct __siov iov[NIOV];/* ... and individual io vectors */
206: char buf[BUF]; /* space for %c, %[diouxX], %[eEfgG] */
207: char ox[2]; /* space for 0x hex-prefix */
208:
209: /*
210: * Choose PADSIZE to trade efficiency vs. size. If larger printf
211: * fields occur frequently, increase PADSIZE and make the initialisers
212: * below longer.
213: */
214: #define PADSIZE 16 /* pad chunk size */
215: static char blanks[PADSIZE] =
216: {' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' '};
217: static char zeroes[PADSIZE] =
218: {'0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0'};
219:
220: /*
221: * BEWARE, these `goto error' on error, and PAD uses `n'.
222: */
223: #define PRINT(ptr, len) { \
224: iovp->iov_base = (ptr); \
225: iovp->iov_len = (len); \
226: uio.uio_resid += (len); \
227: iovp++; \
228: if (++uio.uio_iovcnt >= NIOV) { \
229: if (__sprint(fp, &uio)) \
230: goto error; \
231: iovp = iov; \
232: } \
233: }
234: #define PAD(howmany, with) { \
235: if ((n = (howmany)) > 0) { \
236: while (n > PADSIZE) { \
237: PRINT(with, PADSIZE); \
238: n -= PADSIZE; \
239: } \
240: PRINT(with, n); \
241: } \
242: }
243: #define FLUSH() { \
244: if (uio.uio_resid && __sprint(fp, &uio)) \
245: goto error; \
246: uio.uio_iovcnt = 0; \
247: iovp = iov; \
248: }
249:
250: /*
251: * To extend shorts properly, we need both signed and unsigned
252: * argument extraction methods.
253: */
254: #define SARG() \
255: (flags&LONGINT ? va_arg(ap, long) : \
256: flags&SHORTINT ? (long)(short)va_arg(ap, int) : \
257: (long)va_arg(ap, int))
258: #define UARG() \
259: (flags&LONGINT ? va_arg(ap, u_long) : \
260: flags&SHORTINT ? (u_long)(u_short)va_arg(ap, int) : \
261: (u_long)va_arg(ap, u_int))
262:
263: /* sorry, fprintf(read_only_file, "") returns EOF, not 0 */
264: if (cantwrite(fp))
265: return (EOF);
266:
267: /* optimise fprintf(stderr) (and other unbuffered Unix files) */
268: if ((fp->_flags & (__SNBF|__SWR|__SRW)) == (__SNBF|__SWR) &&
269: fp->_file >= 0)
270: return (__sbprintf(fp, fmt0, ap));
271:
272: fmt = (char *)fmt0;
273: uio.uio_iov = iovp = iov;
274: uio.uio_resid = 0;
275: uio.uio_iovcnt = 0;
276: ret = 0;
277:
278: /*
279: * Scan the format for conversions (`%' character).
280: */
281: for (;;) {
282: for (cp = fmt; (ch = *fmt) != '\0' && ch != '%'; fmt++)
283: /* void */;
284: if ((n = fmt - cp) != 0) {
285: PRINT(cp, n);
286: ret += n;
287: }
288: if (ch == '\0')
289: goto done;
290: fmt++; /* skip over '%' */
291:
292: flags = 0;
293: dprec = 0;
294: width = 0;
295: prec = -1;
296: sign = '\0';
297:
298: rflag: ch = *fmt++;
299: reswitch: switch (ch) {
300: case ' ':
301: /*
302: * ``If the space and + flags both appear, the space
303: * flag will be ignored.''
304: * -- ANSI X3J11
305: */
306: if (!sign)
307: sign = ' ';
308: goto rflag;
309: case '#':
310: flags |= ALT;
311: goto rflag;
312: case '*':
313: /*
314: * ``A negative field width argument is taken as a
315: * - flag followed by a positive field width.''
316: * -- ANSI X3J11
317: * They don't exclude field widths read from args.
318: */
319: if ((width = va_arg(ap, int)) >= 0)
320: goto rflag;
321: width = -width;
322: /* FALLTHROUGH */
323: case '-':
324: flags |= LADJUST;
325: goto rflag;
326: case '+':
327: sign = '+';
328: goto rflag;
329: case '.':
330: if ((ch = *fmt++) == '*') {
331: n = va_arg(ap, int);
332: prec = n < 0 ? -1 : n;
333: goto rflag;
334: }
335: n = 0;
336: while (is_digit(ch)) {
337: n = 10 * n + to_digit(ch);
338: ch = *fmt++;
339: }
340: prec = n < 0 ? -1 : n;
341: goto reswitch;
342: case '0':
343: /*
344: * ``Note that 0 is taken as a flag, not as the
345: * beginning of a field width.''
346: * -- ANSI X3J11
347: */
348: flags |= ZEROPAD;
349: goto rflag;
350: case '1': case '2': case '3': case '4':
351: case '5': case '6': case '7': case '8': case '9':
352: n = 0;
353: do {
354: n = 10 * n + to_digit(ch);
355: ch = *fmt++;
356: } while (is_digit(ch));
357: width = n;
358: goto reswitch;
359: case 'h':
360: flags |= SHORTINT;
361: goto rflag;
362: case 'l':
363: flags |= LONGINT;
364: goto rflag;
365: case 'c':
366: *(cp = buf) = va_arg(ap, int);
367: size = 1;
368: sign = '\0';
369: break;
370: case 'D':
371: flags |= LONGINT;
372: /*FALLTHROUGH*/
373: case 'd':
374: case 'i':
375: ulval = SARG();
376: if ((long)ulval < 0) {
377: ulval = -ulval;
378: sign = '-';
379: }
380: base = 10;
381: goto number;
382: case 'n':
383: if (flags & LONGINT)
384: *va_arg(ap, long *) = ret;
385: else if (flags & SHORTINT)
386: *va_arg(ap, short *) = ret;
387: else
388: *va_arg(ap, int *) = ret;
389: continue; /* no output */
390: case 'O':
391: flags |= LONGINT;
392: /*FALLTHROUGH*/
393: case 'o':
394: ulval = UARG();
395: base = 8;
396: goto nosign;
397: case 'p':
398: /*
399: * ``The argument shall be a pointer to void. The
400: * value of the pointer is converted to a sequence
401: * of printable characters, in an implementation-
402: * defined manner.''
403: * -- ANSI X3J11
404: */
405: ulval = (u_long)va_arg(ap, void *);
406: base = 16;
407: xdigs = "0123456789abcdef";
408: flags |= HEXPREFIX;
409: ch = 'x';
410: goto nosign;
411: case 's':
412: if ((cp = va_arg(ap, char *)) == NULL)
413: cp = "(null)";
414: if (prec >= 0) {
415: /*
416: * can't use strlen; can only look for the
417: * NUL in the first `prec' characters, and
418: * strlen() will go further.
419: */
420: char *p = memchr(cp, 0, prec);
421:
422: if (p != NULL) {
423: size = p - cp;
424: if (size > prec)
425: size = prec;
426: } else
427: size = prec;
428: } else
429: size = strlen(cp);
430: sign = '\0';
431: break;
432: case 'U':
433: flags |= LONGINT;
434: /*FALLTHROUGH*/
435: case 'u':
436: ulval = UARG();
437: base = 10;
438: goto nosign;
439: case 'X':
440: xdigs = "0123456789ABCDEF";
441: goto hex;
442: case 'x':
443: xdigs = "0123456789abcdef";
444: hex:
445: ulval = UARG();
446: base = 16;
447: /* leading 0x/X only if non-zero */
448: if (flags & ALT && ulval != 0)
449: flags |= HEXPREFIX;
450:
451: /* unsigned conversions */
452: nosign: sign = '\0';
453: /*
454: * ``... diouXx conversions ... if a precision is
455: * specified, the 0 flag will be ignored.''
456: * -- ANSI X3J11
457: */
458: number: if ((dprec = prec) >= 0)
459: flags &= ~ZEROPAD;
460:
461: /*
462: * ``The result of converting a zero value with an
463: * explicit precision of zero is no characters.''
464: * -- ANSI X3J11
465: */
466: cp = buf + BUF;
467: if (ulval != 0 || prec != 0)
468: cp = __ultoa(ulval, cp, base,
469: flags & ALT, xdigs);
470: size = buf + BUF - cp;
471: break;
472: default: /* "%?" prints ?, unless ? is NUL */
473: if (ch == '\0')
474: goto done;
475: /* pretend it was %c with argument ch */
476: cp = buf;
477: *cp = ch;
478: size = 1;
479: sign = '\0';
480: break;
481: }
482:
483: /*
484: * All reasonable formats wind up here. At this point, `cp'
485: * points to a string which (if not flags&LADJUST) should be
486: * padded out to `width' places. If flags&ZEROPAD, it should
487: * first be prefixed by any sign or other prefix; otherwise,
488: * it should be blank padded before the prefix is emitted.
489: * After any left-hand padding and prefixing, emit zeroes
490: * required by a decimal [diouxX] precision, then print the
491: * string proper, then emit zeroes required by any leftover
492: * floating precision; finally, if LADJUST, pad with blanks.
493: *
494: * Compute actual size, so we know how much to pad.
495: * fieldsz excludes decimal prec; realsz includes it.
496: */
497: fieldsz = size;
498: if (sign)
499: fieldsz++;
500: else if (flags & HEXPREFIX)
501: fieldsz += 2;
502: realsz = dprec > fieldsz ? dprec : fieldsz;
503:
504: /* right-adjusting blank padding */
505: if ((flags & (LADJUST|ZEROPAD)) == 0)
506: PAD(width - realsz, blanks);
507:
508: /* prefix */
509: if (sign) {
510: PRINT(&sign, 1);
511: } else if (flags & HEXPREFIX) {
512: ox[0] = '0';
513: ox[1] = ch;
514: PRINT(ox, 2);
515: }
516:
517: /* right-adjusting zero padding */
518: if ((flags & (LADJUST|ZEROPAD)) == ZEROPAD)
519: PAD(width - realsz, zeroes);
520:
521: /* leading zeroes from decimal precision */
522: PAD(dprec - fieldsz, zeroes);
523:
524: /* the string or number proper */
525: PRINT(cp, size);
526:
527: /* left-adjusting padding (always blank) */
528: if (flags & LADJUST)
529: PAD(width - realsz, blanks);
530:
531: /* finally, adjust ret */
532: ret += width > realsz ? width : realsz;
533:
534: FLUSH(); /* copy out the I/O vectors */
535: }
536: done:
537: FLUSH();
538: error:
539: return (__sferror(fp) ? EOF : ret);
540: /* NOTREACHED */
541: }
CVSweb