relay32/builtin32.c

   1 /*
   2  * Win32 builtin functions
   3  *
   4  * Copyright 1997 Alexandre Julliard
   5  */
   6
   7 #include "config.h"
   8
   9 #include <assert.h>
  10 #include <string.h>
  11 #include <stdio.h>
  12 #include <ctype.h>
  13 #ifdef HAVE_DL_API
  14 #include <dlfcn.h>
  15 #endif
  16 #include <sys/types.h>
  17 #ifdef HAVE_SYS_MMAN_H
  18 #include <sys/mman.h>
  19 #endif
  20
  21 #include "windef.h"
  22 #include "wine/winbase16.h"
  23 #include "wine/library.h"
  24 #include "elfdll.h"
  25 #include "global.h"
  26 #include "neexe.h"
  27 #include "heap.h"
  28 #include "main.h"
  29 #include "winerror.h"
  30 #include "server.h"
  31 #include "debugtools.h"
  32
  33 DEFAULT_DEBUG_CHANNEL(module);
  34 DECLARE_DEBUG_CHANNEL(relay);
  35
  36 extern void RELAY_SetupDLL( const char *module );
  37
  38 static HMODULE main_module;
  39
  40 /***********************************************************************
  41  *           BUILTIN32_dlopen
  42  */
  43 void *BUILTIN32_dlopen( const char *name )
  44 {
  45 #ifdef HAVE_DL_API
  46     void *handle;
  47
  48     if (!(handle = wine_dll_load( name )))
  49     {
  50         LPSTR pErr, p;
  51         pErr = dlerror();
  52         p = strchr(pErr, ':');
  53         if ((p) &&
  54            (!strncmp(p, ": undefined symbol", 18))) /* undef symbol -> ERR() */
  55             ERR("failed to load %s: %s\n", name, pErr);
  56         else /* WARN() for libraries that are supposed to be native */
  57             WARN("failed to load %s: %s\n", name, pErr );
  58     }
  59     return handle;
  60 #else
  61     return NULL;
  62 #endif
  63 }
  64
  65 /***********************************************************************
  66  *           BUILTIN32_dlclose
  67  */
  68 int BUILTIN32_dlclose( void *handle )
  69 {
  70 #ifdef HAVE_DL_API
  71     /* FIXME: should unregister descriptors first */
  72     /* return dlclose( handle ); */
  73 #endif
  74     return 0;
  75 }
  76
  77
  78 /***********************************************************************
  79  *           load_library
  80  *
  81  * Load a library in memory; callback function for wine_dll_register
  82  */
  83 static void load_library( void *base, const char *filename )
  84 {
  85     HMODULE module = (HMODULE)base;
  86     WINE_MODREF *wm;
  87
  88     if (!base)
  89     {
  90         ERR("could not map image for %s\n", filename ? filename : "main exe" );
  91         return;
  92     }
  93
  94     if (!(PE_HEADER(module)->FileHeader.Characteristics & IMAGE_FILE_DLL))
  95     {
  96         /* if we already have an executable, ignore this one */
  97         if (!main_module) main_module = module;
  98         return; /* don't create the modref here, will be done later on */
  99     }
 100
 101     if (GetModuleHandleA( filename ))
 102         MESSAGE( "Warning: loading builtin %s, but native version already present. Expect trouble.\n", filename );
 103
 104     /* Create 32-bit MODREF */
 105     if (!(wm = PE_CreateModule( module, filename, 0, -1, TRUE )))
 106     {
 107         ERR( "can't load %s\n", filename );
 108         SetLastError( ERROR_OUTOFMEMORY );
 109         return;
 110     }
 111     TRACE( "loaded %s %p %x\n", filename, wm, module );
 112     wm->refCount++;  /* we don't support freeing builtin dlls (FIXME)*/
 113
 114     /* setup relay debugging entry points */
 115     if (TRACE_ON(relay)) RELAY_SetupDLL( (void *)module );
 116 }
 117
 118
 119 /***********************************************************************
 120  *           BUILTIN32_LoadLibraryExA
 121  *
 122  * Partly copied from the original PE_ version.
 123  *
 124  */
 125 WINE_MODREF *BUILTIN32_LoadLibraryExA(LPCSTR path, DWORD flags)
 126 {
 127     WINE_MODREF   *wm;
 128     char dllname[20], *p;
 129     LPCSTR name;
 130     void *handle;
 131
 132     /* Fix the name in case we have a full path and extension */
 133     name = path;
 134     if ((p = strrchr( name, '\\' ))) name = p + 1;
 135     if ((p = strrchr( name, '/' ))) name = p + 1;
 136
 137     if (strlen(name) >= sizeof(dllname)-4) goto error;
 138
 139     strcpy( dllname, name );
 140     p = strrchr( dllname, '.' );
 141     if (!p) strcat( dllname, ".dll" );
 142
 143     if (!(handle = BUILTIN32_dlopen( dllname ))) goto error;
 144
 145     if (!(wm = MODULE_FindModule( path ))) wm = MODULE_FindModule( dllname );
 146     if (!wm)
 147     {
 148         ERR( "loaded .so but dll %s still not found\n", dllname );
 149         /* wine_dll_unload( handle );*/
 150         return NULL;
 151     }
 152     wm->dlhandle = handle;
 153     return wm;
 154
 155  error:
 156     SetLastError( ERROR_FILE_NOT_FOUND );
 157     return NULL;
 158 }
 159
 160 /***********************************************************************
 161  *           BUILTIN32_Init
 162  *
 163  * Initialize loading callbacks and return HMODULE of main exe.
 164  * 'main' is the main exe in case if was already loaded from a PE file.
 165  */
 166 HMODULE BUILTIN32_LoadExeModule( HMODULE main )
 167 {
 168     main_module = main;
 169     wine_dll_set_callback( load_library );
 170     if (!main_module)
 171         MESSAGE( "No built-in EXE module loaded!  Did you create a .spec file?\n" );
 172     return main_module;
 173 }
 174
 175
 176 /***********************************************************************
 177  *           BUILTIN32_RegisterDLL
 178  *
 179  * Register a built-in DLL descriptor.
 180  */
 181 void BUILTIN32_RegisterDLL( const IMAGE_NT_HEADERS *header, const char *filename )
 182 {
 183     extern void __wine_dll_register( const IMAGE_NT_HEADERS *header, const char *filename );
 184     __wine_dll_register( header, filename );
 185 }