833 lines
20 KiB
C
833 lines
20 KiB
C
/*
|
|
* String functions
|
|
*
|
|
* Copyright 1993 Yngvi Sigurjonsson (yngvi@hafro.is)
|
|
* Copyright 1996 Marcus Meissner
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
|
|
#include "windows.h"
|
|
#include "winnt.h" /* HEAP_ macros */
|
|
#include "heap.h"
|
|
#include "ldt.h"
|
|
#include "module.h"
|
|
#include "stddebug.h"
|
|
#include "debug.h"
|
|
|
|
#define ToUpper(c) toupper(c)
|
|
#define ToLower(c) tolower(c)
|
|
|
|
|
|
/* Funny to divide them between user and kernel. */
|
|
|
|
/* IsCharAlpha USER 433 */
|
|
BOOL16 IsCharAlpha16(CHAR ch)
|
|
{
|
|
return isalpha(ch); /* This is probably not right for NLS */
|
|
}
|
|
|
|
/* IsCharAlphanumeric USER 434 */
|
|
BOOL16 IsCharAlphanumeric16(CHAR ch)
|
|
{
|
|
return isalnum(ch);
|
|
}
|
|
|
|
/* IsCharUpper USER 435 */
|
|
BOOL16 IsCharUpper16(CHAR ch)
|
|
{
|
|
return isupper(ch);
|
|
}
|
|
|
|
/* IsCharLower USER 436 */
|
|
BOOL16 IsCharLower16(CHAR ch)
|
|
{
|
|
return islower(ch);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* AnsiUpper16 (USER.431)
|
|
*/
|
|
SEGPTR AnsiUpper16( SEGPTR strOrChar )
|
|
{
|
|
/* I am not sure if the locale stuff works with toupper, but then again
|
|
I am not sure if the Linux libc locale stuffs works at all */
|
|
|
|
/* uppercase only one char if strOrChar < 0x10000 */
|
|
if (HIWORD(strOrChar))
|
|
{
|
|
char *s;
|
|
for (s = PTR_SEG_TO_LIN(strOrChar); *s; s++) *s = toupper(*s);
|
|
return strOrChar;
|
|
}
|
|
else return (SEGPTR)ToUpper( (int)strOrChar );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiUpperBuff16 (USER.437)
|
|
*/
|
|
UINT16 AnsiUpperBuff16( LPSTR str, UINT16 len )
|
|
{
|
|
UINT32 count = len ? len : 65536;
|
|
for (; count; count--, str++) *str = toupper(*str);
|
|
return len;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* AnsiLower16 (USER.432)
|
|
*/
|
|
SEGPTR AnsiLower16( SEGPTR strOrChar )
|
|
{
|
|
/* I am not sure if the locale stuff works with toupper, but then again
|
|
I am not sure if the Linux libc locale stuffs works at all */
|
|
|
|
/* lowercase only one char if strOrChar < 0x10000 */
|
|
if (HIWORD(strOrChar))
|
|
{
|
|
char *s;
|
|
for (s = PTR_SEG_TO_LIN( strOrChar ); *s; s++) *s = tolower( *s );
|
|
return strOrChar;
|
|
}
|
|
else return (SEGPTR)tolower( (int)strOrChar );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiLowerBuff16 (USER.438)
|
|
*/
|
|
UINT16 AnsiLowerBuff16( LPSTR str, UINT16 len )
|
|
{
|
|
UINT32 count = len ? len : 65536;
|
|
for (; count; count--, str++) *str = tolower(*str);
|
|
return len;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiNext16 (USER.472)
|
|
*/
|
|
SEGPTR AnsiNext16(SEGPTR current)
|
|
{
|
|
return (*(char *)PTR_SEG_TO_LIN(current)) ? current + 1 : current;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiPrev16 (USER.473)
|
|
*/
|
|
SEGPTR AnsiPrev16( SEGPTR start, SEGPTR current )
|
|
{
|
|
return (current == start) ? start : current - 1;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* OutputDebugString (KERNEL.115)
|
|
*/
|
|
void OutputDebugString( LPCSTR str )
|
|
{
|
|
char *module;
|
|
char *p, *buffer = HeapAlloc( GetProcessHeap(), 0, strlen(str)+1 );
|
|
/* Remove CRs */
|
|
for (p = buffer; *str; str++) if (*str != '\r') *p++ = *str;
|
|
*p = '\0';
|
|
if ((p > buffer) && (p[-1] == '\n')) p[1] = '\0'; /* Remove trailing \n */
|
|
module = MODULE_GetModuleName( GetExePtr(GetCurrentTask()) );
|
|
fprintf( stderr, "OutputDebugString: %s says '%s'\n",
|
|
module ? module : "???", buffer );
|
|
HeapFree( GetProcessHeap(), 0, buffer );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharNext32A (USER32.28)
|
|
*/
|
|
LPSTR CharNext32A( LPCSTR ptr )
|
|
{
|
|
if (!*ptr) return (LPSTR)ptr;
|
|
if (IsDBCSLeadByte32( *ptr )) return (LPSTR)(ptr + 2);
|
|
return (LPSTR)(ptr + 1);
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharNextEx32A (USER32.29)
|
|
*/
|
|
LPSTR CharNextEx32A( WORD codepage, LPCSTR ptr, DWORD flags )
|
|
{
|
|
if (!*ptr) return (LPSTR)ptr;
|
|
if (IsDBCSLeadByteEx( codepage, *ptr )) return (LPSTR)(ptr + 2);
|
|
return (LPSTR)(ptr + 1);
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharNextExW (USER32.30)
|
|
*/
|
|
LPWSTR CharNextEx32W(WORD codepage,LPCWSTR x,DWORD flags)
|
|
{
|
|
/* FIXME: add DBCS / codepage stuff */
|
|
if (*x) return (LPWSTR)(x+1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharNextW (USER32.31)
|
|
*/
|
|
LPWSTR CharNext32W(LPCWSTR x)
|
|
{
|
|
if (*x) return (LPWSTR)(x+1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharPrev32A (USER32.32)
|
|
*/
|
|
LPSTR CharPrev32A( LPCSTR start, LPCSTR ptr )
|
|
{
|
|
while (*start && (start < ptr))
|
|
{
|
|
LPCSTR next = CharNext32A( start );
|
|
if (next > ptr) break;
|
|
start = next;
|
|
}
|
|
return (LPSTR)start;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharPrevEx32A (USER32.33)
|
|
*/
|
|
LPSTR CharPrevEx32A( WORD codepage, LPCSTR start, LPCSTR ptr, DWORD flags )
|
|
{
|
|
while (*start && (start < ptr))
|
|
{
|
|
LPCSTR next = CharNextEx32A( codepage, start, flags );
|
|
if (next > ptr) break;
|
|
start = next;
|
|
}
|
|
return (LPSTR)start;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharPrevExW (USER32.34)
|
|
*/
|
|
LPWSTR CharPrevEx32W(WORD codepage,LPCWSTR start,LPCWSTR x,DWORD flags)
|
|
{
|
|
/* FIXME: add DBCS / codepage stuff */
|
|
if (x>start) return (LPWSTR)(x-1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharPrevW (USER32.35)
|
|
*/
|
|
LPWSTR CharPrev32W(LPCWSTR start,LPCWSTR x)
|
|
{
|
|
if (x>start) return (LPWSTR)(x-1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerA (USER32.24)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPSTR CharLower32A(LPSTR x)
|
|
{
|
|
LPSTR s;
|
|
|
|
if (HIWORD(x))
|
|
{
|
|
s=x;
|
|
while (*s)
|
|
{
|
|
*s=tolower(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
else return (LPSTR)tolower(LOWORD(x));
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerBuffA (USER32.25)
|
|
* FIXME: handle current locale
|
|
*/
|
|
DWORD CharLowerBuff32A(LPSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=tolower(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerBuffW (USER32.26)
|
|
* FIXME: handle current locale
|
|
*/
|
|
DWORD CharLowerBuff32W(LPWSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=tolower(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerW (USER32.27)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPWSTR CharLower32W(LPWSTR x)
|
|
{
|
|
if (HIWORD(x))
|
|
{
|
|
LPWSTR s = x;
|
|
while (*s)
|
|
{
|
|
*s=tolower(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
else return (LPWSTR)tolower(LOWORD(x));
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpper32A (USER32.40)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPSTR CharUpper32A(LPSTR x)
|
|
{
|
|
if (HIWORD(x))
|
|
{
|
|
LPSTR s = x;
|
|
while (*s)
|
|
{
|
|
*s=toupper(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
else return (LPSTR)toupper(LOWORD(x));
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpperBuffA (USER32.41)
|
|
* FIXME: handle current locale
|
|
*/
|
|
DWORD CharUpperBuff32A(LPSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=toupper(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpperBuffW (USER32.42)
|
|
* FIXME: handle current locale
|
|
*/
|
|
DWORD CharUpperBuff32W(LPWSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=toupper(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpperW (USER32.43)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPWSTR CharUpper32W(LPWSTR x)
|
|
{
|
|
if (HIWORD(x))
|
|
{
|
|
LPWSTR s = x;
|
|
while (*s)
|
|
{
|
|
*s=toupper(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
else return (LPWSTR)toupper(LOWORD(x));
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaA (USER32.330)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharAlpha32A(CHAR x)
|
|
{
|
|
return isalpha(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaNumericA (USER32.331)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharAlphaNumeric32A(CHAR x)
|
|
{
|
|
return isalnum(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaNumericW (USER32.332)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharAlphaNumeric32W(WCHAR x)
|
|
{
|
|
return isalnum(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaW (USER32.333)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharAlpha32W(WCHAR x)
|
|
{
|
|
return isalpha(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharLower32A (USER32.334)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharLower32A(CHAR x)
|
|
{
|
|
return islower(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharLower32W (USER32.335)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharLower32W(WCHAR x)
|
|
{
|
|
return islower(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharUpper32A (USER32.336)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharUpper32A(CHAR x)
|
|
{
|
|
return isupper(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharUpper32W (USER32.337)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL32 IsCharUpper32W(WCHAR x)
|
|
{
|
|
return isupper(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* FormatMessageA (KERNEL32.138) Library Version
|
|
* FIXME: missing wrap,FROM_SYSTEM message-loading,
|
|
*/
|
|
DWORD
|
|
FormatMessage32A(
|
|
DWORD dwFlags,
|
|
LPCVOID lpSource,
|
|
DWORD dwMessageId,
|
|
DWORD dwLanguageId,
|
|
LPSTR lpBuffer,
|
|
DWORD nSize,
|
|
LPDWORD args /* va_list *args */
|
|
) {
|
|
LPSTR target,t;
|
|
DWORD talloced;
|
|
LPSTR from,f;
|
|
DWORD width = dwFlags & FORMAT_MESSAGE_MAX_WIDTH_MASK;
|
|
DWORD nolinefeed = 0;
|
|
|
|
dprintf_resource(stddeb,
|
|
"FormatMessage32A(0x%lx,%p,%ld,0x%lx,%p,%ld,%p)\n",
|
|
dwFlags,lpSource,dwMessageId,dwLanguageId,lpBuffer,nSize,args
|
|
);
|
|
if (width)
|
|
fprintf(stdnimp," - line wrapping not supported.\n");
|
|
from = NULL;
|
|
if (dwFlags & FORMAT_MESSAGE_FROM_STRING)
|
|
from = HEAP_strdupA( GetProcessHeap(), 0, (LPSTR)lpSource);
|
|
if (dwFlags & FORMAT_MESSAGE_FROM_SYSTEM) {
|
|
/* gather information from system message tables ... */
|
|
fprintf(stdnimp," - FORMAT_MESSAGE_FROM_SYSTEM not implemented.\n");
|
|
}
|
|
if (dwFlags & FORMAT_MESSAGE_FROM_HMODULE) {
|
|
INT32 bufsize;
|
|
|
|
dwMessageId &= 0xFFFF;
|
|
bufsize=LoadMessage32A(0,dwMessageId,dwLanguageId,NULL,100);
|
|
if (bufsize) {
|
|
from = HeapAlloc( GetProcessHeap(), 0, bufsize + 1 );
|
|
LoadMessage32A(0,dwMessageId,dwLanguageId,from,bufsize+1);
|
|
}
|
|
}
|
|
target = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, 100);
|
|
t = target;
|
|
talloced= 100;
|
|
|
|
#define ADD_TO_T(c) \
|
|
*t++=c;\
|
|
if (t-target == talloced) {\
|
|
target = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,talloced*2);\
|
|
t = target+talloced;\
|
|
talloced*=2;\
|
|
}
|
|
|
|
if (from) {
|
|
f=from;
|
|
while (*f) {
|
|
if (*f=='%') {
|
|
int insertnr;
|
|
char *fmtstr,*sprintfbuf,*x;
|
|
DWORD *argliststart;
|
|
|
|
fmtstr = NULL;
|
|
f++;
|
|
if (!*f) {
|
|
ADD_TO_T('%');
|
|
continue;
|
|
}
|
|
switch (*f) {
|
|
case '1':case '2':case '3':case '4':case '5':
|
|
case '6':case '7':case '8':case '9':
|
|
insertnr=*f-'0';
|
|
switch (f[1]) {
|
|
case '0':case '1':case '2':case '3':
|
|
case '4':case '5':case '6':case '7':
|
|
case '8':case '9':
|
|
f++;
|
|
insertnr=insertnr*10+*f-'0';
|
|
f++;
|
|
break;
|
|
default:
|
|
f++;
|
|
break;
|
|
}
|
|
if (*f=='!') {
|
|
f++;
|
|
if (NULL!=(x=strchr(f,'!'))) {
|
|
*x='\0';
|
|
fmtstr=HeapAlloc(GetProcessHeap(),0,strlen(f)+2);
|
|
sprintf(fmtstr,"%%%s",f);
|
|
f=x+1;
|
|
}
|
|
} else
|
|
fmtstr=HEAP_strdupA(GetProcessHeap(),0,"%s");
|
|
if (dwFlags & FORMAT_MESSAGE_ARGUMENT_ARRAY)
|
|
argliststart=args+insertnr-1;
|
|
else
|
|
/* FIXME: not sure that this is
|
|
* correct for unix-c-varargs.
|
|
*/
|
|
argliststart=((DWORD*)&args)+insertnr-1;
|
|
|
|
if (fmtstr[strlen(fmtstr)]=='s')
|
|
sprintfbuf=HeapAlloc(GetProcessHeap(),0,strlen((LPSTR)argliststart[0])+1);
|
|
else
|
|
sprintfbuf=HeapAlloc(GetProcessHeap(),0,100);
|
|
vsprintf(sprintfbuf,fmtstr,argliststart);
|
|
x=sprintfbuf;
|
|
while (*x) {
|
|
ADD_TO_T(*x++);
|
|
}
|
|
HeapFree(GetProcessHeap(),0,sprintfbuf);
|
|
HeapFree(GetProcessHeap(),0,fmtstr);
|
|
break;
|
|
case '0':
|
|
nolinefeed=1;
|
|
f++;
|
|
break;
|
|
default:ADD_TO_T(*f++)
|
|
break;
|
|
|
|
}
|
|
} else {
|
|
ADD_TO_T(*f++)
|
|
}
|
|
}
|
|
*t='\0';
|
|
}
|
|
if (!nolinefeed && t[-1]!='\n')
|
|
ADD_TO_T('\n');
|
|
talloced = strlen(target)+1;
|
|
if (nSize && talloced<nSize) {
|
|
target = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,nSize);
|
|
}
|
|
if (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) {
|
|
/* nSize is the MINIMUM size */
|
|
*((LPVOID*)lpBuffer) = (LPVOID)LocalAlloc32(GMEM_ZEROINIT,talloced);
|
|
memcpy(*(LPSTR*)lpBuffer,target,talloced);
|
|
} else
|
|
strncpy(lpBuffer,target,nSize);
|
|
HeapFree(GetProcessHeap(),0,target);
|
|
if (from) HeapFree(GetProcessHeap(),0,from);
|
|
return (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) ?
|
|
strlen(*(LPSTR*)lpBuffer):
|
|
strlen(lpBuffer);
|
|
}
|
|
#undef ADD_TO_T
|
|
|
|
/***********************************************************************
|
|
* FormatMessageA (KERNEL32.138) Emulator Version
|
|
*/
|
|
DWORD
|
|
WIN32_FormatMessage32A(DWORD *args) {
|
|
DWORD dwFlags = args[0];
|
|
LPCVOID lpSource = (LPCVOID)args[1];
|
|
DWORD dwMessageId = args[2];
|
|
DWORD dwLanguageId = args[3];
|
|
LPSTR lpBuffer = (LPSTR)args[4];
|
|
DWORD nSize = args[5];
|
|
DWORD *xargs;
|
|
|
|
/* convert possible varargs to an argument array look-a-like */
|
|
|
|
if (dwFlags & FORMAT_MESSAGE_ARGUMENT_ARRAY) {
|
|
xargs=(DWORD*)args[6];
|
|
} else {
|
|
/* args[6] is a pointer to a pointer to the start of
|
|
* a list of arguments.
|
|
*/
|
|
if (args[6])
|
|
xargs=(DWORD*)(((DWORD*)args[6])[0]);
|
|
else
|
|
xargs=NULL;
|
|
dwFlags|=FORMAT_MESSAGE_ARGUMENT_ARRAY;
|
|
}
|
|
return FormatMessage32A(
|
|
dwFlags,
|
|
lpSource,
|
|
dwMessageId,
|
|
dwLanguageId,
|
|
lpBuffer,
|
|
nSize,
|
|
xargs
|
|
);
|
|
}
|
|
|
|
DWORD
|
|
FormatMessage32W(
|
|
DWORD dwFlags,
|
|
LPCVOID lpSource,
|
|
DWORD dwMessageId,
|
|
DWORD dwLanguageId,
|
|
LPWSTR lpBuffer,
|
|
DWORD nSize,
|
|
LPDWORD args /* va_list *args */
|
|
) {
|
|
LPSTR target,t;
|
|
DWORD talloced;
|
|
LPSTR from,f;
|
|
DWORD width = dwFlags & FORMAT_MESSAGE_MAX_WIDTH_MASK;
|
|
DWORD nolinefeed = 0;
|
|
|
|
dprintf_resource(stddeb,
|
|
"FormatMessage32A(0x%lx,%p,%ld,0x%lx,%p,%ld,%p)\n",
|
|
dwFlags,lpSource,dwMessageId,dwLanguageId,lpBuffer,nSize,args
|
|
);
|
|
if (width)
|
|
fprintf(stdnimp," - line wrapping not supported.\n");
|
|
from = NULL;
|
|
if (dwFlags & FORMAT_MESSAGE_FROM_STRING)
|
|
from = HEAP_strdupWtoA(GetProcessHeap(),0,(LPWSTR)lpSource);
|
|
if (dwFlags & FORMAT_MESSAGE_FROM_SYSTEM) {
|
|
/* gather information from system message tables ... */
|
|
fprintf(stdnimp," - FORMAT_MESSAGE_FROM_SYSTEM not implemented.\n");
|
|
}
|
|
if (dwFlags & FORMAT_MESSAGE_FROM_HMODULE) {
|
|
INT32 bufsize;
|
|
|
|
dwMessageId &= 0xFFFF;
|
|
bufsize=LoadMessage32A(0,dwMessageId,dwLanguageId,NULL,100);
|
|
if (bufsize)
|
|
{
|
|
from = HeapAlloc( GetProcessHeap(), 0, bufsize + 1 );
|
|
LoadMessage32A(0,dwMessageId,dwLanguageId,from,bufsize+1);
|
|
}
|
|
}
|
|
target = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, 100 );
|
|
t = target;
|
|
talloced= 100;
|
|
|
|
#define ADD_TO_T(c) \
|
|
*t++=c;\
|
|
if (t-target == talloced) {\
|
|
target = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,talloced*2);\
|
|
t = target+talloced;\
|
|
talloced*=2;\
|
|
}
|
|
|
|
if (from) {
|
|
f=from;
|
|
while (*f) {
|
|
if (*f=='%') {
|
|
int insertnr;
|
|
char *fmtstr,*sprintfbuf,*x;
|
|
DWORD *argliststart;
|
|
|
|
fmtstr = NULL;
|
|
f++;
|
|
if (!*f) {
|
|
ADD_TO_T('%');
|
|
continue;
|
|
}
|
|
switch (*f) {
|
|
case '1':case '2':case '3':case '4':case '5':
|
|
case '6':case '7':case '8':case '9':
|
|
insertnr=*f-'0';
|
|
switch (f[1]) {
|
|
case '0':case '1':case '2':case '3':
|
|
case '4':case '5':case '6':case '7':
|
|
case '8':case '9':
|
|
f++;
|
|
insertnr=insertnr*10+*f-'0';
|
|
f++;
|
|
break;
|
|
default:
|
|
f++;
|
|
break;
|
|
}
|
|
if (*f=='!') {
|
|
f++;
|
|
if (NULL!=(x=strchr(f,'!')))
|
|
{
|
|
*x='\0';
|
|
fmtstr=HeapAlloc( GetProcessHeap(), 0, strlen(f)+2);
|
|
sprintf(fmtstr,"%%%s",f);
|
|
f=x+1;
|
|
}
|
|
} else
|
|
fmtstr=HEAP_strdupA( GetProcessHeap(),0,"%s");
|
|
if (dwFlags & FORMAT_MESSAGE_ARGUMENT_ARRAY)
|
|
argliststart=args+insertnr-1;
|
|
else
|
|
/* FIXME: not sure that this is
|
|
* correct for unix-c-varargs.
|
|
*/
|
|
argliststart=((DWORD*)&args)+insertnr-1;
|
|
|
|
if (fmtstr[strlen(fmtstr)]=='s') {
|
|
DWORD xarr[3];
|
|
|
|
xarr[0]=(DWORD)HEAP_strdupWtoA(GetProcessHeap(),0,(LPWSTR)(*(argliststart+0)));
|
|
/* possible invalid pointers */
|
|
xarr[1]=*(argliststart+1);
|
|
xarr[2]=*(argliststart+2);
|
|
sprintfbuf=HeapAlloc(GetProcessHeap(),0,lstrlen32W((LPWSTR)argliststart[0])*2+1);
|
|
vsprintf(sprintfbuf,fmtstr,xarr);
|
|
} else {
|
|
sprintfbuf=HeapAlloc(GetProcessHeap(),0,100);
|
|
vsprintf(sprintfbuf,fmtstr,argliststart);
|
|
}
|
|
x=sprintfbuf;
|
|
while (*x) {
|
|
ADD_TO_T(*x++);
|
|
}
|
|
HeapFree(GetProcessHeap(),0,sprintfbuf);
|
|
HeapFree(GetProcessHeap(),0,fmtstr);
|
|
break;
|
|
case '0':
|
|
nolinefeed=1;
|
|
f++;
|
|
break;
|
|
default:ADD_TO_T(*f++)
|
|
break;
|
|
|
|
}
|
|
} else {
|
|
ADD_TO_T(*f++)
|
|
}
|
|
}
|
|
*t='\0';
|
|
}
|
|
if (!nolinefeed && t[-1]!='\n')
|
|
ADD_TO_T('\n');
|
|
talloced = strlen(target)+1;
|
|
if (nSize && talloced<nSize)
|
|
target = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,nSize);
|
|
if (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) {
|
|
/* nSize is the MINIMUM size */
|
|
*((LPVOID*)lpBuffer) = (LPVOID)LocalAlloc32(GMEM_ZEROINIT,talloced*2+2);
|
|
lstrcpynAtoW(*(LPWSTR*)lpBuffer,target,talloced);
|
|
} else
|
|
lstrcpynAtoW(lpBuffer,target,nSize);
|
|
HeapFree(GetProcessHeap(),0,target);
|
|
if (from) HeapFree(GetProcessHeap(),0,from);
|
|
return (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) ?
|
|
lstrlen32W(*(LPWSTR*)lpBuffer):
|
|
lstrlen32W(lpBuffer);
|
|
}
|
|
#undef ADD_TO_T
|
|
|
|
/***********************************************************************
|
|
* FormatMessageA (KERNEL32.138) Emulator Version
|
|
*/
|
|
DWORD
|
|
WIN32_FormatMessage32W(DWORD *args) {
|
|
DWORD dwFlags = args[0];
|
|
LPCVOID lpSource = (LPCVOID)args[1];
|
|
DWORD dwMessageId = args[2];
|
|
DWORD dwLanguageId = args[3];
|
|
LPWSTR lpBuffer = (LPWSTR)args[4];
|
|
DWORD nSize = args[5];
|
|
DWORD *xargs;
|
|
|
|
/* convert possible varargs to an argument array look-a-like */
|
|
|
|
if (dwFlags & FORMAT_MESSAGE_ARGUMENT_ARRAY) {
|
|
xargs=(DWORD*)args[6];
|
|
} else {
|
|
/* args[6] is a pointer to a pointer to the start of
|
|
* a list of arguments.
|
|
*/
|
|
if (args[6])
|
|
xargs=(DWORD*)(((DWORD*)args[6])[0]);
|
|
else
|
|
xargs=NULL;
|
|
dwFlags|=FORMAT_MESSAGE_ARGUMENT_ARRAY;
|
|
}
|
|
return FormatMessage32W(
|
|
dwFlags,
|
|
lpSource,
|
|
dwMessageId,
|
|
dwLanguageId,
|
|
lpBuffer,
|
|
nSize,
|
|
xargs
|
|
);
|
|
}
|