]>
Commit | Line | Data |
---|---|---|
6599da04 JM |
1 | /* |
2 | Copyright (C) 1993 Free Software Foundation | |
3 | ||
4 | This file is part of the GNU IO Library. This library is free | |
5 | software; you can redistribute it and/or modify it under the | |
6 | terms of the GNU General Public License as published by the | |
7 | Free Software Foundation; either version 2, or (at your option) | |
8 | any later version. | |
9 | ||
10 | This library is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with this library; see the file COPYING. If not, write to the Free | |
17 | Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
18 | ||
19 | As a special exception, if you link this library with files | |
20 | compiled with a GNU compiler to produce an executable, this does not cause | |
21 | the resulting executable to be covered by the GNU General Public License. | |
22 | This exception does not however invalidate any other reasons why | |
23 | the executable file might be covered by the GNU General Public License. */ | |
24 | ||
25 | /* | |
26 | * Copyright (c) 1990 Regents of the University of California. | |
27 | * All rights reserved. | |
28 | * | |
29 | * Redistribution and use in source and binary forms are permitted | |
30 | * provided that the above copyright notice and this paragraph are | |
31 | * duplicated in all such forms and that any documentation, | |
32 | * advertising materials, and other materials related to such | |
33 | * distribution and use acknowledge that the software was developed | |
34 | * by the University of California, Berkeley. The name of the | |
35 | * University may not be used to endorse or promote products derived | |
36 | * from this software without specific prior written permission. | |
37 | * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR | |
38 | * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED | |
39 | * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. | |
40 | */ | |
41 | ||
42 | ||
43 | #if defined(LIBC_SCCS) && !defined(lint) | |
44 | static char sccsid[] = "%W% (Berkeley) %G%"; | |
45 | #endif /* LIBC_SCCS and not lint */ | |
46 | ||
47 | /* | |
48 | * Actual printf innards. | |
49 | * | |
50 | * This code is large and complicated... | |
51 | */ | |
52 | ||
53 | #include <sys/types.h> | |
54 | #include "libioP.h" | |
55 | #include <string.h> | |
56 | #ifdef __STDC__ | |
57 | #include <stdarg.h> | |
58 | #else | |
59 | #include <varargs.h> | |
60 | #endif | |
61 | ||
62 | #ifndef _IO_USE_DTOA | |
63 | int __cvt_double __P((double number, register int prec, int flags, int *signp, int fmtch, char *startp, char *endp)); | |
64 | #endif | |
65 | ||
66 | /* | |
67 | * Define FLOATING_POINT to get floating point. | |
68 | */ | |
69 | #ifndef NO_FLOATING_POINT | |
70 | #define FLOATING_POINT | |
71 | #endif | |
72 | ||
73 | /* end of configuration stuff */ | |
74 | ||
75 | ||
76 | /* | |
77 | * Helper "class" for `fprintf to unbuffered': creates a | |
78 | * temporary buffer. */ | |
79 | ||
80 | struct helper_file | |
81 | { | |
82 | struct _IO_FILE_plus _f; | |
83 | _IO_FILE *_put_stream; | |
84 | }; | |
85 | ||
86 | static int | |
e693cc28 UD |
87 | _IO_helper_overflow (fp, c) |
88 | _IO_FILE *fp; | |
89 | int c; | |
6599da04 JM |
90 | { |
91 | _IO_FILE *target = ((struct helper_file*)fp)->_put_stream; | |
92 | int used = fp->_IO_write_ptr - fp->_IO_write_base; | |
93 | if (used) | |
94 | { | |
95 | _IO_sputn(target, fp->_IO_write_base, used); | |
96 | fp->_IO_write_ptr -= used; | |
97 | } | |
98 | return _IO_putc (c, fp); | |
99 | } | |
100 | ||
101 | static struct _IO_jump_t _IO_helper_jumps = { | |
102 | JUMP_INIT_DUMMY, | |
103 | JUMP_INIT(finish, _IO_default_finish), | |
104 | JUMP_INIT(overflow, _IO_helper_overflow), | |
105 | JUMP_INIT(underflow, _IO_default_underflow), | |
106 | JUMP_INIT(uflow, _IO_default_uflow), | |
107 | JUMP_INIT(pbackfail, _IO_default_pbackfail), | |
108 | JUMP_INIT(xsputn, _IO_default_xsputn), | |
109 | JUMP_INIT(xsgetn, _IO_default_xsgetn), | |
110 | JUMP_INIT(seekoff, _IO_default_seekoff), | |
111 | JUMP_INIT(seekpos, _IO_default_seekpos), | |
112 | JUMP_INIT(setbuf, _IO_default_setbuf), | |
113 | JUMP_INIT(sync, _IO_default_sync), | |
114 | JUMP_INIT(doallocate, _IO_default_doallocate), | |
115 | JUMP_INIT(read, _IO_default_read), | |
116 | JUMP_INIT(write, _IO_default_write), | |
117 | JUMP_INIT(seek, _IO_default_seek), | |
118 | JUMP_INIT(close, _IO_default_close), | |
119 | JUMP_INIT(stat, _IO_default_stat) | |
120 | }; | |
121 | ||
122 | static int | |
e693cc28 UD |
123 | helper_vfprintf (fp, fmt0, ap) |
124 | _IO_FILE *fp; | |
125 | char const *fmt0; | |
126 | _IO_va_list ap; | |
6599da04 JM |
127 | { |
128 | char buf[_IO_BUFSIZ]; | |
129 | struct helper_file helper; | |
130 | register _IO_FILE *hp = (_IO_FILE*)&helper; | |
131 | int result, to_flush; | |
132 | ||
133 | /* initialize helper */ | |
134 | helper._put_stream = fp; | |
135 | hp->_IO_write_base = buf; | |
136 | hp->_IO_write_ptr = buf; | |
137 | hp->_IO_write_end = buf+_IO_BUFSIZ; | |
138 | hp->_IO_file_flags = _IO_MAGIC|_IO_NO_READS; | |
139 | _IO_JUMPS(hp) = &_IO_helper_jumps; | |
140 | ||
141 | /* Now print to helper instead. */ | |
142 | result = _IO_vfprintf(hp, fmt0, ap); | |
143 | ||
144 | /* Now flush anything from the helper to the fp. */ | |
145 | if ((to_flush = hp->_IO_write_ptr - hp->_IO_write_base) > 0) | |
146 | { | |
147 | if (_IO_sputn(fp, hp->_IO_write_base, to_flush) != to_flush) | |
148 | return EOF; | |
149 | } | |
150 | return result; | |
151 | } | |
152 | ||
153 | #ifdef FLOATING_POINT | |
154 | ||
155 | #include "floatio.h" | |
156 | #define BUF (MAXEXP+MAXFRACT+1) /* + decimal point */ | |
157 | #define DEFPREC 6 | |
158 | extern double modf __P((double, double*)); | |
159 | ||
160 | #else /* no FLOATING_POINT */ | |
161 | ||
162 | #define BUF 40 | |
163 | ||
164 | #endif /* FLOATING_POINT */ | |
165 | ||
166 | ||
167 | /* | |
168 | * Macros for converting digits to letters and vice versa | |
169 | */ | |
170 | #define to_digit(c) ((c) - '0') | |
171 | #define is_digit(c) ((unsigned)to_digit(c) <= 9) | |
172 | #define to_char(n) ((n) + '0') | |
173 | ||
174 | /* | |
175 | * Flags used during conversion. | |
176 | */ | |
177 | #define LONGINT 0x01 /* long integer */ | |
178 | #define LONGDBL 0x02 /* long double; unimplemented */ | |
179 | #define SHORTINT 0x04 /* short integer */ | |
180 | #define ALT 0x08 /* alternate form */ | |
181 | #define LADJUST 0x10 /* left adjustment */ | |
182 | #define ZEROPAD 0x20 /* zero (as opposed to blank) pad */ | |
183 | #define HEXPREFIX 0x40 /* add 0x or 0X prefix */ | |
184 | ||
185 | int | |
e693cc28 UD |
186 | _IO_vfprintf (fp, fmt0, ap) |
187 | _IO_FILE *fp; | |
188 | char const *fmt0; | |
189 | _IO_va_list ap; | |
6599da04 JM |
190 | { |
191 | register const char *fmt; /* format string */ | |
192 | register int ch; /* character from fmt */ | |
193 | register int n; /* handy integer (short term usage) */ | |
194 | register char *cp; /* handy char pointer (short term usage) */ | |
195 | const char *fmark; /* for remembering a place in fmt */ | |
196 | register int flags; /* flags as above */ | |
197 | int ret; /* return value accumulator */ | |
198 | int width; /* width from format (%8d), or 0 */ | |
199 | int prec; /* precision from format (%.3d), or -1 */ | |
200 | char sign; /* sign prefix (' ', '+', '-', or \0) */ | |
201 | #ifdef FLOATING_POINT | |
202 | int softsign; /* temporary negative sign for floats */ | |
203 | double _double; /* double precision arguments %[eEfgG] */ | |
204 | #ifndef _IO_USE_DTOA | |
205 | int fpprec; /* `extra' floating precision in [eEfgG] */ | |
206 | #endif | |
207 | #endif | |
208 | unsigned long _ulong; /* integer arguments %[diouxX] */ | |
209 | enum { OCT, DEC, HEX } base;/* base for [diouxX] conversion */ | |
210 | int dprec; /* a copy of prec if [diouxX], 0 otherwise */ | |
211 | int dpad; /* extra 0 padding needed for integers */ | |
212 | int fieldsz; /* field size expanded by sign, dpad etc */ | |
213 | /* The initialization of 'size' is to suppress a warning that | |
214 | 'size' might be used unitialized. It seems gcc can't | |
215 | quite grok this spaghetti code ... */ | |
216 | int size = 0; /* size of converted field or string */ | |
217 | char buf[BUF]; /* space for %c, %[diouxX], %[eEfgG] */ | |
218 | char ox[2]; /* space for 0x hex-prefix */ | |
219 | ||
220 | /* | |
221 | * BEWARE, these `goto error' on error, and PAD uses `n'. | |
222 | */ | |
223 | #define PRINT(ptr, len) \ | |
224 | do { if (_IO_sputn(fp,ptr, len) != len) goto error; } while (0) | |
225 | #define PAD_SP(howmany) if (_IO_padn(fp, ' ', howmany) < (howmany)) goto error; | |
226 | #define PAD_0(howmany) if (_IO_padn(fp, '0', howmany) < (howmany)) goto error; | |
227 | ||
228 | /* | |
229 | * To extend shorts properly, we need both signed and unsigned | |
230 | * argument extraction methods. | |
231 | */ | |
232 | #define SARG() \ | |
233 | (flags&LONGINT ? va_arg(ap, long) : \ | |
234 | flags&SHORTINT ? (long)(short)va_arg(ap, int) : \ | |
235 | (long)va_arg(ap, int)) | |
236 | #define UARG() \ | |
237 | (flags&LONGINT ? va_arg(ap, unsigned long) : \ | |
238 | flags&SHORTINT ? (unsigned long)(unsigned short)va_arg(ap, int) : \ | |
239 | (unsigned long)va_arg(ap, unsigned int)) | |
240 | ||
241 | /* optimise stderr (and other unbuffered Unix files) */ | |
242 | if (fp->_IO_file_flags & _IO_UNBUFFERED) | |
243 | return helper_vfprintf(fp, fmt0, ap); | |
244 | ||
245 | fmt = fmt0; | |
246 | ret = 0; | |
247 | ||
248 | /* | |
249 | * Scan the format for conversions (`%' character). | |
250 | */ | |
251 | for (;;) { | |
252 | for (fmark = fmt; (ch = *fmt) != '\0' && ch != '%'; fmt++) | |
253 | /* void */; | |
254 | if ((n = fmt - fmark) != 0) { | |
255 | PRINT(fmark, n); | |
256 | ret += n; | |
257 | } | |
258 | if (ch == '\0') | |
259 | goto done; | |
260 | fmt++; /* skip over '%' */ | |
261 | ||
262 | flags = 0; | |
263 | dprec = 0; | |
264 | #if defined(FLOATING_POINT) && !defined (_IO_USE_DTOA) | |
265 | fpprec = 0; | |
266 | #endif | |
267 | width = 0; | |
268 | prec = -1; | |
269 | sign = '\0'; | |
270 | ||
271 | rflag: ch = *fmt++; | |
272 | reswitch: switch (ch) { | |
273 | case ' ': | |
274 | /* | |
275 | * ``If the space and + flags both appear, the space | |
276 | * flag will be ignored.'' | |
277 | * -- ANSI X3J11 | |
278 | */ | |
279 | if (!sign) | |
280 | sign = ' '; | |
281 | goto rflag; | |
282 | case '#': | |
283 | flags |= ALT; | |
284 | goto rflag; | |
285 | case '*': | |
286 | /* | |
287 | * ``A negative field width argument is taken as a | |
288 | * - flag followed by a positive field width.'' | |
289 | * -- ANSI X3J11 | |
290 | * They don't exclude field widths read from args. | |
291 | */ | |
292 | if ((width = va_arg(ap, int)) >= 0) | |
293 | goto rflag; | |
294 | width = -width; | |
295 | /* FALLTHROUGH */ | |
296 | case '-': | |
297 | flags |= LADJUST; | |
298 | flags &= ~ZEROPAD; /* '-' disables '0' */ | |
299 | goto rflag; | |
300 | case '+': | |
301 | sign = '+'; | |
302 | goto rflag; | |
303 | case '.': | |
304 | if ((ch = *fmt++) == '*') { | |
305 | n = va_arg(ap, int); | |
306 | prec = n < 0 ? -1 : n; | |
307 | goto rflag; | |
308 | } | |
309 | n = 0; | |
310 | while (is_digit(ch)) { | |
311 | n = 10 * n + to_digit(ch); | |
312 | ch = *fmt++; | |
313 | } | |
314 | prec = n < 0 ? -1 : n; | |
315 | goto reswitch; | |
316 | case '0': | |
317 | /* | |
318 | * ``Note that 0 is taken as a flag, not as the | |
319 | * beginning of a field width.'' | |
320 | * -- ANSI X3J11 | |
321 | */ | |
322 | if (!(flags & LADJUST)) | |
323 | flags |= ZEROPAD; /* '-' disables '0' */ | |
324 | goto rflag; | |
325 | case '1': case '2': case '3': case '4': | |
326 | case '5': case '6': case '7': case '8': case '9': | |
327 | n = 0; | |
328 | do { | |
329 | n = 10 * n + to_digit(ch); | |
330 | ch = *fmt++; | |
331 | } while (is_digit(ch)); | |
332 | width = n; | |
333 | goto reswitch; | |
334 | #ifdef FLOATING_POINT | |
335 | case 'L': | |
336 | flags |= LONGDBL; | |
337 | goto rflag; | |
338 | #endif | |
339 | case 'h': | |
340 | flags |= SHORTINT; | |
341 | goto rflag; | |
342 | case 'l': | |
343 | flags |= LONGINT; | |
344 | goto rflag; | |
345 | case 'c': | |
346 | *(cp = buf) = va_arg(ap, int); | |
347 | size = 1; | |
348 | sign = '\0'; | |
349 | break; | |
350 | case 'D': | |
351 | flags |= LONGINT; | |
352 | /*FALLTHROUGH*/ | |
353 | case 'd': | |
354 | case 'i': | |
355 | _ulong = SARG(); | |
356 | if ((long)_ulong < 0) { | |
357 | _ulong = -_ulong; | |
358 | sign = '-'; | |
359 | } | |
360 | base = DEC; | |
361 | goto number; | |
362 | #ifdef FLOATING_POINT | |
363 | case 'e': | |
364 | case 'E': | |
365 | case 'f': | |
366 | case 'F': | |
367 | case 'g': | |
368 | case 'G': | |
369 | _double = va_arg(ap, double); | |
370 | #ifdef _IO_USE_DTOA | |
371 | { | |
372 | int fmt_flags = 0; | |
373 | int fill = ' '; | |
374 | if (flags & ALT) | |
375 | fmt_flags |= _IO_SHOWPOINT; | |
376 | if (flags & LADJUST) | |
377 | fmt_flags |= _IO_LEFT; | |
378 | else if (flags & ZEROPAD) | |
379 | fmt_flags |= _IO_INTERNAL, fill = '0'; | |
380 | n = _IO_outfloat(_double, fp, ch, width, | |
381 | prec < 0 ? DEFPREC : prec, | |
382 | fmt_flags, sign, fill); | |
383 | if (n < 0) | |
384 | goto error; | |
385 | ret += n; | |
386 | } | |
387 | /* CHECK ERROR! */ | |
388 | continue; | |
389 | #else | |
390 | /* | |
391 | * don't do unrealistic precision; just pad it with | |
392 | * zeroes later, so buffer size stays rational. | |
393 | */ | |
394 | if (prec > MAXFRACT) { | |
395 | if ((ch != 'g' && ch != 'G') || (flags&ALT)) | |
396 | fpprec = prec - MAXFRACT; | |
397 | prec = MAXFRACT; | |
398 | } else if (prec == -1) | |
399 | prec = DEFPREC; | |
400 | /* __cvt_double may have to round up before the | |
401 | "start" of its buffer, i.e. | |
402 | ``intf("%.2f", (double)9.999);''; | |
403 | if the first character is still NUL, it did. | |
404 | softsign avoids negative 0 if _double < 0 but | |
405 | no significant digits will be shown. */ | |
406 | cp = buf; | |
407 | *cp = '\0'; | |
408 | size = __cvt_double(_double, prec, flags, &softsign, | |
409 | ch, cp, buf + sizeof(buf)); | |
410 | if (softsign) | |
411 | sign = '-'; | |
412 | if (*cp == '\0') | |
413 | cp++; | |
414 | break; | |
415 | #endif | |
416 | #endif /* FLOATING_POINT */ | |
417 | case 'n': | |
418 | if (flags & LONGINT) | |
419 | *va_arg(ap, long *) = ret; | |
420 | else if (flags & SHORTINT) | |
421 | *va_arg(ap, short *) = ret; | |
422 | else | |
423 | *va_arg(ap, int *) = ret; | |
424 | continue; /* no output */ | |
425 | case 'O': | |
426 | flags |= LONGINT; | |
427 | /*FALLTHROUGH*/ | |
428 | case 'o': | |
429 | _ulong = UARG(); | |
430 | base = OCT; | |
431 | goto nosign; | |
432 | case 'p': | |
433 | /* | |
434 | * ``The argument shall be a pointer to void. The | |
435 | * value of the pointer is converted to a sequence | |
436 | * of printable characters, in an implementation- | |
437 | * defined manner.'' | |
438 | * -- ANSI X3J11 | |
439 | */ | |
440 | /* NOSTRICT */ | |
441 | _ulong = (unsigned long)va_arg(ap, void *); | |
442 | base = HEX; | |
443 | flags |= HEXPREFIX; | |
444 | ch = 'x'; | |
445 | goto nosign; | |
446 | case 's': | |
447 | if ((cp = va_arg(ap, char *)) == NULL) | |
448 | cp = "(null)"; | |
449 | if (prec >= 0) { | |
450 | /* | |
451 | * can't use strlen; can only look for the | |
452 | * NUL in the first `prec' characters, and | |
453 | * strlen() will go further. | |
454 | */ | |
455 | char *p = (char*)memchr(cp, 0, prec); | |
456 | ||
457 | if (p != NULL) { | |
458 | size = p - cp; | |
459 | if (size > prec) | |
460 | size = prec; | |
461 | } else | |
462 | size = prec; | |
463 | } else | |
464 | size = strlen(cp); | |
465 | sign = '\0'; | |
466 | break; | |
467 | case 'U': | |
468 | flags |= LONGINT; | |
469 | /*FALLTHROUGH*/ | |
470 | case 'u': | |
471 | _ulong = UARG(); | |
472 | base = DEC; | |
473 | goto nosign; | |
474 | case 'X': | |
475 | case 'x': | |
476 | _ulong = UARG(); | |
477 | base = HEX; | |
478 | /* leading 0x/X only if non-zero */ | |
479 | if (flags & ALT && _ulong != 0) | |
480 | flags |= HEXPREFIX; | |
481 | ||
482 | /* unsigned conversions */ | |
483 | nosign: sign = '\0'; | |
484 | /* | |
485 | * ``... diouXx conversions ... if a precision is | |
486 | * specified, the 0 flag will be ignored.'' | |
487 | * -- ANSI X3J11 | |
488 | */ | |
489 | number: if ((dprec = prec) >= 0) | |
490 | flags &= ~ZEROPAD; | |
491 | ||
492 | /* | |
493 | * ``The result of converting a zero value with an | |
494 | * explicit precision of zero is no characters.'' | |
495 | * -- ANSI X3J11 | |
496 | */ | |
497 | cp = buf + BUF; | |
498 | if (_ulong != 0 || prec != 0) { | |
499 | char *xdigs; /* digits for [xX] conversion */ | |
500 | /* | |
501 | * unsigned mod is hard, and unsigned mod | |
502 | * by a constant is easier than that by | |
503 | * a variable; hence this switch. | |
504 | */ | |
505 | switch (base) { | |
506 | case OCT: | |
507 | do { | |
508 | *--cp = to_char(_ulong & 7); | |
509 | _ulong >>= 3; | |
510 | } while (_ulong); | |
511 | /* handle octal leading 0 */ | |
512 | if (flags & ALT && *cp != '0') | |
513 | *--cp = '0'; | |
514 | break; | |
515 | ||
516 | case DEC: | |
517 | /* many numbers are 1 digit */ | |
518 | while (_ulong >= 10) { | |
519 | *--cp = to_char(_ulong % 10); | |
520 | _ulong /= 10; | |
521 | } | |
522 | *--cp = to_char(_ulong); | |
523 | break; | |
524 | ||
525 | case HEX: | |
526 | if (ch == 'X') | |
527 | xdigs = "0123456789ABCDEF"; | |
528 | else /* ch == 'x' || ch == 'p' */ | |
529 | xdigs = "0123456789abcdef"; | |
530 | do { | |
531 | *--cp = xdigs[_ulong & 15]; | |
532 | _ulong >>= 4; | |
533 | } while (_ulong); | |
534 | break; | |
535 | ||
536 | default: | |
537 | cp = "bug in vform: bad base"; | |
538 | goto skipsize; | |
539 | } | |
540 | } | |
541 | size = buf + BUF - cp; | |
542 | skipsize: | |
543 | break; | |
544 | default: /* "%?" prints ?, unless ? is NUL */ | |
545 | if (ch == '\0') | |
546 | goto done; | |
547 | /* pretend it was %c with argument ch */ | |
548 | cp = buf; | |
549 | *cp = ch; | |
550 | size = 1; | |
551 | sign = '\0'; | |
552 | break; | |
553 | } | |
554 | ||
555 | /* | |
556 | * All reasonable formats wind up here. At this point, | |
557 | * `cp' points to a string which (if not flags&LADJUST) | |
558 | * should be padded out to `width' places. If | |
559 | * flags&ZEROPAD, it should first be prefixed by any | |
560 | * sign or other prefix; otherwise, it should be blank | |
561 | * padded before the prefix is emitted. After any | |
562 | * left-hand padding and prefixing, emit zeroes | |
563 | * required by a decimal [diouxX] precision, then print | |
564 | * the string proper, then emit zeroes required by any | |
565 | * leftover floating precision; finally, if LADJUST, | |
566 | * pad with blanks. | |
567 | */ | |
568 | ||
569 | /* | |
570 | * compute actual size, so we know how much to pad. | |
571 | */ | |
572 | #if defined(FLOATING_POINT) && !defined (_IO_USE_DTOA) | |
573 | fieldsz = size + fpprec; | |
574 | #else | |
575 | fieldsz = size; | |
576 | #endif | |
577 | dpad = dprec - size; | |
578 | if (dpad < 0) | |
579 | dpad = 0; | |
580 | ||
581 | if (sign) | |
582 | fieldsz++; | |
583 | else if (flags & HEXPREFIX) | |
584 | fieldsz += 2; | |
585 | fieldsz += dpad; | |
586 | ||
587 | /* right-adjusting blank padding */ | |
588 | if ((flags & (LADJUST|ZEROPAD)) == 0) | |
589 | PAD_SP(width - fieldsz); | |
590 | ||
591 | /* prefix */ | |
592 | if (sign) { | |
593 | PRINT(&sign, 1); | |
594 | } else if (flags & HEXPREFIX) { | |
595 | ox[0] = '0'; | |
596 | ox[1] = ch; | |
597 | PRINT(ox, 2); | |
598 | } | |
599 | ||
600 | /* right-adjusting zero padding */ | |
601 | if ((flags & (LADJUST|ZEROPAD)) == ZEROPAD) | |
602 | PAD_0(width - fieldsz); | |
603 | ||
604 | /* leading zeroes from decimal precision */ | |
605 | PAD_0(dpad); | |
606 | ||
607 | /* the string or number proper */ | |
608 | PRINT(cp, size); | |
609 | ||
610 | #if defined(FLOATING_POINT) && !defined (_IO_USE_DTOA) | |
611 | /* trailing f.p. zeroes */ | |
612 | PAD_0(fpprec); | |
613 | #endif | |
614 | ||
615 | /* left-adjusting padding (always blank) */ | |
616 | if (flags & LADJUST) | |
617 | PAD_SP(width - fieldsz); | |
618 | ||
619 | /* finally, adjust ret */ | |
620 | ret += width > fieldsz ? width : fieldsz; | |
621 | ||
622 | } | |
623 | done: | |
624 | return ret; | |
625 | error: | |
626 | return EOF; | |
627 | /* NOTREACHED */ | |
628 | } | |
629 | ||
630 | #if defined(FLOATING_POINT) && !defined(_IO_USE_DTOA) | |
631 | ||
632 | static char *exponent(register char *p, register int exp, int fmtch) | |
633 | { | |
634 | register char *t; | |
635 | char expbuf[MAXEXP]; | |
636 | ||
637 | *p++ = fmtch; | |
638 | if (exp < 0) { | |
639 | exp = -exp; | |
640 | *p++ = '-'; | |
641 | } | |
642 | else | |
643 | *p++ = '+'; | |
644 | t = expbuf + MAXEXP; | |
645 | if (exp > 9) { | |
646 | do { | |
647 | *--t = to_char(exp % 10); | |
648 | } while ((exp /= 10) > 9); | |
649 | *--t = to_char(exp); | |
650 | for (; t < expbuf + MAXEXP; *p++ = *t++); | |
651 | } | |
652 | else { | |
653 | *p++ = '0'; | |
654 | *p++ = to_char(exp); | |
655 | } | |
656 | return (p); | |
657 | } | |
658 | ||
659 | static char * round(double fract, int *exp, | |
660 | register char *start, register char *end, | |
661 | char ch, int *signp) | |
662 | { | |
663 | double tmp; | |
664 | ||
665 | if (fract) | |
666 | (void)modf(fract * 10, &tmp); | |
667 | else | |
668 | tmp = to_digit(ch); | |
669 | if (tmp > 4) | |
670 | for (;; --end) { | |
671 | if (*end == '.') | |
672 | --end; | |
673 | if (++*end <= '9') | |
674 | break; | |
675 | *end = '0'; | |
676 | if (end == start) { | |
677 | if (exp) { /* e/E; increment exponent */ | |
678 | *end = '1'; | |
679 | ++*exp; | |
680 | } | |
681 | else { /* f; add extra digit */ | |
682 | *--end = '1'; | |
683 | --start; | |
684 | } | |
685 | break; | |
686 | } | |
687 | } | |
688 | /* ``"%.3f", (double)-0.0004'' gives you a negative 0. */ | |
689 | else if (*signp == '-') | |
690 | for (;; --end) { | |
691 | if (*end == '.') | |
692 | --end; | |
693 | if (*end != '0') | |
694 | break; | |
695 | if (end == start) | |
696 | *signp = 0; | |
697 | } | |
698 | return (start); | |
699 | } | |
700 | ||
701 | int __cvt_double(double number, register int prec, int flags, int *signp, | |
702 | int fmtch, char *startp, char *endp) | |
703 | { | |
704 | register char *p, *t; | |
705 | register double fract; | |
706 | int dotrim = 0, expcnt, gformat = 0; | |
707 | double integer, tmp; | |
708 | ||
709 | expcnt = 0; | |
710 | if (number < 0) { | |
711 | number = -number; | |
712 | *signp = '-'; | |
713 | } else | |
714 | *signp = 0; | |
715 | ||
716 | fract = modf(number, &integer); | |
717 | ||
718 | /* get an extra slot for rounding. */ | |
719 | t = ++startp; | |
720 | ||
721 | /* | |
722 | * get integer portion of number; put into the end of the buffer; the | |
723 | * .01 is added for modf(356.0 / 10, &integer) returning .59999999... | |
724 | */ | |
725 | for (p = endp - 1; p >= startp && integer; ++expcnt) { | |
726 | tmp = modf(integer / 10, &integer); | |
727 | *p-- = to_char((int)((tmp + .01) * 10)); | |
728 | } | |
729 | switch (fmtch) { | |
730 | case 'f': | |
731 | case 'F': | |
732 | /* reverse integer into beginning of buffer */ | |
733 | if (expcnt) | |
734 | for (; ++p < endp; *t++ = *p); | |
735 | else | |
736 | *t++ = '0'; | |
737 | /* | |
738 | * if precision required or alternate flag set, add in a | |
739 | * decimal point. | |
740 | */ | |
741 | if (prec || flags&ALT) | |
742 | *t++ = '.'; | |
743 | /* if requires more precision and some fraction left */ | |
744 | if (fract) { | |
745 | if (prec) | |
746 | do { | |
747 | fract = modf(fract * 10, &tmp); | |
748 | *t++ = to_char((int)tmp); | |
749 | } while (--prec && fract); | |
750 | if (fract) | |
751 | startp = round(fract, (int *)NULL, startp, | |
752 | t - 1, (char)0, signp); | |
753 | } | |
754 | for (; prec--; *t++ = '0'); | |
755 | break; | |
756 | case 'e': | |
757 | case 'E': | |
758 | eformat: if (expcnt) { | |
759 | *t++ = *++p; | |
760 | if (prec || flags&ALT) | |
761 | *t++ = '.'; | |
762 | /* if requires more precision and some integer left */ | |
763 | for (; prec && ++p < endp; --prec) | |
764 | *t++ = *p; | |
765 | /* | |
766 | * if done precision and more of the integer component, | |
767 | * round using it; adjust fract so we don't re-round | |
768 | * later. | |
769 | */ | |
770 | if (!prec && ++p < endp) { | |
771 | fract = 0; | |
772 | startp = round((double)0, &expcnt, startp, | |
773 | t - 1, *p, signp); | |
774 | } | |
775 | /* adjust expcnt for digit in front of decimal */ | |
776 | --expcnt; | |
777 | } | |
778 | /* until first fractional digit, decrement exponent */ | |
779 | else if (fract) { | |
780 | /* adjust expcnt for digit in front of decimal */ | |
781 | for (expcnt = -1;; --expcnt) { | |
782 | fract = modf(fract * 10, &tmp); | |
783 | if (tmp) | |
784 | break; | |
785 | } | |
786 | *t++ = to_char((int)tmp); | |
787 | if (prec || flags&ALT) | |
788 | *t++ = '.'; | |
789 | } | |
790 | else { | |
791 | *t++ = '0'; | |
792 | if (prec || flags&ALT) | |
793 | *t++ = '.'; | |
794 | } | |
795 | /* if requires more precision and some fraction left */ | |
796 | if (fract) { | |
797 | if (prec) | |
798 | do { | |
799 | fract = modf(fract * 10, &tmp); | |
800 | *t++ = to_char((int)tmp); | |
801 | } while (--prec && fract); | |
802 | if (fract) | |
803 | startp = round(fract, &expcnt, startp, | |
804 | t - 1, (char)0, signp); | |
805 | } | |
806 | /* if requires more precision */ | |
807 | for (; prec--; *t++ = '0'); | |
808 | ||
809 | /* unless alternate flag, trim any g/G format trailing 0's */ | |
810 | if (gformat && !(flags&ALT)) { | |
811 | while (t > startp && *--t == '0'); | |
812 | if (*t == '.') | |
813 | --t; | |
814 | ++t; | |
815 | } | |
816 | t = exponent(t, expcnt, fmtch); | |
817 | break; | |
818 | case 'g': | |
819 | case 'G': | |
820 | /* a precision of 0 is treated as a precision of 1. */ | |
821 | if (!prec) | |
822 | ++prec; | |
823 | /* | |
824 | * ``The style used depends on the value converted; style e | |
825 | * will be used only if the exponent resulting from the | |
826 | * conversion is less than -4 or greater than the precision.'' | |
827 | * -- ANSI X3J11 | |
828 | */ | |
829 | if (expcnt > prec || (!expcnt && fract && fract < .0001)) { | |
830 | /* | |
831 | * g/G format counts "significant digits, not digits of | |
832 | * precision; for the e/E format, this just causes an | |
833 | * off-by-one problem, i.e. g/G considers the digit | |
834 | * before the decimal point significant and e/E doesn't | |
835 | * count it as precision. | |
836 | */ | |
837 | --prec; | |
838 | fmtch -= 2; /* G->E, g->e */ | |
839 | gformat = 1; | |
840 | goto eformat; | |
841 | } | |
842 | /* | |
843 | * reverse integer into beginning of buffer, | |
844 | * note, decrement precision | |
845 | */ | |
846 | if (expcnt) | |
847 | for (; ++p < endp; *t++ = *p, --prec); | |
848 | else | |
849 | *t++ = '0'; | |
850 | /* | |
851 | * if precision required or alternate flag set, add in a | |
852 | * decimal point. If no digits yet, add in leading 0. | |
853 | */ | |
854 | if (prec || flags&ALT) { | |
855 | dotrim = 1; | |
856 | *t++ = '.'; | |
857 | } | |
858 | else | |
859 | dotrim = 0; | |
860 | /* if requires more precision and some fraction left */ | |
861 | if (fract) { | |
862 | if (prec) { | |
863 | /* If no integer part, don't count initial | |
864 | * zeros as significant digits. */ | |
865 | do { | |
866 | fract = modf(fract * 10, &tmp); | |
867 | *t++ = to_char((int)tmp); | |
868 | } while(!tmp && !expcnt); | |
869 | while (--prec && fract) { | |
870 | fract = modf(fract * 10, &tmp); | |
871 | *t++ = to_char((int)tmp); | |
872 | } | |
873 | } | |
874 | if (fract) | |
875 | startp = round(fract, (int *)NULL, startp, | |
876 | t - 1, (char)0, signp); | |
877 | } | |
878 | /* alternate format, adds 0's for precision, else trim 0's */ | |
879 | if (flags&ALT) | |
880 | for (; prec--; *t++ = '0'); | |
881 | else if (dotrim) { | |
882 | while (t > startp && *--t == '0'); | |
883 | if (*t != '.') | |
884 | ++t; | |
885 | } | |
886 | } | |
887 | return (t - startp); | |
888 | } | |
889 | ||
890 | #endif /* defined(FLOATING_POINT) && !defined(_IO_USE_DTOA) */ |