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 Library General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2 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  * Library General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Library General Public
  18  * License along with this library; if not, write to the
  19  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20  * Boston, MA 02111-1307, USA.
  21  */
  22
  23 /*
  24  * Modified by the GLib Team and others 1997-1999.  See the AUTHORS
  25  * file for a list of people on the GLib Team.  See the ChangeLog
  26  * files for a list of changes.  These files are distributed with
  27  * GLib at ftp://ftp.gtk.org/pub/gtk/.
  28  */
  29
  30 /*
  31  * MT safe
  32  */
  33
  34 #include <stdio.h>
  35 #include <windows.h>
  36
  37 /* --- functions --- */
  38 static gpointer
  39 _g_module_open (const gchar *file_name,
  40                 gboolean     bind_lazy)
  41 {
  42   HINSTANCE handle;
  43
  44   handle = LoadLibrary (file_name);
  45   if (!handle)
  46     {
  47       gchar error[100];
  48
  49       sprintf (error, "Error code %d", GetLastError ());
  50       g_module_set_error (error);
  51     }
  52
  53   return handle;
  54 }
  55
  56 static gpointer
  57 _g_module_self (void)
  58 {
  59   HMODULE handle;
  60
  61   handle = GetModuleHandle (NULL);
  62   if (!handle)
  63     {
  64       gchar error[100];
  65
  66       sprintf (error, "Error code %d", GetLastError ());
  67       g_module_set_error (error);
  68     }
  69
  70   return handle;
  71 }
  72
  73 static void
  74 _g_module_close (gpointer handle,
  75                  gboolean is_unref)
  76 {
  77   if (!FreeLibrary (handle))
  78     {
  79       gchar error[100];
  80
  81       sprintf (error, "Error code %d", GetLastError ());
  82       g_module_set_error (error);
  83     }
  84 }
  85
  86 static gpointer
  87 _g_module_symbol (gpointer     handle,
  88                   const gchar *symbol_name)
  89 {
  90   gpointer p;
  91
  92   p = GetProcAddress (handle, symbol_name);
  93   if (!p)
  94     {
  95       gchar error[100];
  96
  97       sprintf (error, "Error code %d", GetLastError ());
  98       g_module_set_error (error);
  99     }
 100
 101   return p;
 102 }
 103
 104 static gchar*
 105 _g_module_build_path (const gchar *directory,
 106                       const gchar *module_name)
 107 {
 108   gint k;
 109
 110   k = strlen (module_name);
 111   if (directory && *directory)
 112     if (k > 4 && g_strcasecmp (module_name + k - 4, ".dll") == 0)
 113       return g_strconcat (directory, "\\", module_name, NULL);
 114     else
 115       return g_strconcat (directory, "\\", module_name, ".dll", NULL);
 116   else if (k > 4 && g_strcasecmp (module_name + k - 4, ".dll") == 0)
 117     return g_strdup (module_name);
 118   else
 119     return g_strconcat (module_name, ".dll", NULL);
 120 }