source: trunk/src/kernel32/resource.cpp

Last change on this file was 21916, checked in by dmik, 14 years ago

Merge branch gcc-kmk to trunk.
File size: 16.0 KB
RevLine 
[8111]1/* $Id: resource.cpp,v 1.19 2002-03-22 12:51:35 sandervl Exp $ */
[100]2
[4]3/*
4 * Misc resource procedures
5 *
6 * Copyright 1998 Sander van Leeuwen (sandervl@xs4all.nl)
7 * Copyright 1998 Patrick Haller
8 *
[356]9 *
10 * Project Odin Software License can be found in LICENSE.TXT
11 *
[4]12 */
13#include <os2win.h>
[956]14#include <unicode.h>
[21916]15#include "winimagebase.h"
16#include "winexebase.h"
17#include "windllbase.h"
[4]18
[2803]19#define DBG_LOCALLOG DBG_resource
20#include "dbglocal.h"
21
[8012]22
[4]23//******************************************************************************
24//lpszName = integer id (high word 0), else string (name or "#237")
25//Can lpszType contain a pointer to a default resource type name?
26//******************************************************************************
27HRSRC WIN32API FindResourceA(HINSTANCE hModule, LPCSTR lpszName, LPCSTR lpszType)
28{
[956]29 Win32ImageBase *module;
[8012]30 WORD wLanguage = MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL);
[4]31
[1872]32 module = Win32ImageBase::findModule(hModule);
[1885]33 if(module == NULL) {
34 dprintf(("FindResourceA Module %X not found (%x %d)", hModule, lpszName, lpszType));
35 return(NULL);
36 }
[8012]37 return module->findResourceA(lpszName, (LPSTR)lpszType, wLanguage);
[4]38}
39//******************************************************************************
40//******************************************************************************
41HRSRC WIN32API FindResourceW(HINSTANCE hModule, LPCWSTR lpszName,
[8012]42 LPCWSTR lpszType)
[4]43{
[956]44 Win32ImageBase *module;
[8012]45 WORD wLanguage = MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL);
[4]46
[1872]47 module = Win32ImageBase::findModule(hModule);
[1885]48 if(module == NULL) {
49 dprintf(("FindResourceW Module %X not found (%x %d)", hModule, lpszName, lpszType));
50 return(NULL);
51 }
[8012]52 return module->findResourceW((LPWSTR)lpszName, (LPWSTR)lpszType, wLanguage);
[4]53}
[2144]54/*****************************************************************************
55 * Name : HRSRC WIN32API FindResourceExA
56 * Purpose : The FindResourceExA function determines the location of the
57 * resource with the specified type, name, and language in the
58 * specified module.
59 * Parameters: HMODULE hModule resource-module handle
60 * LPCSTR lpType pointer to resource type
61 * LPCSTR lpName pointer to resource name
62 * WORD wLanguage resource language
63 * Variables :
64 * Result : If the function succeeds, the return value is a handle to the
65 * specified resource's info block. To obtain a handle to the
66 * resource, pass this handle to the LoadResource function.
67 * If the function fails, the return value is NULL
68 * Remark :
[8012]69 * Status : fully implemented
[2144]70 *
71 * Author : SvL
72 *****************************************************************************/
73
[3625]74HRSRC WIN32API FindResourceExA( HMODULE hModule, LPCSTR lpType,
75 LPCSTR lpName, WORD wLanguage)
[2144]76{
77 Win32ImageBase *module;
78
79 module = Win32ImageBase::findModule(hModule);
80 if(module == NULL) {
81 dprintf(("FindResourceExA Module %X not found (%x %d)", hModule, lpName, lpType));
82 return(NULL);
83 }
84
85 return module->findResourceA((LPSTR)lpName, (LPSTR)lpType, wLanguage);
86}
87
88/*****************************************************************************
89 * Name : HRSRC WIN32API FindResourceExA
90 * Purpose : The FindResourceExA function determines the location of the
91 * resource with the specified type, name, and language in the
92 * specified module.
93 * Parameters: HMODULE hModule resource-module handle
94 * LPCSTR lpType pointer to resource type
95 * LPCSTR lpName pointer to resource name
96 * WORD wLanguage resource language
97 * Variables :
98 * Result : If the function succeeds, the return value is a handle to the
99 * specified resource's info block. To obtain a handle to the
100 * resource, pass this handle to the LoadResource function.
101 * If the function fails, the return value is NULL
102 * Remark :
[8012]103 * Status : fully implemented
[2144]104 *
105 * Author : SvL
106 *****************************************************************************/
107
[8012]108HRSRC WIN32API FindResourceExW(HMODULE hModule, LPCWSTR lpType,
109 LPCWSTR lpName, WORD wLanguage)
[2144]110{
111 Win32ImageBase *module;
112
113 module = Win32ImageBase::findModule(hModule);
114 if(module == NULL) {
115 dprintf(("FindResourceExW Module %X not found (%x %d)", hModule, lpName, lpType));
116 return(NULL);
117 }
118 return module->findResourceW((LPWSTR)lpName, (LPWSTR)lpType, wLanguage);
119}
[4]120//******************************************************************************
121//hRes returned by LoadResource
122//******************************************************************************
123PVOID WIN32API LockResource(HGLOBAL hRes)
124{
[356]125 return (PVOID)hRes;
[4]126}
127//******************************************************************************
[3625]128//hRes == returned by FindResource(Ex) = PIMAGE_RESOURCE_DATA_ENTRY for resource
[4]129//******************************************************************************
130HGLOBAL WIN32API LoadResource(HINSTANCE hModule, HRSRC hRes)
131{
[3625]132 Win32ImageBase *module;
[356]133
[3625]134 /* @@@PH */
135 if(HIWORD(hRes) == NULL) {
[8111]136 dprintf(("ERROR: LoadResource %x: invalid hRes %x", hModule, hRes));
137 return 0;
[3625]138 }
139
[356]140 dprintf(("LoadResource %x %X\n", hModule, hRes));
[3625]141 if(hModule == 0 || hModule == -1 || (WinExe && hModule == WinExe->getInstanceHandle())) {
142 module = (Win32ImageBase *)WinExe;
143 }
144 else {
145 module = (Win32ImageBase *)Win32DllBase::findModule(hModule);
146 }
[356]147
[3625]148 return (HGLOBAL)module->getResourceAddr(hRes);
[4]149}
150//******************************************************************************
151//hRes == returned by FindResource(Ex)
152//******************************************************************************
153DWORD WIN32API SizeofResource(HINSTANCE hModule, HRSRC hRes)
154{
[3625]155 Win32ImageBase *module;
[4]156
[3625]157 if(hRes == NULL) {
158 dprintf(("ERROR: SizeofResource %x: invalid hRes %x", hModule, hRes));
159 return(0);
160 }
[4]161
[3625]162 dprintf(("SizeofResource %x %x", hModule, hRes));
163
164 if(hModule == 0 || hModule == -1 || (WinExe && hModule == WinExe->getInstanceHandle())) {
165 module = (Win32ImageBase *)WinExe;
166 }
167 else {
168 module = (Win32ImageBase *)Win32DllBase::findModule(hModule);
169 }
170
171 return module->getResourceSize(hRes);
[4]172}
173//******************************************************************************
[1872]174
175
176
177/**
178 * The EnumResourceNames function searches a module for each
179 * resource of the specified type and passes the name of each
180 * resource it locates to an application-defined callback function
181 *
182 * @returns If the function succeeds, the return value is nonzero.
183 * If the function fails, the return value is zero
184 * @param hModule resource-module handling
185 * @param lpszType pointer to resource type
186 * @param lpEnumFunc pointer to callback function
187 * @param lParam application-defined parameter
[8012]188 * @status fully implemented
[1872]189 * @author knut st. osmundsen
190 * @remark The EnumResourceNames function continues to enumerate resource
191 * names until the callback function returns FALSE or all resource
192 * names have been enumerated
193 */
194BOOL WIN32API EnumResourceNamesA(HINSTANCE hModule,
195 LPCTSTR lpszType,
196 ENUMRESNAMEPROCA lpEnumFunc,
197 LONG lParam)
[4]198{
[1872]199 Win32ImageBase *pModule;
200
[2329]201 dprintf(("KERNEL32:EnumResourceNamesA(%08x,%08x,%08x,%08x)",
[1872]202 hModule, lpszType, lpEnumFunc, lParam
203 ));
204
205 pModule = Win32ImageBase::findModule(hModule);
206 if (pModule == NULL)
207 {
[4224]208 SetLastError(ERROR_RESOURCE_DATA_NOT_FOUND); //todo: right error????
[1872]209 return FALSE;
210 }
211
212 return pModule->enumResourceNamesA(hModule, lpszType, lpEnumFunc, lParam);
[4]213}
[1872]214
215
216/**
217 * The EnumResourceNames function searches a module for each
218 * resource of the specified type and passes the name of each
219 * resource it locates to an application-defined callback function
220 *
221 * @returns If the function succeeds, the return value is nonzero.
222 * If the function fails, the return value is zero
223 * @param hModule resource-module handling
224 * @param lpszType pointer to resource type
225 * @param lpEnumFunc pointer to callback function
226 * @param lParam application-defined parameter
[8012]227 * @status fully implemented
[1872]228 * @author knut st. osmundsen
229 * @remark The EnumResourceNames function continues to enumerate resource
230 * names until the callback function returns FALSE or all resource
231 * names have been enumerated
232 */
233BOOL WIN32API EnumResourceNamesW(HMODULE hModule,
234 LPCWSTR lpszType,
235 ENUMRESNAMEPROCW lpEnumFunc,
236 LONG lParam)
237{
238 Win32ImageBase *pModule;
239
240 dprintf(("KERNEL32:EnumResourceNamesW(%08x,%08x,%08x,%08x)\n",
241 hModule, lpszType, lpEnumFunc, lParam));
242
243 pModule = Win32ImageBase::findModule(hModule);
244 if (pModule == NULL)
245 {
[4224]246 SetLastError(ERROR_RESOURCE_DATA_NOT_FOUND); //todo: right error????
[1872]247 return FALSE;
248 }
249
250 return pModule->enumResourceNamesW(hModule, lpszType, lpEnumFunc, lParam);
251}
252
[1879]253/*****************************************************************************
254 * Name : BOOL WIN32API EnumResourceLanguagesA
255 * Purpose : The EnumResourceLanguagesA function searches a module for each
256 * resource of the specified type and name and passes the language
257 * of each resource it locates to a defined callback function
258 * Parameters: HMODULE hModule resource-module handle
259 * LPCTSTR lpType pointer to resource type
260 * LPCTSTR lpName, pointer to resource name
261 * ENUMRESLANGPROC lpEnumFunc pointer to callback function
262 * LONG lParam application-defined parameter
263 * Variables :
264 * Result : If the function succeeds, the return value is nonzero.
265 * If the function fails, the return value is zero.
266 * Remark : The EnumResourceLanguages function continues to enumerate
267 * resource languages until the callback function returns FALSE
268 * or all resource languages have been enumerated.
[8012]269 * Status : fully implemented
[1879]270 *
271 * Author : Markus Montkowski [Tha, 1998/05/21 17:46]
272 *****************************************************************************/
273
274BOOL WIN32API EnumResourceLanguagesA(HMODULE hModule, LPCSTR lpType,
275 LPCSTR lpName,
276 ENUMRESLANGPROCA lpEnumFunc,
277 LONG lParam)
278{
[4224]279 Win32ImageBase *pModule;
[1879]280
[4224]281 dprintf(("KERNEL32:EnumResourceLanguagesA(%08x,%08x,%08x,%08x,%08x)",
282 hModule, lpType, lpName, lpEnumFunc, lParam));
[1879]283
[4224]284 pModule = Win32ImageBase::findModule(hModule);
285 if (pModule == NULL)
286 {
287 SetLastError(ERROR_RESOURCE_DATA_NOT_FOUND); //todo: right error????
288 return FALSE;
289 }
290
291 return pModule->enumResourceLanguagesA(hModule, lpType, lpName, lpEnumFunc, lParam);
[1879]292}
293
294/*****************************************************************************
295 * Name : BOOL WIN32API EnumResourceLanguagesW
296 * Purpose : The EnumResourceLanguagesW function searches a module for each
297 * resource of the specified type and name and passes the language
298 * of each resource it locates to a defined callback function
299 * Parameters: HMODULE hModule resource-module handle
300 * LPCTSTR lpType pointer to resource type
301 * LPCTSTR lpName, pointer to resource name
302 * ENUMRESLANGPROC lpEnumFunc pointer to callback function
303 * LONG lParam application-defined parameter
304 * Variables :
305 * Result : If the function succeeds, the return value is nonzero.
306 * If the function fails, the return value is zero.
307 * Remark : The EnumResourceLanguages function continues to enumerate
308 * resource languages until the callback function returns FALSE
309 * or all resource languages have been enumerated.
[8012]310 * Status : fully implemented
[1879]311 *
312 * Author : Markus Montkowski [Tha, 1998/05/21 17:46]
313 *****************************************************************************/
314
315BOOL WIN32API EnumResourceLanguagesW(HMODULE hModule, LPCWSTR lpType,
316 LPCWSTR lpName,
317 ENUMRESLANGPROCW lpEnumFunc,
318 LONG lParam)
319{
[4224]320 Win32ImageBase *pModule;
[1879]321
[4224]322 dprintf(("KERNEL32:EnumResourceLanguagesW(%08x,%08x,%08x,%08x,%08x)",
323 hModule, lpType, lpName, lpEnumFunc, lParam));
[1879]324
[4224]325 pModule = Win32ImageBase::findModule(hModule);
326 if (pModule == NULL)
327 {
328 SetLastError(ERROR_RESOURCE_DATA_NOT_FOUND); //todo: right error????
329 return FALSE;
330 }
331 return pModule->enumResourceLanguagesW(hModule, lpType, lpName, lpEnumFunc, lParam);
[1879]332}
333
334/*****************************************************************************
335 * Name : BOOL WIN32API EnumResourceTypesA
336 * Purpose : The EnumResourceTypesA function searches a module for resources
337 * and passes each resource type it finds to an application-defined
338 * callback function
339 * Parameters: HMODULE hModule, resource-module handle
340 * ENUMRESTYPEPROC lpEnumFunc pointer to callback function
341 * LONG lParam application-defined parameter
342 * Variables :
343 * Result : If the function succeeds, the return value is nonzero.
[4224]344 * If the function fails, the return value is zero
[1879]345 * Remark :
[8012]346 * Status : fully implemented
[1879]347 *
348 * Author : Markus Montkowski [Tha, 1998/05/21 17:46]
349 *****************************************************************************/
350
351BOOL WIN32API EnumResourceTypesA(HMODULE hModule,
352 ENUMRESTYPEPROCA lpEnumFunc, LONG lParam)
353{
354 Win32ImageBase *pModule;
355
356 dprintf(("KERNEL32:EnumResourceTypesA(%08x,%08x,%08x)\n",
357 hModule, lpEnumFunc, lParam));
358
359 pModule = Win32ImageBase::findModule(hModule);
360 if (pModule == NULL)
361 {
[4224]362 SetLastError(ERROR_RESOURCE_DATA_NOT_FOUND); //todo: right error????
[1879]363 return FALSE;
364 }
365
366 return pModule->enumResourceTypesA(hModule, lpEnumFunc, lParam);
367}
368
369/*****************************************************************************
370 * Name : BOOL WIN32API EnumResourceTypesW
371 * Purpose : The EnumResourceTypesW function searches a module for resources
372 * and passes each resource type it finds to an application-defined
373 * callback function
374 * Parameters: HMODULE hModule, resource-module handle
375 * ENUMRESTYPEPROC lpEnumFunc pointer to callback function
376 * LONG lParam application-defined parameter
377 * Variables :
378 * Result : If the function succeeds, the return value is nonzero.
[4224]379 * If the function fails, the return value is zero
[1879]380 * Remark :
[8012]381 * Status : fully implemented
[1879]382 *
383 * Author : Markus Montkowski [Tha, 1998/05/21 17:46]
384 *****************************************************************************/
385
386BOOL WIN32API EnumResourceTypesW(HMODULE hModule,
387 ENUMRESTYPEPROCW lpEnumFunc, LONG lParam)
388{
389 Win32ImageBase *pModule;
390
391 dprintf(("KERNEL32:EnumResourceTypesW(%08x,%08x,%08x)\n",
392 hModule, lpEnumFunc, lParam));
393
394 pModule = Win32ImageBase::findModule(hModule);
395 if (pModule == NULL)
396 {
[4224]397 SetLastError(ERROR_RESOURCE_DATA_NOT_FOUND); //todo: right error????
[1879]398 return FALSE;
399 }
400
401 return pModule->enumResourceTypesW(hModule, lpEnumFunc, lParam);
402}
[8012]403//******************************************************************************
404//******************************************************************************
Note: See TracBrowser for help on using the repository browser.