2 * PE (Portable Execute) File Resources
4 * Copyright 1995 Thomas Sandford
5 * Copyright 1996 Martin von Loewis
7 * Based on the Win16 resource handling code in loader/resource.c
8 * Copyright 1993 Robert J. Amstadt
9 * Copyright 1995 Alexandre Julliard
10 * Copyright 1997 Marcus Meissner
12 * Modified for use with MPlayer, detailed CVS changelog at
13 * http://www.mplayerhq.hu/cgi-bin/cvsweb.cgi/main/
20 #include <sys/types.h>
21 #include "wine/winestring.h"
22 #include "wine/windef.h"
23 #include "wine/pe_image.h"
24 #include "wine/module.h"
25 #include "wine/heap.h"
27 //#include "process.h"
28 //#include "stackframe.h"
29 #include "wine/debugtools.h"
32 /**********************************************************************
33 * HMODULE32toPE_MODREF
35 * small helper function to get a PE_MODREF from a passed HMODULE32
38 HMODULE32toPE_MODREF(HMODULE hmod) {
41 wm = MODULE32_LookupHMODULE( hmod );
42 if (!wm || wm->type!=MODULE32_PE)
44 return &(wm->binfmt.pe);
47 /**********************************************************************
50 * Helper function - goes down one level of PE resource tree
53 PIMAGE_RESOURCE_DIRECTORY GetResDirEntryW(PIMAGE_RESOURCE_DIRECTORY resdirptr,
54 LPCWSTR name,DWORD root,
55 WIN_BOOL allowdefault)
58 PIMAGE_RESOURCE_DIRECTORY_ENTRY entryTable;
65 lstrcpynWtoA(buf,name+1,10);
66 return GetResDirEntryW(resdirptr,(LPCWSTR)atoi(buf),root,allowdefault);
68 entryTable = (PIMAGE_RESOURCE_DIRECTORY_ENTRY) (
70 sizeof(IMAGE_RESOURCE_DIRECTORY));
71 namelen = lstrlenW(name);
72 for (entrynum = 0; entrynum < resdirptr->NumberOfNamedEntries; entrynum++)
74 PIMAGE_RESOURCE_DIR_STRING_U str =
75 (PIMAGE_RESOURCE_DIR_STRING_U) (root +
76 entryTable[entrynum].u1.s.NameOffset);
77 if(namelen != str->Length)
79 if(wcsnicmp(name,str->NameString,str->Length)==0)
80 return (PIMAGE_RESOURCE_DIRECTORY) (
82 entryTable[entrynum].u2.s.OffsetToDirectory);
86 entryTable = (PIMAGE_RESOURCE_DIRECTORY_ENTRY) (
88 sizeof(IMAGE_RESOURCE_DIRECTORY) +
89 resdirptr->NumberOfNamedEntries * sizeof(IMAGE_RESOURCE_DIRECTORY_ENTRY));
90 for (entrynum = 0; entrynum < resdirptr->NumberOfIdEntries; entrynum++)
91 if ((DWORD)entryTable[entrynum].u1.Name == (DWORD)name)
92 return (PIMAGE_RESOURCE_DIRECTORY) (
94 entryTable[entrynum].u2.s.OffsetToDirectory);
95 /* just use first entry if no default can be found */
96 if (allowdefault && !name && resdirptr->NumberOfIdEntries)
97 return (PIMAGE_RESOURCE_DIRECTORY) (
99 entryTable[0].u2.s.OffsetToDirectory);
104 /**********************************************************************
107 PIMAGE_RESOURCE_DIRECTORY GetResDirEntryA( PIMAGE_RESOURCE_DIRECTORY resdirptr,
108 LPCSTR name, DWORD root,
109 WIN_BOOL allowdefault )
111 PIMAGE_RESOURCE_DIRECTORY retv;
112 LPWSTR nameW = HIWORD(name)? HEAP_strdupAtoW( GetProcessHeap(), 0, name )
115 retv = GetResDirEntryW( resdirptr, nameW, root, allowdefault );
117 if ( HIWORD(name) ) HeapFree( GetProcessHeap(), 0, nameW );
122 /**********************************************************************
123 * PE_FindResourceEx32W
125 HANDLE PE_FindResourceExW(
126 WINE_MODREF *wm,LPCWSTR name,LPCWSTR type,WORD lang
128 PIMAGE_RESOURCE_DIRECTORY resdirptr;
131 PE_MODREF *pem = &(wm->binfmt.pe);
133 if (!pem || !pem->pe_resource)
136 resdirptr = pem->pe_resource;
137 root = (DWORD) resdirptr;
138 if ((resdirptr = GetResDirEntryW(resdirptr, type, root, FALSE)) == NULL)
140 if ((resdirptr = GetResDirEntryW(resdirptr, name, root, FALSE)) == NULL)
142 result = (HANDLE)GetResDirEntryW(resdirptr, (LPCWSTR)(UINT)lang, root, FALSE);
143 /* Try LANG_NEUTRAL, too */
145 return (HANDLE)GetResDirEntryW(resdirptr, (LPCWSTR)0, root, TRUE);
150 /**********************************************************************
153 HANDLE PE_LoadResource( WINE_MODREF *wm, HANDLE hRsrc )
155 if (!hRsrc || !wm || wm->type!=MODULE32_PE)
157 return (HANDLE) (wm->module + ((PIMAGE_RESOURCE_DATA_ENTRY)hRsrc)->OffsetToData);
161 /**********************************************************************
162 * PE_SizeofResource32
164 DWORD PE_SizeofResource( HINSTANCE hModule, HANDLE hRsrc )
166 /* we don't need hModule */
169 return ((PIMAGE_RESOURCE_DATA_ENTRY)hRsrc)->Size;
172 /**********************************************************************
173 * PE_EnumResourceTypes32A
176 PE_EnumResourceTypesA(HMODULE hmod,ENUMRESTYPEPROCA lpfun,LONG lparam) {
177 PE_MODREF *pem = HMODULE32toPE_MODREF(hmod);
179 PIMAGE_RESOURCE_DIRECTORY resdir;
180 PIMAGE_RESOURCE_DIRECTORY_ENTRY et;
182 HANDLE heap = GetProcessHeap();
184 if (!pem || !pem->pe_resource)
187 resdir = (PIMAGE_RESOURCE_DIRECTORY)pem->pe_resource;
188 et =(PIMAGE_RESOURCE_DIRECTORY_ENTRY)((LPBYTE)resdir+sizeof(IMAGE_RESOURCE_DIRECTORY));
190 for (i=0;i<resdir->NumberOfNamedEntries+resdir->NumberOfIdEntries;i++) {
193 if (et[i].u1.s.NameIsString)
194 name = HEAP_strdupWtoA(heap,0,(LPWSTR)((LPBYTE)pem->pe_resource+et[i].u1.s.NameOffset));
196 name = (LPSTR)(int)et[i].u1.Id;
197 ret = lpfun(hmod,name,lparam);
199 HeapFree(heap,0,name);
206 /**********************************************************************
207 * PE_EnumResourceTypes32W
210 PE_EnumResourceTypesW(HMODULE hmod,ENUMRESTYPEPROCW lpfun,LONG lparam) {
211 PE_MODREF *pem = HMODULE32toPE_MODREF(hmod);
213 PIMAGE_RESOURCE_DIRECTORY resdir;
214 PIMAGE_RESOURCE_DIRECTORY_ENTRY et;
217 if (!pem || !pem->pe_resource)
220 resdir = (PIMAGE_RESOURCE_DIRECTORY)pem->pe_resource;
221 et =(PIMAGE_RESOURCE_DIRECTORY_ENTRY)((LPBYTE)resdir+sizeof(IMAGE_RESOURCE_DIRECTORY));
223 for (i=0;i<resdir->NumberOfNamedEntries+resdir->NumberOfIdEntries;i++) {
225 if (et[i].u1.s.NameIsString)
226 type = (LPWSTR)((LPBYTE)pem->pe_resource+et[i].u1.s.NameOffset);
228 type = (LPWSTR)(int)et[i].u1.Id;
230 ret = lpfun(hmod,type,lparam);
237 /**********************************************************************
238 * PE_EnumResourceNames32A
241 PE_EnumResourceNamesA(
242 HMODULE hmod,LPCSTR type,ENUMRESNAMEPROCA lpfun,LONG lparam
244 PE_MODREF *pem = HMODULE32toPE_MODREF(hmod);
246 PIMAGE_RESOURCE_DIRECTORY resdir;
247 PIMAGE_RESOURCE_DIRECTORY_ENTRY et;
249 HANDLE heap = GetProcessHeap();
252 if (!pem || !pem->pe_resource)
254 resdir = (PIMAGE_RESOURCE_DIRECTORY)pem->pe_resource;
256 typeW = HEAP_strdupAtoW(heap,0,type);
258 typeW = (LPWSTR)type;
259 resdir = GetResDirEntryW(resdir,typeW,(DWORD)pem->pe_resource,FALSE);
261 HeapFree(heap,0,typeW);
264 et =(PIMAGE_RESOURCE_DIRECTORY_ENTRY)((LPBYTE)resdir+sizeof(IMAGE_RESOURCE_DIRECTORY));
266 for (i=0;i<resdir->NumberOfNamedEntries+resdir->NumberOfIdEntries;i++) {
269 if (et[i].u1.s.NameIsString)
270 name = HEAP_strdupWtoA(heap,0,(LPWSTR)((LPBYTE)pem->pe_resource+et[i].u1.s.NameOffset));
272 name = (LPSTR)(int)et[i].u1.Id;
273 ret = lpfun(hmod,type,name,lparam);
274 if (HIWORD(name)) HeapFree(heap,0,name);
281 /**********************************************************************
282 * PE_EnumResourceNames32W
285 PE_EnumResourceNamesW(
286 HMODULE hmod,LPCWSTR type,ENUMRESNAMEPROCW lpfun,LONG lparam
288 PE_MODREF *pem = HMODULE32toPE_MODREF(hmod);
290 PIMAGE_RESOURCE_DIRECTORY resdir;
291 PIMAGE_RESOURCE_DIRECTORY_ENTRY et;
294 if (!pem || !pem->pe_resource)
297 resdir = (PIMAGE_RESOURCE_DIRECTORY)pem->pe_resource;
298 resdir = GetResDirEntryW(resdir,type,(DWORD)pem->pe_resource,FALSE);
301 et =(PIMAGE_RESOURCE_DIRECTORY_ENTRY)((LPBYTE)resdir+sizeof(IMAGE_RESOURCE_DIRECTORY));
303 for (i=0;i<resdir->NumberOfNamedEntries+resdir->NumberOfIdEntries;i++) {
305 if (et[i].u1.s.NameIsString)
306 name = (LPWSTR)((LPBYTE)pem->pe_resource+et[i].u1.s.NameOffset);
308 name = (LPWSTR)(int)et[i].u1.Id;
309 ret = lpfun(hmod,type,name,lparam);
316 /**********************************************************************
317 * PE_EnumResourceNames32A
320 PE_EnumResourceLanguagesA(
321 HMODULE hmod,LPCSTR name,LPCSTR type,ENUMRESLANGPROCA lpfun,
324 PE_MODREF *pem = HMODULE32toPE_MODREF(hmod);
326 PIMAGE_RESOURCE_DIRECTORY resdir;
327 PIMAGE_RESOURCE_DIRECTORY_ENTRY et;
329 HANDLE heap = GetProcessHeap();
332 if (!pem || !pem->pe_resource)
335 resdir = (PIMAGE_RESOURCE_DIRECTORY)pem->pe_resource;
337 nameW = HEAP_strdupAtoW(heap,0,name);
339 nameW = (LPWSTR)name;
340 resdir = GetResDirEntryW(resdir,nameW,(DWORD)pem->pe_resource,FALSE);
342 HeapFree(heap,0,nameW);
346 typeW = HEAP_strdupAtoW(heap,0,type);
348 typeW = (LPWSTR)type;
349 resdir = GetResDirEntryW(resdir,typeW,(DWORD)pem->pe_resource,FALSE);
351 HeapFree(heap,0,typeW);
354 et =(PIMAGE_RESOURCE_DIRECTORY_ENTRY)((LPBYTE)resdir+sizeof(IMAGE_RESOURCE_DIRECTORY));
356 for (i=0;i<resdir->NumberOfNamedEntries+resdir->NumberOfIdEntries;i++) {
357 /* languages are just ids... I hopem */
358 ret = lpfun(hmod,name,type,et[i].u1.Id,lparam);
365 /**********************************************************************
366 * PE_EnumResourceLanguages32W
369 PE_EnumResourceLanguagesW(
370 HMODULE hmod,LPCWSTR name,LPCWSTR type,ENUMRESLANGPROCW lpfun,
373 PE_MODREF *pem = HMODULE32toPE_MODREF(hmod);
375 PIMAGE_RESOURCE_DIRECTORY resdir;
376 PIMAGE_RESOURCE_DIRECTORY_ENTRY et;
379 if (!pem || !pem->pe_resource)
382 resdir = (PIMAGE_RESOURCE_DIRECTORY)pem->pe_resource;
383 resdir = GetResDirEntryW(resdir,name,(DWORD)pem->pe_resource,FALSE);
386 resdir = GetResDirEntryW(resdir,type,(DWORD)pem->pe_resource,FALSE);
389 et =(PIMAGE_RESOURCE_DIRECTORY_ENTRY)((LPBYTE)resdir+sizeof(IMAGE_RESOURCE_DIRECTORY));
391 for (i=0;i<resdir->NumberOfNamedEntries+resdir->NumberOfIdEntries;i++) {
392 ret = lpfun(hmod,name,type,et[i].u1.Id,lparam);