Got rid of the Wine internal lstrcpy* functions and of winestring.h.
[wine] / dlls / kernel / format_msg.c
1 /*
2  * FormatMessage implementation
3  *
4  * Copyright 1996 Marcus Meissner
5  */
6
7 #include "config.h"
8
9 #include <stdio.h>
10 #include <string.h>
11
12 #include "windef.h"
13 #include "winbase.h"
14 #include "winerror.h"
15 #include "winnls.h"
16 #include "wine/unicode.h"
17
18 #include "heap.h"
19 #include "debugtools.h"
20
21 DEFAULT_DEBUG_CHANNEL(resource);
22
23
24 /* Messages...used by FormatMessage32* (KERNEL32.something)
25  * 
26  * They can be specified either directly or using a message ID and
27  * loading them from the resource.
28  * 
29  * The resourcedata has following format:
30  * start:
31  * 0: DWORD nrofentries
32  * nrofentries * subentry:
33  *      0: DWORD firstentry
34  *      4: DWORD lastentry
35  *      8: DWORD offset from start to the stringentries
36  *
37  * (lastentry-firstentry) * stringentry:
38  * 0: WORD len (0 marks end)    [ includes the 4 byte header length ]
39  * 2: WORD flags
40  * 4: CHAR[len-4]
41  *      (stringentry i of a subentry refers to the ID 'firstentry+i')
42  *
43  * Yes, ANSI strings in win32 resources. Go figure.
44  */
45
46 /**********************************************************************
47  *      load_messageA           (internal)
48  */
49 static INT load_messageA( HMODULE instance, UINT id, WORD lang,
50                           LPSTR buffer, INT buflen )
51 {
52     HGLOBAL     hmem;
53     HRSRC       hrsrc;
54     PMESSAGE_RESOURCE_DATA      mrd;
55     PMESSAGE_RESOURCE_BLOCK     mrb;
56     PMESSAGE_RESOURCE_ENTRY     mre;
57     int         i,slen;
58
59     TRACE("instance = %08lx, id = %08lx, buffer = %p, length = %ld\n", (DWORD)instance, (DWORD)id, buffer, (DWORD)buflen);
60
61     /*FIXME: I am not sure about the '1' ... But I've only seen those entries*/
62     hrsrc = FindResourceExW(instance,RT_MESSAGELISTW,(LPWSTR)1,lang);
63     if (!hrsrc) return 0;
64     hmem = LoadResource( instance, hrsrc );
65     if (!hmem) return 0;
66     
67     mrd = (PMESSAGE_RESOURCE_DATA)LockResource(hmem);
68     mre = NULL;
69     mrb = &(mrd->Blocks[0]);
70     for (i=mrd->NumberOfBlocks;i--;) {
71         if ((id>=mrb->LowId) && (id<=mrb->HighId)) {
72             mre = (PMESSAGE_RESOURCE_ENTRY)(((char*)mrd)+mrb->OffsetToEntries);
73             id  -= mrb->LowId;
74             break;
75         }
76         mrb++;
77     }
78     if (!mre)
79         return 0;
80     for (i=id;i--;) {
81         if (!mre->Length)
82                 return 0;
83         mre = (PMESSAGE_RESOURCE_ENTRY)(((char*)mre)+mre->Length);
84     }
85     slen=mre->Length;
86     TRACE("     - strlen=%d\n",slen);
87     i = min(buflen - 1, slen);
88     if (buffer == NULL)
89         return slen;
90     if (i>0) {
91         if (mre->Flags & MESSAGE_RESOURCE_UNICODE)
92             WideCharToMultiByte( CP_ACP, 0, (LPWSTR)mre->Text, -1, buffer, i, NULL, NULL );
93         else
94             lstrcpynA(buffer, (LPSTR)mre->Text, i);
95         buffer[i]=0;
96     } else {
97         if (buflen>1) {
98             buffer[0]=0;
99             return 0;
100         }
101     }
102     if (buffer)
103             TRACE("'%s' copied !\n", buffer);
104     return i;
105 }
106
107 #if 0  /* FIXME */
108 /**********************************************************************
109  *      load_messageW   (internal)
110  */
111 static INT load_messageW( HMODULE instance, UINT id, WORD lang,
112                           LPWSTR buffer, INT buflen )
113 {
114     INT retval;
115     LPSTR buffer2 = NULL;
116     if (buffer && buflen)
117         buffer2 = HeapAlloc( GetProcessHeap(), 0, buflen );
118     retval = load_messageA(instance,id,lang,buffer2,buflen);
119     if (buffer)
120     {
121         if (retval) {
122             lstrcpynAtoW( buffer, buffer2, buflen );
123             retval = strlenW( buffer );
124         }
125         HeapFree( GetProcessHeap(), 0, buffer2 );
126     }
127     return retval;
128 }
129 #endif
130
131
132 /***********************************************************************
133  *           FormatMessageA   (KERNEL32.138)
134  * FIXME: missing wrap,
135  */
136 DWORD WINAPI FormatMessageA(
137         DWORD   dwFlags,
138         LPCVOID lpSource,
139         DWORD   dwMessageId,
140         DWORD   dwLanguageId,
141         LPSTR   lpBuffer,
142         DWORD   nSize,
143         va_list* _args
144 ) {
145   LPDWORD args=(LPDWORD)_args;
146 #ifdef __i386__
147 /* This implementation is completely dependant on the format of the va_list on x86 CPUs */
148         LPSTR   target,t;
149         DWORD   talloced;
150         LPSTR   from,f;
151         DWORD   width = dwFlags & FORMAT_MESSAGE_MAX_WIDTH_MASK;
152         BOOL    eos = FALSE;
153         INT     bufsize;
154         HMODULE hmodule = (HMODULE)lpSource;
155         CHAR    ch;
156
157         TRACE("(0x%lx,%p,%ld,0x%lx,%p,%ld,%p)\n",
158                      dwFlags,lpSource,dwMessageId,dwLanguageId,lpBuffer,nSize,args);
159         if ((dwFlags & FORMAT_MESSAGE_FROM_SYSTEM)
160                 && (dwFlags & FORMAT_MESSAGE_FROM_HMODULE)) return 0;
161         if ((dwFlags & FORMAT_MESSAGE_FROM_STRING)
162                 &&((dwFlags & FORMAT_MESSAGE_FROM_SYSTEM)
163                         || (dwFlags & FORMAT_MESSAGE_FROM_HMODULE))) return 0;
164
165         if (width && width != FORMAT_MESSAGE_MAX_WIDTH_MASK) 
166                 FIXME("line wrapping (%lu) not supported.\n", width);
167         from = NULL;
168         if (dwFlags & FORMAT_MESSAGE_FROM_STRING) {
169                 from = HEAP_strdupA( GetProcessHeap(), 0, (LPSTR)lpSource);
170         }
171         else {
172                 if (dwFlags & FORMAT_MESSAGE_FROM_SYSTEM)
173                         hmodule = GetModuleHandleA("kernel32");
174                 bufsize=load_messageA(hmodule,dwMessageId,dwLanguageId,NULL,100);
175                 if (!bufsize) {
176                         if (dwLanguageId) {
177                                 SetLastError (ERROR_RESOURCE_LANG_NOT_FOUND);
178                                 return 0;
179                         }
180                         bufsize=load_messageA(hmodule,dwMessageId,
181                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL),NULL,100);
182                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
183                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),NULL,100);
184                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
185                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_SYS_DEFAULT),NULL,100);
186                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
187                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_SYS_DEFAULT),NULL,100);
188                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
189                                 MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),NULL,100);
190                         if (!bufsize) {
191                                 SetLastError (ERROR_RESOURCE_LANG_NOT_FOUND);
192                                 return 0;
193                         }
194                 }
195                 from = HeapAlloc( GetProcessHeap(), 0, bufsize + 1 );
196                 load_messageA(hmodule,dwMessageId,dwLanguageId,from,bufsize+1);
197         }
198         target  = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, 100);
199         t       = target;
200         talloced= 100;
201
202 #define ADD_TO_T(c) do { \
203         *t++=c;\
204         if (t-target == talloced) {\
205                 target  = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,talloced*2);\
206                 t       = target+talloced;\
207                 talloced*=2;\
208         }\
209 } while (0)
210
211         if (from) {
212                 f=from;
213                 while (*f && !eos) {
214                         if (*f=='%') {
215                                 int     insertnr;
216                                 char    *fmtstr,*x,*lastf;
217                                 DWORD   *argliststart;
218
219                                 fmtstr = NULL;
220                                 lastf = f;
221                                 f++;
222                                 if (!*f) {
223                                         ADD_TO_T('%');
224                                         continue;
225                                 }
226                                 switch (*f) {
227                                 case '1':case '2':case '3':case '4':case '5':
228                                 case '6':case '7':case '8':case '9':
229                                         insertnr=*f-'0';
230                                         switch (f[1]) {
231                                         case '0':case '1':case '2':case '3':
232                                         case '4':case '5':case '6':case '7':
233                                         case '8':case '9':
234                                                 f++;
235                                                 insertnr=insertnr*10+*f-'0';
236                                                 f++;
237                                                 break;
238                                         default:
239                                                 f++;
240                                                 break;
241                                         }
242                                         if (*f=='!') {
243                                                 f++;
244                                                 if (NULL!=(x=strchr(f,'!'))) {
245                                                         *x='\0';
246                                                         fmtstr=HeapAlloc(GetProcessHeap(),0,strlen(f)+2);
247                                                         /* %ls ? */
248                                                         if (!strcmp(f,"ls")) f++;
249                                                         sprintf(fmtstr,"%%%s",f);
250                                                         f=x+1;
251                                                 } else {
252                                                         fmtstr=HeapAlloc(GetProcessHeap(),0,strlen(f)+2);
253                                                         if (!strcmp(f,"ls")) f++;
254                                                         sprintf(fmtstr,"%%%s",f);
255                                                         f+=strlen(f); /*at \0*/
256                                                 }
257                                         } else
258                                                 if(!args) 
259                                                   break;
260                                         else
261                                                 fmtstr=HEAP_strdupA(GetProcessHeap(),0,"%s");
262                                         if (args) {
263                                                 int     sz;
264                                                 LPSTR   b = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sz = 100);
265
266                                                 if (dwFlags & FORMAT_MESSAGE_ARGUMENT_ARRAY)
267                                                         argliststart=args+insertnr-1;
268                                                 else
269                                                         argliststart=(*(DWORD**)args)+insertnr-1;
270
271                                                 /* CMF - This makes a BIG assumption about va_list */
272                                                 while (vsnprintf(b, sz, fmtstr, (va_list) argliststart) < 0) {
273                                                         b = HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, b, sz += 100);
274                                                 }
275                                                 for (x=b; *x; x++) ADD_TO_T(*x);
276
277                                                 HeapFree(GetProcessHeap(),0,b);
278                                         } else {
279                                                 /* NULL args - copy formatstr 
280                                                  * (probably wrong)
281                                                  */
282                                                 while ((lastf<f)&&(*lastf)) {
283                                                         ADD_TO_T(*lastf++);
284                                                 }
285                                         }
286                                         HeapFree(GetProcessHeap(),0,fmtstr);
287                                         break;
288                                 case 'n':
289                                         ADD_TO_T('\r');
290                                         ADD_TO_T('\n');
291                                         f++;
292                                         break;
293                                 case '0':
294                                         eos = TRUE;
295                                         f++;
296                                         break;
297                                 default:
298                                         ADD_TO_T(*f++);
299                                         break;
300                                 }
301                         } else {
302                             ch = *f;
303                             f++;
304                             if (ch == '\r')
305                             {
306                                 if (*f == '\n')
307                                     f++;
308                                 ADD_TO_T(' ');
309                             }
310                             else
311                             if (ch == '\n')
312                             {
313                                 ADD_TO_T('\r');
314                                 ADD_TO_T('\n');
315                             }
316                             else
317                                 ADD_TO_T(ch);
318                         }
319                 }
320                 *t='\0';
321         }
322         talloced = strlen(target)+1;
323         if (nSize && talloced<nSize) {
324                 target = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,nSize);
325         }
326         TRACE("-- %s\n",debugstr_a(target));
327         if (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) {
328                 *((LPVOID*)lpBuffer) = (LPVOID)LocalAlloc(GMEM_ZEROINIT,max(nSize, talloced));
329                 memcpy(*(LPSTR*)lpBuffer,target,talloced);
330         } else {
331                 lstrcpynA(lpBuffer,target,nSize);
332         }
333         HeapFree(GetProcessHeap(),0,target);
334         if (from) HeapFree(GetProcessHeap(),0,from);
335         TRACE("-- returning %d\n", (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) ?  strlen(*(LPSTR*)lpBuffer):strlen(lpBuffer));
336         return (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) ? 
337                         strlen(*(LPSTR*)lpBuffer):
338                         strlen(lpBuffer);
339 #else
340         return 0;
341 #endif /* __i386__ */
342 }
343 #undef ADD_TO_T
344
345
346 /***********************************************************************
347  *           FormatMessageW   (KERNEL32.138)
348  */
349 DWORD WINAPI FormatMessageW(
350         DWORD   dwFlags,
351         LPCVOID lpSource,
352         DWORD   dwMessageId,
353         DWORD   dwLanguageId,
354         LPWSTR  lpBuffer,
355         DWORD   nSize,
356         va_list* _args
357 ) {
358   LPDWORD args=(LPDWORD)_args;
359 #ifdef __i386__
360 /* This implementation is completely dependant on the format of the va_list on x86 CPUs */
361         LPSTR   target,t;
362         DWORD   talloced;
363         LPSTR   from,f;
364         DWORD   width = dwFlags & FORMAT_MESSAGE_MAX_WIDTH_MASK;
365         BOOL    eos = FALSE;
366         INT     bufsize;
367         HMODULE hmodule = (HMODULE)lpSource;
368         CHAR    ch;
369
370         TRACE("(0x%lx,%p,%ld,0x%lx,%p,%ld,%p)\n",
371                      dwFlags,lpSource,dwMessageId,dwLanguageId,lpBuffer,nSize,args);
372         if ((dwFlags & FORMAT_MESSAGE_FROM_SYSTEM)
373                 && (dwFlags & FORMAT_MESSAGE_FROM_HMODULE)) return 0;
374         if ((dwFlags & FORMAT_MESSAGE_FROM_STRING)
375                 &&((dwFlags & FORMAT_MESSAGE_FROM_SYSTEM)
376                         || (dwFlags & FORMAT_MESSAGE_FROM_HMODULE))) return 0;
377
378         if (width && width != FORMAT_MESSAGE_MAX_WIDTH_MASK) 
379                 FIXME("line wrapping not supported.\n");
380         from = NULL;
381         if (dwFlags & FORMAT_MESSAGE_FROM_STRING) {
382                 from = HEAP_strdupWtoA(GetProcessHeap(),0,(LPWSTR)lpSource);
383         }
384         else {
385                 if (dwFlags & FORMAT_MESSAGE_FROM_SYSTEM)
386                         hmodule = GetModuleHandleA("kernel32");
387                 bufsize=load_messageA(hmodule,dwMessageId,dwLanguageId,NULL,100);
388                 if (!bufsize) {
389                         if (dwLanguageId) {
390                                 SetLastError (ERROR_RESOURCE_LANG_NOT_FOUND);
391                                 return 0;
392                         }
393                         bufsize=load_messageA(hmodule,dwMessageId,
394                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_NEUTRAL),NULL,100);
395                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
396                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),NULL,100);
397                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
398                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_SYS_DEFAULT),NULL,100);
399                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
400                                 MAKELANGID(LANG_NEUTRAL,SUBLANG_SYS_DEFAULT),NULL,100);
401                         if (!bufsize) bufsize=load_messageA(hmodule,dwMessageId,
402                                 MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US),NULL,100);
403                         if (!bufsize) {
404                                 SetLastError (ERROR_RESOURCE_LANG_NOT_FOUND);
405                                 return 0;
406                         }
407                 }
408                 from = HeapAlloc( GetProcessHeap(), 0, bufsize + 1 );
409                 load_messageA(hmodule,dwMessageId,dwLanguageId,from,bufsize+1);
410         }
411         target  = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, 100 );
412         t       = target;
413         talloced= 100;
414
415 #define ADD_TO_T(c)  do {\
416         *t++=c;\
417         if (t-target == talloced) {\
418                 target  = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,talloced*2);\
419                 t       = target+talloced;\
420                 talloced*=2;\
421         } \
422 } while (0)
423
424         if (from) {
425                 f=from;
426                 while (*f && !eos) {
427                         if (*f=='%') {
428                                 int     insertnr;
429                                 char    *fmtstr,*sprintfbuf,*x;
430                                 DWORD   *argliststart;
431
432                                 fmtstr = NULL;
433                                 f++;
434                                 if (!*f) {
435                                         ADD_TO_T('%');
436                                         continue;
437                                 }
438                                 switch (*f) {
439                                 case '1':case '2':case '3':case '4':case '5':
440                                 case '6':case '7':case '8':case '9':
441                                         insertnr=*f-'0';
442                                         switch (f[1]) {
443                                         case '0':case '1':case '2':case '3':
444                                         case '4':case '5':case '6':case '7':
445                                         case '8':case '9':
446                                                 f++;
447                                                 insertnr=insertnr*10+*f-'0';
448                                                 f++;
449                                                 break;
450                                         default:
451                                                 f++;
452                                                 break;
453                                         }
454                                         if (*f=='!') {
455                                                 f++;
456                                                 if (NULL!=(x=strchr(f,'!')))
457                                                 {
458                                                     *x='\0';
459                                                     fmtstr=HeapAlloc( GetProcessHeap(), 0, strlen(f)+2);
460                                                         sprintf(fmtstr,"%%%s",f);
461                                                         f=x+1;
462                                                 } else {
463                                                         fmtstr=HeapAlloc(GetProcessHeap(),0,strlen(f));
464                                                         sprintf(fmtstr,"%%%s",f);
465                                                         f+=strlen(f); /*at \0*/
466                                                 }
467                                         } else
468                                                 if(!args)
469                                                   break;
470                                         else
471                                                 fmtstr=HEAP_strdupA( GetProcessHeap(),0,"%s");
472                                         if (dwFlags & FORMAT_MESSAGE_ARGUMENT_ARRAY)
473                                                 argliststart=args+insertnr-1;
474                                         else
475                                                 argliststart=(*(DWORD**)args)+insertnr-1;
476
477                                         if (fmtstr[strlen(fmtstr)-1]=='s' && argliststart[0]) {
478                                                 DWORD   xarr[3];
479
480                                                 xarr[0]=(DWORD)HEAP_strdupWtoA(GetProcessHeap(),0,(LPWSTR)(*(argliststart+0)));
481                                                 /* possible invalid pointers */
482                                                 xarr[1]=*(argliststart+1);
483                                                 xarr[2]=*(argliststart+2);
484                                                 sprintfbuf=HeapAlloc(GetProcessHeap(),0,strlenW((LPWSTR)argliststart[0])*2+1);
485
486                                                 /* CMF - This makes a BIG assumption about va_list */
487                                                 vsprintf(sprintfbuf, fmtstr, (va_list) xarr);
488                                         } else {
489                                                 sprintfbuf=HeapAlloc(GetProcessHeap(),0,100);
490
491                                                 /* CMF - This makes a BIG assumption about va_list */
492                                                 vsprintf(sprintfbuf, fmtstr, (va_list) argliststart);
493                                         }
494                                         x=sprintfbuf;
495                                         while (*x) {
496                                                 ADD_TO_T(*x++);
497                                         }
498                                         HeapFree(GetProcessHeap(),0,sprintfbuf);
499                                         HeapFree(GetProcessHeap(),0,fmtstr);
500                                         break;
501                                 case 'n':
502                                         ADD_TO_T('\r');
503                                         ADD_TO_T('\n');
504                                         f++;
505                                         break;
506                                 case '0':
507                                         eos = TRUE;
508                                         f++;
509                                         break;
510                                 default:
511                                         ADD_TO_T(*f++);
512                                         break;
513                                 }
514                         } else {
515                             ch = *f;
516                             f++;
517                             if (ch == '\r')
518                             {
519                                 if (*f == '\n')
520                                     f++;
521                                 ADD_TO_T(' ');
522                             }
523                             else
524                             if (ch == '\n')
525                             {
526                                 ADD_TO_T('\r');
527                                 ADD_TO_T('\n');
528                             }
529                             else
530                                 ADD_TO_T(ch);
531                         }
532                 }
533                 *t='\0';
534         }
535         talloced = strlen(target)+1;
536         if (nSize && talloced<nSize)
537                 target = (char*)HeapReAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,target,nSize);
538         if (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) {
539                 /* nSize is the MINIMUM size */
540             DWORD len = MultiByteToWideChar( CP_ACP, 0, target, -1, NULL, 0 );
541             *((LPVOID*)lpBuffer) = (LPVOID)LocalAlloc(GMEM_ZEROINIT,len*sizeof(WCHAR));
542             MultiByteToWideChar( CP_ACP, 0, target, -1, *(LPWSTR*)lpBuffer, len );
543         }
544         else
545         {
546             if (nSize > 0 && !MultiByteToWideChar( CP_ACP, 0, target, -1, lpBuffer, nSize ))
547                 lpBuffer[nSize-1] = 0;
548         }
549         HeapFree(GetProcessHeap(),0,target);
550         if (from) HeapFree(GetProcessHeap(),0,from);
551         return (dwFlags & FORMAT_MESSAGE_ALLOCATE_BUFFER) ? 
552                         strlenW(*(LPWSTR*)lpBuffer):
553                         strlenW(lpBuffer);
554 #else
555         return 0;
556 #endif /* __i386__ */
557 }
558 #undef ADD_TO_T