mirror of
git://source.winehq.org/git/wine.git
synced 2024-10-31 11:43:31 +00:00
a845b88ead
Sun May 31 13:40:13 1998 Alexandre Julliard <julliard@lrc.epfl.ch> * [if1632/signal.c] Added display of exception name. * [loader/task.c] Yet another attempt at fixing SwitchStackTo/SwitchStackBack. * [memory/selector.c] [relay32/builtin32.c] [tools/build.c] [win32/kernel32.c] Generate an assembly stub for Win32 register functions to make their names available at link time. * [programs/*/Makefile.in] Added hacks to support old resource compiler. Fri May 29 16:27:14 1998 Marcus Meissner <marcus@jet.franken.de> * [tools/testrun] Merge of my testscripts at home into one single perl program (tested with perl5). Works only on Linux due to 'ps' and 'ipcs' magic. * [controls/menu.c] Added some DefaultMenuItem stubs. * [debugger/stabs.c] Fixed stabs loading, now supports (int,int) typeinfo format used by gcc-2.8 and egcs-1. If it still crashes, please mail me. * [if1632/][relay32/] Added msvideo.dll (stubs only) Replaced some ptr by str for stringcases Added some new stubs (VxDCall, FindCloseNotif....) * [misc/network.c] Some argument fixes. * [misc/registry.c][misc/cpu.c] Registry initialization partially rewritten and enhanced. * [scheduler/*.c] Some additions so we don't do kill(0,SIGUSR1) (kill processgroup instead of targeted thread) Added SetThreadContext. Thu May 28 23:59:59 1998 Bertho Stultiens <bertho@akhphd.au.dk> * [tools/wrc/*] New resource compiler version 1.0.0 (28-May-1998) * [Make.rules.in] [Makefile.in] Changed and added rc rules to point to tools/wrc/wrc. * [configure.in] [include/config.h.in] Added check for function 'stricmp'. * [include/resource.h] Commented out the old resource structure to catch references. It also includes wrc_rsc.h. * [include/wrc_rsc.h] New file. Definitions for the resources generated with wrc. * [include/windows.h] Added #ifdef RC_INVOKED to exclude stdarg.h. Added SS_NOTIFY flag. * [include/winnls.h] Added SUBLANG_* definitions and corrected some defaults. * [loader/libres.c] Changed the sysres load functions to support wrc generated resources. * [resource/sysres_*.rc] Added #include <windows.h> * [resource/sysres.c] Changed declarations to match wrc's output * [resource/Makefile.in] Changed rules to work with wrc. * [tools/makedep.c] Changed generation of .rc file dependencies to .s target. Thu May 28 22:28:39 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de> * [files/file.c][include/windows.c][relay32/kernel32.spec] Implemented GetFileAttributesEx32A/W. * [misc/imagelist.h][include/commctrl.h][relay32/comctl32.spec] Added ImageList_Read and ImageList_Write stubs. Added ImageList_AddIcon function. Added ImageList_LoadImage. It is the same as ImageList_LoadImage32A. * [controls/header.c] Fixed bitmap drawing bug. Added full bitmap support. * [include/commctrl.h] Added missing header macros. * [controls/toolbar.c][include/toolbar.h][include/commctrl.h] [controls/commctrl.c] [relay32/comctl32.spec] First implementation of toolbar control. Implemented CreateToolbar, CreateToolbarEx and CreateMappedBitmap. * [controls/progress.c][controls/status.c] Some code cleanup. * [controls/commctrl.c][include/commctrl.h][relay32/comctl32.spec] Removed CreateStatusWindow16 and DrawStatusText16. CreateStatusWindow is the same as CreateStatusWindow32A. DrawStatusText is the same as DrawStatusText32A. Thu May 28 16:01:28 1998 Matthew J. Francis <asbel@dial.pipex.com> * [objects/bitmap.c] [objects/bitmap.h] [objects/oembitmap.c] [objects/dc.c] [graphics/x11drv/bitblt.c] Added partial implementation of CreateDIBSection, with great thanks to Ulrich Weigand <weigand@informatik.uni-erlangen.de> for contributing the bulk of the patch. Wed May 27 19:04:31 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de> * [win32/kernel32.c] [if1632/thunk.c] [include/flatthunk.h] ThunkConnect16 and related functions moved to emulator. * [loader/ne/segment.c] Call DllEntryPoint with correct arguments. * [relay32/builtin32.c] Bugfix: Relay debugging did not work for multiple processes. * [controls/menu.c] Bugfix: dwItemData was not set for MF_OWNERDRAW menus. * [if1632/relay.c] [relay32/relay386.c] Relay messages converted to use DPRINTF. * [controls/desktop.c] [relay32/user32.spec] Implemented PaintDesktop. * [files/profile.c] [if1632/kernel.spec] [misc/network.c] [misc/printdrv.c] [relay32/winspool.spec] [win32/ordinals.c] [relay32/kernel32.spec] Some stubs added. * [relay32/mpr.spec] All ordinals were off by one. Tue May 26 13:32:57 1998 Bill Hawes <whawes@star.net> * [misc/lstr.c] [include/casemap.h] [tools/unimap.pl] Added Unicode case conversion routines towupper/towlower, with mapping tables casemap.h created by tools/unimap.pl. * [misc/ntdll.c] [include/winnls.h] [relay32/ntdll.spec] [relay32/advapi.spec] Minimal implementation of IsTextUnicode, just enough to get NT4 notepad to open ascii/unicode files. * [Make.rules.in] [resources/sysres_En.rc] Added include file dlgs.h for building resource files, so that resources can refer to defined values (e.g. pshHelp). * [misc/crtdll.c] [relay32/crtdll.spec] Use towupper/towlower for 32W case conversions. * [memory/string.c] Use towupper for 32W case conversions. * [ole/ole2nls.c] Use towupper for 32W case conversions; fix mem leak; minor cleanup * [controls/edit.c] Added soft break flag to edit state. Print unknown action values for WM_VSCROLL (action 190 occurs when running NT4 notepad.) Mon May 25 22:42:40 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de> * [files/file.c] Care for a pathological case in SetFilePointer. * [graphics/x11drv/xfont.c] Handle longer Font names in LFD_ComposeLFD and try to catch errors. * [loader/pe_image.c] Unload Dummymodule when PE_LoadLibraryEx32A fails with PE_LoadImage (makes Encarta 98 installer proceed). * [misc/registry.c] Move a check for a special case in RegCreateKeyEx32W after the check for existence. Tue May 25 20:18:26 1998 Matthew Becker <mbecker@glasscity.net> * [misc/ntdll.c] Added some stubs, just guessing at the size of their param lists. * [misc/registry.c] Added stubs for RegUnLoadKey, RegSetKeySecurity, RegSaveKey, RegRestoreKey, and RegReplaceKey * [programs/regtest/regtest.c] Updated registry testing program. Sun May 24 18:11:40 1998 Alex Priem <alexp@sci.kun.nl> * [file/profile.c] Added flag 'return_values' to PROFILE_GetSection. Sun May 24 13:41:10 1998 James Juran <jrj120@psu.edu> * [misc/shell.c] [files/directory.c] Documentation/debugging info additions. * [*/*.c] [include/*.h] Moved many extern function definitions to appropriate header files. Cleaned up a few compile warnings. If #include "debug.h" is present, removed #include <stdio.h>. debug.h includes stdio.h, so it is not necessary to include both. * [graphics/*.c] [if1632/signal.c] [ipc/*.c] [scheduler/*.c] [win32/*.c] [windows/*.c] Final patch to convert fprintf statements to new debugging interface. Some fprintfs are still left, especially in the debugger/ directory. However, IMHO, it's not worth the effort to change the rest. Fri May 22 21:58:35 1998 Morten Welinder <terra@diku.dk> * [windows/keyboard.c] Correct handling of keys "`-=[]\;',./". Fri May 22 12:06:00 1998 Per Lindström <pelinstr@algonet.se> * [include/windows.h] [relay32/kernel32.spec] [win32/console.c] Added stub for ReadConsoleOutputCharacter32A. Thu May 21 16:45:48 1998 Pascal Cuoq <pcuoq@ens-lyon.fr> * [ole/ole2nls.c] Began better implementation of LCMapString32A. Not very well tested yet, and still need improvements. * [controls/scroll.c] Documented functions. Wed May 20 21:37:56 1998 Peter Hunnisett <hunnise@nortel.ca> * [include/windows.h][misc/main.c] Change SystemParameterInfo to support SPI_GETHIGHCONTRAST. Also include some missing SPI_ definitions. * [include/dsound.h][multimedia/dsound.c][relay32/dplayx.spec] Added stubs for DirectPlayLobbyCreate[AW]. Not sure if these should go into a new files dplayx.c? Anyone care? * [include/winnls.h] Added two missing flags for the CompareString32 functions.
624 lines
18 KiB
C
624 lines
18 KiB
C
/*
|
|
* wsprintf functions
|
|
*
|
|
* Copyright 1996 Alexandre Julliard
|
|
*/
|
|
|
|
#include <stdarg.h>
|
|
#include <string.h>
|
|
#include "windows.h"
|
|
#include "ldt.h"
|
|
#include "stackframe.h"
|
|
#include "debug.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_UNKNOWN,
|
|
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;
|
|
|
|
static const CHAR null_stringA[] = "(null)";
|
|
static const WCHAR null_stringW[] = { '(', 'n', 'u', 'l', 'l', ')', 0 };
|
|
|
|
/***********************************************************************
|
|
* 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: /* unknown format char */
|
|
res->type = WPR_UNKNOWN;
|
|
p--; /* print format as normal char */
|
|
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:
|
|
res->type = WPR_UNKNOWN;
|
|
p--; /* print format as normal char */
|
|
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:
|
|
if (!*(LPCSTR *)arg) *(LPCSTR *)arg = null_stringA;
|
|
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:
|
|
if (!*(LPCWSTR *)arg) *(LPCWSTR *)arg = null_stringW;
|
|
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;
|
|
case WPR_UNKNOWN:
|
|
continue;
|
|
}
|
|
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;
|
|
case WPR_UNKNOWN:
|
|
continue;
|
|
}
|
|
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;
|
|
case WPR_UNKNOWN:
|
|
continue;
|
|
}
|
|
if (format.flags & WPRINTF_LEFTALIGN)
|
|
for (i = format.precision; i < format.width; i++, maxlen--)
|
|
*p++ = ' ';
|
|
maxlen -= len;
|
|
}
|
|
*p = 0;
|
|
TRACE(string,"%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;
|
|
case WPR_UNKNOWN:
|
|
continue;
|
|
}
|
|
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 )
|
|
{
|
|
TRACE(string,"for %p got:\n",buffer);
|
|
return wvsnprintf16( buffer, 0xffff, spec, args );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* wvsprintf32A (USER32.587)
|
|
*/
|
|
INT32 WINAPI wvsprintf32A( LPSTR buffer, LPCSTR spec, va_list args )
|
|
{
|
|
TRACE(string,"for %p got:\n",buffer);
|
|
return wvsnprintf32A( buffer, 0xffffffff, spec, args );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* wvsprintf32W (USER32.588)
|
|
*/
|
|
INT32 WINAPI wvsprintf32W( LPWSTR buffer, LPCWSTR spec, va_list args )
|
|
{
|
|
TRACE(string,"for %p got:\n",buffer);
|
|
return wvsnprintf32W( buffer, 0xffffffff, spec, args );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* wsprintf16 (USER.420)
|
|
*/
|
|
/* Winelib version */
|
|
INT16 WINAPIV wsprintf16( LPSTR buffer, LPCSTR spec, ... )
|
|
{
|
|
va_list valist;
|
|
INT16 res;
|
|
|
|
TRACE(string,"for %p got:\n",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 );
|
|
TRACE(string,"got:\n");
|
|
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;
|
|
|
|
TRACE(string,"for %p got:\n",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;
|
|
|
|
TRACE(string,"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;
|
|
}
|