mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2025-01-13 15:56:23 +01:00
f477518c3a
* README.win32: More text. * config.h.win32 glibconfig.h.win32: Update to match the corresponding generated files on Unix. * makefile.msc: Update with new source files, and gthread library. Use the compiler flag -MD instead of using -D_DLL and "/nodefaultlib:libc msvcrt.lib" in the link phase. * glib.def: Include new functions, drop removed ones. * glib.h: Add comments about main loop and polling on Win32. (In general, it's only for the GIMP's use.) Add Win32 IO Channel functions. Remove the obsoleted old IO Channel stuff (which was in #if 0 already). * giowin32.c: New file. * gmain.c: Include config.h, conditionalize <sys/time.h> inclusion. Add g_poll implementation for Win32 (only for the GIMP's needs for now, it's hard or even impossible to be as clean and generic as on Unix). Implement g_get_current_time on Win32. If threads aren't supported, don't try to wake up main thread's loop. On Win32, use a semaphore and not a pipe to wake up the main loop. * gmessages.c: On Win32, allocate a console window if the standard output handle is invalid before writing to stdout, and reopen stdout to that console window. * giochannel.c: Conditionalize unistd.h inclusion. Some indentation cleanup. * gstrfuncs.c: Include <signal.h>. * gutils.c: On Win32, also check the HOMEDRIVE and HOMEPATH environment variables. * gmodule-dl.c gmodule-dld.c: In _g_module_build_path, don't add the "lib" prefix and ".so" or ".sl" suffix if already there. * gmodule-win32.c: Likewise for the ".dll" suffix. * gthread-posix.c: Conditionalize <sys/time.h> inclusion.
138 lines
3.5 KiB
C
138 lines
3.5 KiB
C
/* GMODULE - GLIB wrapper code for dynamic module loading
|
|
* Copyright (C) 1998 Tim Janik
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Library 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
|
|
* Library General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Library 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.
|
|
*/
|
|
|
|
/*
|
|
* 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
|
|
# ifdef __NetBSD__
|
|
# define dlerror() g_strerror (errno)
|
|
# else /* !__NetBSD__ */
|
|
/* could we rely on errno's state here? */
|
|
# define dlerror() "unknown dl-error"
|
|
# endif /* !__NetBSD__ */
|
|
#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)
|
|
{
|
|
gpointer handle;
|
|
|
|
handle = dlopen (file_name, 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.
|
|
*/
|
|
|
|
handle = dlopen (NULL, RTLD_GLOBAL | RTLD_LAZY);
|
|
if (!handle)
|
|
g_module_set_error (dlerror ());
|
|
|
|
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)
|
|
{
|
|
if (dlclose (handle) != 0)
|
|
g_module_set_error (dlerror ());
|
|
}
|
|
}
|
|
|
|
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)
|
|
{
|
|
if (directory && *directory)
|
|
if (strncmp (module_name, "lib", 3) == 0)
|
|
return g_strconcat (directory, "/", module_name, NULL);
|
|
else
|
|
return g_strconcat (directory, "/lib", module_name, ".so", NULL);
|
|
else if (strncmp (module_name, "lib", 3) == 0)
|
|
return g_strdup (module_name);
|
|
else
|
|
return g_strconcat ("lib", module_name, ".so", NULL);
|
|
}
|