mirror of
git://source.winehq.org/git/wine.git
synced 2024-09-16 02:37:38 +00:00
3a405baf38
Sun Oct 30 13:01:18 1994 Alexandre Julliard (julliard@lamisun.epfl.ch) * [controls/static.c] Bug fix for SS_ICON controls. * [if1632/Imakefile] Fixed call.o dependencies. * [objects/clipping.c] [objects/dc.c] Fixed visible region handling. hVisRgn is always non-null now. * [windows/dce.c] Bug fix in GetDCEx for CS_OWNDC windows. * [windows/nonclient.c] [windows/painting.c] Fixes to icon window drawing. * [windows/winpos.c] A few fixes in SetWindowPos(). Sun Oct 30 12:50:24 1994 Michael Patra <micky@marie.physik.tu-berlin.de> * [objects/bitblt.c] BitBlt(): BitBlt is now able to handle any raster operation. If the request can't be passed to XWindows directly, it's quite slow, though. * [*/*.c] [misc/main.c] Improvements of the system for handling debug messages. Options are now also loaded from /usr/lib/X11/app-defaults/Wine (insert *debugoptions: +xxx there if you want to have turn messages xxx on). * [controls/menu.c] DestroyMenu(): The whole window won't be destroyed as a sideeffect any longer. * [misc/file.c] OpenFile(): Fixed bug in searching in system/window-directory. Sun Oct 30 12:25:53 1994 Jimmy Tirtawangsa <j0t2527@tam2000.tamu.edu> * [include/windows.h] Bug fix for window related structures. DCB and COMSTAT are affected. They must be packed. * [misc/comm.c] Bug fix for COM ports: Dial and dialog window in terminal.exe now works. Non sequential COM assignments in wine.conf should not break now. Baudrate can be specified in wine.conf to overcome baudrate limitation in mswindow. See sample wine.ini * [include/comm.h] add baudrate field to DosDeviceStructre * [object/font.c] Bug fix for font assignment. Use pairs of foundry and family fontnames in X11 to correspond with window's fonts. Put font assignment ini wine.ini. * [wine.ini] Adding optional baudrate after port name in "serialports" section Add new section, "fonts". "default" is special key in "fonts" to match any unmatch window font. Oct 29, 94 (new address) wine@trgcorp.mksinfo.qc.ca (Martin Ayotte) * [if1632/relay.c] * [if1632/commdlg.spec] New file. * [misc/commdlg.c] New file. * [include/commdlg.h] New file. Begin of an emulated COMMDLG DLL, built-in for now. (BTW, if you want to switch between built-in & 16bits CommDlg, only thing you need to do is to put the real/dummy name in file relay.c) * [controls/scroll.c] * [controls/combo.c] * [controls/listbox.c] Few bug fixes and/or cosmetic. * [misc/audio.c] * [misc/mmaux.c] bug fixes and flags returned to emulate SB16. * [misc/midi.c] New file. skeleton for 'Midi' MMSYSTEM & MCI driver. * [misc/mcianim.c] New file. skeleton for 'Animation1' MCI driver. * [windows/win.c] Add new stub for GetLastActiveWindow(). Tue Oct 25 09:17:25 1994 Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de) * [if1632/call.S] [tools/build.c] Support for ELF format. (Not complete) Sun Oct 23 00:51:50 1994 Paul Falstad (pf@zoof) * [if1632/user.spec] Add stubs for ArrangeIconicWindows(), etc. * [if1632/kernel.spec] Add IsBad*Ptr() functions. * [loader/signal.c] Add test_memory(), for use with IsBad*Ptr(). * [windows/winpos.c] Add stubs for TileChildWindows(), etc. * [windows/win.c] IsWindow() shouldn't crash if it's given a bad handle. Add stub for GetLastActivePopup(). * [memory/global.c] Implement the IsBad*Ptr() functions. * [controls/listbox.c] Return the full longword of the item data in LB_GETITEMDATA. * [controls/edit.c] Don't let the user select an area past the end of the text. * [objects/text.c] In DrawText(), the code to delete crlfs also removed multiple consecutive newlines. Also, using DT_CALCRECT didn't return the right height, and the width wasn't returned at all. This caused MessageBoxes to be missing much of their text. * [windows/scroll.c] ScrollWindow[Ex] didn't work right with null LPRECT arguments. Fri Oct 21 21:47:19 1994 Paul Falstad (pf@zoof.cts.com) * [miscemu/int21.c] Fixed int21 0x42 handler to properly assemble 32-bit seek ptr. * [misc/property.c] Fixed inverted logic in EnumProps(), and changed CallBack16() call to use new arg format. * [windows/win.c] Fixed CallBack16() call in Enum[Child]Windows to use new arg format; this fixes crashes in enum procedures. Wed Oct 19 21:30:00 PDT 1994 martin@cs.csufresno.edu * [misc/clipboard.c] [windows/event.c] [windows/message.c] Added cut and paste between Wine and other X clients via the PRIMARY selection. Text only this time. * [controls/edit.c] EDIT_LineLength, EDIT_TextLine return 0 for lines after last one. * [windows/defwnd.c] Send WM_SYSCOMMAND to overlapped ancestor window, not the receiver of WM_SYSKEYDOWN Sat Oct 22 15:01:02 1994 Thomas Sandford <t.d.g.sandford@bradford.ac.uk> * [controls/edit.c] ClientWidth()/ClientHeight() macros: return 0 if size would be negative EDIT_StrLength(): takes unsigned char* instead of char* * [controls/listbox.c] ListBoxWndProc(): in "case WM_MOUSEMOVE" - set lphl at start of case instead of in each place required (it was omitted in some places causing problems!) * [controls/menu.c] MENU_CalcItemSize(): don't try to find size of a text item if the pointer is NULL * [include/heap.h] added definition of HEAP_LocalInit() * [include/msdos.h] removed buggy pointer() macro (use SAFEMAKEPTR() from segmem.h instead) * [loader/selector.c] IPCCopySelector(): added missing flags to shmget() call ? does this break linux - I added these flags in a previous patch but they were missing in the corresponding release ? * [loader/signal.c] win_fault(): added missing definitions of i, dump for those not running NetBSD or linux * [misc/dos_fs.c] DOS_GetCurrentDir(): made temp[] static so it can be safely returned * [miscemu/int21.c,int25.c,int26.c] Changed all invocations of pointer() to SAFEMAKEPTR(). Included segmem.h where necessary. * [windows/dialog.c] CreateDialogIndirectParam(): Changed HEAP_Init() call to HEAP_LocalInit(), removed redundant variables Sat Oct 22 00:29:41 MET 1994 Dag Asheim (dash@ifi.uio.no) * [loader/library.c] [loader/main.c] [loader/ne_image.c] [misc/exec.c] [miscemu/int10.c] [miscemu/int21.c] [objects/bitblt.c] [objects/metafile.c] Rewritten more printf's to use the new debugging system, and made wine less verbose per default. Use "-debugmsg +module" to get (almost) the same behavior as before.
622 lines
15 KiB
C
622 lines
15 KiB
C
/*
|
||
* Module & Library functions
|
||
*/
|
||
static char Copyright[] = "Copyright 1993, 1994 Martin Ayotte, Robert J. Amstadt, Erik Bos";
|
||
|
||
#include <stdio.h>
|
||
#include <stdlib.h>
|
||
#include <string.h>
|
||
#include <sys/types.h>
|
||
#include <sys/stat.h>
|
||
#include <fcntl.h>
|
||
#include <unistd.h>
|
||
#include "neexe.h"
|
||
#include "segmem.h"
|
||
#include "dlls.h"
|
||
#include "wine.h"
|
||
#include "wineopts.h"
|
||
#include "arch.h"
|
||
#include "options.h"
|
||
#include "prototypes.h"
|
||
#include "windows.h"
|
||
#include "task.h"
|
||
#include "toolhelp.h"
|
||
#include "stddebug.h"
|
||
/* #define DEBUG_MODULE */
|
||
/* #undef DEBUG_MODULE */
|
||
#include "debug.h"
|
||
|
||
extern char WindowsPath[256];
|
||
extern struct dll_name_table_entry_s dll_builtin_table[];
|
||
extern char *GetDosFileName(char *);
|
||
|
||
extern HANDLE hSysRes;
|
||
|
||
struct w_files *wine_files = NULL;
|
||
static char *DLL_Extensions[] = { "dll", NULL };
|
||
static char *EXE_Extensions[] = { "exe", NULL };
|
||
|
||
#define IS_BUILTIN_DLL(handle) ((handle >> 8) == 0xff)
|
||
|
||
/**********************************************************************/
|
||
|
||
void ExtractDLLName(char *libname, char *temp)
|
||
{
|
||
int i;
|
||
|
||
strcpy(temp, libname);
|
||
if (strchr(temp, '\\') || strchr(temp, '/'))
|
||
for (i = strlen(temp) - 1; i ; i--)
|
||
if (temp[i] == '\\' || temp[i] == '/') {
|
||
strcpy(temp, temp + i + 1);
|
||
break;
|
||
}
|
||
for (i = strlen(temp) - 1; i ; i--)
|
||
if (temp[i] == '.') {
|
||
temp[i] = 0;
|
||
break;
|
||
}
|
||
}
|
||
|
||
struct w_files *
|
||
GetFileInfo(unsigned short instance)
|
||
{
|
||
register struct w_files *w = wine_files;
|
||
|
||
while (w && w->hinstance != instance)
|
||
w = w->next;
|
||
|
||
return w;
|
||
}
|
||
|
||
int IsDLLLoaded(char *name)
|
||
{
|
||
struct w_files *wpnt;
|
||
|
||
if(FindDLLTable(name))
|
||
return 1;
|
||
|
||
for(wpnt = wine_files; wpnt; wpnt = wpnt->next)
|
||
if(strcmp(wpnt->name, name) == 0)
|
||
return 1;
|
||
|
||
return 0;
|
||
}
|
||
|
||
void InitDLL(struct w_files *wpnt)
|
||
{
|
||
if (wpnt->ne)
|
||
InitNEDLL(wpnt);
|
||
else
|
||
InitPEDLL(wpnt);
|
||
}
|
||
|
||
void InitializeLoadedDLLs(struct w_files *wpnt)
|
||
{
|
||
static flagReadyToRun = 0;
|
||
struct w_files *final_wpnt;
|
||
|
||
dprintf_module(stddeb,"InitializeLoadedDLLs(%08lX)\n", wpnt);
|
||
|
||
if (wpnt == NULL)
|
||
{
|
||
flagReadyToRun = 1;
|
||
dprintf_module(stddeb,"Initializing DLLs\n");
|
||
}
|
||
|
||
if (!flagReadyToRun)
|
||
return;
|
||
|
||
#if 1
|
||
if (wpnt != NULL)
|
||
dprintf_module(stddeb,"Initializing %s\n", wpnt->name);
|
||
#endif
|
||
|
||
/*
|
||
* Initialize libraries
|
||
*/
|
||
if (!wpnt)
|
||
{
|
||
wpnt = wine_files;
|
||
final_wpnt = NULL;
|
||
}
|
||
else
|
||
{
|
||
final_wpnt = wpnt->next;
|
||
}
|
||
|
||
for( ; wpnt != final_wpnt; wpnt = wpnt->next)
|
||
InitDLL(wpnt);
|
||
}
|
||
|
||
/**********************************************************************
|
||
* LoadImage
|
||
* Load one executable into memory
|
||
*/
|
||
HINSTANCE LoadImage(char *module, int filetype, int change_dir)
|
||
{
|
||
HINSTANCE handle;
|
||
struct w_files *wpnt, *wpnt1;
|
||
char buffer[256], header[2], modulename[64], *fullname;
|
||
|
||
ExtractDLLName(module, modulename);
|
||
dprintf_module(stddeb,"LoadImage [%s]\n", module);
|
||
/* built-in one ? */
|
||
if (FindDLLTable(modulename)) {
|
||
return GetModuleHandle(modulename);
|
||
}
|
||
|
||
/* already loaded ? */
|
||
for (wpnt = wine_files ; wpnt ; wpnt = wpnt->next)
|
||
if (strcasecmp(wpnt->name, modulename) == 0)
|
||
return wpnt->hinstance;
|
||
|
||
/*
|
||
* search file
|
||
*/
|
||
fullname = FindFile(buffer, sizeof(buffer), module,
|
||
(filetype == EXE ? EXE_Extensions : DLL_Extensions),
|
||
WindowsPath);
|
||
if (fullname == NULL)
|
||
{
|
||
fprintf(stderr, "LoadImage: I can't find %s.dll | %s.exe !\n",
|
||
module, module);
|
||
return 2;
|
||
}
|
||
|
||
fullname = GetDosFileName(fullname);
|
||
|
||
dprintf_module(stddeb,"LoadImage: loading %s (%s)\n [%s]\n",
|
||
module, buffer, fullname);
|
||
|
||
if (change_dir && fullname)
|
||
{
|
||
char dirname[256];
|
||
char *p;
|
||
|
||
strcpy(dirname, fullname);
|
||
p = strrchr(dirname, '\\');
|
||
*p = '\0';
|
||
|
||
DOS_SetDefaultDrive(dirname[0] - 'A');
|
||
DOS_ChangeDir(dirname[0] - 'A', dirname + 2);
|
||
}
|
||
|
||
/* First allocate a spot to store the info we collect, and add it to
|
||
* our linked list if we could load the file.
|
||
*/
|
||
|
||
wpnt = (struct w_files *) malloc(sizeof(struct w_files));
|
||
|
||
/*
|
||
* Open file for reading.
|
||
*/
|
||
wpnt->fd = open(buffer, O_RDONLY);
|
||
if (wpnt->fd < 0)
|
||
return 2;
|
||
|
||
/*
|
||
* Establish header pointers.
|
||
*/
|
||
wpnt->filename = strdup(buffer);
|
||
wpnt->name = strdup(modulename);
|
||
|
||
/* read mz header */
|
||
wpnt->mz_header = (struct mz_header_s *) malloc(sizeof(struct mz_header_s));;
|
||
lseek(wpnt->fd, 0, SEEK_SET);
|
||
if (read(wpnt->fd, wpnt->mz_header, sizeof(struct mz_header_s)) !=
|
||
sizeof(struct mz_header_s))
|
||
{
|
||
myerror("Unable to read MZ header from file");
|
||
}
|
||
|
||
/* This field is ignored according to "Windows Internals", p.242 */
|
||
#if 0
|
||
if (wpnt->mz_header->must_be_0x40 != 0x40)
|
||
myerror("This is not a Windows program");
|
||
#endif
|
||
|
||
/* read first two bytes to determine filetype */
|
||
lseek(wpnt->fd, wpnt->mz_header->ne_offset, SEEK_SET);
|
||
read(wpnt->fd, &header, sizeof(header));
|
||
|
||
handle = 0;
|
||
if (header[0] == 'N' && header[1] == 'E')
|
||
handle = LoadNEImage(wpnt);
|
||
if (header[0] == 'P' && header[1] == 'E')
|
||
handle = LoadPEImage(wpnt);
|
||
wpnt->hinstance = handle;
|
||
|
||
if (handle > 32) {
|
||
/* ok, loaded, add to the end of the list */
|
||
if(wine_files == NULL)
|
||
wine_files = wpnt;
|
||
else {
|
||
wpnt1 = wine_files;
|
||
while(wpnt1->next)
|
||
wpnt1 = wpnt1->next;
|
||
wpnt1->next = wpnt;
|
||
}
|
||
wpnt->next = NULL;
|
||
|
||
return handle;
|
||
} else {
|
||
fprintf(stderr, "wine: (%s) unknown fileformat !\n", wpnt->filename);
|
||
|
||
close(wpnt->fd);
|
||
free(wpnt->filename);
|
||
free(wpnt->name);
|
||
free(wpnt);
|
||
|
||
return 14;
|
||
}
|
||
}
|
||
|
||
/**********************************************************************
|
||
* GetModuleHandle [KERNEL.47]
|
||
*/
|
||
HANDLE GetModuleHandle(LPSTR lpModuleName)
|
||
{
|
||
register struct w_files *w = wine_files;
|
||
int i;
|
||
char dllname[256];
|
||
|
||
if ((int) lpModuleName & 0xffff0000)
|
||
ExtractDLLName(lpModuleName, dllname);
|
||
|
||
if ((int) lpModuleName & 0xffff0000)
|
||
dprintf_module(stddeb,"GetModuleHandle('%s');\n", lpModuleName);
|
||
else
|
||
dprintf_module(stddeb,"GetModuleHandle('%p');\n", lpModuleName);
|
||
|
||
/* dprintf_module(stddeb,"GetModuleHandle // searching in builtin libraries\n");*/
|
||
for (i = 0; i < N_BUILTINS; i++) {
|
||
if (dll_builtin_table[i].dll_name == NULL) break;
|
||
if (((int) lpModuleName & 0xffff0000) == 0) {
|
||
if (0xFF00 + i == (int) lpModuleName) {
|
||
dprintf_module(stddeb,"GetModuleHandle('%s') return %04X \n",
|
||
lpModuleName, 0xff00 + i);
|
||
return 0xFF00 + i;
|
||
}
|
||
}
|
||
else if (strcasecmp(dll_builtin_table[i].dll_name, dllname) == 0) {
|
||
dprintf_module(stddeb,"GetModuleHandle('%p') return %04X \n",
|
||
lpModuleName, 0xFF00 + i);
|
||
return (0xFF00 + i);
|
||
}
|
||
}
|
||
|
||
dprintf_module(stddeb,"GetModuleHandle // searching in loaded modules\n");
|
||
while (w) {
|
||
/* dprintf_module(stddeb,"GetModuleHandle // '%x' \n", w->name); */
|
||
if (((int) lpModuleName & 0xffff0000) == 0) {
|
||
if (w->hinstance == (int) lpModuleName) {
|
||
dprintf_module(stddeb,"GetModuleHandle('%p') return %04X \n",
|
||
lpModuleName, w->hinstance);
|
||
return w->hinstance;
|
||
}
|
||
}
|
||
else if (strcasecmp(w->name, dllname) == 0) {
|
||
dprintf_module(stddeb,"GetModuleHandle('%s') return %04X \n",
|
||
lpModuleName, w->hinstance);
|
||
return w->hinstance;
|
||
}
|
||
w = w->next;
|
||
}
|
||
printf("GetModuleHandle('%p') not found !\n", lpModuleName);
|
||
return 0;
|
||
}
|
||
|
||
|
||
/**********************************************************************
|
||
* GetModuleUsage [KERNEL.48]
|
||
*/
|
||
int GetModuleUsage(HANDLE hModule)
|
||
{
|
||
struct w_files *w;
|
||
|
||
dprintf_module(stddeb,"GetModuleUsage(%04X);\n", hModule);
|
||
|
||
/* built-in dll ? */
|
||
if (IS_BUILTIN_DLL(hModule))
|
||
return 2;
|
||
|
||
w = GetFileInfo(hModule);
|
||
/* return w->Usage; */
|
||
return 1;
|
||
}
|
||
|
||
|
||
/**********************************************************************
|
||
* GetModuleFilename [KERNEL.49]
|
||
*/
|
||
int GetModuleFileName(HANDLE hModule, LPSTR lpFileName, short nSize)
|
||
{
|
||
struct w_files *w;
|
||
LPSTR str;
|
||
char windir[256], temp[256];
|
||
|
||
dprintf_module(stddeb,"GetModuleFileName(%04X, %p, %d);\n", hModule, lpFileName, nSize);
|
||
|
||
if (lpFileName == NULL) return 0;
|
||
if (nSize < 1) return 0;
|
||
|
||
/* built-in dll ? */
|
||
if (IS_BUILTIN_DLL(hModule)) {
|
||
GetWindowsDirectory(windir, sizeof(windir));
|
||
sprintf(temp, "%s\\%s.DLL", windir, dll_builtin_table[hModule & 0x00ff].dll_name);
|
||
ToDos(temp);
|
||
strncpy(lpFileName, temp, nSize);
|
||
dprintf_module(stddeb,"GetModuleFileName copied '%s' (internal dll) return %d \n", lpFileName, nSize);
|
||
return strlen(lpFileName);
|
||
}
|
||
|
||
/* check loaded dlls */
|
||
if ((w = GetFileInfo(hModule)) == NULL)
|
||
return 0;
|
||
str = GetDosFileName(w->filename);
|
||
if (nSize > strlen(str)) nSize = strlen(str) + 1;
|
||
strncpy(lpFileName, str, nSize);
|
||
dprintf_module(stddeb,"GetModuleFileName copied '%s' return %d \n", lpFileName, nSize);
|
||
return nSize - 1;
|
||
}
|
||
|
||
|
||
/**********************************************************************
|
||
* LoadLibrary [KERNEL.95]
|
||
*/
|
||
HANDLE LoadLibrary(LPSTR libname)
|
||
{
|
||
HANDLE h;
|
||
|
||
if ((h = LoadImage(libname, DLL, 0)) < 32)
|
||
return h;
|
||
|
||
if (!IS_BUILTIN_DLL(h))
|
||
InitDLL(GetFileInfo(h));
|
||
|
||
return h;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* FreeLibrary [KERNEL.96]
|
||
*/
|
||
void FreeLibrary(HANDLE hLib)
|
||
{
|
||
dprintf_module(stddeb,"FreeLibrary(%04X);\n", hLib);
|
||
|
||
/* built-in dll ? */
|
||
if (IS_BUILTIN_DLL(hLib) || hLib == 0 || hLib == hSysRes)
|
||
return;
|
||
|
||
/*
|
||
while (lpMod != NULL) {
|
||
if (lpMod->hInst == hLib) {
|
||
if (lpMod->Count == 1) {
|
||
wpnt = GetFileInfo(hLib);
|
||
if (wpnt->ne)
|
||
NEunloadImage(wpnt);
|
||
else
|
||
PEunloadImage(wpnt);
|
||
if (hLib != (HANDLE)NULL) GlobalFree(hLib);
|
||
if (lpMod->ModuleName != NULL) free(lpMod->ModuleName);
|
||
if (lpMod->FileName != NULL) free(lpMod->FileName);
|
||
GlobalFree(lpMod->hModule);
|
||
dprintf_module(stddeb,"FreeLibrary // freed !\n");
|
||
return;
|
||
}
|
||
lpMod->Count--;
|
||
dprintf_module(stddeb,"FreeLibrary // Count decremented !\n");
|
||
return;
|
||
}
|
||
lpMod = lpMod->lpNextModule;
|
||
}
|
||
*/
|
||
}
|
||
|
||
|
||
/**********************************************************************
|
||
* GetProcAddress [KERNEL.50]
|
||
*/
|
||
FARPROC GetProcAddress(HANDLE hModule, char *proc_name)
|
||
{
|
||
#ifdef WINELIB
|
||
WINELIB_UNIMP ("GetProcAddress");
|
||
#else
|
||
int sel, addr, ret;
|
||
register struct w_files *w = wine_files;
|
||
int ordinal, len;
|
||
char * cpnt;
|
||
char C[128];
|
||
HTASK hTask;
|
||
LPTASKENTRY lpTask;
|
||
|
||
/* built-in dll ? */
|
||
if (IS_BUILTIN_DLL(hModule))
|
||
{
|
||
if ((int) proc_name & 0xffff0000)
|
||
{
|
||
dprintf_module(stddeb,"GetProcAddress: builtin %#04X, '%s'\n",
|
||
hModule, proc_name);
|
||
if (GetEntryDLLName(dll_builtin_table[hModule - 0xFF00].dll_name,
|
||
proc_name, &sel, &addr))
|
||
{
|
||
printf("Address not found !\n");
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dprintf_module(stddeb,"GetProcAddress: builtin %#04X, %d\n",
|
||
hModule, (int)proc_name);
|
||
if (GetEntryDLLOrdinal(dll_builtin_table[hModule-0xFF00].dll_name,
|
||
(int)proc_name & 0x0000FFFF, &sel, &addr))
|
||
{
|
||
printf("Address not found !\n");
|
||
}
|
||
}
|
||
ret = MAKELONG(addr, sel);
|
||
dprintf_module(stddeb,"GetProcAddress // ret=%08X sel=%04X addr=%04X\n",
|
||
ret, sel, addr);
|
||
return (FARPROC)ret;
|
||
}
|
||
if (hModule == 0)
|
||
{
|
||
hTask = GetCurrentTask();
|
||
dprintf_module(stddeb,"GetProcAddress // GetCurrentTask()=%04X\n", hTask);
|
||
lpTask = (LPTASKENTRY) GlobalLock(hTask);
|
||
if (lpTask == NULL)
|
||
{
|
||
printf("GetProcAddress: can't find current module handle !\n");
|
||
return NULL;
|
||
}
|
||
hModule = lpTask->hInst;
|
||
dprintf_module(stddeb,"GetProcAddress: current module=%04X instance=%04X!\n",
|
||
lpTask->hModule, lpTask->hInst);
|
||
GlobalUnlock(hTask);
|
||
}
|
||
while (w && w->hinstance != hModule)
|
||
w = w->next;
|
||
if (w == NULL)
|
||
return NULL;
|
||
dprintf_module(stddeb,"GetProcAddress // Module Found ! w->filename='%s'\n", w->filename);
|
||
if ((int)proc_name & 0xFFFF0000)
|
||
{
|
||
AnsiUpper(proc_name);
|
||
dprintf_module(stddeb,"GetProcAddress: %04X, '%s'\n", hModule, proc_name);
|
||
cpnt = w->ne->nrname_table;
|
||
while(TRUE)
|
||
{
|
||
if (((int) cpnt) - ((int)w->ne->nrname_table) >
|
||
w->ne->ne_header->nrname_tab_length) return NULL;
|
||
len = *cpnt++;
|
||
strncpy(C, cpnt, len);
|
||
C[len] = '\0';
|
||
dprintf_module(stddeb,"pointing Function '%s' ordinal=%d !\n",
|
||
C, *((unsigned short *)(cpnt + len)));
|
||
if (strncmp(cpnt, proc_name, len) == 0)
|
||
{
|
||
ordinal = *((unsigned short *)(cpnt + len));
|
||
break;
|
||
}
|
||
cpnt += len + 2;
|
||
}
|
||
if (ordinal == 0)
|
||
{
|
||
printf("GetProcAddress // function '%s' not found !\n", proc_name);
|
||
return NULL;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dprintf_module(stddeb,"GetProcAddress: %#04x, %d\n", hModule, (int) proc_name);
|
||
ordinal = (int)proc_name;
|
||
}
|
||
ret = GetEntryPointFromOrdinal(w, ordinal);
|
||
if (ret == -1)
|
||
{
|
||
printf("GetProcAddress // Function #%d not found !\n", ordinal);
|
||
return NULL;
|
||
}
|
||
addr = ret & 0xffff;
|
||
sel = (ret >> 16);
|
||
dprintf_module(stddeb,"GetProcAddress // ret=%08X sel=%04X addr=%04X\n", ret, sel, addr);
|
||
return (FARPROC) ret;
|
||
#endif /* WINELIB */
|
||
}
|
||
|
||
/* internal dlls */
|
||
static void
|
||
FillModStructBuiltIn(MODULEENTRY *lpModule, struct dll_name_table_entry_s *dll)
|
||
{
|
||
lpModule->dwSize = dll->dll_table_length * 1024;
|
||
strcpy(lpModule->szModule, dll->dll_name);
|
||
lpModule->hModule = 0xff00 + dll->dll_number;
|
||
lpModule->wcUsage = GetModuleUsage(lpModule->hModule);
|
||
GetModuleFileName(lpModule->hModule, lpModule->szExePath, MAX_PATH + 1);
|
||
lpModule->wNext = 0;
|
||
}
|
||
|
||
/* loaded dlls */
|
||
static void
|
||
FillModStructLoaded(MODULEENTRY *lpModule, struct w_files *dll)
|
||
{
|
||
lpModule->dwSize = 16384;
|
||
strcpy(lpModule->szModule, dll->name);
|
||
lpModule->hModule = dll->hinstance;
|
||
lpModule->wcUsage = GetModuleUsage(lpModule->hModule);
|
||
GetModuleFileName(lpModule->hModule, lpModule->szExePath, MAX_PATH + 1);
|
||
lpModule->wNext = 0;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* ModuleFirst [TOOLHELP.59]
|
||
*/
|
||
BOOL ModuleFirst(MODULEENTRY *lpModule)
|
||
{
|
||
dprintf_module(stddeb,"ModuleFirst(%08X)\n", (int) lpModule);
|
||
|
||
FillModStructBuiltIn(lpModule, &dll_builtin_table[0]);
|
||
return TRUE;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* ModuleNext [TOOLHELP.60]
|
||
*/
|
||
BOOL ModuleNext(MODULEENTRY *lpModule)
|
||
{
|
||
struct w_files *w;
|
||
|
||
dprintf_module(stddeb,"ModuleNext(%08X)\n", (int) lpModule);
|
||
|
||
if (IS_BUILTIN_DLL(lpModule->hModule)) {
|
||
/* last built-in ? */
|
||
if ((lpModule->hModule & 0xff) == (N_BUILTINS - 1) ) {
|
||
if (wine_files) {
|
||
FillModStructLoaded(lpModule, wine_files);
|
||
return TRUE;
|
||
} else
|
||
return FALSE;
|
||
}
|
||
FillModStructBuiltIn(lpModule, &dll_builtin_table[(lpModule->hModule & 0xff)+1]);
|
||
return TRUE;
|
||
}
|
||
w = GetFileInfo(lpModule->hModule);
|
||
if (w->next) {
|
||
FillModStructLoaded(lpModule, w->next);
|
||
return TRUE;
|
||
}
|
||
return FALSE;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* ModuleFindHandle [TOOLHELP.62]
|
||
*/
|
||
HMODULE ModuleFindHandle(MODULEENTRY *lpModule, HMODULE hModule)
|
||
{
|
||
struct w_files *w;
|
||
|
||
dprintf_module(stddeb,"ModuleFindHandle(%08X, %04X)\n", (int) lpModule, (int)hModule);
|
||
|
||
/* built-in dll ? */
|
||
if (IS_BUILTIN_DLL(hModule)) {
|
||
FillModStructBuiltIn(lpModule, &dll_builtin_table[hModule & 0xff]);
|
||
return hModule;
|
||
}
|
||
|
||
/* check loaded dlls */
|
||
if ((w = GetFileInfo(hModule)) == NULL)
|
||
return (HMODULE) NULL;
|
||
|
||
FillModStructLoaded(lpModule, w);
|
||
return w->hinstance;
|
||
}
|
||
|
||
/**********************************************************************
|
||
* ModuleFindName [TOOLHELP.61]
|
||
*/
|
||
HMODULE ModuleFindName(MODULEENTRY *lpModule, LPCSTR lpstrName)
|
||
{
|
||
return (ModuleFindHandle(lpModule, GetModuleHandle((char*)lpstrName)));
|
||
}
|
||
|