| /* |
| * 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; |
| } |
| |
| |
| /*********************************************************************** |
| * OutputDebugString16 (KERNEL.115) |
| */ |
| void OutputDebugString16( 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 ); |
| } |
| |
| |
| /*********************************************************************** |
| * OutputDebugString32A (KERNEL32 |
| */ |
| void OutputDebugString32A( LPCSTR str ) |
| { |
| OutputDebugString16( str ); |
| } |
| |
| |
| |
| /*********************************************************************** |
| * OutputDebugString32W (KERNEL32 |
| */ |
| void OutputDebugString32W( LPCWSTR str ) |
| { |
| LPSTR p = HEAP_strdupWtoA( GetProcessHeap(), 0, str ); |
| OutputDebugString32A( p ); |
| HeapFree( GetProcessHeap(), 0, p ); |
| } |
| |
| |
| |
| /*********************************************************************** |
| * 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) { |
| from = HeapAlloc( GetProcessHeap(),0,200 ); |
| sprintf(from,"Systemmessage, messageid = 0x%08lx\n",dwMessageId); |
| } |
| 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,*lastf; |
| DWORD *argliststart; |
| |
| fmtstr = NULL; |
| lastf = f; |
| 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=HeapAlloc(GetProcessHeap(),0,strlen(f)); |
| sprintf(fmtstr,"%%%s",f); |
| f+=strlen(f); /*at \0*/ |
| } |
| } else |
| fmtstr=HEAP_strdupA(GetProcessHeap(),0,"%s"); |
| if (args) { |
| 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); |
| |
| /* CMF - This makes a BIG assumption about va_list */ |
| vsprintf(sprintfbuf, fmtstr, (va_list) argliststart); |
| x=sprintfbuf; |
| while (*x) { |
| ADD_TO_T(*x++); |
| } |
| HeapFree(GetProcessHeap(),0,sprintfbuf); |
| } else { |
| /* NULL args - copy formatstr |
| * (probably wrong) |
| */ |
| while (lastf<f) { |
| ADD_TO_T(*lastf++); |
| } |
| } |
| HeapFree(GetProcessHeap(),0,fmtstr); |
| break; |
| case 'n': |
| /* FIXME: perhaps add \r too? */ |
| ADD_TO_T('\n'); |
| f++; |
| 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 ... */ |
| from = HeapAlloc( GetProcessHeap(),0,200 ); |
| sprintf(from,"Systemmessage, messageid = 0x%08lx\n",dwMessageId); |
| } |
| 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=HeapAlloc(GetProcessHeap(),0,strlen(f)); |
| sprintf(fmtstr,"%%%s",f); |
| f+=strlen(f); /*at \0*/ |
| } |
| } 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); |
| |
| /* CMF - This makes a BIG assumption about va_list */ |
| vsprintf(sprintfbuf, fmtstr, (va_list) xarr); |
| } else { |
| sprintfbuf=HeapAlloc(GetProcessHeap(),0,100); |
| |
| /* CMF - This makes a BIG assumption about va_list */ |
| vsprintf(sprintfbuf, fmtstr, (va_list) argliststart); |
| } |
| x=sprintfbuf; |
| while (*x) { |
| ADD_TO_T(*x++); |
| } |
| HeapFree(GetProcessHeap(),0,sprintfbuf); |
| HeapFree(GetProcessHeap(),0,fmtstr); |
| break; |
| case 'n': |
| /* FIXME: perhaps add \r too? */ |
| ADD_TO_T('\n'); |
| f++; |
| 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 |
| ); |
| } |
