mono/utils/mono-dl-windows.c

   1 /**
   2  * \file
   3  * Interface to the dynamic linker
   4  *
   5  * Author:
   6  *    Mono Team (http://www.mono-project.com)
   7  *
   8  * Copyright 2001-2004 Ximian, Inc.
   9  * Copyright 2004-2009 Novell, Inc.
  10  * Licensed under the MIT license. See LICENSE file in the project root for full license information.
  11  */
  12 #include <config.h>
  13
  14 #if defined(HOST_WIN32)
  15
  16 #include "mono/utils/mono-dl.h"
  17 #include "mono/utils/mono-dl-windows-internals.h"
  18 #include "mono/utils/mono-embed.h"
  19 #include "mono/utils/mono-path.h"
  20 #include "mono/metadata/w32subset.h"
  21
  22 #include <stdlib.h>
  23 #include <stdio.h>
  24 #include <ctype.h>
  25 #include <string.h>
  26 #include <glib.h>
  27
  28 #include <windows.h>
  29 #include <psapi.h>
  30
  31 const char*
  32 mono_dl_get_so_prefix (void)
  33 {
  34         return "";
  35 }
  36
  37 const char**
  38 mono_dl_get_so_suffixes (void)
  39 {
  40         static const char *suffixes[] = {
  41                 ".dll",
  42                 "",
  43         };
  44         return suffixes;
  45 }
  46
  47 void*
  48 mono_dl_open_file (const char *file, int flags)
  49 {
  50         gpointer hModule = NULL;
  51         if (file) {
  52                 gunichar2* file_utf16 = g_utf8_to_utf16 (file, strlen (file), NULL, NULL, NULL);
  53
  54 #if HAVE_API_SUPPORT_WIN32_SET_ERROR_MODE
  55                 guint last_sem = SetErrorMode (SEM_FAILCRITICALERRORS);
  56 #endif
  57                 guint32 last_error = 0;
  58
  59 #if HAVE_API_SUPPORT_WIN32_LOAD_LIBRARY
  60                 hModule = LoadLibraryW (file_utf16);
  61 #elif HAVE_API_SUPPORT_WIN32_LOAD_PACKAGED_LIBRARY
  62                 hModule = LoadPackagedLibrary (file_utf16, NULL);
  63 #else
  64                 g_assert_not_reached ();
  65 #endif
  66                 if (!hModule)
  67                         last_error = GetLastError ();
  68
  69 #if HAVE_API_SUPPORT_WIN32_SET_ERROR_MODE
  70                 SetErrorMode (last_sem);
  71 #endif
  72
  73                 g_free (file_utf16);
  74
  75                 if (!hModule)
  76                         SetLastError (last_error);
  77         } else {
  78 #if HAVE_API_SUPPORT_WIN32_GET_MODULE_HANDLE
  79                 hModule = GetModuleHandleW (NULL);
  80 #else
  81                 g_assert_not_reached ();
  82 #endif
  83         }
  84         return hModule;
  85 }
  86
  87 void
  88 mono_dl_close_handle (MonoDl *module)
  89 {
  90         if (!module->main_module)
  91                 FreeLibrary ((HMODULE)module->handle);
  92 }
  93
  94 #if G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT)
  95 void*
  96 mono_dl_lookup_symbol_in_process (const char *symbol_name)
  97 {
  98         HMODULE *modules;
  99         DWORD buffer_size = sizeof (HMODULE) * 1024;
 100         DWORD needed, i;
 101         gpointer proc = NULL;
 102
 103         /* get the symbol from the loaded DLLs */
 104         modules = (HMODULE *) g_malloc (buffer_size);
 105         if (modules == NULL)
 106                 return NULL;
 107
 108         if (!EnumProcessModules (GetCurrentProcess (), modules,
 109                                  buffer_size, &needed)) {
 110                 g_free (modules);
 111                 return NULL;
 112         }
 113
 114         /* check whether the supplied buffer was too small, realloc, retry */
 115         if (needed > buffer_size) {
 116                 g_free (modules);
 117
 118                 buffer_size = needed;
 119                 modules = (HMODULE *) g_malloc (buffer_size);
 120
 121                 if (modules == NULL)
 122                         return NULL;
 123
 124                 if (!EnumProcessModules (GetCurrentProcess (), modules,
 125                                          buffer_size, &needed)) {
 126                         g_free (modules);
 127                         return NULL;
 128                 }
 129         }
 130
 131         for (i = 0; i < needed / sizeof (HANDLE); i++) {
 132                 proc = (gpointer)GetProcAddress (modules [i], symbol_name);
 133                 if (proc != NULL) {
 134                         g_free (modules);
 135                         return proc;
 136                 }
 137         }
 138
 139         g_free (modules);
 140         return NULL;
 141 }
 142 #endif /* G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT) */
 143
 144 void*
 145 mono_dl_lookup_symbol (MonoDl *module, const char *symbol_name)
 146 {
 147         gpointer proc = NULL;
 148
 149         /* get the symbol directly from the specified module */
 150         if (!module->main_module)
 151                 return (void*)GetProcAddress ((HMODULE)module->handle, symbol_name);
 152
 153         /* get the symbol from the main module */
 154         proc = (gpointer)GetProcAddress ((HMODULE)module->handle, symbol_name);
 155         if (proc != NULL)
 156                 return proc;
 157
 158         /* get the symbol from the loaded DLLs */
 159         return mono_dl_lookup_symbol_in_process (symbol_name);
 160 }
 161
 162 int
 163 mono_dl_convert_flags (int flags)
 164 {
 165         return 0;
 166 }
 167
 168 #if G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT)
 169 char*
 170 mono_dl_current_error_string (void)
 171 {
 172         char* ret = NULL;
 173         wchar_t* buf = NULL;
 174         DWORD code = GetLastError ();
 175
 176         if (FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_IGNORE_INSERTS, NULL,
 177                 code, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPTSTR)&buf, 0, NULL))
 178         {
 179                 ret = g_utf16_to_utf8 (buf, wcslen(buf), NULL, NULL, NULL);
 180                 LocalFree (buf);
 181         } else {
 182                 g_assert_not_reached ();
 183         }
 184         return ret;
 185 }
 186 #endif /* G_HAVE_API_SUPPORT(HAVE_CLASSIC_WINAPI_SUPPORT) */
 187
 188 int
 189 mono_dl_get_executable_path (char *buf, int buflen)
 190 {
 191         return -1; //TODO
 192 }
 193
 194 const char*
 195 mono_dl_get_system_dir (void)
 196 {
 197         return NULL;
 198 }
 199
 200 #else
 201
 202 #include <mono/utils/mono-compiler.h>
 203
 204 MONO_EMPTY_SOURCE_FILE (mono_dl_windows);
 205
 206 #endif