mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-22 16:33:29 +00:00
dda81bc500
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@18795 72102866-910b-0410-8b05-ffd578937521
121 lines
2.7 KiB
C
121 lines
2.7 KiB
C
/*
|
|
simple-load - Definitions and translations for dynamic loading with
|
|
the simple dynamic liading library (dl).
|
|
|
|
Copyright (C) 1995, Free Software Foundation
|
|
|
|
BUGS:
|
|
- In SunOS 4.1, dlopen will only resolve references into the main
|
|
module and not into other modules loaded earlier. dlopen will exit
|
|
if there are undefined symbols. Later versions (e.g. 5.3) fix this
|
|
with RTLD_GLOBAL.
|
|
|
|
*/
|
|
|
|
#ifndef __simple_load_h_INCLUDE
|
|
#define __simple_load_h_INCLUDE
|
|
|
|
#ifndef __USE_GNU
|
|
#define __USE_GNU
|
|
#endif
|
|
#include <dlfcn.h>
|
|
|
|
/* This is the GNU name for the CTOR list */
|
|
#define CTOR_LIST "__CTOR_LIST__"
|
|
|
|
#ifndef RTLD_GLOBAL
|
|
#define RTLD_GLOBAL 0
|
|
#endif
|
|
#ifndef RTLD_DEFAULT
|
|
#define RTLD_DEFAULT 0
|
|
#endif
|
|
|
|
/* Types defined appropriately for the dynamic linker */
|
|
typedef void* dl_handle_t;
|
|
typedef void* dl_symbol_t;
|
|
|
|
/* Do any initialization necessary. Return 0 on success (or
|
|
if no initialization needed.
|
|
*/
|
|
static int
|
|
__objc_dynamic_init(const char* exec_path)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
/* Link in the module given by the name 'module'. Return a handle which can
|
|
be used to get information about the loded code.
|
|
*/
|
|
static dl_handle_t
|
|
__objc_dynamic_link(const char* module, int mode, const char* debug_file)
|
|
{
|
|
return (dl_handle_t)dlopen(module, RTLD_LAZY | RTLD_GLOBAL);
|
|
}
|
|
|
|
/* Return the address of a symbol given by the name 'symbol' from the module
|
|
* associated with 'handle'
|
|
* This function is not always used, so we mark it as unused to avoid warnings.
|
|
*/
|
|
static dl_symbol_t
|
|
__objc_dynamic_find_symbol(dl_handle_t handle, const char* symbol)
|
|
__attribute__((unused));
|
|
static dl_symbol_t
|
|
__objc_dynamic_find_symbol(dl_handle_t handle, const char* symbol)
|
|
{
|
|
return dlsym(handle, (char*)symbol);
|
|
}
|
|
|
|
/* remove the code from memory associated with the module 'handle' */
|
|
static int
|
|
__objc_dynamic_unlink(dl_handle_t handle)
|
|
{
|
|
return dlclose(handle);
|
|
}
|
|
|
|
/* Print an error message (prefaced by 'error_string') relevant to the
|
|
last error encountered
|
|
*/
|
|
static void
|
|
__objc_dynamic_error(FILE *error_stream, const char *error_string)
|
|
{
|
|
fprintf(error_stream, "%s:%s\n", error_string, dlerror());
|
|
}
|
|
|
|
/* Debugging: define these if they are available */
|
|
static int
|
|
__objc_dynamic_undefined_symbol_count(void)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
static char**
|
|
__objc_dynamic_list_undefined_symbols(void)
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
static const char *
|
|
__objc_dynamic_get_symbol_path(dl_handle_t handle, dl_symbol_t symbol)
|
|
{
|
|
#ifdef HAVE_DLADDR
|
|
dl_symbol_t sym;
|
|
Dl_info info;
|
|
|
|
if (handle == 0)
|
|
handle = RTLD_DEFAULT;
|
|
|
|
sym = dlsym(handle, symbol);
|
|
|
|
if (!sym)
|
|
return NULL;
|
|
|
|
if (!dladdr(sym, &info))
|
|
return NULL;
|
|
|
|
return info.dli_fname;
|
|
#else
|
|
return NULL;
|
|
#endif
|
|
}
|
|
|
|
#endif /* __simple_load_h_INCLUDE */
|