2 * Win32 builtin functions
4 * Copyright 1997 Alexandre Julliard
13 #include <sys/types.h>
14 #ifdef HAVE_SYS_MMAN_H
19 #include "wine/winbase16.h"
20 #include "wine/library.h"
24 #include "wine/server.h"
25 #include "debugtools.h"
27 DEFAULT_DEBUG_CHANNEL(module);
28 DECLARE_DEBUG_CHANNEL(relay);
30 extern void RELAY_SetupDLL( const char *module );
32 static HMODULE main_module;
34 /***********************************************************************
37 void *BUILTIN32_dlopen( const char *name )
42 if (!(handle = wine_dll_load( name, error, sizeof(error) )))
44 if (strstr(error, "cannot open") || strstr(error, "open failed")) {
45 /* The file does not exist -> WARN() */
46 WARN("cannot open .so lib for builtin %s: %s\n", name, error);
48 /* ERR() for all other errors (missing functions, ...) */
49 ERR("failed to load .so lib for builtin %s: %s\n", name, error );
55 /***********************************************************************
58 int BUILTIN32_dlclose( void *handle )
60 /* FIXME: should unregister descriptors first */
61 /* wine_dll_unload( handle ); */
66 /***********************************************************************
69 * Load a library in memory; callback function for wine_dll_register
71 static void load_library( void *base, const char *filename )
73 HMODULE module = (HMODULE)base;
78 ERR("could not map image for %s\n", filename ? filename : "main exe" );
82 if (!(PE_HEADER(module)->FileHeader.Characteristics & IMAGE_FILE_DLL))
84 /* if we already have an executable, ignore this one */
85 if (!main_module) main_module = module;
86 return; /* don't create the modref here, will be done later on */
89 if (GetModuleHandleA( filename ))
90 MESSAGE( "Warning: loading builtin %s, but native version already present. Expect trouble.\n", filename );
92 /* Create 32-bit MODREF */
93 if (!(wm = PE_CreateModule( module, filename, 0, 0, TRUE )))
95 ERR( "can't load %s\n", filename );
96 SetLastError( ERROR_OUTOFMEMORY );
99 TRACE( "loaded %s %p %x\n", filename, wm, module );
100 wm->refCount++; /* we don't support freeing builtin dlls (FIXME)*/
102 /* setup relay debugging entry points */
103 if (TRACE_ON(relay)) RELAY_SetupDLL( (void *)module );
107 /***********************************************************************
108 * BUILTIN32_LoadLibraryExA
110 * Partly copied from the original PE_ version.
113 WINE_MODREF *BUILTIN32_LoadLibraryExA(LPCSTR path, DWORD flags)
116 char dllname[20], *p;
120 /* Fix the name in case we have a full path and extension */
122 if ((p = strrchr( name, '\\' ))) name = p + 1;
123 if ((p = strrchr( name, '/' ))) name = p + 1;
125 if (strlen(name) >= sizeof(dllname)-4) goto error;
127 strcpy( dllname, name );
128 p = strrchr( dllname, '.' );
129 if (!p) strcat( dllname, ".dll" );
130 for (p = dllname; *p; p++) *p = FILE_tolower(*p);
132 if (!(handle = BUILTIN32_dlopen( dllname ))) goto error;
134 if (!(wm = MODULE_FindModule( path ))) wm = MODULE_FindModule( dllname );
137 ERR( "loaded .so but dll %s still not found\n", dllname );
138 /* wine_dll_unload( handle );*/
141 wm->dlhandle = handle;
145 SetLastError( ERROR_FILE_NOT_FOUND );
149 /***********************************************************************
152 * Initialize loading callbacks and return HMODULE of main exe.
153 * 'main' is the main exe in case if was already loaded from a PE file.
155 HMODULE BUILTIN32_LoadExeModule( HMODULE main )
158 wine_dll_set_callback( load_library );
160 MESSAGE( "No built-in EXE module loaded! Did you create a .spec file?\n" );
165 /***********************************************************************
166 * BUILTIN32_RegisterDLL
168 * Register a built-in DLL descriptor.
170 void BUILTIN32_RegisterDLL( const IMAGE_NT_HEADERS *header, const char *filename )
172 extern void __wine_dll_register( const IMAGE_NT_HEADERS *header, const char *filename );
173 __wine_dll_register( header, filename );