user: Fix ExitWindows().
[wine] / dlls / user / resource.c
1 /*
2  * USER resource functions
3  *
4  * Copyright 1993 Robert J. Amstadt
5  * Copyright 1995 Alexandre Julliard
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
20  */
21
22 #include <stdarg.h>
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winerror.h"
27 #include "winnls.h"
28 #include "wine/winbase16.h"
29 #include "wine/winuser16.h"
30 #include "wownt32.h"
31 #include "wine/debug.h"
32
33 WINE_DEFAULT_DEBUG_CHANNEL(resource);
34 WINE_DECLARE_DEBUG_CHANNEL(accel);
35
36 /* this is the 8 byte accel struct used in Win32 resources (internal only) */
37 typedef struct
38 {
39     WORD   fVirt;
40     WORD   key;
41     WORD   cmd;
42     WORD   pad;
43 } PE_ACCEL, *LPPE_ACCEL;
44
45 /**********************************************************************
46  *                      LoadAccelerators        [USER.177]
47  */
48 HACCEL16 WINAPI LoadAccelerators16(HINSTANCE16 instance, LPCSTR lpTableName)
49 {
50     HRSRC16     hRsrc;
51
52     TRACE_(accel)("%04x %s\n", instance, debugstr_a(lpTableName) );
53
54     if (!(hRsrc = FindResource16( instance, lpTableName, (LPSTR)RT_ACCELERATOR ))) {
55       WARN_(accel)("couldn't find accelerator table resource\n");
56       return 0;
57     }
58
59     TRACE_(accel)("returning HACCEL 0x%x\n", hRsrc);
60     return LoadResource16(instance,hRsrc);
61 }
62
63 /**********************************************************************
64  *                      LoadAcceleratorsW       (USER32.@)
65  * The image layout seems to look like this (not 100% sure):
66  * 00:  WORD    type            type of accelerator
67  * 02:  WORD    event
68  * 04:  WORD    IDval
69  * 06:  WORD    pad             (to DWORD boundary)
70  */
71 HACCEL WINAPI LoadAcceleratorsW(HINSTANCE instance,LPCWSTR lpTableName)
72 {
73     HRSRC hRsrc;
74     HACCEL hMem;
75     HACCEL16 hRetval=0;
76     DWORD size;
77
78     if (HIWORD(lpTableName))
79         TRACE_(accel)("%p '%s'\n",
80                       (LPVOID)instance, (const char *)( lpTableName ) );
81     else
82         TRACE_(accel)("%p 0x%04x\n",
83                        (LPVOID)instance, LOWORD(lpTableName) );
84
85     if (!(hRsrc = FindResourceW( instance, lpTableName, (LPWSTR)RT_ACCELERATOR )))
86     {
87       WARN_(accel)("couldn't find accelerator table resource\n");
88     } else {
89       hMem = LoadResource( instance, hRsrc );
90       size = SizeofResource( instance, hRsrc );
91       if(size>=sizeof(PE_ACCEL))
92       {
93         LPPE_ACCEL accel_table = (LPPE_ACCEL) hMem;
94         LPACCEL16 accel16;
95         int i,nrofaccells = size/sizeof(PE_ACCEL);
96
97         hRetval = GlobalAlloc16(0,sizeof(ACCEL16)*nrofaccells);
98         accel16 = (LPACCEL16)GlobalLock16(hRetval);
99         for (i=0;i<nrofaccells;i++) {
100           accel16[i].fVirt = accel_table[i].fVirt & 0x7f;
101           accel16[i].key = accel_table[i].key;
102           if( !(accel16[i].fVirt & FVIRTKEY) )
103             accel16[i].key &= 0x00ff;
104           accel16[i].cmd = accel_table[i].cmd;
105         }
106         accel16[i-1].fVirt |= 0x80;
107       }
108     }
109     TRACE_(accel)("returning HACCEL %p\n", hRsrc);
110     return HACCEL_32(hRetval);
111 }
112
113 /***********************************************************************
114  *              LoadAcceleratorsA   (USER32.@)
115  */
116 HACCEL WINAPI LoadAcceleratorsA(HINSTANCE instance,LPCSTR lpTableName)
117 {
118     INT len;
119     LPWSTR uni;
120     HACCEL result = 0;
121
122     if (!HIWORD(lpTableName)) return LoadAcceleratorsW( instance, (LPCWSTR)lpTableName );
123
124     len = MultiByteToWideChar( CP_ACP, 0, lpTableName, -1, NULL, 0 );
125     if ((uni = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) )))
126     {
127         MultiByteToWideChar( CP_ACP, 0, lpTableName, -1, uni, len );
128         result = LoadAcceleratorsW(instance,uni);
129         HeapFree( GetProcessHeap(), 0, uni);
130     }
131     return result;
132 }
133
134 /**********************************************************************
135  *             CopyAcceleratorTableA   (USER32.@)
136  */
137 INT WINAPI CopyAcceleratorTableA(HACCEL src, LPACCEL dst, INT entries)
138 {
139   return CopyAcceleratorTableW(src, dst, entries);
140 }
141
142 /**********************************************************************
143  *             CopyAcceleratorTableW   (USER32.@)
144  *
145  * By mortene@pvv.org 980321
146  */
147 INT WINAPI CopyAcceleratorTableW(HACCEL src, LPACCEL dst,
148                                      INT entries)
149 {
150   int i,xsize;
151   LPACCEL16 accel = (LPACCEL16)GlobalLock16(HACCEL_16(src));
152   BOOL done = FALSE;
153
154   /* Do parameter checking to avoid the explosions and the screaming
155      as far as possible. */
156   if((dst && (entries < 1)) || (src == NULL) || !accel) {
157     WARN_(accel)("Application sent invalid parameters (%p %p %d).\n",
158          (LPVOID)src, (LPVOID)dst, entries);
159     return 0;
160   }
161   xsize = GlobalSize16(HACCEL_16(src))/sizeof(ACCEL16);
162   if (xsize<entries) entries=xsize;
163
164   i=0;
165   while(!done) {
166     /* Spit out some debugging information. */
167     TRACE_(accel)("accel %d: type 0x%02x, event '%c', IDval 0x%04x.\n",
168           i, accel[i].fVirt, accel[i].key, accel[i].cmd);
169
170     /* Copy data to the destination structure array (if dst == NULL,
171        we're just supposed to count the number of entries). */
172     if(dst) {
173       dst[i].fVirt = accel[i].fVirt&0x7f;
174       dst[i].key = accel[i].key;
175       dst[i].cmd = accel[i].cmd;
176
177       /* Check if we've reached the end of the application supplied
178          accelerator table. */
179       if(i+1 == entries)
180         done = TRUE;
181     }
182
183     /* The highest order bit seems to mark the end of the accelerator
184        resource table, but not always. Use GlobalSize() check too. */
185     if((accel[i].fVirt & 0x80) != 0) done = TRUE;
186
187     i++;
188   }
189
190   return i;
191 }
192
193 /*********************************************************************
194  *                    CreateAcceleratorTableA   (USER32.@)
195  *
196  * By mortene@pvv.org 980321
197  */
198 HACCEL WINAPI CreateAcceleratorTableA(LPACCEL lpaccel, INT cEntries)
199 {
200   HACCEL        hAccel;
201   LPACCEL16     accel;
202   int           i;
203
204   /* Do parameter checking just in case someone's trying to be
205      funny. */
206   if(cEntries < 1) {
207     WARN_(accel)("Application sent invalid parameters (%p %d).\n",
208          lpaccel, cEntries);
209     SetLastError(ERROR_INVALID_PARAMETER);
210     return NULL;
211   }
212
213   /* Allocate memory and copy the table. */
214   hAccel = HACCEL_32(GlobalAlloc16(0,cEntries*sizeof(ACCEL16)));
215
216   TRACE_(accel)("handle %p\n", hAccel);
217   if(!hAccel) {
218     ERR_(accel)("Out of memory.\n");
219     SetLastError(ERROR_NOT_ENOUGH_MEMORY);
220     return NULL;
221   }
222   accel = GlobalLock16(HACCEL_16(hAccel));
223   for (i=0;i<cEntries;i++) {
224     accel[i].fVirt = lpaccel[i].fVirt&0x7f;
225     accel[i].key = lpaccel[i].key;
226     if( !(accel[i].fVirt & FVIRTKEY) )
227       accel[i].key &= 0x00ff;
228     accel[i].cmd = lpaccel[i].cmd;
229   }
230   /* Set the end-of-table terminator. */
231   accel[cEntries-1].fVirt |= 0x80;
232
233   TRACE_(accel)("Allocated accelerator handle %p with %d entries\n", hAccel,cEntries);
234   return hAccel;
235 }
236
237 /*********************************************************************
238  *                    CreateAcceleratorTableW   (USER32.@)
239  *
240  *
241  */
242 HACCEL WINAPI CreateAcceleratorTableW(LPACCEL lpaccel, INT cEntries)
243 {
244   HACCEL        hAccel;
245   LPACCEL16     accel;
246   int           i;
247   char          ckey;
248
249   /* Do parameter checking just in case someone's trying to be
250      funny. */
251   if(cEntries < 1) {
252     WARN_(accel)("Application sent invalid parameters (%p %d).\n",
253          lpaccel, cEntries);
254     SetLastError(ERROR_INVALID_PARAMETER);
255     return NULL;
256   }
257
258   /* Allocate memory and copy the table. */
259   hAccel = HACCEL_32(GlobalAlloc16(0,cEntries*sizeof(ACCEL16)));
260
261   TRACE_(accel)("handle %p\n", hAccel);
262   if(!hAccel) {
263     ERR_(accel)("Out of memory.\n");
264     SetLastError(ERROR_NOT_ENOUGH_MEMORY);
265     return NULL;
266   }
267   accel = GlobalLock16(HACCEL_16(hAccel));
268
269
270   for (i=0;i<cEntries;i++) {
271        accel[i].fVirt = lpaccel[i].fVirt&0x7f;
272        if( !(accel[i].fVirt & FVIRTKEY) ) {
273           ckey = (char) lpaccel[i].key;
274          if(!MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, &ckey, 1, &accel[i].key, 1))
275             WARN_(accel)("Error converting ASCII accelerator table to Unicode\n");
276        }
277        else
278          accel[i].key = lpaccel[i].key;
279        accel[i].cmd = lpaccel[i].cmd;
280   }
281
282   /* Set the end-of-table terminator. */
283   accel[cEntries-1].fVirt |= 0x80;
284
285   TRACE_(accel)("Allocated accelerator handle %p\n", hAccel);
286   return hAccel;
287 }
288
289 /******************************************************************************
290  * DestroyAcceleratorTable [USER32.@]
291  * Destroys an accelerator table
292  *
293  * NOTES
294  *    By mortene@pvv.org 980321
295  *
296  * PARAMS
297  *    handle [I] Handle to accelerator table
298  *
299  * RETURNS
300  *    Success: TRUE
301  *    Failure: FALSE
302  */
303 BOOL WINAPI DestroyAcceleratorTable( HACCEL handle )
304 {
305     if( !handle )
306         return FALSE;
307     return !GlobalFree16(HACCEL_16(handle));
308 }
309
310 /**********************************************************************
311  *     LoadString   (USER.176)
312  */
313 INT16 WINAPI LoadString16( HINSTANCE16 instance, UINT16 resource_id,
314                            LPSTR buffer, INT16 buflen )
315 {
316     HGLOBAL16 hmem;
317     HRSRC16 hrsrc;
318     unsigned char *p;
319     int string_num;
320     int i;
321
322     TRACE("inst=%04x id=%04x buff=%p len=%d\n",
323           instance, resource_id, buffer, buflen);
324
325     hrsrc = FindResource16( instance, MAKEINTRESOURCEA((resource_id>>4)+1), (LPSTR)RT_STRING );
326     if (!hrsrc) return 0;
327     hmem = LoadResource16( instance, hrsrc );
328     if (!hmem) return 0;
329
330     p = LockResource16(hmem);
331     string_num = resource_id & 0x000f;
332     for (i = 0; i < string_num; i++)
333         p += *p + 1;
334
335     TRACE("strlen = %d\n", (int)*p );
336
337     if (buffer == NULL) return *p;
338     i = min(buflen - 1, *p);
339     if (i > 0) {
340         memcpy(buffer, p + 1, i);
341         buffer[i] = '\0';
342     } else {
343         if (buflen > 1) {
344             buffer[0] = '\0';
345             return 0;
346         }
347         WARN("Don't know why caller gave buflen=%d *p=%d trying to obtain string '%s'\n", buflen, *p, p + 1);
348     }
349     FreeResource16( hmem );
350
351     TRACE("'%s' loaded !\n", buffer);
352     return i;
353 }
354
355 /**********************************************************************
356  *      LoadStringW             (USER32.@)
357  */
358 INT WINAPI LoadStringW( HINSTANCE instance, UINT resource_id,
359                             LPWSTR buffer, INT buflen )
360 {
361     HGLOBAL hmem;
362     HRSRC hrsrc;
363     WCHAR *p;
364     int string_num;
365     int i;
366
367     if (HIWORD(resource_id)==0xFFFF) /* netscape 3 passes this */
368         resource_id = (UINT)(-((INT)resource_id));
369     TRACE("instance = %p, id = %04x, buffer = %p, length = %d\n",
370           instance, resource_id, buffer, buflen);
371
372     /* Use bits 4 - 19 (incremented by 1) as resourceid, mask out
373      * 20 - 31. */
374     hrsrc = FindResourceW( instance, MAKEINTRESOURCEW(((resource_id>>4)&0xffff)+1),
375                            (LPWSTR)RT_STRING );
376     if (!hrsrc) return 0;
377     hmem = LoadResource( instance, hrsrc );
378     if (!hmem) return 0;
379
380     p = LockResource(hmem);
381     string_num = resource_id & 0x000f;
382     for (i = 0; i < string_num; i++)
383         p += *p + 1;
384
385     TRACE("strlen = %d\n", (int)*p );
386
387     if (buffer == NULL) return *p;
388     i = min(buflen - 1, *p);
389     if (i > 0) {
390         memcpy(buffer, p + 1, i * sizeof (WCHAR));
391         buffer[i] = (WCHAR) 0;
392     } else {
393         if (buflen > 1) {
394             buffer[0] = (WCHAR) 0;
395             return 0;
396         }
397 #if 0
398         WARN("Don't know why caller gave buflen=%d *p=%d trying to obtain string '%s'\n", buflen, *p, p + 1);
399 #endif
400     }
401
402     TRACE("%s loaded !\n", debugstr_w(buffer));
403     return i;
404 }
405
406 /**********************************************************************
407  *      LoadStringA     (USER32.@)
408  */
409 INT WINAPI LoadStringA( HINSTANCE instance, UINT resource_id,
410                             LPSTR buffer, INT buflen )
411 {
412     INT    retval;
413     LPWSTR wbuf;
414
415     TRACE("instance = %p, id = %04x, buffer = %p, length = %d\n",
416           instance, resource_id, buffer, buflen);
417
418     if(buffer == NULL) /* asked size of string */
419         return LoadStringW(instance, resource_id, NULL, 0);
420
421     wbuf = HeapAlloc(GetProcessHeap(), 0, buflen * sizeof(WCHAR));
422     if(!wbuf)
423         return 0;
424
425     retval = LoadStringW(instance, resource_id, wbuf, buflen);
426     if(retval != 0)
427     {
428         retval = WideCharToMultiByte(CP_ACP, 0, wbuf, retval, buffer, buflen - 1, NULL, NULL);
429         buffer[retval] = 0;
430         TRACE("%s loaded !\n", debugstr_a(buffer));
431     }
432     else buffer[0] = 0;    /* no check of buflen here */
433     HeapFree( GetProcessHeap(), 0, wbuf );
434
435     return retval;
436 }
437
438 /**********************************************************************
439  *      GetGuiResources (USER32.@)
440  */
441 DWORD WINAPI GetGuiResources( HANDLE hProcess, DWORD uiFlags )
442 {
443     FIXME("(%p,%lx): stub\n",hProcess,uiFlags);
444     SetLastError( ERROR_CALL_NOT_IMPLEMENTED );
445     return 0;
446 }