4 * Copyright (C) 1991, 1992 Linus Torvalds
7 /* vsprintf.c -- Lars Wirzenius & Linus Torvalds. */
9 * Wirzenius wrote this portably, Torvalds fucked it up :-)
13 #include <linux/types.h>
14 #include <linux/string.h>
15 #include <linux/ctype.h>
18 #if !defined (CONFIG_PANIC_HANG)
21 extern int do_reset (cmd_tbl_t
*cmdtp
, int flag
, int argc
, char *argv
[]);
24 unsigned long simple_strtoul(const char *cp
,char **endp
,unsigned int base
)
26 unsigned long result
= 0,value
;
33 if ((toupper(*cp
) == 'X') && isxdigit(cp
[1])) {
38 } else if (base
== 16) {
39 if (cp
[0] == '0' && toupper(cp
[1]) == 'X')
42 while (isxdigit(*cp
) &&
43 (value
= isdigit(*cp
) ? *cp
-'0' : toupper(*cp
)-'A'+10) < base
) {
44 result
= result
*base
+ value
;
52 long simple_strtol(const char *cp
,char **endp
,unsigned int base
)
55 return -simple_strtoul(cp
+1,endp
,base
);
56 return simple_strtoul(cp
,endp
,base
);
59 #ifdef CFG_64BIT_STRTOUL
60 unsigned long long simple_strtoull (const char *cp
, char **endp
, unsigned int base
)
62 unsigned long long result
= 0, value
;
66 if ((*cp
== 'x') && isxdigit (cp
[1])) {
77 while (isxdigit (*cp
) && (value
= isdigit (*cp
)
79 : (islower (*cp
) ? toupper (*cp
) : *cp
) - 'A' + 10) < base
) {
80 result
= result
* base
+ value
;
87 #endif /* CFG_64BIT_STRTOUL */
89 /* we use this so that we can do without the ctype library */
90 #define is_digit(c) ((c) >= '0' && (c) <= '9')
92 static int skip_atoi(const char **s
)
97 i
= i
*10 + *((*s
)++) - '0';
101 #define ZEROPAD 1 /* pad with zero */
102 #define SIGN 2 /* unsigned/signed long */
103 #define PLUS 4 /* show plus */
104 #define SPACE 8 /* space if plus */
105 #define LEFT 16 /* left justified */
106 #define SPECIAL 32 /* 0x */
107 #define LARGE 64 /* use 'ABCDEF' instead of 'abcdef' */
109 #ifdef CFG_64BIT_VSPRINTF
110 #define do_div(n,base) ({ \
111 unsigned int __res; \
112 __res = ((unsigned long long) n) % base; \
113 n = ((unsigned long long) n) / base; \
117 #define do_div(n,base) ({ \
119 __res = ((unsigned long) n) % base; \
120 n = ((unsigned long) n) / base; \
125 #ifdef CFG_64BIT_VSPRINTF
126 static char * number(char * str
, long long num
, unsigned int base
, int size
, int precision
,int type
)
128 static char * number(char * str
, long num
, unsigned int base
, int size
, int precision
,int type
)
132 const char *digits
="0123456789abcdefghijklmnopqrstuvwxyz";
136 digits
= "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
139 if (base
< 2 || base
> 36)
141 c
= (type
& ZEROPAD
) ? '0' : ' ';
148 } else if (type
& PLUS
) {
151 } else if (type
& SPACE
) {
156 if (type
& SPECIAL
) {
165 else while (num
!= 0)
166 tmp
[i
++] = digits
[do_div(num
,base
)];
170 if (!(type
&(ZEROPAD
+LEFT
)))
175 if (type
& SPECIAL
) {
186 while (i
< precision
--)
195 /* Forward decl. needed for IP address printing stuff... */
196 int sprintf(char * buf
, const char *fmt
, ...);
198 int vsprintf(char *buf
, const char *fmt
, va_list args
)
201 #ifdef CFG_64BIT_VSPRINTF
202 unsigned long long num
;
210 int flags
; /* flags to number() */
212 int field_width
; /* width of output field */
213 int precision
; /* min. # of digits for integers; max
214 number of chars for from string */
215 int qualifier
; /* 'h', 'l', or 'q' for integer fields */
217 for (str
=buf
; *fmt
; ++fmt
) {
226 ++fmt
; /* this also skips first '%' */
228 case '-': flags
|= LEFT
; goto repeat
;
229 case '+': flags
|= PLUS
; goto repeat
;
230 case ' ': flags
|= SPACE
; goto repeat
;
231 case '#': flags
|= SPECIAL
; goto repeat
;
232 case '0': flags
|= ZEROPAD
; goto repeat
;
235 /* get field width */
238 field_width
= skip_atoi(&fmt
);
239 else if (*fmt
== '*') {
241 /* it's the next argument */
242 field_width
= va_arg(args
, int);
243 if (field_width
< 0) {
244 field_width
= -field_width
;
249 /* get the precision */
254 precision
= skip_atoi(&fmt
);
255 else if (*fmt
== '*') {
257 /* it's the next argument */
258 precision
= va_arg(args
, int);
264 /* get the conversion qualifier */
266 if (*fmt
== 'h' || *fmt
== 'l' || *fmt
== 'q') {
268 if (qualifier
== 'l' && *(fmt
+1) == 'l') {
281 while (--field_width
> 0)
283 *str
++ = (unsigned char) va_arg(args
, int);
284 while (--field_width
> 0)
289 s
= va_arg(args
, char *);
293 len
= strnlen(s
, precision
);
296 while (len
< field_width
--)
298 for (i
= 0; i
< len
; ++i
)
300 while (len
< field_width
--)
305 if (field_width
== -1) {
306 field_width
= 2*sizeof(void *);
310 (unsigned long) va_arg(args
, void *), 16,
311 field_width
, precision
, flags
);
316 if (qualifier
== 'l') {
317 long * ip
= va_arg(args
, long *);
320 int * ip
= va_arg(args
, int *);
329 /* integer number formats - set up the flags and "break" */
354 #ifdef CFG_64BIT_VSPRINTF
355 if (qualifier
== 'q') /* "quad" for 64 bit variables */
356 num
= va_arg(args
, unsigned long long);
359 if (qualifier
== 'l')
360 num
= va_arg(args
, unsigned long);
361 else if (qualifier
== 'h') {
362 num
= (unsigned short) va_arg(args
, int);
365 } else if (flags
& SIGN
)
366 num
= va_arg(args
, int);
368 num
= va_arg(args
, unsigned int);
369 str
= number(str
, num
, base
, field_width
, precision
, flags
);
375 int sprintf(char * buf
, const char *fmt
, ...)
381 i
=vsprintf(buf
,fmt
,args
);
386 void panic(const char *fmt
, ...)
393 #if defined (CONFIG_PANIC_HANG)
396 udelay (100000); /* allow messages to go out */
397 do_reset (NULL
, 0, 0, NULL
);