mirror of
https://gitlab.gnome.org/GNOME/glib.git
synced 2024-12-25 15:06:14 +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.
135 lines
3.9 KiB
C
135 lines
3.9 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 <dl.h>
|
|
|
|
|
|
/* some flags are missing on some systems, so we provide
|
|
* harmless defaults.
|
|
*
|
|
* Mandatory:
|
|
* BIND_IMMEDIATE - Resolve symbol references when the library is loaded.
|
|
* BIND_DEFERRED - Delay code symbol resolution until actual reference.
|
|
*
|
|
* Optionally:
|
|
* BIND_FIRST - Place the library at the head of the symbol search order.
|
|
* BIND_NONFATAL - The default BIND_IMMEDIATE behavior is to treat all unsatisfied
|
|
* symbols as fatal. This flag allows binding of unsatisfied code
|
|
* symbols to be deferred until use.
|
|
* [Perl: For certain libraries, like DCE, deferred binding often
|
|
* causes run time problems. Adding BIND_NONFATAL to BIND_IMMEDIATE
|
|
* still allows unresolved references in situations like this.]
|
|
* BIND_NOSTART - Do not call the initializer for the shared library when the
|
|
* library is loaded, nor on a future call to shl_unload().
|
|
* BIND_VERBOSE - Print verbose messages concerning possible unsatisfied symbols.
|
|
*
|
|
* hp9000s700/hp9000s800:
|
|
* BIND_RESTRICTED - Restrict symbols visible by the library to those present at
|
|
* library load time.
|
|
* DYNAMIC_PATH - Allow the loader to dynamically search for the library specified
|
|
* by the path argument.
|
|
*/
|
|
#ifndef DYNAMIC_PATH
|
|
#define DYNAMIC_PATH 0
|
|
#endif /* DYNAMIC_PATH */
|
|
#ifndef BIND_RESTRICTED
|
|
#define BIND_RESTRICTED 0
|
|
#endif /* BIND_RESTRICTED */
|
|
|
|
#define OPT_BIND_FLAGS (BIND_NONFATAL | BIND_VERBOSE)
|
|
|
|
|
|
/* --- functions --- */
|
|
static gpointer
|
|
_g_module_open (const gchar *file_name,
|
|
gboolean bind_lazy)
|
|
{
|
|
shl_t shl_handle;
|
|
|
|
shl_handle = shl_load (file_name,
|
|
(bind_lazy ? BIND_DEFERRED : BIND_IMMEDIATE) | OPT_BIND_FLAGS, 0);
|
|
if (!shl_handle)
|
|
{
|
|
/* the hp-docs say we should better abort() if errno==ENOSYM ;( */
|
|
g_module_set_error (g_strerror (errno));
|
|
}
|
|
|
|
return (gpointer) shl_handle;
|
|
}
|
|
|
|
static gpointer
|
|
_g_module_self (void)
|
|
{
|
|
shl_t shl_handle;
|
|
|
|
shl_handle = PROG_HANDLE;
|
|
if (!shl_handle)
|
|
g_module_set_error (g_strerror (errno));
|
|
|
|
return shl_handle;
|
|
}
|
|
|
|
static void
|
|
_g_module_close (gpointer handle,
|
|
gboolean is_unref)
|
|
{
|
|
if (!is_unref)
|
|
{
|
|
if (shl_unload ((shl_t) handle) != 0)
|
|
g_module_set_error (g_strerror (errno));
|
|
}
|
|
}
|
|
|
|
static gpointer
|
|
_g_module_symbol (gpointer handle,
|
|
const gchar *symbol_name)
|
|
{
|
|
gpointer p = NULL;
|
|
|
|
/* should we restrict lookups to TYPE_PROCEDURE?
|
|
*/
|
|
if (shl_findsym ((shl_t*) &handle, symbol_name, TYPE_UNDEFINED, &p) != 0 ||
|
|
handle == NULL || p == NULL)
|
|
{
|
|
/* the hp-docs say we should better abort() if errno==ENOSYM ;( */
|
|
g_module_set_error (g_strerror (errno));
|
|
}
|
|
|
|
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, ".sl", NULL);
|
|
else if (strncmp (module_name, "lib", 3) == 0)
|
|
return g_strdup (module_name);
|
|
else
|
|
return g_strconcat ("lib", module_name, ".sl", NULL);
|
|
}
|