| /* |
| * wsprintf functions |
| * |
| * Copyright 1996 Alexandre Julliard |
| */ |
| |
| #include <stdarg.h> |
| #include <stdio.h> |
| #include <string.h> |
| #include "windows.h" |
| #include "ldt.h" |
| #include "stackframe.h" |
| #include "debug.h" |
| #include "stddebug.h" |
| |
| #define WPRINTF_LEFTALIGN 0x0001 /* Align output on the left ('-' prefix) */ |
| #define WPRINTF_PREFIX_HEX 0x0002 /* Prefix hex with 0x ('#' prefix) */ |
| #define WPRINTF_ZEROPAD 0x0004 /* Pad with zeros ('0' prefix) */ |
| #define WPRINTF_LONG 0x0008 /* Long arg ('l' prefix) */ |
| #define WPRINTF_SHORT 0x0010 /* Short arg ('h' prefix) */ |
| #define WPRINTF_UPPER_HEX 0x0020 /* Upper-case hex ('X' specifier) */ |
| #define WPRINTF_WIDE 0x0040 /* Wide arg ('w' prefix) */ |
| |
| typedef enum |
| { |
| WPR_CHAR, |
| WPR_WCHAR, |
| WPR_STRING, |
| WPR_WSTRING, |
| WPR_SIGNED, |
| WPR_UNSIGNED, |
| WPR_HEXA |
| } WPRINTF_TYPE; |
| |
| typedef struct |
| { |
| UINT32 flags; |
| UINT32 width; |
| UINT32 precision; |
| WPRINTF_TYPE type; |
| } WPRINTF_FORMAT; |
| |
| |
| /*********************************************************************** |
| * WPRINTF_ParseFormatA |
| * |
| * Parse a format specification. A format specification has the form: |
| * |
| * [-][#][0][width][.precision]type |
| * |
| * Return value is the length of the format specification in characters. |
| */ |
| static INT32 WPRINTF_ParseFormatA( LPCSTR format, WPRINTF_FORMAT *res ) |
| { |
| LPCSTR p = format; |
| |
| res->flags = 0; |
| res->width = 0; |
| res->precision = 0; |
| if (*p == '-') { res->flags |= WPRINTF_LEFTALIGN; p++; } |
| if (*p == '#') { res->flags |= WPRINTF_PREFIX_HEX; p++; } |
| if (*p == '0') { res->flags |= WPRINTF_ZEROPAD; p++; } |
| while ((*p >= '0') && (*p <= '9')) /* width field */ |
| { |
| res->width = res->width * 10 + *p - '0'; |
| p++; |
| } |
| if (*p == '.') /* precision field */ |
| { |
| p++; |
| while ((*p >= '0') && (*p <= '9')) |
| { |
| res->precision = res->precision * 10 + *p - '0'; |
| p++; |
| } |
| } |
| if (*p == 'l') { res->flags |= WPRINTF_LONG; p++; } |
| else if (*p == 'h') { res->flags |= WPRINTF_SHORT; p++; } |
| else if (*p == 'w') { res->flags |= WPRINTF_WIDE; p++; } |
| switch(*p) |
| { |
| case 'c': |
| res->type = (res->flags & WPRINTF_LONG) ? WPR_WCHAR : WPR_CHAR; |
| break; |
| case 'C': |
| res->type = (res->flags & WPRINTF_SHORT) ? WPR_CHAR : WPR_WCHAR; |
| break; |
| case 'd': |
| case 'i': |
| res->type = WPR_SIGNED; |
| break; |
| case 's': |
| res->type = (res->flags & (WPRINTF_LONG |WPRINTF_WIDE)) |
| ? WPR_WSTRING : WPR_STRING; |
| break; |
| case 'S': |
| res->type = (res->flags & (WPRINTF_SHORT|WPRINTF_WIDE)) |
| ? WPR_STRING : WPR_WSTRING; |
| break; |
| case 'u': |
| res->type = WPR_UNSIGNED; |
| break; |
| case 'X': |
| res->flags |= WPRINTF_UPPER_HEX; |
| /* fall through */ |
| case 'x': |
| res->type = WPR_HEXA; |
| break; |
| default: |
| fprintf( stderr, "wvsprintf32A: unknown format '%c'\n", *p ); |
| break; |
| } |
| return (INT32)(p - format) + 1; |
| } |
| |
| |
| /*********************************************************************** |
| * WPRINTF_ParseFormatW |
| * |
| * Parse a format specification. A format specification has the form: |
| * |
| * [-][#][0][width][.precision]type |
| * |
| * Return value is the length of the format specification in characters. |
| */ |
| static INT32 WPRINTF_ParseFormatW( LPCWSTR format, WPRINTF_FORMAT *res ) |
| { |
| LPCWSTR p = format; |
| |
| res->flags = 0; |
| res->width = 0; |
| res->precision = 0; |
| if (*p == '-') { res->flags |= WPRINTF_LEFTALIGN; p++; } |
| if (*p == '#') { res->flags |= WPRINTF_PREFIX_HEX; p++; } |
| if (*p == '0') { res->flags |= WPRINTF_ZEROPAD; p++; } |
| while ((*p >= '0') && (*p <= '9')) /* width field */ |
| { |
| res->width = res->width * 10 + *p - '0'; |
| p++; |
| } |
| if (*p == '.') /* precision field */ |
| { |
| p++; |
| while ((*p >= '0') && (*p <= '9')) |
| { |
| res->precision = res->precision * 10 + *p - '0'; |
| p++; |
| } |
| } |
| if (*p == 'l') { res->flags |= WPRINTF_LONG; p++; } |
| else if (*p == 'h') { res->flags |= WPRINTF_SHORT; p++; } |
| else if (*p == 'w') { res->flags |= WPRINTF_WIDE; p++; } |
| switch((CHAR)*p) |
| { |
| case 'c': |
| res->type = (res->flags & WPRINTF_SHORT) ? WPR_CHAR : WPR_WCHAR; |
| break; |
| case 'C': |
| res->type = (res->flags & WPRINTF_LONG) ? WPR_WCHAR : WPR_CHAR; |
| break; |
| case 'd': |
| case 'i': |
| res->type = WPR_SIGNED; |
| break; |
| case 's': |
| res->type = ((res->flags & WPRINTF_SHORT) && !(res->flags & WPRINTF_WIDE)) ? WPR_STRING : WPR_WSTRING; |
| break; |
| case 'S': |
| res->type = (res->flags & (WPRINTF_LONG|WPRINTF_WIDE)) ? WPR_WSTRING : WPR_STRING; |
| break; |
| case 'u': |
| res->type = WPR_UNSIGNED; |
| break; |
| case 'X': |
| res->flags |= WPRINTF_UPPER_HEX; |
| /* fall through */ |
| case 'x': |
| res->type = WPR_HEXA; |
| break; |
| default: |
| fprintf( stderr, "wvsprintf32W: unknown format '%c'\n", (CHAR)*p ); |
| break; |
| } |
| return (INT32)(p - format) + 1; |
| } |
| |
| |
| /*********************************************************************** |
| * WPRINTF_GetLen |
| */ |
| static UINT32 WPRINTF_GetLen( WPRINTF_FORMAT *format, LPCVOID arg, |
| LPSTR number, UINT32 maxlen ) |
| { |
| UINT32 len; |
| |
| if (format->flags & WPRINTF_LEFTALIGN) format->flags &= ~WPRINTF_ZEROPAD; |
| if (format->width > maxlen) format->width = maxlen; |
| switch(format->type) |
| { |
| case WPR_CHAR: |
| case WPR_WCHAR: |
| return (format->precision = 1); |
| case WPR_STRING: |
| for (len = 0; !format->precision || (len < format->precision); len++) |
| if (!*(*(LPCSTR *)arg + len)) break; |
| if (len > maxlen) len = maxlen; |
| return (format->precision = len); |
| case WPR_WSTRING: |
| for (len = 0; !format->precision || (len < format->precision); len++) |
| if (!*(*(LPCWSTR *)arg + len)) break; |
| if (len > maxlen) len = maxlen; |
| return (format->precision = len); |
| case WPR_SIGNED: |
| len = sprintf( number, "%d", *(INT32 *)arg ); |
| break; |
| case WPR_UNSIGNED: |
| len = sprintf( number, "%u", *(UINT32 *)arg ); |
| break; |
| case WPR_HEXA: |
| len = sprintf( number, |
| (format->flags & WPRINTF_UPPER_HEX) ? "%X" : "%x", |
| *(UINT32 *)arg ); |
| if (format->flags & WPRINTF_PREFIX_HEX) len += 2; |
| break; |
| default: |
| return 0; |
| } |
| if (len > maxlen) len = maxlen; |
| if (format->precision < len) format->precision = len; |
| if (format->precision > maxlen) format->precision = maxlen; |
| if ((format->flags & WPRINTF_ZEROPAD) && (format->width > format->precision)) |
| format->precision = format->width; |
| return len; |
| } |
| |
| |
| /*********************************************************************** |
| * wvsnprintf16 (Not a Windows API) |
| */ |
| INT16 WINAPI wvsnprintf16( LPSTR buffer, UINT16 maxlen, LPCSTR spec, |
| LPCVOID args ) |
| { |
| WPRINTF_FORMAT format; |
| LPSTR p = buffer; |
| UINT32 i, len; |
| CHAR number[20]; |
| DWORD cur_arg; |
| |
| while (*spec && (maxlen > 1)) |
| { |
| if (*spec != '%') { *p++ = *spec++; maxlen--; continue; } |
| spec++; |
| if (*spec == '%') { *p++ = *spec++; maxlen--; continue; } |
| spec += WPRINTF_ParseFormatA( spec, &format ); |
| switch(format.type) |
| { |
| case WPR_WCHAR: /* No Unicode in Win16 */ |
| case WPR_CHAR: |
| cur_arg = (DWORD)VA_ARG16( args, CHAR ); |
| break; |
| case WPR_WSTRING: /* No Unicode in Win16 */ |
| case WPR_STRING: |
| cur_arg = (DWORD)VA_ARG16( args, SEGPTR ); |
| if (IsBadReadPtr16( (SEGPTR)cur_arg, 1 )) cur_arg = (DWORD)""; |
| else cur_arg = (DWORD)PTR_SEG_TO_LIN( (SEGPTR)cur_arg ); |
| break; |
| case WPR_SIGNED: |
| if (!(format.flags & WPRINTF_LONG)) |
| { |
| cur_arg = (DWORD)(INT32)VA_ARG16( args, INT16 ); |
| break; |
| } |
| /* fall through */ |
| case WPR_HEXA: |
| case WPR_UNSIGNED: |
| if (format.flags & WPRINTF_LONG) |
| cur_arg = (DWORD)VA_ARG16( args, UINT32 ); |
| else |
| cur_arg = (DWORD)VA_ARG16( args, UINT16 ); |
| break; |
| } |
| len = WPRINTF_GetLen( &format, &cur_arg, number, maxlen - 1 ); |
| if (!(format.flags & WPRINTF_LEFTALIGN)) |
| for (i = format.precision; i < format.width; i++, maxlen--) |
| *p++ = ' '; |
| switch(format.type) |
| { |
| case WPR_WCHAR: |
| case WPR_CHAR: |
| if ((*p = (CHAR)cur_arg)) p++; |
| else if (format.width > 1) *p++ = ' '; |
| else len = 0; |
| break; |
| case WPR_WSTRING: |
| case WPR_STRING: |
| if (len) memcpy( p, (LPCSTR)cur_arg, len ); |
| p += len; |
| break; |
| case WPR_HEXA: |
| if ((format.flags & WPRINTF_PREFIX_HEX) && (maxlen > 3)) |
| { |
| *p++ = '0'; |
| *p++ = (format.flags & WPRINTF_UPPER_HEX) ? 'X' : 'x'; |
| maxlen -= 2; |
| len -= 2; |
| format.precision -= 2; |
| format.width -= 2; |
| } |
| /* fall through */ |
| case WPR_SIGNED: |
| case WPR_UNSIGNED: |
| for (i = len; i < format.precision; i++, maxlen--) *p++ = '0'; |
| if (len) memcpy( p, number, len ); |
| p += len; |
| break; |
| } |
| if (format.flags & WPRINTF_LEFTALIGN) |
| for (i = format.precision; i < format.width; i++, maxlen--) |
| *p++ = ' '; |
| maxlen -= len; |
| } |
| *p = 0; |
| return (maxlen > 1) ? (INT32)(p - buffer) : -1; |
| } |
| |
| |
| /*********************************************************************** |
| * wvsnprintf32A (Not a Windows API) |
| */ |
| INT32 WINAPI wvsnprintf32A( LPSTR buffer, UINT32 maxlen, LPCSTR spec, |
| va_list args ) |
| { |
| WPRINTF_FORMAT format; |
| LPSTR p = buffer; |
| UINT32 i, len; |
| CHAR number[20]; |
| |
| while (*spec && (maxlen > 1)) |
| { |
| if (*spec != '%') { *p++ = *spec++; maxlen--; continue; } |
| spec++; |
| if (*spec == '%') { *p++ = *spec++; maxlen--; continue; } |
| spec += WPRINTF_ParseFormatA( spec, &format ); |
| len = WPRINTF_GetLen( &format, args, number, maxlen - 1 ); |
| if (!(format.flags & WPRINTF_LEFTALIGN)) |
| for (i = format.precision; i < format.width; i++, maxlen--) |
| *p++ = ' '; |
| switch(format.type) |
| { |
| case WPR_WCHAR: |
| if ((*p = (CHAR)va_arg( args, WCHAR ))) p++; |
| else if (format.width > 1) *p++ = ' '; |
| else len = 0; |
| break; |
| case WPR_CHAR: |
| if ((*p = va_arg( args, CHAR ))) p++; |
| else if (format.width > 1) *p++ = ' '; |
| else len = 0; |
| break; |
| case WPR_STRING: |
| memcpy( p, va_arg( args, LPCSTR ), len ); |
| p += len; |
| break; |
| case WPR_WSTRING: |
| { |
| LPCWSTR ptr = va_arg( args, LPCWSTR ); |
| for (i = 0; i < len; i++) *p++ = (CHAR)*ptr++; |
| } |
| break; |
| case WPR_HEXA: |
| if ((format.flags & WPRINTF_PREFIX_HEX) && (maxlen > 3)) |
| { |
| *p++ = '0'; |
| *p++ = (format.flags & WPRINTF_UPPER_HEX) ? 'X' : 'x'; |
| maxlen -= 2; |
| len -= 2; |
| format.precision -= 2; |
| format.width -= 2; |
| } |
| /* fall through */ |
| case WPR_SIGNED: |
| case WPR_UNSIGNED: |
| for (i = len; i < format.precision; i++, maxlen--) *p++ = '0'; |
| memcpy( p, number, len ); |
| p += len; |
| (void)va_arg( args, INT32 ); /* Go to the next arg */ |
| break; |
| } |
| if (format.flags & WPRINTF_LEFTALIGN) |
| for (i = format.precision; i < format.width; i++, maxlen--) |
| *p++ = ' '; |
| maxlen -= len; |
| } |
| *p = 0; |
| dprintf_string(stddeb,"%s\n",buffer); |
| return (maxlen > 1) ? (INT32)(p - buffer) : -1; |
| } |
| |
| |
| /*********************************************************************** |
| * wvsnprintf32W (Not a Windows API) |
| */ |
| INT32 WINAPI wvsnprintf32W( LPWSTR buffer, UINT32 maxlen, LPCWSTR spec, |
| va_list args ) |
| { |
| WPRINTF_FORMAT format; |
| LPWSTR p = buffer; |
| UINT32 i, len; |
| CHAR number[20]; |
| |
| while (*spec && (maxlen > 1)) |
| { |
| if (*spec != '%') { *p++ = *spec++; maxlen--; continue; } |
| spec++; |
| if (*spec == '%') { *p++ = *spec++; maxlen--; continue; } |
| spec += WPRINTF_ParseFormatW( spec, &format ); |
| len = WPRINTF_GetLen( &format, args, number, maxlen - 1 ); |
| if (!(format.flags & WPRINTF_LEFTALIGN)) |
| for (i = format.precision; i < format.width; i++, maxlen--) |
| *p++ = ' '; |
| switch(format.type) |
| { |
| case WPR_WCHAR: |
| if ((*p = va_arg( args, WCHAR ))) p++; |
| else if (format.width > 1) *p++ = ' '; |
| else len = 0; |
| break; |
| case WPR_CHAR: |
| if ((*p = (WCHAR)va_arg( args, CHAR ))) p++; |
| else if (format.width > 1) *p++ = ' '; |
| else len = 0; |
| break; |
| case WPR_STRING: |
| { |
| LPCSTR ptr = va_arg( args, LPCSTR ); |
| for (i = 0; i < len; i++) *p++ = (WCHAR)*ptr++; |
| } |
| break; |
| case WPR_WSTRING: |
| if (len) memcpy( p, va_arg( args, LPCWSTR ), len * sizeof(WCHAR) ); |
| p += len; |
| break; |
| case WPR_HEXA: |
| if ((format.flags & WPRINTF_PREFIX_HEX) && (maxlen > 3)) |
| { |
| *p++ = '0'; |
| *p++ = (format.flags & WPRINTF_UPPER_HEX) ? 'X' : 'x'; |
| maxlen -= 2; |
| len -= 2; |
| format.precision -= 2; |
| format.width -= 2; |
| } |
| /* fall through */ |
| case WPR_SIGNED: |
| case WPR_UNSIGNED: |
| for (i = len; i < format.precision; i++, maxlen--) *p++ = '0'; |
| for (i = 0; i < len; i++) *p++ = (WCHAR)number[i]; |
| (void)va_arg( args, INT32 ); /* Go to the next arg */ |
| break; |
| } |
| if (format.flags & WPRINTF_LEFTALIGN) |
| for (i = format.precision; i < format.width; i++, maxlen--) |
| *p++ = ' '; |
| maxlen -= len; |
| } |
| *p = 0; |
| return (maxlen > 1) ? (INT32)(p - buffer) : -1; |
| } |
| |
| |
| /*********************************************************************** |
| * wvsprintf16 (USER.421) |
| */ |
| INT16 WINAPI wvsprintf16( LPSTR buffer, LPCSTR spec, LPCVOID args ) |
| { |
| dprintf_string(stddeb,"wvsprintf16 for %p got ",buffer); |
| return wvsnprintf16( buffer, 0xffff, spec, args ); |
| } |
| |
| |
| /*********************************************************************** |
| * wvsprintf32A (USER32.586) |
| */ |
| INT32 WINAPI wvsprintf32A( LPSTR buffer, LPCSTR spec, va_list args ) |
| { |
| dprintf_string(stddeb,"wvsprintf32A for %p got ",buffer); |
| return wvsnprintf32A( buffer, 0xffffffff, spec, args ); |
| } |
| |
| |
| /*********************************************************************** |
| * wvsprintf32W (USER32.587) |
| */ |
| INT32 WINAPI wvsprintf32W( LPWSTR buffer, LPCWSTR spec, va_list args ) |
| { |
| dprintf_string(stddeb,"wvsprintf32W for %p got ",buffer); |
| return wvsnprintf32W( buffer, 0xffffffff, spec, args ); |
| } |
| |
| |
| /*********************************************************************** |
| * wsprintf16 (USER.420) |
| */ |
| /* Winelib version */ |
| INT16 WINAPIV wsprintf16( LPSTR buffer, LPCSTR spec, ... ) |
| { |
| va_list valist; |
| INT16 res; |
| |
| dprintf_string(stddeb,"wsprintf16 for %p got ",buffer); |
| va_start( valist, spec ); |
| /* Note: we call the 32-bit version, because the args are 32-bit */ |
| res = (INT16)wvsnprintf32A( buffer, 0xffffffff, spec, valist ); |
| va_end( valist ); |
| return res; |
| } |
| |
| /* Emulator version */ |
| INT16 WINAPIV WIN16_wsprintf16(void) |
| { |
| VA_LIST16 valist; |
| INT16 res; |
| SEGPTR buffer, spec; |
| |
| VA_START16( valist ); |
| buffer = VA_ARG16( valist, SEGPTR ); |
| spec = VA_ARG16( valist, SEGPTR ); |
| dprintf_string(stddeb,"WIN16_wsprintf16 got "); |
| res = wvsnprintf16( (LPSTR)PTR_SEG_TO_LIN(buffer), 0xffff, |
| (LPCSTR)PTR_SEG_TO_LIN(spec), valist ); |
| VA_END16( valist ); |
| return res; |
| } |
| |
| |
| /*********************************************************************** |
| * wsprintf32A (USER32.585) |
| */ |
| INT32 WINAPIV wsprintf32A( LPSTR buffer, LPCSTR spec, ... ) |
| { |
| va_list valist; |
| INT32 res; |
| |
| dprintf_string(stddeb,"wsprintf32A for %p got ",buffer); |
| va_start( valist, spec ); |
| res = wvsnprintf32A( buffer, 0xffffffff, spec, valist ); |
| va_end( valist ); |
| return res; |
| } |
| |
| |
| /*********************************************************************** |
| * wsprintf32W (USER32.586) |
| */ |
| INT32 WINAPIV wsprintf32W( LPWSTR buffer, LPCWSTR spec, ... ) |
| { |
| va_list valist; |
| INT32 res; |
| |
| dprintf_string(stddeb,"wsprintf32W for %p\n",buffer); |
| va_start( valist, spec ); |
| res = wvsnprintf32W( buffer, 0xffffffff, spec, valist ); |
| va_end( valist ); |
| return res; |
| } |
| |
| |
| /*********************************************************************** |
| * wsnprintf16 (Not a Windows API) |
| */ |
| INT16 WINAPIV wsnprintf16( LPSTR buffer, UINT16 maxlen, LPCSTR spec, ... ) |
| { |
| va_list valist; |
| INT16 res; |
| |
| va_start( valist, spec ); |
| res = wvsnprintf16( buffer, maxlen, spec, valist ); |
| va_end( valist ); |
| return res; |
| } |
| |
| |
| /*********************************************************************** |
| * wsnprintf32A (Not a Windows API) |
| */ |
| INT32 WINAPIV wsnprintf32A( LPSTR buffer, UINT32 maxlen, LPCSTR spec, ... ) |
| { |
| va_list valist; |
| INT32 res; |
| |
| va_start( valist, spec ); |
| res = wvsnprintf32A( buffer, maxlen, spec, valist ); |
| va_end( valist ); |
| return res; |
| } |
| |
| |
| /*********************************************************************** |
| * wsnprintf32W (Not a Windows API) |
| */ |
| INT32 WINAPIV wsnprintf32W( LPWSTR buffer, UINT32 maxlen, LPCWSTR spec, ... ) |
| { |
| va_list valist; |
| INT32 res; |
| |
| va_start( valist, spec ); |
| res = wvsnprintf32W( buffer, maxlen, spec, valist ); |
| va_end( valist ); |
| return res; |
| } |