mirror of
git://source.winehq.org/git/wine.git
synced 2024-10-31 10:13:56 +00:00
c7c217b31c
Sun Apr 12 12:22:23 1997 Andreas Mohr <100.30936@germany.net> * [files/drive.c] Fixed "no free space" problem with partition sizes between 1 and 2 GB (cluster_sectors may not exceed 0x40). * [windows/msgbox.c] [if1632/user.spec] [include/windows.h] Implemented MessageBoxIndirect16, corrected MSGBOXPARAMS16. * [loader/task.c] DOS environment strings may never exceed 127 chars -> truncate Unix environment strings if necessary. Sun Apr 12 02:51:44 1998 Dimitrie O. Paun <dimi@mail.cs.toronto.edu> * [files/*.c] All fprintf statements were converted to appropriate debug messages. * [tools/find_debug_channels] Updated comments at the beginning of the file. Sat Apr 11 15:27:21 1998 Alexandre Julliard <julliard@lrc.epfl.ch> * [loader/module.c] [loader/task.c] [scheduler/process.c] Moved some code around to prepare the ground for CreateProcess(). * [memory/environ.c] [loader/task.c] Moved Win32 environment strings functions to environ.c. Unified Win16 and Win32 environment management. * [scheduler/handle.c] [scheduler/k32obj.c] [scheduler/*.c] Implemented handle inheritance and DuplicateHandle(). * [scheduler/thread.c] Create a 16-bit stack for all threads. * [windows/dialog.c] Implemented DIALOGEX resource format. Fri Apr 10 20:21:51 1998 Marcus Meissner <marcus@mud.de> * [configure.in][include/acconfig.h][*/*][multimedia/*] Cleaned up the OSS detection stuff, added some more checks for headerfiles/functions. Removed a lot of OS specific #ifdefs. Lots of dependend multimedia cleanups. * [loader/pe_image.c] Enhanced comment, added missing reference count increase. * [ole/compobj.c] Replaced broken StringFromGUID2 by working one. * [misc/winsock.c] SO_LINGER uses unsigned 16 bit in Win16 and Win32, but unsigned int (32bit) for UNIX. * [memory/global.c] Allow realloc for lockcount 1 too. Fri Apr 10 15:27:34 1998 Morten Welinder <terra@diku.dk> * [graphics/x11drv/text.c] Handle control characters in trace. Ignore terminating newline. * [multimedia/init.c] (MULTIMEDIA_Init): Correct allocations. * [tools/examine-relay] Tidy up. * [windows/syscolor.c] Change highlight colour from lightblue to lightgray. This looks correct for menus. Fri Apr 10 01:49:58 1998 Douglas Ridgway <ridgway@winehq.com> * [configure.in] [Make.rules.in] Add check for c2man before using it. Fri Apr 10 02:59:21 1998 Douglas Ridgway <ridgway@winehq.com> * [DEVELOPERS-HINTS] Simple description of adding API calls. * [include/wintypes.h] [include/windows.h] Get rid of Winelib16, avoid declaring some illegal functions in Winelib, add prototypes for some enhanced metafile functions, fix GetTextExtentPoint32 declarations. * [relay32/gdi32.spec] [objects/enhmetafile.c] Cosmetic and functional improvements. * [include/wincon.h] [programs/view/*] Fixes, improved compatibility with native compilers. Thu Apr 9 15:48:49 1998 Ulrich Weigand <weigand@informatik.uni-erlangen.de> * [win32/kernel32.c] Implemented FT_Thunk / FT_Prolog / FT_Exit / FT_PrologPrime. Fixed Common32ThkLS thunk function. * [tools/build.c] [relay32/relay386.c] [if1632/relay.c] Changed relay code to allow register functions to modify stack layout. * [memory/selector.c] Implemented AllocMappedBuffer / FreeMappedBuffer. * [relay32/kernel32.spec] [if1632/kernel.spec] [win32/ordinals.c] Added names for undocumented functions. * [loader/module.c] Bugfix: LoadLibrary16 should *not* silently load 32-bit DLL. Thu Apr 9 03:54:58 1998 Jim Peterson <jspeter@birch.ee.vt.edu> * [windows/keyboard.c] Fix an erroneous test in TranslateAccelerator{16,32} for the end of the accelerator table. Thu Apr 8 20:36:28 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de> * [misc/crtdll.c] Implement getenv. * [misc/commdlg.c] Make Get[Save/Open]FileName work in most situations. * [misc/lstr.c] Use wvsprintf32A instead of vsprintf in FormatMessage32X * [misc/version] Make NT3.50 a recognised version * [graphics/x11drv/graphics.c] Change the algorithme to draw arcs * [loader/resource.c] Return an empty buffer in LoadString32A if no resource found. * [win32/code_page.c] Try harder to get the right size in MultiByteToWideChar. * [win32/process.c] Call WinExec32 for CreateProcess32A. * [windows/user.c] Install default Int0 Handler in InitApp(). Thu Apr 8 19:29:48 1998 Eric Kohl <ekohl@abo.rhein-zeitung.de> * [misc/imagelist.c] Preliminary fix for drawing selected images. Various improvements. * [controls/progress.c][include/progress.c][include/commctrl.h] Added progress bar messages and styles for IE4.01 (dll version 4.72) compatibility. Fixed led size problem. * [controls/updown.c][include/commctrl.h] Added UDM_GETRANGE32 and UDM_SETRANGE32. * [objects/oembitmaps.c][include/windows.h][include/bitmaps/*] Added Win95 icons and fixed Win95 cursor and restore button bug. Now they should be visible. Sorry!!! * [relay32/comctl32.spec] Added most missing function names. Tue Apr 6 18:48:36 1998 Matthew Becker <mbecker@glasscity.net> * [objects/font.c] [if1632/gdi.spec] GetOutlineTextMetrics: stub * [objects/text.c] GetTextCharset should just call GetTextCharsetInfo. * [misc/mpr.c] [relay32/mpr.spec] WNetCachePassword: stub * [scheduler/thread.c] [relay32/user32.spec] AttachThreadInput: stub Updated documentation. * [objects/palette.c] Updated documentation. Tue Mar 31 17:06:30 1998 James Juran <jrj120@psu.edu> * [*/*.c] Finished fixing USER32 ordinal numbers in function documentation. Mon Mar 30 20:27:38 1998 Morten Welinder <terra@diku.dk> * [misc/debugstr.c] [include/debugstr.h] Moved _dumpstr from relay32/relay386.c. Improved control character handling. * [msdos/int21.c] Implement 215E00 -- get machine name. * [windows/winpos.c] SetWindowPos32: Make an extra sync when mapping managed windows. This makes sure the reconfigure event has been handled. See Mshearts' what's-your-name window. Mon Mar 30 01:13:50 1998 Alexander V. Lukyanov <lav@long.yar.ru> * [Makefile.in] Install includes from TOPSRCDIR.
923 lines
27 KiB
C
923 lines
27 KiB
C
/*
|
|
* Resources
|
|
*
|
|
* Copyright 1993 Robert J. Amstadt
|
|
* Copyright 1995 Alexandre Julliard
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <fcntl.h>
|
|
#include <unistd.h>
|
|
#include "windows.h"
|
|
#include "gdi.h"
|
|
#include "global.h"
|
|
#include "heap.h"
|
|
#include "neexe.h"
|
|
#include "task.h"
|
|
#include "module.h"
|
|
#include "resource.h"
|
|
#include "debug.h"
|
|
#include "libres.h"
|
|
#include "winerror.h"
|
|
|
|
extern WORD WINE_LanguageId;
|
|
|
|
/* error message when 16-bit resource function is called for Win32 module */
|
|
static const char* NEWin32FailureString = "fails with Win32 module\n";
|
|
/* error message when 32-bit resource function is called for Win16 module */
|
|
static const char* PEWin16FailureString = "fails with Win16 module\n";
|
|
|
|
/**********************************************************************
|
|
* FindResource16 (KERNEL.60)
|
|
*/
|
|
HRSRC16 WINAPI FindResource16( HMODULE16 hModule, SEGPTR name, SEGPTR type )
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
hModule = MODULE_HANDLEtoHMODULE16( hModule );
|
|
|
|
if (HIWORD(name)) /* Check for '#xxx' name */
|
|
{
|
|
char *ptr = PTR_SEG_TO_LIN( name );
|
|
if (ptr[0] == '#')
|
|
if (!(name = (SEGPTR)atoi( ptr + 1 ))) {
|
|
WARN(resource, "Incorrect resource name: %s\n", ptr);
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
if (HIWORD(type)) /* Check for '#xxx' type */
|
|
{
|
|
char *ptr = PTR_SEG_TO_LIN( type );
|
|
if (ptr[0] == '#')
|
|
if (!(type = (SEGPTR)atoi( ptr + 1 ))){
|
|
WARN(resource, "Incorrect resource type: %s\n", ptr);
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
TRACE(resource, "module=%04x name=%s type=%s\n",
|
|
hModule, debugres_a(PTR_SEG_TO_LIN(name)),
|
|
debugres_a(PTR_SEG_TO_LIN(type)) );
|
|
|
|
if ((pModule = MODULE_GetPtr( hModule )))
|
|
{
|
|
if (!__winelib)
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
fprintf(stderr,"FindResource16: %s", NEWin32FailureString);
|
|
else
|
|
return NE_FindResource( hModule, type, name );
|
|
}
|
|
else return LIBRES_FindResource16( hModule,
|
|
(LPCSTR)PTR_SEG_TO_LIN(name),
|
|
(LPCSTR)PTR_SEG_TO_LIN(type) );
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* FindResource32A (KERNEL32.128)
|
|
*/
|
|
HANDLE32 WINAPI FindResource32A( HINSTANCE32 hModule, LPCSTR name, LPCSTR type)
|
|
{
|
|
return FindResourceEx32A(hModule,name,type,WINE_LanguageId);
|
|
}
|
|
|
|
/**********************************************************************
|
|
* FindResourceEx32A (KERNEL32.129)
|
|
*/
|
|
HANDLE32 WINAPI FindResourceEx32A( HINSTANCE32 hModule, LPCSTR name,
|
|
LPCSTR type, WORD lang )
|
|
{
|
|
LPWSTR xname,xtype;
|
|
HANDLE32 ret;
|
|
|
|
if (HIWORD((DWORD)name))
|
|
xname = HEAP_strdupAtoW( GetProcessHeap(), 0, name );
|
|
else
|
|
xname = (LPWSTR)name;
|
|
if (HIWORD((DWORD)type))
|
|
xtype = HEAP_strdupAtoW( GetProcessHeap(), 0, type);
|
|
else
|
|
xtype = (LPWSTR)type;
|
|
ret = FindResourceEx32W( hModule, xname, xtype, lang );
|
|
if (HIWORD((DWORD)name)) HeapFree( GetProcessHeap(), 0, xname );
|
|
if (HIWORD((DWORD)type)) HeapFree( GetProcessHeap(), 0, xtype );
|
|
return ret;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* FindResourceEx32W (KERNEL32.130)
|
|
*/
|
|
HRSRC32 WINAPI FindResourceEx32W( HINSTANCE32 hModule, LPCWSTR name,
|
|
LPCWSTR type, WORD lang )
|
|
{
|
|
if (!__winelib)
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
if (!hModule) hModule = GetTaskDS();
|
|
hModule = MODULE_HANDLEtoHMODULE32( hModule );
|
|
TRACE(resource, "module=%08x "
|
|
"type=%s%p name=%s%p\n", hModule,
|
|
(HIWORD(type))? "" : "#", type,
|
|
(HIWORD(name))? "" : "#", name);
|
|
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (!(pModule->flags & NE_FFLAGS_WIN32)) return 0;
|
|
return PE_FindResourceEx32W(hModule,name,type,lang);
|
|
}
|
|
else return LIBRES_FindResource32( hModule, name, type );
|
|
}
|
|
|
|
/**********************************************************************
|
|
* FindResource32W (KERNEL32.131)
|
|
*/
|
|
HRSRC32 WINAPI FindResource32W(HINSTANCE32 hModule, LPCWSTR name, LPCWSTR type)
|
|
{
|
|
return FindResourceEx32W(hModule,name,type,WINE_LanguageId);
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* LoadResource16 (KERNEL.61)
|
|
*/
|
|
HGLOBAL16 WINAPI LoadResource16( HMODULE16 hModule, HRSRC16 hRsrc )
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
hModule = MODULE_HANDLEtoHMODULE16( hModule );
|
|
TRACE(resource, "module=%04x res=%04x\n",
|
|
hModule, hRsrc );
|
|
if (!hRsrc) return 0;
|
|
if ((pModule = MODULE_GetPtr( hModule )))
|
|
{
|
|
if (!__winelib)
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
fprintf(stderr,"LoadResource16: %s", NEWin32FailureString);
|
|
else
|
|
return NE_LoadResource( hModule, hRsrc );
|
|
}
|
|
else return LIBRES_LoadResource( hModule, hRsrc );
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* LoadResource32 (KERNEL32.370)
|
|
*/
|
|
HGLOBAL32 WINAPI LoadResource32( HINSTANCE32 hModule, HRSRC32 hRsrc )
|
|
{
|
|
if (!__winelib)
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
if (!hModule) hModule = GetTaskDS(); /* FIXME: see FindResource32W */
|
|
hModule = MODULE_HANDLEtoHMODULE32( hModule );
|
|
TRACE(resource, "module=%04x res=%04x\n",
|
|
hModule, hRsrc );
|
|
if (!hRsrc) return 0;
|
|
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (!(pModule->flags & NE_FFLAGS_WIN32))
|
|
{
|
|
fprintf(stderr,"LoadResource32: %s", PEWin16FailureString );
|
|
return 0; /* FIXME? */
|
|
}
|
|
return PE_LoadResource32(hModule,hRsrc);
|
|
}
|
|
else return LIBRES_LoadResource( hModule, hRsrc );
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* LockResource (KERNEL.62)
|
|
*/
|
|
/* 16-bit version */
|
|
SEGPTR WINAPI WIN16_LockResource16(HGLOBAL16 handle)
|
|
{
|
|
HMODULE16 hModule;
|
|
NE_MODULE *pModule;
|
|
|
|
TRACE(resource, "handle=%04x\n", handle );
|
|
if (!handle) return (SEGPTR)0;
|
|
hModule = MODULE_HANDLEtoHMODULE16( handle );
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
{
|
|
fprintf(stderr,"LockResource16: %s", NEWin32FailureString);
|
|
return 0;
|
|
}
|
|
return NE_LockResource( hModule, handle );
|
|
}
|
|
|
|
/* Winelib 16-bit version */
|
|
LPVOID WINAPI LockResource16( HGLOBAL16 handle )
|
|
{
|
|
if (!__winelib)
|
|
{
|
|
HMODULE16 hModule;
|
|
NE_MODULE *pModule;
|
|
|
|
TRACE(resource, "handle=%04x\n", handle );
|
|
if (!handle) return NULL;
|
|
hModule = MODULE_HANDLEtoHMODULE16( handle );
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
{
|
|
fprintf(stderr,"LockResource16: %s", NEWin32FailureString);
|
|
return 0;
|
|
}
|
|
return (LPSTR)PTR_SEG_TO_LIN( NE_LockResource( hModule, handle ) );
|
|
}
|
|
else return LIBRES_LockResource( handle );
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* LockResource32 (KERNEL32.384)
|
|
*/
|
|
LPVOID WINAPI LockResource32( HGLOBAL32 handle )
|
|
{
|
|
return (LPVOID)handle;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* FreeResource16 (KERNEL.63)
|
|
*/
|
|
BOOL16 WINAPI FreeResource16( HGLOBAL16 handle )
|
|
{
|
|
if (!__winelib)
|
|
{
|
|
HMODULE16 hModule;
|
|
NE_MODULE *pModule;
|
|
|
|
TRACE(resource, "handle=%04x\n", handle );
|
|
if (!handle) return FALSE;
|
|
hModule = MODULE_HANDLEtoHMODULE16( handle );
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
{
|
|
fprintf(stderr,"FreeResource16: %s", NEWin32FailureString);
|
|
return 0;
|
|
}
|
|
return NE_FreeResource( hModule, handle );
|
|
}
|
|
else return LIBRES_FreeResource( handle );
|
|
}
|
|
|
|
/**********************************************************************
|
|
* FreeResource32 (KERNEL32.145)
|
|
*/
|
|
BOOL32 WINAPI FreeResource32( HGLOBAL32 handle )
|
|
{
|
|
/* no longer used in Win32 */
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* AccessResource16 (KERNEL.64)
|
|
*/
|
|
INT16 WINAPI AccessResource16( HINSTANCE16 hModule, HRSRC16 hRsrc )
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
hModule = MODULE_HANDLEtoHMODULE16( hModule );
|
|
TRACE(resource, "module=%04x res=%04x\n",
|
|
hModule, hRsrc );
|
|
if (!hRsrc) return 0;
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (!__winelib)
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
{
|
|
fprintf(stderr,"AccessResource16: %s", NEWin32FailureString);
|
|
return 0;
|
|
}
|
|
return NE_AccessResource( hModule, hRsrc );
|
|
}
|
|
else return LIBRES_AccessResource( hModule, hRsrc );
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* AccessResource32 (KERNEL32.64)
|
|
*/
|
|
INT32 WINAPI AccessResource32( HINSTANCE32 hModule, HRSRC32 hRsrc )
|
|
{
|
|
hModule = MODULE_HANDLEtoHMODULE32( hModule );
|
|
TRACE(resource, "module=%04x res=%04x\n",
|
|
hModule, hRsrc );
|
|
if (!hRsrc) return 0;
|
|
fprintf(stderr,"AccessResource32: not implemented\n");
|
|
return 0;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* SizeofResource16 (KERNEL.65)
|
|
*/
|
|
DWORD WINAPI SizeofResource16( HMODULE16 hModule, HRSRC16 hRsrc )
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
hModule = MODULE_HANDLEtoHMODULE16( hModule );
|
|
TRACE(resource, "module=%04x res=%04x\n",
|
|
hModule, hRsrc );
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (!__winelib)
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
{
|
|
fprintf(stderr,"SizeOfResource16: %s", NEWin32FailureString);
|
|
return 0;
|
|
}
|
|
return NE_SizeofResource( hModule, hRsrc );
|
|
}
|
|
else return LIBRES_SizeofResource( hModule, hRsrc );
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* SizeofResource32 (KERNEL32.522)
|
|
*/
|
|
DWORD WINAPI SizeofResource32( HINSTANCE32 hModule, HRSRC32 hRsrc )
|
|
{
|
|
hModule = MODULE_HANDLEtoHMODULE32( hModule );
|
|
TRACE(resource, "module=%04x res=%04x\n",
|
|
hModule, hRsrc );
|
|
if (!__winelib) return PE_SizeofResource32(hModule,hRsrc);
|
|
else
|
|
{
|
|
fprintf(stderr,"SizeofResource32: not implemented\n");
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* AllocResource16 (KERNEL.66)
|
|
*/
|
|
HGLOBAL16 WINAPI AllocResource16( HMODULE16 hModule, HRSRC16 hRsrc, DWORD size)
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
hModule = MODULE_HANDLEtoHMODULE16( hModule );
|
|
TRACE(resource, "module=%04x res=%04x size=%ld\n",
|
|
hModule, hRsrc, size );
|
|
if (!hRsrc) return 0;
|
|
if (!(pModule = MODULE_GetPtr( hModule ))) return 0;
|
|
if (!__winelib)
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
{
|
|
fprintf(stderr,"AllocResource16: %s", NEWin32FailureString);
|
|
return 0;
|
|
}
|
|
return NE_AllocResource( hModule, hRsrc, size );
|
|
}
|
|
else return LIBRES_AllocResource( hModule, hRsrc, size );
|
|
}
|
|
|
|
/**********************************************************************
|
|
* DirectResAlloc (KERNEL.168)
|
|
*
|
|
* Check Schulman, p. 232 for details
|
|
*/
|
|
HGLOBAL16 WINAPI DirectResAlloc( HINSTANCE16 hInstance, WORD wType,
|
|
UINT16 wSize )
|
|
{
|
|
TRACE(resource,"(%04x,%04x,%04x)\n",
|
|
hInstance, wType, wSize );
|
|
hInstance = MODULE_HANDLEtoHMODULE16(hInstance);
|
|
if(!hInstance)return 0;
|
|
if(wType != 0x10) /* 0x10 is the only observed value, passed from
|
|
CreateCursorIndirect. */
|
|
fprintf(stderr, "DirectResAlloc: wType = %x\n", wType);
|
|
return GLOBAL_Alloc(GMEM_MOVEABLE, wSize, hInstance, FALSE, FALSE, FALSE);
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* LoadAccelerators16 [USER.177]
|
|
*/
|
|
HACCEL16 WINAPI LoadAccelerators16(HINSTANCE16 instance, SEGPTR lpTableName)
|
|
{
|
|
HRSRC16 hRsrc;
|
|
|
|
if (HIWORD(lpTableName))
|
|
TRACE(accel, "%04x '%s'\n",
|
|
instance, (char *)PTR_SEG_TO_LIN( lpTableName ) );
|
|
else
|
|
TRACE(accel, "%04x %04x\n",
|
|
instance, LOWORD(lpTableName) );
|
|
|
|
if (!(hRsrc = FindResource16( instance, lpTableName, RT_ACCELERATOR16 ))) {
|
|
WARN(accel, "couldn't find accelerator table resource\n");
|
|
return 0;
|
|
}
|
|
|
|
TRACE(accel, "returning HACCEL 0x%x\n", hRsrc);
|
|
return LoadResource16(instance,hRsrc);
|
|
}
|
|
|
|
/**********************************************************************
|
|
* LoadAccelerators32W [USER.177]
|
|
* The image layout seems to look like this (not 100% sure):
|
|
* 00: BYTE type type of accelerator
|
|
* 01: BYTE pad (to WORD boundary)
|
|
* 02: WORD event
|
|
* 04: WORD IDval
|
|
* 06: WORD pad (to DWORD boundary)
|
|
*/
|
|
HACCEL32 WINAPI LoadAccelerators32W(HINSTANCE32 instance,LPCWSTR lpTableName)
|
|
{
|
|
HRSRC32 hRsrc;
|
|
HACCEL32 hRetval;
|
|
|
|
if (HIWORD(lpTableName))
|
|
TRACE(accel, "%p '%s'\n",
|
|
(LPVOID)instance, (char *)( lpTableName ) );
|
|
else
|
|
TRACE(accel, "%p 0x%04x\n",
|
|
(LPVOID)instance, LOWORD(lpTableName) );
|
|
|
|
if (!(hRsrc = FindResource32W( instance, lpTableName, RT_ACCELERATOR32W )))
|
|
{
|
|
WARN(accel, "couldn't find accelerator table resource\n");
|
|
hRetval = 0;
|
|
}
|
|
else {
|
|
hRetval = LoadResource32( instance, hRsrc );
|
|
}
|
|
|
|
TRACE(accel, "returning HACCEL 0x%x\n", hRsrc);
|
|
return hRetval;
|
|
}
|
|
|
|
HACCEL32 WINAPI LoadAccelerators32A(HINSTANCE32 instance,LPCSTR lpTableName)
|
|
{
|
|
LPWSTR uni;
|
|
HACCEL32 result;
|
|
if (HIWORD(lpTableName))
|
|
uni = HEAP_strdupAtoW( GetProcessHeap(), 0, lpTableName );
|
|
else
|
|
uni = (LPWSTR)lpTableName;
|
|
result = LoadAccelerators32W(instance,uni);
|
|
if (HIWORD(uni)) HeapFree( GetProcessHeap(), 0, uni);
|
|
return result;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* CopyAcceleratorTable32A (USER32.58)
|
|
*/
|
|
INT32 WINAPI CopyAcceleratorTable32A(HACCEL32 src, LPACCEL32 dst, INT32 entries)
|
|
{
|
|
return CopyAcceleratorTable32W(src, dst, entries);
|
|
}
|
|
|
|
/**********************************************************************
|
|
* CopyAcceleratorTable32W (USER32.59)
|
|
*
|
|
* By mortene@pvv.org 980321
|
|
*/
|
|
INT32 WINAPI CopyAcceleratorTable32W(HACCEL32 src, LPACCEL32 dst,
|
|
INT32 entries)
|
|
{
|
|
int i;
|
|
LPACCEL32 accel = (LPACCEL32)src;
|
|
BOOL32 done = FALSE;
|
|
|
|
/* Do parameter checking to avoid the explosions and the screaming
|
|
as far as possible. */
|
|
if((dst && (entries < 1)) || (src == (HACCEL32)NULL)) {
|
|
WARN(accel, "Application sent invalid parameters (%p %p %d).\n",
|
|
(LPVOID)src, (LPVOID)dst, entries);
|
|
return 0;
|
|
}
|
|
|
|
|
|
i=0;
|
|
while(!done) {
|
|
/* Spit out some debugging information. */
|
|
TRACE(accel, "accel %d: type 0x%02x, event '%c', IDval 0x%04x.\n",
|
|
i, accel[i].fVirt, accel[i].key, accel[i].cmd);
|
|
|
|
/* Copy data to the destination structure array (if dst == NULL,
|
|
we're just supposed to count the number of entries). */
|
|
if(dst) {
|
|
memcpy(&dst[i], &accel[i], sizeof(ACCEL32));
|
|
|
|
/* Check if we've reached the end of the application supplied
|
|
accelerator table. */
|
|
if(i+1 == entries) {
|
|
/* Turn off the high order bit, just in case. */
|
|
dst[i].fVirt &= 0x7f;
|
|
done = TRUE;
|
|
}
|
|
}
|
|
|
|
/* The highest order bit seems to mark the end of the accelerator
|
|
resource table. (?) */
|
|
if((accel[i].fVirt & 0x80) != 0) done = TRUE;
|
|
|
|
i++;
|
|
}
|
|
|
|
return i;
|
|
}
|
|
|
|
/*********************************************************************
|
|
* CreateAcceleratorTable (USER32.64)
|
|
*
|
|
* By mortene@pvv.org 980321
|
|
*/
|
|
HACCEL32 WINAPI CreateAcceleratorTable32A(LPACCEL32 lpaccel, INT32 cEntries)
|
|
{
|
|
HACCEL32 hAccel;
|
|
|
|
/* Do parameter checking just in case someone's trying to be
|
|
funny. */
|
|
if(cEntries < 1) {
|
|
WARN(accel, "Application sent invalid parameters (%p %d).\n",
|
|
lpaccel, cEntries);
|
|
SetLastError(ERROR_INVALID_PARAMETER);
|
|
return (HACCEL32)NULL;
|
|
}
|
|
FIXME(accel, "should check that the accelerator descriptions are valid,"
|
|
" return NULL and SetLastError() if not.\n");
|
|
|
|
|
|
/* Allocate memory and copy the table. */
|
|
hAccel = (HACCEL32)HeapAlloc(GetProcessHeap(), 0,
|
|
cEntries * sizeof(ACCEL32));
|
|
TRACE(accel, "handle %p\n", (LPVOID)hAccel);
|
|
if(!hAccel) {
|
|
WARN(accel, "Out of memory.\n");
|
|
SetLastError(ERROR_NOT_ENOUGH_MEMORY);
|
|
return (HACCEL32)NULL;
|
|
}
|
|
memcpy((LPACCEL32)hAccel, lpaccel, cEntries * sizeof(ACCEL32));
|
|
|
|
/* Set the end-of-table terminator. */
|
|
((LPACCEL32)hAccel)[cEntries-1].fVirt |= 0x80;
|
|
|
|
TRACE(accel, "Allocated accelerator handle %x\n", hAccel);
|
|
return hAccel;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* DestroyAcceleratorTable (USER32.130)
|
|
*
|
|
* By mortene@pvv.org 980321
|
|
*/
|
|
BOOL32 WINAPI DestroyAcceleratorTable( HACCEL32 handle )
|
|
{
|
|
FIXME(accel, "stub (handle 0x%x)\n", handle);
|
|
|
|
|
|
/* Weird.. I thought this should work. According to the API
|
|
specification, DestroyAcceleratorTable() should only be called on
|
|
HACCEL32's made by CreateAcceleratorTable(), but Microsoft Visual
|
|
Studio 97 calls this function with a series of different handle
|
|
values without ever calling CreateAcceleratorTable(). Something
|
|
is very fishy in Denmark... */
|
|
/* Update: looks like the calls to this function matches the calls
|
|
to LoadAccelerators() in M$ Visual Studio, except that the handle
|
|
values are off by some variable size from the HACCEL's returned
|
|
from LoadAccelerators(). WTH? */
|
|
|
|
/* Parameter checking to avoid any embarassing situations. */
|
|
/* if(!handle) { */
|
|
/* WARN(accel, "Application sent NULL ptr.\n"); */
|
|
/* SetLastError(ERROR_INVALID_PARAMETER); */
|
|
/* return FALSE; */
|
|
/* } */
|
|
|
|
/* HeapFree(GetProcessHeap(), 0, (LPACCEL32)handle); */
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* LoadString16
|
|
*/
|
|
INT16 WINAPI LoadString16( HINSTANCE16 instance, UINT16 resource_id,
|
|
LPSTR buffer, INT16 buflen )
|
|
{
|
|
HGLOBAL16 hmem;
|
|
HRSRC16 hrsrc;
|
|
unsigned char *p;
|
|
int string_num;
|
|
int i;
|
|
|
|
TRACE(resource,"inst=%04x id=%04x buff=%08x len=%d\n",
|
|
instance, resource_id, (int) buffer, buflen);
|
|
|
|
hrsrc = FindResource16( instance, (SEGPTR)((resource_id>>4)+1), RT_STRING16 );
|
|
if (!hrsrc) return 0;
|
|
hmem = LoadResource16( instance, hrsrc );
|
|
if (!hmem) return 0;
|
|
|
|
p = LockResource16(hmem);
|
|
string_num = resource_id & 0x000f;
|
|
for (i = 0; i < string_num; i++)
|
|
p += *p + 1;
|
|
|
|
TRACE(resource, "strlen = %d\n", (int)*p );
|
|
|
|
i = MIN(buflen - 1, *p);
|
|
if (buffer == NULL)
|
|
return i;
|
|
if (i > 0) {
|
|
memcpy(buffer, p + 1, i);
|
|
buffer[i] = '\0';
|
|
} else {
|
|
if (buflen > 1) {
|
|
buffer[0] = '\0';
|
|
return 0;
|
|
}
|
|
fprintf(stderr,"LoadString // I dont know why , but caller give buflen=%d *p=%d !\n", buflen, *p);
|
|
fprintf(stderr,"LoadString // and try to obtain string '%s'\n", p + 1);
|
|
}
|
|
FreeResource16( hmem );
|
|
|
|
TRACE(resource,"'%s' copied !\n", buffer);
|
|
return i;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* LoadString32W (USER32.376)
|
|
*/
|
|
INT32 WINAPI LoadString32W( HINSTANCE32 instance, UINT32 resource_id,
|
|
LPWSTR buffer, INT32 buflen )
|
|
{
|
|
HGLOBAL32 hmem;
|
|
HRSRC32 hrsrc;
|
|
WCHAR *p;
|
|
int string_num;
|
|
int i;
|
|
|
|
if (HIWORD(resource_id)==0xFFFF) /* netscape 3 passes this */
|
|
resource_id = (UINT32)(-((INT32)resource_id));
|
|
TRACE(resource, "instance = %04x, id = %04x, buffer = %08x, "
|
|
"length = %d\n", instance, (int)resource_id, (int) buffer, buflen);
|
|
|
|
hrsrc = FindResource32W( instance, (LPCWSTR)((resource_id>>4)+1),
|
|
RT_STRING32W );
|
|
if (!hrsrc) return 0;
|
|
hmem = LoadResource32( instance, hrsrc );
|
|
if (!hmem) return 0;
|
|
|
|
p = LockResource32(hmem);
|
|
string_num = resource_id & 0x000f;
|
|
for (i = 0; i < string_num; i++)
|
|
p += *p + 1;
|
|
|
|
TRACE(resource, "strlen = %d\n", (int)*p );
|
|
|
|
i = MIN(buflen - 1, *p);
|
|
if (buffer == NULL)
|
|
return i;
|
|
if (i > 0) {
|
|
memcpy(buffer, p + 1, i * sizeof (WCHAR));
|
|
buffer[i] = (WCHAR) 0;
|
|
} else {
|
|
if (buflen > 1) {
|
|
buffer[0] = (WCHAR) 0;
|
|
return 0;
|
|
}
|
|
#if 0
|
|
fprintf(stderr,"LoadString // I dont know why , but caller give buflen=%d *p=%d !\n", buflen, *p);
|
|
fprintf(stderr,"LoadString // and try to obtain string '%s'\n", p + 1);
|
|
#endif
|
|
}
|
|
|
|
TRACE(resource,"'%s' copied !\n", (char *)buffer);
|
|
return i;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* LoadString32A (USER32.375)
|
|
*/
|
|
INT32 WINAPI LoadString32A( HINSTANCE32 instance, UINT32 resource_id,
|
|
LPSTR buffer, INT32 buflen )
|
|
{
|
|
INT32 retval;
|
|
LPWSTR buffer2 = NULL;
|
|
if (buffer && buflen)
|
|
buffer2 = HeapAlloc( GetProcessHeap(), 0, buflen * 2 );
|
|
retval = LoadString32W(instance,resource_id,buffer2,buflen);
|
|
|
|
if (buffer2)
|
|
{
|
|
if (retval) {
|
|
lstrcpynWtoA( buffer, buffer2, buflen );
|
|
retval = lstrlen32A( buffer );
|
|
}
|
|
else
|
|
*buffer = 0;
|
|
HeapFree( GetProcessHeap(), 0, buffer2 );
|
|
}
|
|
return retval;
|
|
}
|
|
|
|
/* Messages...used by FormatMessage32* (KERNEL32.something)
|
|
*
|
|
* They can be specified either directly or using a message ID and
|
|
* loading them from the resource.
|
|
*
|
|
* The resourcedata has following format:
|
|
* start:
|
|
* 0: DWORD nrofentries
|
|
* nrofentries * subentry:
|
|
* 0: DWORD firstentry
|
|
* 4: DWORD lastentry
|
|
* 8: DWORD offset from start to the stringentries
|
|
*
|
|
* (lastentry-firstentry) * stringentry:
|
|
* 0: WORD len (0 marks end)
|
|
* 2: WORD unknown (flags?)
|
|
* 4: CHAR[len-4]
|
|
* (stringentry i of a subentry refers to the ID 'firstentry+i')
|
|
*
|
|
* Yes, ANSI strings in win32 resources. Go figure.
|
|
*/
|
|
|
|
/**********************************************************************
|
|
* LoadMessage32A (internal)
|
|
*/
|
|
INT32 LoadMessage32A( HINSTANCE32 instance, UINT32 id, WORD lang,
|
|
LPSTR buffer, INT32 buflen )
|
|
{
|
|
HGLOBAL32 hmem;
|
|
HRSRC32 hrsrc;
|
|
BYTE *p;
|
|
int nrofentries,i,slen;
|
|
struct _subentry {
|
|
DWORD firstentry;
|
|
DWORD lastentry;
|
|
DWORD offset;
|
|
} *se;
|
|
struct _stringentry {
|
|
WORD len;
|
|
WORD unknown;
|
|
CHAR str[1];
|
|
} *stre;
|
|
|
|
TRACE(resource, "instance = %08lx, id = %08lx, buffer = %p, length = %ld\n", (DWORD)instance, (DWORD)id, buffer, (DWORD)buflen);
|
|
|
|
/*FIXME: I am not sure about the '1' ... But I've only seen those entries*/
|
|
hrsrc = FindResourceEx32W(instance,(LPWSTR)1,RT_MESSAGELIST32W,lang);
|
|
if (!hrsrc) return 0;
|
|
hmem = LoadResource32( instance, hrsrc );
|
|
if (!hmem) return 0;
|
|
|
|
p = LockResource32(hmem);
|
|
nrofentries = *(DWORD*)p;
|
|
stre = NULL;
|
|
se = (struct _subentry*)(p+4);
|
|
for (i=nrofentries;i--;) {
|
|
if ((id>=se->firstentry) && (id<=se->lastentry)) {
|
|
stre = (struct _stringentry*)(p+se->offset);
|
|
id -= se->firstentry;
|
|
break;
|
|
}
|
|
se++;
|
|
}
|
|
if (!stre)
|
|
return 0;
|
|
for (i=id;i--;) {
|
|
if (!(slen=stre->len))
|
|
return 0;
|
|
stre = (struct _stringentry*)(((char*)stre)+slen);
|
|
}
|
|
slen=stre->len;
|
|
TRACE(resource," - strlen=%d\n",slen);
|
|
i = MIN(buflen - 1, slen);
|
|
if (buffer == NULL)
|
|
return slen; /* different to LoadString */
|
|
if (i>0) {
|
|
lstrcpyn32A(buffer,stre->str,i);
|
|
buffer[i]=0;
|
|
} else {
|
|
if (buflen>1) {
|
|
buffer[0]=0;
|
|
return 0;
|
|
}
|
|
}
|
|
if (buffer)
|
|
TRACE(resource,"'%s' copied !\n", buffer);
|
|
return i;
|
|
}
|
|
|
|
/**********************************************************************
|
|
* LoadMessage32W (internal)
|
|
*/
|
|
INT32 LoadMessage32W( HINSTANCE32 instance, UINT32 id, WORD lang,
|
|
LPWSTR buffer, INT32 buflen )
|
|
{
|
|
INT32 retval;
|
|
LPSTR buffer2 = NULL;
|
|
if (buffer && buflen)
|
|
buffer2 = HeapAlloc( GetProcessHeap(), 0, buflen );
|
|
retval = LoadMessage32A(instance,id,lang,buffer2,buflen);
|
|
if (buffer)
|
|
{
|
|
if (retval) {
|
|
lstrcpynAtoW( buffer, buffer2, buflen );
|
|
retval = lstrlen32W( buffer );
|
|
}
|
|
HeapFree( GetProcessHeap(), 0, buffer2 );
|
|
}
|
|
return retval;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* SetResourceHandler (KERNEL.43)
|
|
*/
|
|
FARPROC16 WINAPI SetResourceHandler( HMODULE16 hModule, SEGPTR s,
|
|
FARPROC16 resourceHandler )
|
|
{
|
|
NE_MODULE *pModule;
|
|
|
|
hModule = GetExePtr( hModule );
|
|
|
|
TRACE(resource, "module=%04x type=%s\n",
|
|
hModule, debugres_a(PTR_SEG_TO_LIN(s)) );
|
|
|
|
if ((pModule = MODULE_GetPtr( hModule )))
|
|
{
|
|
if (pModule->flags & NE_FFLAGS_WIN32)
|
|
fprintf(stderr,"SetResourceHandler: %s\n", NEWin32FailureString);
|
|
else if (pModule->res_table)
|
|
return NE_SetResourceHandler( hModule, s, resourceHandler );
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
|
|
/**********************************************************************
|
|
* EnumResourceTypesA (KERNEL32.90)
|
|
*/
|
|
BOOL32 WINAPI EnumResourceTypes32A( HMODULE32 hmodule,ENUMRESTYPEPROC32A lpfun,
|
|
LONG lParam)
|
|
{
|
|
return PE_EnumResourceTypes32A(hmodule,lpfun,lParam);
|
|
}
|
|
|
|
/**********************************************************************
|
|
* EnumResourceTypesW (KERNEL32.91)
|
|
*/
|
|
BOOL32 WINAPI EnumResourceTypes32W( HMODULE32 hmodule,ENUMRESTYPEPROC32W lpfun,
|
|
LONG lParam)
|
|
{
|
|
return PE_EnumResourceTypes32W(hmodule,lpfun,lParam);
|
|
}
|
|
|
|
/**********************************************************************
|
|
* EnumResourceNamesA (KERNEL32.88)
|
|
*/
|
|
BOOL32 WINAPI EnumResourceNames32A( HMODULE32 hmodule, LPCSTR type,
|
|
ENUMRESNAMEPROC32A lpfun, LONG lParam )
|
|
{
|
|
return PE_EnumResourceNames32A(hmodule,type,lpfun,lParam);
|
|
}
|
|
/**********************************************************************
|
|
* EnumResourceNamesW (KERNEL32.89)
|
|
*/
|
|
BOOL32 WINAPI EnumResourceNames32W( HMODULE32 hmodule, LPCWSTR type,
|
|
ENUMRESNAMEPROC32W lpfun, LONG lParam )
|
|
{
|
|
return PE_EnumResourceNames32W(hmodule,type,lpfun,lParam);
|
|
}
|
|
|
|
/**********************************************************************
|
|
* EnumResourceLanguagesA (KERNEL32.86)
|
|
*/
|
|
BOOL32 WINAPI EnumResourceLanguages32A( HMODULE32 hmodule, LPCSTR type,
|
|
LPCSTR name, ENUMRESLANGPROC32A lpfun,
|
|
LONG lParam)
|
|
{
|
|
return PE_EnumResourceLanguages32A(hmodule,type,name,lpfun,lParam);
|
|
}
|
|
/**********************************************************************
|
|
* EnumResourceLanguagesW (KERNEL32.87)
|
|
*/
|
|
BOOL32 WINAPI EnumResourceLanguages32W( HMODULE32 hmodule, LPCWSTR type,
|
|
LPCWSTR name, ENUMRESLANGPROC32W lpfun,
|
|
LONG lParam)
|
|
{
|
|
return PE_EnumResourceLanguages32W(hmodule,type,name,lpfun,lParam);
|
|
}
|