4 * Copyright 1996 Alexandre Julliard
12 #include "stackframe.h"
14 #define WPRINTF_LEFTALIGN 0x0001 /* Align output on the left ('-' prefix) */
15 #define WPRINTF_PREFIX_HEX 0x0002 /* Prefix hex with 0x ('#' prefix) */
16 #define WPRINTF_ZEROPAD 0x0004 /* Pad with zeros ('0' prefix) */
17 #define WPRINTF_LONG 0x0008 /* Long arg ('l' prefix) */
18 #define WPRINTF_SHORT 0x0010 /* Short arg ('h' prefix) */
19 #define WPRINTF_UPPER_HEX 0x0020 /* Upper-case hex ('X' specifier) */
41 /***********************************************************************
42 * WPRINTF_ParseFormatA
44 * Parse a format specification. A format specification has the form:
46 * [-][#][0][width][.precision]type
48 * Return value is the length of the format specification in characters.
50 static INT32
WPRINTF_ParseFormatA( LPCSTR format
, WPRINTF_FORMAT
*res
)
57 if (*p
== '-') { res
->flags
|= WPRINTF_LEFTALIGN
; p
++; }
58 if (*p
== '#') { res
->flags
|= WPRINTF_PREFIX_HEX
; p
++; }
59 if (*p
== '0') { res
->flags
|= WPRINTF_ZEROPAD
; p
++; }
60 while ((*p
>= '0') && (*p
<= '9')) /* width field */
62 res
->width
= res
->width
* 10 + *p
- '0';
65 if (*p
== '.') /* precision field */
68 while ((*p
>= '0') && (*p
<= '9'))
70 res
->precision
= res
->precision
* 10 + *p
- '0';
74 if (*p
== 'l') { res
->flags
|= WPRINTF_LONG
; p
++; }
75 else if (*p
== 'h') { res
->flags
|= WPRINTF_SHORT
; p
++; }
79 res
->type
= (res
->flags
& WPRINTF_LONG
) ? WPR_WCHAR
: WPR_CHAR
;
82 res
->type
= (res
->flags
& WPRINTF_SHORT
) ? WPR_CHAR
: WPR_WCHAR
;
86 res
->type
= WPR_SIGNED
;
89 res
->type
= (res
->flags
& WPRINTF_LONG
) ? WPR_WSTRING
: WPR_STRING
;
92 res
->type
= (res
->flags
& WPRINTF_SHORT
) ? WPR_STRING
: WPR_WSTRING
;
95 res
->type
= WPR_UNSIGNED
;
98 res
->flags
|= WPRINTF_UPPER_HEX
;
101 res
->type
= WPR_HEXA
;
104 fprintf( stderr
, "wvsprintf32A: unknown format '%c'\n", *p
);
107 return (INT32
)(p
- format
) + 1;
111 /***********************************************************************
112 * WPRINTF_ParseFormatW
114 * Parse a format specification. A format specification has the form:
116 * [-][#][0][width][.precision]type
118 * Return value is the length of the format specification in characters.
120 static INT32
WPRINTF_ParseFormatW( LPCWSTR format
, WPRINTF_FORMAT
*res
)
127 if (*p
== '-') { res
->flags
|= WPRINTF_LEFTALIGN
; p
++; }
128 if (*p
== '#') { res
->flags
|= WPRINTF_PREFIX_HEX
; p
++; }
129 if (*p
== '0') { res
->flags
|= WPRINTF_ZEROPAD
; p
++; }
130 while ((*p
>= '0') && (*p
<= '9')) /* width field */
132 res
->width
= res
->width
* 10 + *p
- '0';
135 if (*p
== '.') /* precision field */
138 while ((*p
>= '0') && (*p
<= '9'))
140 res
->precision
= res
->precision
* 10 + *p
- '0';
144 if (*p
== 'l') { res
->flags
|= WPRINTF_LONG
; p
++; }
145 else if (*p
== 'h') { res
->flags
|= WPRINTF_SHORT
; p
++; }
149 res
->type
= (res
->flags
& WPRINTF_SHORT
) ? WPR_CHAR
: WPR_WCHAR
;
152 res
->type
= (res
->flags
& WPRINTF_LONG
) ? WPR_WCHAR
: WPR_CHAR
;
156 res
->type
= WPR_SIGNED
;
159 res
->type
= (res
->flags
& WPRINTF_SHORT
) ? WPR_STRING
: WPR_WSTRING
;
162 res
->type
= (res
->flags
& WPRINTF_LONG
) ? WPR_WSTRING
: WPR_STRING
;
165 res
->type
= WPR_UNSIGNED
;
168 res
->flags
|= WPRINTF_UPPER_HEX
;
171 res
->type
= WPR_HEXA
;
174 fprintf( stderr
, "wvsprintf32W: unknown format '%c'\n", (CHAR
)*p
);
177 return (INT32
)(p
- format
) + 1;
181 /***********************************************************************
184 static UINT32
WPRINTF_GetLen( WPRINTF_FORMAT
*format
, LPCVOID arg
,
185 LPSTR number
, UINT32 maxlen
)
189 if (format
->flags
& WPRINTF_LEFTALIGN
) format
->flags
&= ~WPRINTF_ZEROPAD
;
190 if (format
->width
> maxlen
) format
->width
= maxlen
;
195 return (format
->precision
= 1);
197 for (len
= 0; !format
->precision
|| (len
< format
->precision
); len
++)
198 if (!*(*(LPCSTR
*)arg
+ len
)) break;
199 if (len
> maxlen
) len
= maxlen
;
200 return (format
->precision
= len
);
202 for (len
= 0; !format
->precision
|| (len
< format
->precision
); len
++)
203 if (!*(*(LPCWSTR
*)arg
+ len
)) break;
204 if (len
> maxlen
) len
= maxlen
;
205 return (format
->precision
= len
);
207 len
= sprintf( number
, "%d", *(INT32
*)arg
);
210 len
= sprintf( number
, "%u", *(UINT32
*)arg
);
213 len
= sprintf( number
,
214 (format
->flags
& WPRINTF_UPPER_HEX
) ? "%X" : "%x",
216 if (format
->flags
& WPRINTF_PREFIX_HEX
) len
+= 2;
221 if (len
> maxlen
) len
= maxlen
;
222 if (format
->precision
< len
) format
->precision
= len
;
223 if (format
->precision
> maxlen
) format
->precision
= maxlen
;
224 if ((format
->flags
& WPRINTF_ZEROPAD
) && (format
->width
> format
->precision
))
225 format
->precision
= format
->width
;
230 /***********************************************************************
231 * wvsnprintf16 (Not a Windows API)
233 INT16
wvsnprintf16( LPSTR buffer
, UINT16 maxlen
, LPCSTR spec
, LPCVOID args
)
235 WPRINTF_FORMAT format
;
241 while (*spec
&& (maxlen
> 1))
243 if (*spec
!= '%') { *p
++ = *spec
++; maxlen
--; continue; }
245 if (*spec
== '%') { *p
++ = *spec
++; maxlen
--; continue; }
246 spec
+= WPRINTF_ParseFormatA( spec
, &format
);
249 case WPR_WCHAR
: /* No Unicode in Win16 */
251 cur_arg
= (DWORD
)*(CHAR
*)args
;
252 args
= (WORD
*)args
+ 1;
254 case WPR_WSTRING
: /* No Unicode in Win16 */
256 if (IsBadReadPtr16( *(SEGPTR
*)args
, 1 )) cur_arg
= (DWORD
)"";
257 else cur_arg
= (DWORD
)PTR_SEG_TO_LIN( *(SEGPTR
*)args
);
258 args
= (SEGPTR
*)args
+ 1;
263 if (format
.flags
& WPRINTF_LONG
)
265 cur_arg
= (DWORD
)*(UINT32
*)args
;
266 args
= (UINT32
*)args
+ 1;
270 cur_arg
= (DWORD
)*(UINT16
*)args
;
271 args
= (UINT16
*)args
+ 1;
275 len
= WPRINTF_GetLen( &format
, &cur_arg
, number
, maxlen
- 1 );
276 if (!(format
.flags
& WPRINTF_LEFTALIGN
))
277 for (i
= format
.precision
; i
< format
.width
; i
++, maxlen
--)
282 if ((*p
= (CHAR
)cur_arg
)) p
++;
283 else if (format
.width
> 1) *p
++ = ' ';
287 if (len
) memcpy( p
, (LPCSTR
)cur_arg
, len
);
291 if ((format
.flags
& WPRINTF_PREFIX_HEX
) && (maxlen
> 3))
294 *p
++ = (format
.flags
& WPRINTF_UPPER_HEX
) ? 'X' : 'x';
297 format
.precision
-= 2;
303 for (i
= len
; i
< format
.precision
; i
++, maxlen
--) *p
++ = '0';
304 if (len
) memcpy( p
, number
, len
);
309 fprintf( stderr
, "Unicode not supported in wsprintf16\n" );
312 if (format
.flags
& WPRINTF_LEFTALIGN
)
313 for (i
= format
.precision
; i
< format
.width
; i
++, maxlen
--)
318 return (maxlen
> 1) ? (INT32
)(p
- buffer
) : -1;
322 /***********************************************************************
323 * wvsnprintf32A (Not a Windows API)
325 INT32
wvsnprintf32A( LPSTR buffer
, UINT32 maxlen
, LPCSTR spec
, LPCVOID args
)
327 WPRINTF_FORMAT format
;
332 while (*spec
&& (maxlen
> 1))
334 if (*spec
!= '%') { *p
++ = *spec
++; maxlen
--; continue; }
336 if (*spec
== '%') { *p
++ = *spec
++; maxlen
--; continue; }
337 spec
+= WPRINTF_ParseFormatA( spec
, &format
);
338 len
= WPRINTF_GetLen( &format
, args
, number
, maxlen
- 1 );
339 if (!(format
.flags
& WPRINTF_LEFTALIGN
))
340 for (i
= format
.precision
; i
< format
.width
; i
++, maxlen
--)
345 if ((*p
= (CHAR
)*(WCHAR
*)args
)) p
++;
346 else if (format
.width
> 1) *p
++ = ' ';
350 if ((*p
= *(CHAR
*)args
)) p
++;
351 else if (format
.width
> 1) *p
++ = ' ';
355 if (len
) memcpy( p
, *(LPCSTR
*)args
, len
);
359 for (i
= 0; i
< len
; i
++) *p
++ = (CHAR
)*(*(LPCWSTR
*)args
+ i
);
362 if ((format
.flags
& WPRINTF_PREFIX_HEX
) && (maxlen
> 3))
365 *p
++ = (format
.flags
& WPRINTF_UPPER_HEX
) ? 'X' : 'x';
368 format
.precision
-= 2;
374 for (i
= len
; i
< format
.precision
; i
++, maxlen
--) *p
++ = '0';
375 if (len
) memcpy( p
, number
, len
);
379 if (format
.flags
& WPRINTF_LEFTALIGN
)
380 for (i
= format
.precision
; i
< format
.width
; i
++, maxlen
--)
382 args
= (INT32
*)args
+ 1;
386 return (maxlen
> 1) ? (INT32
)(p
- buffer
) : -1;
390 /***********************************************************************
391 * wvsnprintf32W (Not a Windows API)
393 INT32
wvsnprintf32W( LPWSTR buffer
, UINT32 maxlen
, LPCWSTR spec
, LPCVOID args
)
395 WPRINTF_FORMAT format
;
400 while (*spec
&& (maxlen
> 1))
402 if (*spec
!= '%') { *p
++ = *spec
++; maxlen
--; continue; }
404 if (*spec
== '%') { *p
++ = *spec
++; maxlen
--; continue; }
405 spec
+= WPRINTF_ParseFormatW( spec
, &format
);
406 len
= WPRINTF_GetLen( &format
, args
, number
, maxlen
- 1 );
407 if (!(format
.flags
& WPRINTF_LEFTALIGN
))
408 for (i
= format
.precision
; i
< format
.width
; i
++, maxlen
--)
413 if ((*p
= *(WCHAR
*)args
)) p
++;
414 else if (format
.width
> 1) *p
++ = ' ';
418 if ((*p
= (WCHAR
)*(CHAR
*)args
)) p
++;
419 else if (format
.width
> 1) *p
++ = ' ';
423 for (i
= 0; i
< len
; i
++) *p
++ = (WCHAR
)*(*(LPCSTR
*)args
+ i
);
426 if (len
) memcpy( p
, *(LPCWSTR
*)args
, len
* sizeof(WCHAR
) );
430 if ((format
.flags
& WPRINTF_PREFIX_HEX
) && (maxlen
> 3))
433 *p
++ = (format
.flags
& WPRINTF_UPPER_HEX
) ? 'X' : 'x';
436 format
.precision
-= 2;
442 for (i
= len
; i
< format
.precision
; i
++, maxlen
--) *p
++ = '0';
443 for (i
= 0; i
< len
; i
++) *p
++ = (WCHAR
)number
[i
];
446 if (format
.flags
& WPRINTF_LEFTALIGN
)
447 for (i
= format
.precision
; i
< format
.width
; i
++, maxlen
--)
449 args
= (INT32
*)args
+ 1;
453 return (maxlen
> 1) ? (INT32
)(p
- buffer
) : -1;
457 /***********************************************************************
458 * wvsprintf16 (USER.421)
460 INT16
wvsprintf16( LPSTR buffer
, LPCSTR spec
, LPCVOID args
)
462 return wvsnprintf16( buffer
, 0xffff, spec
, args
);
466 /***********************************************************************
467 * wvsprintf32A (USER32.586)
469 INT32
wvsprintf32A( LPSTR buffer
, LPCSTR spec
, LPCVOID args
)
471 return wvsnprintf32A( buffer
, 0xffffffff, spec
, args
);
475 /***********************************************************************
476 * wvsprintf32W (USER32.587)
478 INT32
wvsprintf32W( LPWSTR buffer
, LPCWSTR spec
, LPCVOID args
)
480 return wvsnprintf32W( buffer
, 0xffffffff, spec
, args
);
484 /***********************************************************************
485 * wsprintf16 (USER.420)
487 /* Winelib version */
488 INT16
wsprintf16( LPSTR buffer
, LPCSTR spec
, ... )
493 va_start( valist
, spec
);
494 /* Note: we call the 32-bit version, because the args are 32-bit */
495 res
= (INT16
)wvsprintf32A( buffer
, spec
, (LPCVOID
)valist
);
500 /* Emulator version */
501 INT16
WIN16_wsprintf16(void)
503 SEGPTR
*win_stack
= (SEGPTR
*)CURRENT_STACK16
->args
;
504 LPSTR buffer
= (LPSTR
)PTR_SEG_TO_LIN(win_stack
[0]);
505 LPCSTR spec
= (LPCSTR
)PTR_SEG_TO_LIN(win_stack
[1]);
506 return wvsprintf16( buffer
, spec
, &win_stack
[2] );
511 /***********************************************************************
512 * wsprintf32A (USER32.584)
514 /* Winelib version */
515 INT32
wsprintf32A( LPSTR buffer
, LPCSTR spec
, ... )
520 va_start( valist
, spec
);
521 res
= wvsprintf32A( buffer
, spec
, (LPCVOID
)valist
);
526 /* Emulator version */
527 INT32
WIN32_wsprintf32A( int *args
)
529 return wvsprintf32A( (LPSTR
)args
[0], (LPCSTR
)args
[1], (LPCVOID
)&args
[2] );
533 /***********************************************************************
534 * wsprintf32W (USER32.585)
536 /* Winelib version */
537 INT32
wsprintf32W( LPWSTR buffer
, LPCWSTR spec
, ... )
542 va_start( valist
, spec
);
543 res
= wvsprintf32W( buffer
, spec
, (LPCVOID
)valist
);
548 /* Emulator version */
549 INT32
WIN32_wsprintf32W( int *args
)
551 return wvsprintf32W( (LPWSTR
)args
[0], (LPCWSTR
)args
[1], (LPCVOID
)&args
[2]);