]>
git.proxmox.com Git - mirror_edk2.git/blob - StdLib/LibC/Stdio/vsnprintf_ss.c
1 /* $NetBSD: vsnprintf_ss.c,v 1.2.2.1 2007/05/07 19:49:09 pavel Exp $ */
4 * Copyright (c) 1990, 1993
5 * The Regents of the University of California. All rights reserved.
7 * This code is derived from software contributed to Berkeley by
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the University nor the names of its contributors
19 * may be used to endorse or promote products derived from this software
20 * without specific prior written permission.
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 #include <LibConfig.h>
35 #include <sys/EfiCdefs.h>
36 #if defined(LIBC_SCCS) && !defined(lint)
38 static char sccsid
[] = "@(#)vsnprintf.c 8.1 (Berkeley) 6/4/93";
40 __RCSID("$NetBSD: vsnprintf_ss.c,v 1.2.2.1 2007/05/07 19:49:09 pavel Exp $");
42 #endif /* LIBC_SCCS and not lint */
44 #include "namespace.h"
46 #include <sys/types.h>
53 #include "reentrant.h"
58 __weak_alias(vsnprintf_ss
,_vsnprintf_ss
)
62 * vsnprintf_ss: scaled down version of printf(3).
64 * this version based on vfprintf() from libc which was derived from
65 * software contributed to Berkeley by Chris Torek.
70 * macros for converting digits to letters and vice versa
72 #define to_digit(c) ((c) - '0')
73 #define is_digit(c) ((unsigned)to_digit(c) <= 9)
74 #define to_char(n) (char)((n) + '0')
77 * flags used during conversion.
79 #define ALT 0x001 /* alternate form */
80 #define HEXPREFIX 0x002 /* add 0x or 0X prefix */
81 #define LADJUST 0x004 /* left adjustment */
82 #define LONGDBL 0x008 /* long double; unimplemented */
83 #define LONGINT 0x010 /* long integer */
84 #define QUADINT 0x020 /* quad integer */
85 #define SHORTINT 0x040 /* short integer */
86 #define MAXINT 0x080 /* intmax_t */
87 #define PTRINT 0x100 /* intptr_t */
88 #define SIZEINT 0x200 /* size_t */
89 #define ZEROPAD 0x400 /* zero (as opposed to blank) pad */
90 #define FPT 0x800 /* Floating point number */
93 * To extend shorts properly, we need both signed and unsigned
94 * argument extraction methods.
97 ((INT64)(flags&MAXINT ? va_arg(ap, intmax_t) : \
98 flags&PTRINT ? va_arg(ap, intptr_t) : \
99 flags&SIZEINT ? va_arg(ap, ssize_t) : /* XXX */ \
100 flags&QUADINT ? va_arg(ap, quad_t) : \
101 flags&LONGINT ? va_arg(ap, long) : \
102 flags&SHORTINT ? (short)va_arg(ap, int) : \
106 ((UINT64)(flags&MAXINT ? va_arg(ap, uintmax_t) : \
107 flags&PTRINT ? va_arg(ap, uintptr_t) : \
108 flags&SIZEINT ? va_arg(ap, size_t) : \
109 flags&QUADINT ? va_arg(ap, u_quad_t) : \
110 flags&LONGINT ? va_arg(ap, unsigned long) : \
111 flags&SHORTINT ? (u_short)va_arg(ap, int) : \
114 #define PUTCHAR(C) do { \
117 } while (/*CONSTCOND*/0)
120 vsnprintf_ss(char *sbuf
, size_t slen
, const char *fmt0
, va_list ap
)
122 const char *fmt
; /* format string */
123 int ch
; /* character from fmt */
124 int n
; /* handy integer (short term usage) */
125 char *cp
; /* handy char pointer (short term usage) */
126 int flags
; /* flags as above */
127 int ret
; /* return value accumulator */
128 int width
; /* width from format (%8d), or 0 */
129 int prec
; /* precision from format (%.3d), or -1 */
130 char sign
; /* sign prefix (' ', '+', '-', or \0) */
132 u_quad_t _uquad
; /* integer arguments %[diouxX] */
133 enum { OCT
, DEC
, HEX
} base
;/* base for [diouxX] conversion */
134 int dprec
; /* a copy of prec if [diouxX], 0 otherwise */
135 int realsz
; /* field size expanded by dprec */
136 int size
; /* size of converted field or string */
137 const char *xdigs
; /* digits for [xX] conversion */
138 char bf
[128]; /* space for %c, %[diouxX] */
139 char *tailp
; /* tail pointer for snprintf */
141 static const char xdigs_lower
[16] = "0123456789abcdef";
142 static const char xdigs_upper
[16] = "0123456789ABCDEF";
145 _DIAGASSERT(n
== 0 || sbuf
!= NULL
);
146 _DIAGASSERT(fmt
!= NULL
);
150 cp
= NULL
; /* XXX: shutup gcc */
151 size
= 0; /* XXX: shutup gcc */
156 xdigs
= NULL
; /* XXX: shut up gcc warning */
159 * Scan the format for conversions (`%' character).
162 while (*fmt
!= '%' && *fmt
) {
169 fmt
++; /* skip over '%' */
178 reswitch
: switch (ch
) {
181 * ``If the space and + flags both appear, the space
182 * flag will be ignored.''
193 * ``A negative field width argument is taken as a
194 * - flag followed by a positive field width.''
196 * They don't exclude field widths read from args.
198 if ((width
= va_arg(ap
, int)) >= 0)
209 if ((ch
= *fmt
++) == '*') {
211 prec
= n
< 0 ? -1 : n
;
215 while (is_digit(ch
)) {
216 n
= 10 * n
+ to_digit(ch
);
219 prec
= n
< 0 ? -1 : n
;
223 * ``Note that 0 is taken as a flag, not as the
224 * beginning of a field width.''
229 case '1': case '2': case '3': case '4':
230 case '5': case '6': case '7': case '8': case '9':
233 n
= 10 * n
+ to_digit(ch
);
235 } while (is_digit(ch
));
262 *(cp
= bf
) = va_arg(ap
, int);
272 if ((quad_t
)_uquad
< 0) {
280 *va_arg(ap
, intmax_t *) = ret
;
281 else if (flags
& PTRINT
)
282 *va_arg(ap
, intptr_t *) = ret
;
283 else if (flags
& SIZEINT
)
284 *va_arg(ap
, ssize_t
*) = ret
;
285 else if (flags
& QUADINT
)
286 *va_arg(ap
, quad_t
*) = ret
;
287 else if (flags
& LONGINT
)
288 *va_arg(ap
, long *) = (long)ret
;
289 else if (flags
& SHORTINT
)
290 *va_arg(ap
, short *) = (short)ret
;
292 *va_arg(ap
, int *) = ret
;
293 continue; /* no output */
303 * ``The argument shall be a pointer to void. The
304 * value of the pointer is converted to a sequence
305 * of printable characters, in an implementation-
310 _uquad
= (u_long
)va_arg(ap
, void *);
317 if ((cp
= va_arg(ap
, char *)) == NULL
)
319 cp
= __UNCONST("(null)");
322 * can't use strlen; can only look for the
323 * NUL in the first `prec' characters, and
324 * strlen() will go further.
326 char *p
= memchr(cp
, 0, (size_t)prec
);
350 hex
: _uquad
= UARG();
352 /* leading 0x/X only if non-zero */
353 if (flags
& ALT
&& _uquad
!= 0)
356 /* unsigned conversions */
359 * ``... diouXx conversions ... if a precision is
360 * specified, the 0 flag will be ignored.''
363 number
: if ((dprec
= prec
) >= 0)
367 * ``The result of converting a zero value with an
368 * explicit precision of zero is no characters.''
371 cp
= bf
+ sizeof(bf
);
372 if (_uquad
!= 0 || prec
!= 0) {
374 * Unsigned mod is hard, and unsigned mod
375 * by a constant is easier than that by
376 * a variable; hence this switch.
381 *--cp
= to_char(_uquad
& 7);
384 /* handle octal leading 0 */
385 if (flags
& ALT
&& *cp
!= '0')
390 /* many numbers are 1 digit */
391 while (_uquad
>= 10) {
392 *--cp
= to_char(_uquad
% 10);
395 *--cp
= to_char(_uquad
);
400 *--cp
= xdigs
[(size_t)_uquad
& 15];
407 cp
= __UNCONST("bug bad base");
412 size
= bf
+ sizeof(bf
) - cp
;
415 default: /* "%?" prints ?, unless ? is NUL */
418 /* pretend it was %c with argument ch */
427 * All reasonable formats wind up here. At this point, `cp'
428 * points to a string which (if not flags&LADJUST) should be
429 * padded out to `width' places. If flags&ZEROPAD, it should
430 * first be prefixed by any sign or other prefix; otherwise,
431 * it should be blank padded before the prefix is emitted.
432 * After any left-hand padding and prefixing, emit zeroes
433 * required by a decimal [diouxX] precision, then print the
434 * string proper, then emit zeroes required by any leftover
435 * floating precision; finally, if LADJUST, pad with blanks.
437 * Compute actual size, so we know how much to pad.
438 * size excludes decimal prec; realsz includes it.
440 realsz
= dprec
> size
? dprec
: size
;
443 else if (flags
& HEXPREFIX
)
447 ret
+= width
> realsz
? width
: realsz
;
449 /* right-adjusting blank padding */
450 if ((flags
& (LADJUST
|ZEROPAD
)) == 0) {
459 } else if (flags
& HEXPREFIX
) {
464 /* right-adjusting zero padding */
465 if ((flags
& (LADJUST
|ZEROPAD
)) == ZEROPAD
) {
471 /* leading zeroes from decimal precision */
476 /* the string or number proper */
479 /* left-adjusting padding (always blank) */
480 if (flags
& LADJUST
) {