gmodule/gmodule-win32.c

   1 /* GMODULE - GLIB wrapper code for dynamic module loading
   2  * Copyright (C) 1998, 2000 Tim Janik
   3  *
   4  * Win32 GMODULE implementation
   5  * Copyright (C) 1998 Tor Lillqvist
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 /*
  22  * Modified by the GLib Team and others 1997-2000.  See the AUTHORS
  23  * file for a list of people on the GLib Team.  See the ChangeLog
  24  * files for a list of changes.  These files are distributed with
  25  * GLib at ftp://ftp.gtk.org/pub/gtk/.
  26  */
  27
  28 /*
  29  * MT safe
  30  */
  31 #include "config.h"
  32
  33 #include <stdio.h>
  34 #include <windows.h>
  35
  36 #include <tlhelp32.h>
  37
  38 #ifdef G_WITH_CYGWIN
  39 #include <sys/cygwin.h>
  40 #endif
  41
  42 static void
  43 set_error (const gchar *format,
  44            ...)
  45 {
  46   gchar *error;
  47   gchar *detail;
  48   gchar *message;
  49   va_list args;
  50
  51   error = g_win32_error_message (GetLastError ());
  52
  53   va_start (args, format);
  54   detail = g_strdup_vprintf (format, args);
  55   va_end (args);
  56
  57   message = g_strconcat (detail, error, NULL);
  58
  59   g_module_set_error (message);
  60   g_free (message);
  61   g_free (detail);
  62   g_free (error);
  63 }
  64
  65 /* --- functions --- */
  66 static gpointer
  67 _g_module_open (const gchar *file_name,
  68                 gboolean     bind_lazy,
  69                 gboolean     bind_local)
  70 {
  71   HINSTANCE handle;
  72   wchar_t *wfilename;
  73   DWORD old_mode;
  74   BOOL success;
  75 #ifdef G_WITH_CYGWIN
  76   gchar tmp[MAX_PATH];
  77
  78   cygwin_conv_to_win32_path(file_name, tmp);
  79   file_name = tmp;
  80 #endif
  81   wfilename = g_utf8_to_utf16 (file_name, -1, NULL, NULL, NULL);
  82
  83   /* suppress error dialog */
  84   success = SetThreadErrorMode (SEM_NOOPENFILEERRORBOX | SEM_FAILCRITICALERRORS, &old_mode);
  85   if (!success)
  86     set_error ("");
  87   handle = LoadLibraryW (wfilename);
  88   if (success)
  89     SetThreadErrorMode (old_mode, NULL);
  90   g_free (wfilename);
  91
  92   if (!handle)
  93     set_error ("'%s': ", file_name);
  94
  95   return handle;
  96 }
  97
  98 static gint dummy;
  99 static gpointer null_module_handle = &dummy;
 100
 101 static gpointer
 102 _g_module_self (void)
 103 {
 104   return null_module_handle;
 105 }
 106
 107 static void
 108 _g_module_close (gpointer handle,
 109                  gboolean is_unref)
 110 {
 111   if (handle != null_module_handle)
 112     if (!FreeLibrary (handle))
 113       set_error ("");
 114 }
 115
 116 static gpointer
 117 find_in_any_module_using_toolhelp (const gchar *symbol_name)
 118 {
 119   HANDLE snapshot;
 120   MODULEENTRY32 me32;
 121
 122   gpointer p;
 123
 124   if ((snapshot = CreateToolhelp32Snapshot (TH32CS_SNAPMODULE, 0)) == (HANDLE) -1)
 125     return NULL;
 126
 127   me32.dwSize = sizeof (me32);
 128   p = NULL;
 129   if (Module32First (snapshot, &me32))
 130     {
 131       do {
 132         if ((p = GetProcAddress (me32.hModule, symbol_name)) != NULL)
 133           break;
 134       } while (Module32Next (snapshot, &me32));
 135     }
 136
 137   CloseHandle (snapshot);
 138
 139   return p;
 140 }
 141
 142 static gpointer
 143 find_in_any_module (const gchar *symbol_name)
 144 {
 145   gpointer result;
 146
 147   if ((result = find_in_any_module_using_toolhelp (symbol_name)) == NULL)
 148     return NULL;
 149   else
 150     return result;
 151 }
 152
 153 static gpointer
 154 _g_module_symbol (gpointer     handle,
 155                   const gchar *symbol_name)
 156 {
 157   gpointer p;
 158
 159   if (handle == null_module_handle)
 160     {
 161       if ((p = GetProcAddress (GetModuleHandle (NULL), symbol_name)) == NULL)
 162         p = find_in_any_module (symbol_name);
 163     }
 164   else
 165     p = GetProcAddress (handle, symbol_name);
 166
 167   if (!p)
 168     set_error ("");
 169
 170   return p;
 171 }
 172
 173 static gchar*
 174 _g_module_build_path (const gchar *directory,
 175                       const gchar *module_name)
 176 {
 177   gint k;
 178
 179   k = strlen (module_name);
 180
 181   if (directory && *directory)
 182     if (k > 4 && g_ascii_strcasecmp (module_name + k - 4, ".dll") == 0)
 183       return g_strconcat (directory, G_DIR_SEPARATOR_S, module_name, NULL);
 184 #ifdef G_WITH_CYGWIN
 185     else if (strncmp (module_name, "lib", 3) == 0 || strncmp (module_name, "cyg", 3) == 0)
 186       return g_strconcat (directory, G_DIR_SEPARATOR_S, module_name, ".dll", NULL);
 187     else
 188       return g_strconcat (directory, G_DIR_SEPARATOR_S, "cyg", module_name, ".dll", NULL);
 189 #else
 190     else if (strncmp (module_name, "lib", 3) == 0)
 191       return g_strconcat (directory, G_DIR_SEPARATOR_S, module_name, ".dll", NULL);
 192     else
 193       return g_strconcat (directory, G_DIR_SEPARATOR_S, "lib", module_name, ".dll", NULL);
 194 #endif
 195   else if (k > 4 && g_ascii_strcasecmp (module_name + k - 4, ".dll") == 0)
 196     return g_strdup (module_name);
 197 #ifdef G_WITH_CYGWIN
 198   else if (strncmp (module_name, "lib", 3) == 0 || strncmp (module_name, "cyg", 3) == 0)
 199     return g_strconcat (module_name, ".dll", NULL);
 200   else
 201     return g_strconcat ("cyg", module_name, ".dll", NULL);
 202 #else
 203   else if (strncmp (module_name, "lib", 3) == 0)
 204     return g_strconcat (module_name, ".dll", NULL);
 205   else
 206     return g_strconcat ("lib", module_name, ".dll", NULL);
 207 #endif
 208 }