/* GMODULE - GLIB wrapper code for dynamic module loading * Copyright (C) 1998, 2000 Tim Janik * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ /* * Modified by the GLib Team and others 1997-2000. See the AUTHORS * file for a list of people on the GLib Team. See the ChangeLog * files for a list of changes. These files are distributed with * GLib at ftp://ftp.gtk.org/pub/gtk/. */ /* * MT safe */ #include <dlfcn.h> /* Perl includes <nlist.h> and <link.h> instead of <dlfcn.h> on some systmes? */ /* dlerror() is not implemented on all systems */ #ifndef G_MODULE_HAVE_DLERROR /* could we rely on errno's state here? */ # define dlerror() "unknown dl-error" #endif /* G_MODULE_HAVE_DLERROR */ /* some flags are missing on some systems, so we provide * harmless defaults. * The Perl sources say, RTLD_LAZY needs to be defined as (1), * at least for Solaris 1. * * Mandatory: * RTLD_LAZY - resolve undefined symbols as code from the dynamic library * is executed. * RTLD_NOW - resolve all undefined symbols before dlopen returns, and fail * if this cannot be done. * Optionally: * RTLD_GLOBAL - the external symbols defined in the library will be made * available to subsequently loaded libraries. */ #ifndef RTLD_GLOBAL #define RTLD_GLOBAL 0 #endif /* RTLD_GLOBAL */ #ifndef RTLD_LAZY #define RTLD_LAZY 1 #endif /* RTLD_LAZY */ #ifndef RTLD_NOW #define RTLD_NOW 0 #endif /* RTLD_NOW */ /* --- functions --- */ static gpointer _g_module_open (const gchar *file_name, gboolean bind_lazy, gboolean bind_local) { gpointer handle; handle = dlopen (file_name, (bind_local ? 0 : RTLD_GLOBAL) | (bind_lazy ? RTLD_LAZY : RTLD_NOW)); if (!handle) g_module_set_error (dlerror ()); return handle; } static gpointer _g_module_self (void) { gpointer handle; /* to query symbols from the program itself, special link options * are required on some systems. */ /* XXX, not supported */ handle = NULL; g_module_set_error ("module handle for self not supported"); return handle; } static void _g_module_close (gpointer handle, gboolean is_unref) { /* are there any systems out there that have dlopen()/dlclose() * without a reference count implementation? */ is_unref |= 1; if (is_unref) { /* XXX, no return code */ dlclose (handle); } } static gpointer _g_module_symbol (gpointer handle, const gchar *symbol_name) { gpointer p; p = dlsym (handle, symbol_name); if (!p) g_module_set_error (dlerror ()); return p; } static gchar* _g_module_build_path (const gchar *directory, const gchar *module_name) { gchar *suffix = strrchr(module_name, '.'); if (directory && *directory) if (suffix && (stricmp (suffix, ".dll") == 0)) return g_strconcat (directory, "/", module_name, NULL); else return g_strconcat (directory, "/", module_name, ".dll", NULL); else if (suffix && (stricmp (suffix, ".dll") == 0)) return g_strdup (module_name); else return g_strconcat (module_name, ".dll", NULL); }