mirror of git://gcc.gnu.org/git/gcc.git
1985 lines
42 KiB
C
1985 lines
42 KiB
C
/* ltdl.c -- system independent dlopen wrapper
|
|
Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
|
|
Originally by Thomas Tanner <tanner@ffii.org>
|
|
This file is part of GNU Libtool.
|
|
|
|
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.
|
|
|
|
As a special exception to the GNU Lesser General Public License,
|
|
if you distribute this file as part of a program or library that
|
|
is built using GNU libtool, you may include it under the same
|
|
distribution terms that you use for the rest of that program.
|
|
|
|
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
|
|
|
|
*/
|
|
|
|
#define _LTDL_COMPILE_
|
|
|
|
#if HAVE_CONFIG_H
|
|
#include <config.h>
|
|
#endif
|
|
|
|
#if HAVE_STRING_H
|
|
#include <string.h>
|
|
#endif
|
|
|
|
#if HAVE_STRINGS_H
|
|
#include <strings.h>
|
|
#endif
|
|
|
|
#if HAVE_CTYPE_H
|
|
#include <ctype.h>
|
|
#endif
|
|
|
|
#if HAVE_MALLOC_H
|
|
#include <malloc.h>
|
|
#endif
|
|
|
|
#if HAVE_MEMORY_H
|
|
#include <memory.h>
|
|
#endif
|
|
|
|
#if HAVE_STDLIB_H
|
|
#include <stdlib.h>
|
|
#endif
|
|
|
|
#if HAVE_STDIO_H
|
|
#include <stdio.h>
|
|
#endif
|
|
|
|
#if HAVE_BOEHM_GC
|
|
#include <gc.h>
|
|
#endif
|
|
|
|
#include "ltdl.h"
|
|
|
|
#ifdef DLL_EXPORT
|
|
# define LTDL_GLOBAL_DATA __declspec(dllexport)
|
|
#else
|
|
# define LTDL_GLOBAL_DATA
|
|
#endif
|
|
|
|
/* max. filename length */
|
|
#ifndef LTDL_FILENAME_MAX
|
|
#define LTDL_FILENAME_MAX 1024
|
|
#endif
|
|
|
|
#undef LTDL_READTEXT_MODE
|
|
/* fopen() mode flags for reading a text file */
|
|
#ifdef _WIN32
|
|
#define LTDL_READTEXT_MODE "rt"
|
|
#else
|
|
#define LTDL_READTEXT_MODE "r"
|
|
#endif
|
|
|
|
#undef LTDL_SYMBOL_LENGTH
|
|
/* This is the maximum symbol size that won't require malloc/free */
|
|
#define LTDL_SYMBOL_LENGTH 128
|
|
|
|
#undef LTDL_SYMBOL_OVERHEAD
|
|
/* This accounts for the _LTX_ separator */
|
|
#define LTDL_SYMBOL_OVERHEAD 5
|
|
|
|
/* NOTE: typedefed in ltdl.h
|
|
This structure is used for the list of registered loaders. */
|
|
struct lt_dlloader_t {
|
|
struct lt_dlloader_t *next;
|
|
const char *loader_name; /* identifying name for each loader */
|
|
const char *sym_prefix; /* prefix for symbols */
|
|
lt_module_open_t *module_open;
|
|
lt_module_close_t *module_close;
|
|
lt_find_sym_t *find_sym;
|
|
lt_dlloader_exit_t *dlloader_exit;
|
|
lt_dlloader_data_t dlloader_data;
|
|
};
|
|
|
|
typedef struct lt_dlhandle_t {
|
|
struct lt_dlhandle_t *next;
|
|
lt_dlloader_t *loader; /* dlopening interface */
|
|
lt_dlinfo info;
|
|
int depcount; /* number of dependencies */
|
|
lt_dlhandle *deplibs; /* dependencies */
|
|
lt_module_t module; /* system module handle */
|
|
lt_ptr_t system; /* system specific data */
|
|
lt_ptr_t app_private; /* application private data */
|
|
} lt_dlhandle_t;
|
|
|
|
static const char objdir[] = LTDL_OBJDIR;
|
|
#ifdef LTDL_SHLIB_EXT
|
|
static const char shlib_ext[] = LTDL_SHLIB_EXT;
|
|
#endif
|
|
#ifdef LTDL_SYSSEARCHPATH
|
|
static const char sys_search_path[] = LTDL_SYSSEARCHPATH;
|
|
#endif
|
|
|
|
/* Extract the diagnostic strings from the error table macro in the same
|
|
order as the enumberated indices in ltdl.h. */
|
|
#define LTDL_ERROR(name, diagnostic) (diagnostic),
|
|
static const char *ltdl_error_strings[] = {
|
|
ltdl_error_table
|
|
0
|
|
};
|
|
#undef LTDL_ERROR
|
|
|
|
#ifdef __STDC__
|
|
# define LT_DLSTRERROR(name) ltdl_error_strings[LTDL_ERROR_##name]
|
|
#else
|
|
# define LT_DLSTRERROR(name) ltdl_error_strings[LTDL_ERROR_/**/name]
|
|
#endif
|
|
|
|
static const char *last_error = 0;
|
|
|
|
LTDL_GLOBAL_DATA lt_ptr_t (*lt_dlmalloc) LTDL_PARAMS((size_t size)) = (lt_ptr_t(*)LTDL_PARAMS((size_t)))malloc;
|
|
LTDL_GLOBAL_DATA void (*lt_dlfree) LTDL_PARAMS((lt_ptr_t ptr)) = (void(*)LTDL_PARAMS((lt_ptr_t)))free;
|
|
|
|
#undef strdup
|
|
#define strdup xstrdup
|
|
|
|
static inline char *
|
|
strdup(str)
|
|
const char *str;
|
|
{
|
|
char *tmp;
|
|
|
|
if (!str)
|
|
return 0;
|
|
tmp = (char*) lt_dlmalloc(strlen(str)+1);
|
|
if (tmp)
|
|
strcpy(tmp, str);
|
|
return tmp;
|
|
}
|
|
|
|
#if ! HAVE_STRCMP
|
|
|
|
#undef strcmp
|
|
#define strcmp xstrcmp
|
|
|
|
static inline int
|
|
strcmp (str1, str2)
|
|
const char *str1;
|
|
const char *str2;
|
|
{
|
|
if (str1 == str2)
|
|
return 0;
|
|
if (str1 == 0)
|
|
return -1;
|
|
if (str2 == 0)
|
|
return 1;
|
|
|
|
for (;*str1 && *str2; str1++, str2++)
|
|
if (*str1 != *str2)
|
|
break;
|
|
|
|
return (int)(*str1 - *str2);
|
|
}
|
|
#endif
|
|
|
|
|
|
#if ! HAVE_STRCHR
|
|
|
|
# if HAVE_INDEX
|
|
|
|
# define strchr index
|
|
|
|
# else
|
|
|
|
# define strchr xstrchr
|
|
|
|
static inline const char*
|
|
strchr(str, ch)
|
|
const char *str;
|
|
int ch;
|
|
{
|
|
const char *p;
|
|
|
|
for (p = str; *p != (char)ch && *p != '\0'; p++)
|
|
/*NOWORK*/;
|
|
|
|
return (*p == (char)ch) ? p : 0;
|
|
}
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
#if ! HAVE_STRRCHR
|
|
|
|
# if HAVE_RINDEX
|
|
|
|
# define strrchr rindex
|
|
|
|
# else
|
|
|
|
# define strrchr xstrrchr
|
|
|
|
static inline const char*
|
|
strrchr(str, ch)
|
|
const char *str;
|
|
int ch;
|
|
{
|
|
const char *p;
|
|
|
|
for (p = str; *p != '\0'; p++)
|
|
/*NOWORK*/;
|
|
|
|
while (*p != (char)ch && p >= str)
|
|
p--;
|
|
|
|
return (*p == (char)ch) ? p : 0;
|
|
}
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
/* The Cygwin dlopen implementation prints a spurious error message to
|
|
stderr if its call to LoadLibrary() fails for any reason. We can
|
|
mitigate this by not using the Cygwin implementation, and falling
|
|
back to our own LoadLibrary() wrapper. */
|
|
#if HAVE_LIBDL && !defined(__CYGWIN__)
|
|
|
|
/* dynamic linking with dlopen/dlsym */
|
|
|
|
#if HAVE_DLFCN_H
|
|
# include <dlfcn.h>
|
|
#endif
|
|
|
|
#ifdef RTLD_GLOBAL
|
|
# define LTDL_GLOBAL RTLD_GLOBAL
|
|
#else
|
|
# ifdef DL_GLOBAL
|
|
# define LTDL_GLOBAL DL_GLOBAL
|
|
# else
|
|
# define LTDL_GLOBAL 0
|
|
# endif
|
|
#endif
|
|
|
|
/* We may have to define LTDL_LAZY_OR_NOW in the command line if we
|
|
find out it does not work in some platform. */
|
|
#ifndef LTDL_LAZY_OR_NOW
|
|
# ifdef RTLD_LAZY
|
|
# define LTDL_LAZY_OR_NOW RTLD_LAZY
|
|
# else
|
|
# ifdef DL_LAZY
|
|
# define LTDL_LAZY_OR_NOW DL_LAZY
|
|
# else
|
|
# ifdef RTLD_NOW
|
|
# define LTDL_LAZY_OR_NOW RTLD_NOW
|
|
# else
|
|
# ifdef DL_NOW
|
|
# define LTDL_LAZY_OR_NOW DL_NOW
|
|
# else
|
|
# define LTDL_LAZY_OR_NOW 0
|
|
# endif
|
|
# endif
|
|
# endif
|
|
# endif
|
|
#endif
|
|
|
|
static lt_module_t
|
|
sys_dl_open (loader_data, filename)
|
|
lt_dlloader_data_t loader_data;
|
|
const char *filename;
|
|
{
|
|
lt_module_t module = dlopen(filename, LTDL_GLOBAL | LTDL_LAZY_OR_NOW);
|
|
if (!module) {
|
|
#if HAVE_DLERROR
|
|
last_error = dlerror();
|
|
#else
|
|
last_error = LT_DLSTRERROR(CANNOT_OPEN);
|
|
#endif
|
|
}
|
|
return module;
|
|
}
|
|
|
|
static int
|
|
sys_dl_close (loader_data, module)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
{
|
|
if (dlclose(module) != 0) {
|
|
#if HAVE_DLERROR
|
|
last_error = dlerror();
|
|
#else
|
|
last_error = LT_DLSTRERROR(CANNOT_CLOSE);
|
|
#endif
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static lt_ptr_t
|
|
sys_dl_sym (loader_data, module, symbol)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
const char *symbol;
|
|
{
|
|
lt_ptr_t address = dlsym(module, symbol);
|
|
|
|
if (!address)
|
|
#if HAVE_DLERROR
|
|
last_error = dlerror();
|
|
#else
|
|
last_error = LT_DLSTRERROR(SYMBOL_NOT_FOUND);
|
|
#endif
|
|
return address;
|
|
}
|
|
|
|
static struct lt_user_dlloader sys_dl = {
|
|
# ifdef NEED_USCORE
|
|
"_",
|
|
# else
|
|
0,
|
|
# endif
|
|
sys_dl_open, sys_dl_close, sys_dl_sym, 0, 0 };
|
|
#endif
|
|
|
|
#if HAVE_SHL_LOAD
|
|
|
|
/* dynamic linking with shl_load (HP-UX) (comments from gmodule) */
|
|
|
|
#ifdef HAVE_DL_H
|
|
#include <dl.h>
|
|
#endif
|
|
|
|
/* 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 LTDL_BIND_FLAGS (BIND_IMMEDIATE | BIND_NONFATAL | DYNAMIC_PATH)
|
|
|
|
static lt_module_t
|
|
sys_shl_open (loader_data, filename)
|
|
lt_dlloader_data_t loader_data;
|
|
const char *filename;
|
|
{
|
|
lt_module_t module = shl_load(filename, LTDL_BIND_FLAGS, 0L);
|
|
if (!module) {
|
|
last_error = LT_DLSTRERROR(CANNOT_OPEN);
|
|
}
|
|
return module;
|
|
}
|
|
|
|
static int
|
|
sys_shl_close (loader_data, module)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
{
|
|
if (shl_unload((shl_t) (module)) != 0) {
|
|
last_error = LT_DLSTRERROR(CANNOT_CLOSE);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static lt_ptr_t
|
|
sys_shl_sym (loader_data, module, symbol)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
const char *symbol;
|
|
{
|
|
lt_ptr_t address;
|
|
|
|
if (module && shl_findsym((shl_t*) &module,
|
|
symbol, TYPE_UNDEFINED, &address) == 0)
|
|
if (address)
|
|
return address;
|
|
last_error = LT_DLSTRERROR(SYMBOL_NOT_FOUND);
|
|
return 0;
|
|
}
|
|
|
|
static struct lt_user_dlloader
|
|
sys_shl = { 0, sys_shl_open, sys_shl_close, sys_shl_sym, 0, 0 };
|
|
|
|
#undef LTDL_TYPE_TOP
|
|
#define LTDL_TYPE_TOP &sys_shl
|
|
|
|
#endif
|
|
|
|
#ifdef _WIN32
|
|
|
|
/* dynamic linking for Win32 */
|
|
|
|
#include <windows.h>
|
|
|
|
/* Forward declaration; required to implement handle search below. */
|
|
static lt_dlhandle handles;
|
|
|
|
static lt_module_t
|
|
sys_wll_open (loader_data, filename)
|
|
lt_dlloader_data_t loader_data;
|
|
const char *filename;
|
|
{
|
|
lt_dlhandle cur;
|
|
lt_module_t module;
|
|
char *searchname = 0;
|
|
char *ext;
|
|
char self_name_buf[MAX_PATH];
|
|
|
|
if (!filename) {
|
|
/* Get the name of main module */
|
|
*self_name_buf = 0;
|
|
GetModuleFileName(NULL, self_name_buf, sizeof(self_name_buf));
|
|
filename = ext = self_name_buf;
|
|
}
|
|
else ext = strrchr(filename, '.');
|
|
|
|
if (ext) {
|
|
/* FILENAME already has an extension. */
|
|
searchname = strdup(filename);
|
|
} else {
|
|
/* Append a `.' to stop Windows from adding an
|
|
implicit `.dll' extension. */
|
|
searchname = (char*)lt_dlmalloc(2+ strlen(filename));
|
|
if (!searchname) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 0;
|
|
}
|
|
strcpy(searchname, filename);
|
|
strcat(searchname, ".");
|
|
}
|
|
|
|
module = LoadLibrary(searchname);
|
|
lt_dlfree(searchname);
|
|
|
|
/* libltdl expects this function to fail if it is unable
|
|
to physically load the library. Sadly, LoadLibrary
|
|
will search the loaded libraries for a match and return
|
|
one of them if the path search load fails.
|
|
|
|
We check whether LoadLibrary is returning a handle to
|
|
an already loaded module, and simulate failure if we
|
|
find one. */
|
|
cur = handles;
|
|
while (cur) {
|
|
if (!cur->module) {
|
|
cur = 0;
|
|
break;
|
|
}
|
|
if (cur->module == module)
|
|
break;
|
|
cur = cur->next;
|
|
}
|
|
|
|
if (cur || !module) {
|
|
last_error = LT_DLSTRERROR(CANNOT_OPEN);
|
|
return 0;
|
|
}
|
|
|
|
return module;
|
|
}
|
|
|
|
static int
|
|
sys_wll_close (loader_data, module)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
{
|
|
if (FreeLibrary(module) == 0) {
|
|
last_error = LT_DLSTRERROR(CANNOT_CLOSE);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static lt_ptr_t
|
|
sys_wll_sym (loader_data, module, symbol)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
const char *symbol;
|
|
{
|
|
lt_ptr_t address = GetProcAddress(module, symbol);
|
|
|
|
if (!address)
|
|
last_error = LT_DLSTRERROR(SYMBOL_NOT_FOUND);
|
|
return address;
|
|
}
|
|
|
|
static struct lt_user_dlloader
|
|
sys_wll = { 0, sys_wll_open, sys_wll_close, sys_wll_sym, 0, 0 };
|
|
|
|
#endif
|
|
|
|
#ifdef __BEOS__
|
|
|
|
/* dynamic linking for BeOS */
|
|
|
|
#include <kernel/image.h>
|
|
|
|
static lt_module_t
|
|
sys_bedl_open (loader_data, filename)
|
|
lt_dlloader_data_t loader_data;
|
|
const char *filename;
|
|
{
|
|
image_id image = 0;
|
|
|
|
if (filename) {
|
|
image = load_add_on(filename);
|
|
} else {
|
|
image_info info;
|
|
int32 cookie = 0;
|
|
if (get_next_image_info(0, &cookie, &info) == B_OK)
|
|
image = load_add_on(info.name);
|
|
}
|
|
if (image <= 0) {
|
|
last_error = LT_DLSTRERROR(CANNOT_OPEN);
|
|
return 0;
|
|
}
|
|
|
|
return (lt_module_t) image;
|
|
}
|
|
|
|
static int
|
|
sys_bedl_close (loader_data, module)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
{
|
|
if (unload_add_on((image_id)module) != B_OK) {
|
|
last_error = LT_DLSTRERROR(CANNOT_CLOSE);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static lt_ptr_t
|
|
sys_bedl_sym (loader_data, module, symbol)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
const char *symbol;
|
|
{
|
|
lt_ptr_t address = 0;
|
|
image_id image = (image_id)module;
|
|
|
|
if (get_image_symbol(image, symbol, B_SYMBOL_TYPE_ANY,
|
|
&address) != B_OK) {
|
|
last_error = LT_DLSTRERROR(SYMBOL_NOT_FOUND);
|
|
return 0;
|
|
}
|
|
return address;
|
|
}
|
|
|
|
static struct lt_user_dlloader
|
|
sys_bedl = { 0, sys_bedl_open, sys_bedl_close, sys_bedl_sym, 0, 0 };
|
|
|
|
#endif
|
|
|
|
#if HAVE_DLD
|
|
|
|
/* dynamic linking with dld */
|
|
|
|
#if HAVE_DLD_H
|
|
#include <dld.h>
|
|
#endif
|
|
|
|
static lt_module_t
|
|
sys_dld_open (loader_data, filename)
|
|
lt_dlloader_data_t loader_data;
|
|
const char *filename;
|
|
{
|
|
lt_module_t module = strdup(filename);
|
|
if (!module) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 0;
|
|
}
|
|
if (dld_link(filename) != 0) {
|
|
last_error = LT_DLSTRERROR(CANNOT_OPEN);
|
|
lt_dlfree(module);
|
|
return 0;
|
|
}
|
|
return module;
|
|
}
|
|
|
|
static int
|
|
sys_dld_close (loader_data, module)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
{
|
|
if (dld_unlink_by_file((char*)(module), 1) != 0) {
|
|
last_error = LT_DLSTRERROR(CANNOT_CLOSE);
|
|
return 1;
|
|
}
|
|
lt_dlfree(module);
|
|
return 0;
|
|
}
|
|
|
|
static lt_ptr_t
|
|
sys_dld_sym (loader_data, module, symbol)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
const char *symbol;
|
|
{
|
|
lt_ptr_t address = dld_get_func(symbol);
|
|
|
|
if (!address)
|
|
last_error = LT_DLSTRERROR(SYMBOL_NOT_FOUND);
|
|
return address;
|
|
}
|
|
|
|
static struct lt_user_dlloader
|
|
sys_dld = { 0, sys_dld_open, sys_dld_close, sys_dld_sym, 0, 0 };
|
|
|
|
#endif
|
|
|
|
/* emulate dynamic linking using preloaded_symbols */
|
|
|
|
typedef struct lt_dlsymlists_t {
|
|
struct lt_dlsymlists_t *next;
|
|
const lt_dlsymlist *syms;
|
|
} lt_dlsymlists_t;
|
|
|
|
static const lt_dlsymlist *default_preloaded_symbols = 0;
|
|
static lt_dlsymlists_t *preloaded_symbols = 0;
|
|
|
|
static int
|
|
presym_init (loader_data)
|
|
lt_dlloader_data_t loader_data;
|
|
{
|
|
preloaded_symbols = 0;
|
|
if (default_preloaded_symbols)
|
|
return lt_dlpreload(default_preloaded_symbols);
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
presym_free_symlists LTDL_PARAMS((void))
|
|
{
|
|
lt_dlsymlists_t *lists = preloaded_symbols;
|
|
|
|
while (lists) {
|
|
lt_dlsymlists_t *tmp = lists;
|
|
|
|
lists = lists->next;
|
|
lt_dlfree(tmp);
|
|
}
|
|
preloaded_symbols = 0;
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
presym_exit (loader_data)
|
|
lt_dlloader_data_t loader_data;
|
|
{
|
|
presym_free_symlists();
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
presym_add_symlist (preloaded)
|
|
const lt_dlsymlist *preloaded;
|
|
{
|
|
lt_dlsymlists_t *tmp;
|
|
lt_dlsymlists_t *lists = preloaded_symbols;
|
|
|
|
while (lists) {
|
|
if (lists->syms == preloaded)
|
|
return 0;
|
|
lists = lists->next;
|
|
}
|
|
|
|
tmp = (lt_dlsymlists_t*) lt_dlmalloc(sizeof(lt_dlsymlists_t));
|
|
if (!tmp) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
tmp->syms = preloaded;
|
|
tmp->next = preloaded_symbols;
|
|
preloaded_symbols = tmp;
|
|
return 0;
|
|
}
|
|
|
|
static lt_module_t
|
|
presym_open (loader_data, filename)
|
|
lt_dlloader_data_t loader_data;
|
|
const char *filename;
|
|
{
|
|
lt_dlsymlists_t *lists = preloaded_symbols;
|
|
|
|
if (!lists) {
|
|
last_error = LT_DLSTRERROR(NO_SYMBOLS);
|
|
return 0;
|
|
}
|
|
if (!filename)
|
|
filename = "@PROGRAM@";
|
|
while (lists) {
|
|
const lt_dlsymlist *syms = lists->syms;
|
|
|
|
while (syms->name) {
|
|
if (!syms->address &&
|
|
strcmp(syms->name, filename) == 0) {
|
|
return (lt_module_t) syms;
|
|
}
|
|
syms++;
|
|
}
|
|
lists = lists->next;
|
|
}
|
|
last_error = LT_DLSTRERROR(FILE_NOT_FOUND);
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
presym_close (loader_data, module)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
{
|
|
/* Just to silence gcc -Wall */
|
|
module = 0;
|
|
return 0;
|
|
}
|
|
|
|
static lt_ptr_t
|
|
presym_sym (loader_data, module, symbol)
|
|
lt_dlloader_data_t loader_data;
|
|
lt_module_t module;
|
|
const char *symbol;
|
|
{
|
|
lt_dlsymlist *syms = (lt_dlsymlist*)(module);
|
|
|
|
syms++;
|
|
while (syms->address) {
|
|
if (strcmp(syms->name, symbol) == 0)
|
|
return syms->address;
|
|
syms++;
|
|
}
|
|
last_error = LT_DLSTRERROR(SYMBOL_NOT_FOUND);
|
|
return 0;
|
|
}
|
|
|
|
static struct lt_user_dlloader
|
|
presym = { 0, presym_open, presym_close, presym_sym, presym_exit, 0 };
|
|
|
|
|
|
static char *user_search_path = 0;
|
|
static lt_dlloader_t *loaders = 0;
|
|
static lt_dlhandle handles = 0;
|
|
static int initialized = 0;
|
|
|
|
int
|
|
lt_dlinit LTDL_PARAMS((void))
|
|
{
|
|
/* initialize libltdl */
|
|
int errors = 0;
|
|
|
|
if (initialized) { /* Initialize only at first call. */
|
|
initialized++;
|
|
return 0;
|
|
}
|
|
handles = 0;
|
|
user_search_path = 0; /* empty search path */
|
|
|
|
#if HAVE_LIBDL && !defined(__CYGWIN__)
|
|
errors += lt_dlloader_add (lt_dlloader_next(0), &sys_dl, "dlopen");
|
|
#endif
|
|
#if HAVE_SHL_LOAD
|
|
errors += lt_dlloader_add (lt_dlloader_next(0), &sys_shl, "dlopen");
|
|
#endif
|
|
#ifdef _WIN32
|
|
errors += lt_dlloader_add (lt_dlloader_next(0), &sys_wll, "dlopen");
|
|
#endif
|
|
#ifdef __BEOS__
|
|
errors += lt_dlloader_add (lt_dlloader_next(0), &sys_bedl, "dlopen");
|
|
#endif
|
|
#if HAVE_DLD
|
|
errors += lt_dlloader_add (lt_dlloader_next(0), &sys_dld, "dld");
|
|
#endif
|
|
errors += lt_dlloader_add (lt_dlloader_next(0), &presym, "dlpreload");
|
|
if (presym_init(presym.dlloader_data)) {
|
|
last_error = LT_DLSTRERROR(INIT_LOADER);
|
|
return 1;
|
|
}
|
|
|
|
if (errors != 0) {
|
|
last_error = LT_DLSTRERROR(DLOPEN_NOT_SUPPORTED);
|
|
return 1;
|
|
}
|
|
last_error = 0;
|
|
initialized = 1;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
lt_dlpreload (preloaded)
|
|
const lt_dlsymlist *preloaded;
|
|
{
|
|
if (preloaded)
|
|
return presym_add_symlist(preloaded);
|
|
presym_free_symlists();
|
|
if (default_preloaded_symbols)
|
|
return lt_dlpreload(default_preloaded_symbols);
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
lt_dlpreload_default (preloaded)
|
|
const lt_dlsymlist *preloaded;
|
|
{
|
|
default_preloaded_symbols = preloaded;
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
lt_dlexit LTDL_PARAMS((void))
|
|
{
|
|
/* shut down libltdl */
|
|
lt_dlloader_t *loader = loaders;
|
|
int errors, level;
|
|
|
|
if (!initialized) {
|
|
last_error = LT_DLSTRERROR(SHUTDOWN);
|
|
return 1;
|
|
}
|
|
if (initialized != 1) { /* shut down only at last call. */
|
|
initialized--;
|
|
return 0;
|
|
}
|
|
/* close all modules */
|
|
errors = 0;
|
|
for (level = 1; handles; level++) {
|
|
lt_dlhandle cur = handles;
|
|
while (cur) {
|
|
lt_dlhandle tmp = cur;
|
|
cur = cur->next;
|
|
if (tmp->info.ref_count <= level)
|
|
if (lt_dlclose(tmp))
|
|
errors++;
|
|
}
|
|
}
|
|
/* close all loaders */
|
|
while (loader) {
|
|
lt_dlloader_t *next = loader->next;
|
|
lt_dlloader_data_t data = loader->dlloader_data;
|
|
if (loader->dlloader_exit && loader->dlloader_exit(data))
|
|
errors++;
|
|
lt_dlfree (loader);
|
|
loader = next;
|
|
}
|
|
|
|
initialized = 0;
|
|
return errors;
|
|
}
|
|
|
|
static int
|
|
tryall_dlopen (handle, filename)
|
|
lt_dlhandle *handle;
|
|
const char *filename;
|
|
{
|
|
lt_dlhandle cur = handles;
|
|
lt_dlloader_t *loader = loaders;
|
|
const char *saved_error = last_error;
|
|
|
|
/* check whether the module was already opened */
|
|
while (cur) {
|
|
/* try to dlopen the program itself? */
|
|
if (!cur->info.filename && !filename)
|
|
break;
|
|
if (cur->info.filename && filename &&
|
|
strcmp(cur->info.filename, filename) == 0)
|
|
break;
|
|
cur = cur->next;
|
|
}
|
|
|
|
if (cur) {
|
|
cur->info.ref_count++;
|
|
*handle = cur;
|
|
return 0;
|
|
}
|
|
|
|
cur = *handle;
|
|
if (filename) {
|
|
cur->info.filename = strdup(filename);
|
|
if (!cur->info.filename) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
} else
|
|
cur->info.filename = 0;
|
|
while (loader) {
|
|
lt_dlloader_data_t data = loader->dlloader_data;
|
|
cur->module = loader->module_open(data, filename);
|
|
if (cur->module != 0)
|
|
break;
|
|
loader = loader->next;
|
|
}
|
|
if (!loader) {
|
|
if (cur->info.filename)
|
|
lt_dlfree(cur->info.filename);
|
|
return 1;
|
|
}
|
|
cur->loader = loader;
|
|
last_error = saved_error;
|
|
return 0;
|
|
}
|
|
|
|
static int
|
|
find_module (handle, dir, libdir, dlname, old_name, installed)
|
|
lt_dlhandle *handle;
|
|
const char *dir;
|
|
const char *libdir;
|
|
const char *dlname;
|
|
const char *old_name;
|
|
int installed;
|
|
{
|
|
int error;
|
|
char *filename;
|
|
/* try to open the old library first; if it was dlpreopened,
|
|
we want the preopened version of it, even if a dlopenable
|
|
module is available */
|
|
if (old_name && tryall_dlopen(handle, old_name) == 0)
|
|
return 0;
|
|
/* try to open the dynamic library */
|
|
if (dlname) {
|
|
/* try to open the installed module */
|
|
if (installed && libdir) {
|
|
filename = (char*)
|
|
lt_dlmalloc(strlen(libdir)+1+strlen(dlname)+1);
|
|
if (!filename) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
sprintf (filename, "%s/%s", libdir, dlname);
|
|
error = tryall_dlopen(handle, filename) != 0;
|
|
lt_dlfree(filename);
|
|
if (!error)
|
|
return 0;
|
|
}
|
|
/* try to open the not-installed module */
|
|
if (!installed) {
|
|
filename = (char*)
|
|
lt_dlmalloc((dir ? strlen(dir) : 0)
|
|
+ strlen(objdir) + strlen(dlname) + 1);
|
|
if (!filename) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
if (dir)
|
|
strcpy(filename, dir);
|
|
else
|
|
*filename = 0;
|
|
strcat(filename, objdir);
|
|
strcat(filename, dlname);
|
|
|
|
error = tryall_dlopen(handle, filename) != 0;
|
|
lt_dlfree(filename);
|
|
if (!error)
|
|
return 0;
|
|
}
|
|
/* maybe it was moved to another directory */
|
|
{
|
|
filename = (char*)
|
|
lt_dlmalloc((dir ? strlen(dir) : 0)
|
|
+ strlen(dlname) + 1);
|
|
if (dir)
|
|
strcpy(filename, dir);
|
|
else
|
|
*filename = 0;
|
|
strcat(filename, dlname);
|
|
error = tryall_dlopen(handle, filename) != 0;
|
|
lt_dlfree(filename);
|
|
if (!error)
|
|
return 0;
|
|
}
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
static char*
|
|
canonicalize_path (path)
|
|
const char *path;
|
|
{
|
|
char *canonical = 0;
|
|
|
|
if (path && *path) {
|
|
char *ptr = strdup (path);
|
|
canonical = ptr;
|
|
#ifdef LTDL_DIRSEP_CHAR
|
|
/* Avoid this overhead where '/' is the only separator. */
|
|
while (ptr = strchr (ptr, LTDL_DIRSEP_CHAR))
|
|
*ptr++ = '/';
|
|
#endif
|
|
}
|
|
|
|
return canonical;
|
|
}
|
|
|
|
static lt_ptr_t
|
|
find_file (basename, search_path, pdir, handle)
|
|
const char *basename;
|
|
const char *search_path;
|
|
char **pdir;
|
|
lt_dlhandle *handle;
|
|
{
|
|
/* when handle != NULL search a library, otherwise a file */
|
|
/* return NULL on failure, otherwise the file/handle */
|
|
|
|
lt_ptr_t result = 0;
|
|
char *filename = 0;
|
|
int filenamesize = 0;
|
|
int lenbase = strlen(basename);
|
|
char *canonical = 0, *next = 0;
|
|
|
|
if (!search_path || !*search_path) {
|
|
last_error = LT_DLSTRERROR(FILE_NOT_FOUND);
|
|
return 0;
|
|
}
|
|
canonical = canonicalize_path (search_path);
|
|
if (!canonical) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
goto cleanup;
|
|
}
|
|
next = canonical;
|
|
while (next) {
|
|
int lendir;
|
|
char *cur = next;
|
|
|
|
next = strchr(cur, LTDL_PATHSEP_CHAR);
|
|
if (!next)
|
|
next = cur + strlen(cur);
|
|
lendir = next - cur;
|
|
if (*next == LTDL_PATHSEP_CHAR)
|
|
++next;
|
|
else
|
|
next = 0;
|
|
if (lendir == 0)
|
|
continue;
|
|
if (lendir + 1 + lenbase >= filenamesize) {
|
|
if (filename)
|
|
lt_dlfree(filename);
|
|
filenamesize = lendir + 1 + lenbase + 1;
|
|
filename = (char*) lt_dlmalloc(filenamesize);
|
|
if (!filename) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
goto cleanup;
|
|
}
|
|
}
|
|
strncpy(filename, cur, lendir);
|
|
if (filename[lendir-1] != '/')
|
|
filename[lendir++] = '/';
|
|
strcpy(filename+lendir, basename);
|
|
if (handle) {
|
|
if (tryall_dlopen(handle, filename) == 0) {
|
|
result = (lt_ptr_t) handle;
|
|
goto cleanup;
|
|
}
|
|
} else {
|
|
FILE *file = fopen(filename, LTDL_READTEXT_MODE);
|
|
if (file) {
|
|
if (*pdir)
|
|
lt_dlfree(*pdir);
|
|
filename[lendir] = '\0';
|
|
*pdir = strdup(filename);
|
|
if (!*pdir) {
|
|
/* We could have even avoided the
|
|
strdup, but there would be some
|
|
memory overhead. */
|
|
*pdir = filename;
|
|
filename = 0;
|
|
}
|
|
result = (lt_ptr_t) file;
|
|
goto cleanup;
|
|
}
|
|
}
|
|
}
|
|
last_error = LT_DLSTRERROR(FILE_NOT_FOUND);
|
|
cleanup:
|
|
if (filename)
|
|
lt_dlfree(filename);
|
|
if (canonical)
|
|
lt_dlfree(canonical);
|
|
return result;
|
|
}
|
|
|
|
static int
|
|
load_deplibs(handle, deplibs)
|
|
lt_dlhandle handle;
|
|
char *deplibs;
|
|
{
|
|
char *p, *save_search_path;
|
|
int i;
|
|
int ret = 1, depcount = 0;
|
|
char **names = 0;
|
|
lt_dlhandle *handles = 0;
|
|
|
|
handle->depcount = 0;
|
|
if (!deplibs)
|
|
return 0;
|
|
save_search_path = strdup(user_search_path);
|
|
if (user_search_path && !save_search_path) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
p = deplibs;
|
|
/* extract search paths and count deplibs */
|
|
while (*p) {
|
|
if (!isspace(*p)) {
|
|
char *end = p+1;
|
|
while (*end && !isspace(*end)) end++;
|
|
if (strncmp(p, "-L", 2) == 0 ||
|
|
strncmp(p, "-R", 2) == 0) {
|
|
char save = *end;
|
|
*end = 0; /* set a temporary string terminator */
|
|
if (lt_dladdsearchdir(p+2))
|
|
goto cleanup;
|
|
*end = save;
|
|
} else
|
|
depcount++;
|
|
p = end;
|
|
} else
|
|
p++;
|
|
}
|
|
if (!depcount) {
|
|
ret = 0;
|
|
goto cleanup;
|
|
}
|
|
names = (char**)lt_dlmalloc(depcount * sizeof(char*));
|
|
if (!names)
|
|
goto cleanup;
|
|
handles = (lt_dlhandle*)lt_dlmalloc(depcount * sizeof(lt_dlhandle*));
|
|
if (!handles)
|
|
goto cleanup;
|
|
depcount = 0;
|
|
/* now only extract the actual deplibs */
|
|
p = deplibs;
|
|
while (*p) {
|
|
if (!isspace(*p)) {
|
|
char *end = p+1;
|
|
while (*end && !isspace(*end)) end++;
|
|
if (strncmp(p, "-L", 2) != 0 &&
|
|
strncmp(p, "-R", 2) != 0) {
|
|
char *name;
|
|
char save = *end;
|
|
*end = 0; /* set a temporary string terminator */
|
|
if (strncmp(p, "-l", 2) == 0) {
|
|
name = lt_dlmalloc(3+ /* "lib" */
|
|
strlen(p+2)+1);
|
|
if (name)
|
|
sprintf (name, "lib%s", p+2);
|
|
} else
|
|
name = strdup(p);
|
|
if (name)
|
|
names[depcount++] = name;
|
|
else
|
|
goto cleanup_names;
|
|
*end = save;
|
|
}
|
|
p = end;
|
|
} else
|
|
p++;
|
|
}
|
|
/* load the deplibs (in reverse order) */
|
|
for (i = 0; i < depcount; i++) {
|
|
lt_dlhandle handle = lt_dlopenext(names[depcount-1-i]);
|
|
if (!handle) {
|
|
int j;
|
|
for (j = 0; j < i; j++)
|
|
lt_dlclose(handles[j]);
|
|
last_error = LT_DLSTRERROR(DEPLIB_NOT_FOUND);
|
|
goto cleanup_names;
|
|
}
|
|
handles[i] = handle;
|
|
}
|
|
handle->depcount = depcount;
|
|
handle->deplibs = handles;
|
|
handles = 0;
|
|
ret = 0;
|
|
cleanup_names:
|
|
for (i = 0; i < depcount; i++)
|
|
lt_dlfree(names[i]);
|
|
cleanup:
|
|
if (names)
|
|
lt_dlfree(names);
|
|
if (handles)
|
|
lt_dlfree(handles);
|
|
/* restore the old search path */
|
|
if (user_search_path)
|
|
lt_dlfree(user_search_path);
|
|
user_search_path = save_search_path;
|
|
return ret;
|
|
}
|
|
|
|
static int
|
|
unload_deplibs(handle)
|
|
lt_dlhandle handle;
|
|
{
|
|
int i;
|
|
int errors = 0;
|
|
|
|
if (!handle->depcount)
|
|
return 0;
|
|
for (i = 0; i < handle->depcount; i++)
|
|
errors += lt_dlclose(handle->deplibs[i]);
|
|
return errors;
|
|
}
|
|
|
|
static inline int
|
|
trim (dest, str)
|
|
char **dest;
|
|
const char *str;
|
|
{
|
|
/* remove the leading and trailing "'" from str
|
|
and store the result in dest */
|
|
char *tmp;
|
|
const char *end = strrchr(str, '\'');
|
|
int len = strlen(str);
|
|
|
|
if (*dest)
|
|
lt_dlfree(*dest);
|
|
if (len > 3 && str[0] == '\'') {
|
|
tmp = (char*) lt_dlmalloc(end - str);
|
|
if (!tmp) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
strncpy(tmp, &str[1], (end - str) - 1);
|
|
tmp[len-3] = '\0';
|
|
*dest = tmp;
|
|
} else
|
|
*dest = 0;
|
|
return 0;
|
|
}
|
|
|
|
static inline int
|
|
free_vars( dlname, oldname, libdir, deplibs)
|
|
char *dlname;
|
|
char *oldname;
|
|
char *libdir;
|
|
char *deplibs;
|
|
{
|
|
if (dlname)
|
|
lt_dlfree(dlname);
|
|
if (oldname)
|
|
lt_dlfree(oldname);
|
|
if (libdir)
|
|
lt_dlfree(libdir);
|
|
if (deplibs)
|
|
lt_dlfree(deplibs);
|
|
return 0;
|
|
}
|
|
|
|
lt_dlhandle
|
|
lt_dlopen (filename)
|
|
const char *filename;
|
|
{
|
|
lt_dlhandle handle = 0, newhandle;
|
|
const char *ext;
|
|
const char *saved_error = last_error;
|
|
char *canonical = 0, *basename = 0, *dir = 0, *name = 0;
|
|
|
|
if (!filename) {
|
|
handle = (lt_dlhandle) lt_dlmalloc(sizeof(lt_dlhandle_t));
|
|
if (!handle) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 0;
|
|
}
|
|
handle->info.ref_count = 0;
|
|
handle->depcount = 0;
|
|
handle->deplibs = 0;
|
|
newhandle = handle;
|
|
if (tryall_dlopen(&newhandle, 0) != 0) {
|
|
lt_dlfree(handle);
|
|
return 0;
|
|
}
|
|
goto register_handle;
|
|
}
|
|
canonical = canonicalize_path (filename);
|
|
if (!canonical) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
if (handle)
|
|
lt_dlfree(handle);
|
|
return 0;
|
|
}
|
|
basename = strrchr(canonical, '/');
|
|
if (basename) {
|
|
basename++;
|
|
dir = (char*) lt_dlmalloc(basename - canonical + 1);
|
|
if (!dir) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
handle = 0;
|
|
goto cleanup;
|
|
}
|
|
strncpy(dir, canonical, basename - canonical);
|
|
dir[basename - canonical] = '\0';
|
|
} else
|
|
basename = canonical;
|
|
/* check whether we open a libtool module (.la extension) */
|
|
ext = strrchr(basename, '.');
|
|
if (ext && strcmp(ext, ".la") == 0) {
|
|
/* this seems to be a libtool module */
|
|
FILE *file;
|
|
int i;
|
|
char *dlname = 0, *old_name = 0;
|
|
char *libdir = 0, *deplibs = 0;
|
|
char *line;
|
|
int error = 0;
|
|
/* if we can't find the installed flag, it is probably an
|
|
installed libtool archive, produced with an old version
|
|
of libtool */
|
|
int installed = 1;
|
|
|
|
/* extract the module name from the file name */
|
|
name = (char*) lt_dlmalloc(ext - basename + 1);
|
|
if (!name) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
handle = 0;
|
|
goto cleanup;
|
|
}
|
|
/* canonicalize the module name */
|
|
for (i = 0; i < ext - basename; i++)
|
|
if (isalnum((int)(basename[i])))
|
|
name[i] = basename[i];
|
|
else
|
|
name[i] = '_';
|
|
name[ext - basename] = '\0';
|
|
/* now try to open the .la file */
|
|
file = fopen(filename, LTDL_READTEXT_MODE);
|
|
if (!file)
|
|
last_error = LT_DLSTRERROR(FILE_NOT_FOUND);
|
|
if (!file && !dir) {
|
|
/* try other directories */
|
|
file = (FILE*) find_file(basename,
|
|
user_search_path,
|
|
&dir, 0);
|
|
if (!file)
|
|
file = (FILE*) find_file(basename,
|
|
getenv("LTDL_LIBRARY_PATH"),
|
|
&dir, 0);
|
|
#ifdef LTDL_SHLIBPATH_VAR
|
|
if (!file)
|
|
file = (FILE*) find_file(basename,
|
|
getenv(LTDL_SHLIBPATH_VAR),
|
|
&dir, 0);
|
|
#endif
|
|
#ifdef LTDL_SYSSEARCHPATH
|
|
if (!file)
|
|
file = (FILE*) find_file(basename,
|
|
sys_search_path,
|
|
&dir, 0);
|
|
#endif
|
|
}
|
|
if (!file) {
|
|
handle = 0;
|
|
goto cleanup;
|
|
}
|
|
line = (char*) lt_dlmalloc(LTDL_FILENAME_MAX);
|
|
if (!line) {
|
|
fclose(file);
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
handle = 0;
|
|
goto cleanup;
|
|
}
|
|
/* read the .la file */
|
|
while (!feof(file)) {
|
|
if (!fgets(line, LTDL_FILENAME_MAX, file))
|
|
break;
|
|
if (line[0] == '\n' || line[0] == '#')
|
|
continue;
|
|
# undef STR_DLNAME
|
|
# define STR_DLNAME "dlname="
|
|
if (strncmp(line, STR_DLNAME,
|
|
sizeof(STR_DLNAME) - 1) == 0)
|
|
error = trim(&dlname,
|
|
&line[sizeof(STR_DLNAME) - 1]);
|
|
else
|
|
# undef STR_OLD_LIBRARY
|
|
# define STR_OLD_LIBRARY "old_library="
|
|
if (strncmp(line, STR_OLD_LIBRARY,
|
|
sizeof(STR_OLD_LIBRARY) - 1) == 0)
|
|
error = trim(&old_name,
|
|
&line[sizeof(STR_OLD_LIBRARY) - 1]);
|
|
else
|
|
# undef STR_LIBDIR
|
|
# define STR_LIBDIR "libdir="
|
|
if (strncmp(line, STR_LIBDIR,
|
|
sizeof(STR_LIBDIR) - 1) == 0)
|
|
error = trim(&libdir,
|
|
&line[sizeof(STR_LIBDIR) - 1]);
|
|
else
|
|
# undef STR_DL_DEPLIBS
|
|
# define STR_DL_DEPLIBS "dl_dependency_libs="
|
|
if (strncmp(line, STR_DL_DEPLIBS,
|
|
sizeof(STR_DL_DEPLIBS) - 1) == 0)
|
|
error = trim(&deplibs,
|
|
&line[sizeof(STR_DL_DEPLIBS) - 1]);
|
|
else
|
|
if (strcmp(line, "installed=yes\n") == 0)
|
|
installed = 1;
|
|
else
|
|
if (strcmp(line, "installed=no\n") == 0)
|
|
installed = 0;
|
|
else
|
|
# undef STR_LIBRARY_NAMES
|
|
# define STR_LIBRARY_NAMES "library_names="
|
|
if (! dlname &&
|
|
strncmp(line, STR_LIBRARY_NAMES,
|
|
sizeof(STR_LIBRARY_NAMES) - 1) == 0) {
|
|
char *last_libname;
|
|
error = trim(&dlname,
|
|
&line[sizeof(STR_LIBRARY_NAMES) - 1]);
|
|
if (! error && dlname &&
|
|
(last_libname = strrchr(dlname, ' ')) != NULL) {
|
|
last_libname = strdup(last_libname + 1);
|
|
free(dlname);
|
|
dlname = last_libname;
|
|
}
|
|
}
|
|
if (error)
|
|
break;
|
|
}
|
|
fclose(file);
|
|
lt_dlfree(line);
|
|
/* allocate the handle */
|
|
handle = (lt_dlhandle) lt_dlmalloc(sizeof(lt_dlhandle_t));
|
|
if (!handle || error) {
|
|
if (handle)
|
|
lt_dlfree(handle);
|
|
if (!error)
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
free_vars(dlname, old_name, libdir, deplibs);
|
|
/* handle is already set to 0 */
|
|
goto cleanup;
|
|
}
|
|
handle->info.ref_count = 0;
|
|
if (load_deplibs(handle, deplibs) == 0) {
|
|
newhandle = handle;
|
|
/* find_module may replace newhandle */
|
|
if (find_module(&newhandle, dir, libdir,
|
|
dlname, old_name, installed)) {
|
|
unload_deplibs(handle);
|
|
error = 1;
|
|
}
|
|
} else
|
|
error = 1;
|
|
free_vars(dlname, old_name, libdir, deplibs);
|
|
if (error) {
|
|
lt_dlfree(handle);
|
|
handle = 0;
|
|
goto cleanup;
|
|
}
|
|
if (handle != newhandle)
|
|
unload_deplibs(handle);
|
|
} else {
|
|
/* not a libtool module */
|
|
handle = (lt_dlhandle) lt_dlmalloc(sizeof(lt_dlhandle_t));
|
|
if (!handle) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
/* handle is already set to 0 */
|
|
goto cleanup;
|
|
}
|
|
handle->info.ref_count = 0;
|
|
/* non-libtool modules don't have dependencies */
|
|
handle->depcount = 0;
|
|
handle->deplibs = 0;
|
|
newhandle = handle;
|
|
if (tryall_dlopen(&newhandle, filename)
|
|
&& (dir
|
|
|| (!find_file(basename, user_search_path,
|
|
0, &newhandle)
|
|
&& !find_file(basename,
|
|
getenv("LTDL_LIBRARY_PATH"),
|
|
0, &newhandle)
|
|
#ifdef LTDL_SHLIBPATH_VAR
|
|
&& !find_file(basename,
|
|
getenv(LTDL_SHLIBPATH_VAR),
|
|
0, &newhandle)
|
|
#endif
|
|
#ifdef LTDL_SYSSEARCHPATH
|
|
&& !find_file(basename, sys_search_path,
|
|
0, &newhandle)
|
|
#endif
|
|
))) {
|
|
lt_dlfree(handle);
|
|
handle = 0;
|
|
goto cleanup;
|
|
}
|
|
}
|
|
register_handle:
|
|
if (newhandle != handle) {
|
|
lt_dlfree(handle);
|
|
handle = newhandle;
|
|
}
|
|
if (!handle->info.ref_count) {
|
|
handle->info.ref_count = 1;
|
|
handle->info.name = name;
|
|
handle->next = handles;
|
|
handles = handle;
|
|
name = 0; /* don't free this during `cleanup' */
|
|
}
|
|
last_error = saved_error;
|
|
cleanup:
|
|
if (dir)
|
|
lt_dlfree(dir);
|
|
if (name)
|
|
lt_dlfree(name);
|
|
if (canonical)
|
|
lt_dlfree(canonical);
|
|
return handle;
|
|
}
|
|
|
|
lt_dlhandle
|
|
lt_dlopenext (filename)
|
|
const char *filename;
|
|
{
|
|
lt_dlhandle handle;
|
|
char *tmp;
|
|
int len;
|
|
const char *saved_error = last_error;
|
|
|
|
if (!filename)
|
|
return lt_dlopen(filename);
|
|
len = strlen(filename);
|
|
if (!len) {
|
|
last_error = LT_DLSTRERROR(FILE_NOT_FOUND);
|
|
return 0;
|
|
}
|
|
/* try the normal file name */
|
|
handle = lt_dlopen(filename);
|
|
if (handle)
|
|
return handle;
|
|
/* try "filename.la" */
|
|
tmp = (char*) lt_dlmalloc(len+4);
|
|
if (!tmp) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 0;
|
|
}
|
|
strcpy(tmp, filename);
|
|
strcat(tmp, ".la");
|
|
handle = lt_dlopen(tmp);
|
|
if (handle) {
|
|
last_error = saved_error;
|
|
lt_dlfree(tmp);
|
|
return handle;
|
|
}
|
|
#ifdef LTDL_SHLIB_EXT
|
|
/* try "filename.EXT" */
|
|
if (strlen(shlib_ext) > 3) {
|
|
lt_dlfree(tmp);
|
|
tmp = (char*) lt_dlmalloc(len + strlen(shlib_ext) + 1);
|
|
if (!tmp) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 0;
|
|
}
|
|
strcpy(tmp, filename);
|
|
} else
|
|
tmp[len] = '\0';
|
|
strcat(tmp, shlib_ext);
|
|
handle = lt_dlopen(tmp);
|
|
if (handle) {
|
|
last_error = saved_error;
|
|
lt_dlfree(tmp);
|
|
return handle;
|
|
}
|
|
#endif
|
|
last_error = LT_DLSTRERROR(FILE_NOT_FOUND);
|
|
lt_dlfree(tmp);
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
lt_dlclose (handle)
|
|
lt_dlhandle handle;
|
|
{
|
|
lt_dlhandle cur, last;
|
|
|
|
/* check whether the handle is valid */
|
|
last = cur = handles;
|
|
while (cur && handle != cur) {
|
|
last = cur;
|
|
cur = cur->next;
|
|
}
|
|
if (!cur) {
|
|
last_error = LT_DLSTRERROR(INVALID_HANDLE);
|
|
return 1;
|
|
}
|
|
handle->info.ref_count--;
|
|
if (!handle->info.ref_count) {
|
|
int error;
|
|
lt_dlloader_data_t data = handle->loader->dlloader_data;
|
|
|
|
if (handle != handles)
|
|
last->next = handle->next;
|
|
else
|
|
handles = handle->next;
|
|
error = handle->loader->module_close(data, handle->module);
|
|
error += unload_deplibs(handle);
|
|
if (handle->info.filename)
|
|
lt_dlfree(handle->info.filename);
|
|
if (handle->info.name)
|
|
lt_dlfree(handle->info.name);
|
|
lt_dlfree(handle);
|
|
return error;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
lt_ptr_t
|
|
lt_dlsym (handle, symbol)
|
|
lt_dlhandle handle;
|
|
const char *symbol;
|
|
{
|
|
int lensym;
|
|
char lsym[LTDL_SYMBOL_LENGTH];
|
|
char *sym;
|
|
lt_ptr_t address;
|
|
lt_dlloader_data_t data;
|
|
|
|
if (!handle) {
|
|
last_error = LT_DLSTRERROR(INVALID_HANDLE);
|
|
return 0;
|
|
}
|
|
if (!symbol) {
|
|
last_error = LT_DLSTRERROR(SYMBOL_NOT_FOUND);
|
|
return 0;
|
|
}
|
|
lensym = strlen(symbol);
|
|
if (handle->loader->sym_prefix)
|
|
lensym += strlen(handle->loader->sym_prefix);
|
|
if (handle->info.name)
|
|
lensym += strlen(handle->info.name);
|
|
if (lensym + LTDL_SYMBOL_OVERHEAD < LTDL_SYMBOL_LENGTH)
|
|
sym = lsym;
|
|
else
|
|
sym = (char*) lt_dlmalloc(lensym + LTDL_SYMBOL_OVERHEAD + 1);
|
|
if (!sym) {
|
|
last_error = LT_DLSTRERROR(BUFFER_OVERFLOW);
|
|
return 0;
|
|
}
|
|
data = handle->loader->dlloader_data;
|
|
if (handle->info.name) {
|
|
const char *saved_error = last_error;
|
|
|
|
/* this is a libtool module */
|
|
if (handle->loader->sym_prefix) {
|
|
strcpy(sym, handle->loader->sym_prefix);
|
|
strcat(sym, handle->info.name);
|
|
} else
|
|
strcpy(sym, handle->info.name);
|
|
strcat(sym, "_LTX_");
|
|
strcat(sym, symbol);
|
|
/* try "modulename_LTX_symbol" */
|
|
address = handle->loader->find_sym(data, handle->module, sym);
|
|
if (address) {
|
|
if (sym != lsym)
|
|
lt_dlfree(sym);
|
|
return address;
|
|
}
|
|
last_error = saved_error;
|
|
}
|
|
/* otherwise try "symbol" */
|
|
if (handle->loader->sym_prefix) {
|
|
strcpy(sym, handle->loader->sym_prefix);
|
|
strcat(sym, symbol);
|
|
} else
|
|
strcpy(sym, symbol);
|
|
address = handle->loader->find_sym(data, handle->module, sym);
|
|
if (sym != lsym)
|
|
lt_dlfree(sym);
|
|
return address;
|
|
}
|
|
|
|
const char *
|
|
lt_dlerror LTDL_PARAMS((void))
|
|
{
|
|
const char *error = last_error;
|
|
|
|
last_error = 0;
|
|
return error;
|
|
}
|
|
|
|
int
|
|
lt_dladdsearchdir (search_dir)
|
|
const char *search_dir;
|
|
{
|
|
if (!search_dir || !strlen(search_dir))
|
|
return 0;
|
|
if (!user_search_path) {
|
|
user_search_path = strdup(search_dir);
|
|
if (!user_search_path) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
} else {
|
|
char *new_search_path = (char*)
|
|
lt_dlmalloc(strlen(user_search_path) +
|
|
strlen(search_dir) + 2); /* ':' + '\0' == 2 */
|
|
if (!new_search_path) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
sprintf (new_search_path, "%s%c%s", user_search_path,
|
|
LTDL_PATHSEP_CHAR, search_dir);
|
|
lt_dlfree(user_search_path);
|
|
user_search_path = new_search_path;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
lt_dlsetsearchpath (search_path)
|
|
const char *search_path;
|
|
{
|
|
if (user_search_path)
|
|
lt_dlfree(user_search_path);
|
|
user_search_path = 0; /* reset the search path */
|
|
if (!search_path || !strlen(search_path))
|
|
return 0;
|
|
user_search_path = strdup(search_path);
|
|
if (!user_search_path)
|
|
return 1;
|
|
return 0;
|
|
}
|
|
|
|
const char *
|
|
lt_dlgetsearchpath LTDL_PARAMS((void))
|
|
{
|
|
return user_search_path;
|
|
}
|
|
|
|
const lt_dlinfo *
|
|
lt_dlgetinfo (handle)
|
|
lt_dlhandle handle;
|
|
{
|
|
if (!handle) {
|
|
last_error = LT_DLSTRERROR(INVALID_HANDLE);
|
|
return 0;
|
|
}
|
|
return &(handle->info);
|
|
}
|
|
|
|
int
|
|
lt_dlforeach (func, data)
|
|
int (*func) LTDL_PARAMS((lt_dlhandle handle, lt_ptr_t data));
|
|
lt_ptr_t data;
|
|
{
|
|
lt_dlhandle cur = handles;
|
|
while (cur) {
|
|
lt_dlhandle tmp = cur;
|
|
cur = cur->next;
|
|
if (func(tmp, data))
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
lt_dlloader_add (place, dlloader, loader_name)
|
|
lt_dlloader_t *place;
|
|
const struct lt_user_dlloader *dlloader;
|
|
const char *loader_name;
|
|
{
|
|
lt_dlloader_t *node = 0, *ptr = 0;
|
|
|
|
if ((dlloader == 0) /* diagnose null parameters */
|
|
|| (dlloader->module_open == 0)
|
|
|| (dlloader->module_close == 0)
|
|
|| (dlloader->find_sym == 0)) {
|
|
last_error = LT_DLSTRERROR(INVALID_LOADER);
|
|
return 1;
|
|
}
|
|
|
|
/* Create a new dlloader node with copies of the user callbacks. */
|
|
node = (lt_dlloader_t *) lt_dlmalloc (sizeof (lt_dlloader_t));
|
|
if (node == 0) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return 1;
|
|
}
|
|
node->next = 0;
|
|
node->loader_name = loader_name;
|
|
node->sym_prefix = dlloader->sym_prefix;
|
|
node->dlloader_exit = dlloader->dlloader_exit;
|
|
node->module_open = dlloader->module_open;
|
|
node->module_close = dlloader->module_close;
|
|
node->find_sym = dlloader->find_sym;
|
|
node->dlloader_data = dlloader->dlloader_data;
|
|
|
|
if (!loaders)
|
|
/* If there are no loaders, NODE becomes the list! */
|
|
loaders = node;
|
|
else if (!place) {
|
|
/* If PLACE is not set, add NODE to the end of the
|
|
LOADERS list. */
|
|
for (ptr = loaders; ptr->next; ptr = ptr->next)
|
|
/*NOWORK*/;
|
|
ptr->next = node;
|
|
} else if (loaders == place) {
|
|
/* If PLACE is the first loader, NODE goes first. */
|
|
node->next = place;
|
|
loaders = node;
|
|
} else {
|
|
/* Find the node immediately preceding PLACE. */
|
|
for (ptr = loaders; ptr->next != place; ptr = ptr->next)
|
|
/*NOWORK*/;
|
|
|
|
if (ptr->next != place) {
|
|
last_error = LT_DLSTRERROR(INVALID_LOADER);
|
|
return 1;
|
|
}
|
|
|
|
/* Insert NODE between PTR and PLACE. */
|
|
node->next = place;
|
|
ptr->next = node;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int
|
|
lt_dlloader_remove (loader_name)
|
|
const char *loader_name;
|
|
{
|
|
lt_dlloader_t *place = lt_dlloader_find (loader_name);
|
|
lt_dlhandle handle;
|
|
int result = 0;
|
|
|
|
if (!place) {
|
|
last_error = LT_DLSTRERROR(INVALID_LOADER);
|
|
return 1;
|
|
}
|
|
|
|
/* Fail if there are any open modules which use this loader. */
|
|
for (handle = handles; handle; handle = handle->next)
|
|
if (handle->loader == place) {
|
|
last_error = LT_DLSTRERROR(REMOVE_LOADER);
|
|
return 1;
|
|
}
|
|
|
|
if (place == loaders)
|
|
/* PLACE is the first loader in the list. */
|
|
loaders = loaders->next;
|
|
else {
|
|
/* Find the loader before the one being removed. */
|
|
lt_dlloader_t *prev;
|
|
for (prev = loaders; prev->next; prev = prev->next)
|
|
if (!strcmp (prev->next->loader_name, loader_name))
|
|
break;
|
|
|
|
place = prev->next;
|
|
prev->next = prev->next->next;
|
|
}
|
|
if (place->dlloader_exit)
|
|
result = place->dlloader_exit (place->dlloader_data);
|
|
lt_dlfree (place);
|
|
|
|
return result;
|
|
}
|
|
|
|
lt_dlloader_t *
|
|
lt_dlloader_next (place)
|
|
lt_dlloader_t *place;
|
|
{
|
|
return place ? place->next : loaders;
|
|
}
|
|
|
|
const char *
|
|
lt_dlloader_name (place)
|
|
lt_dlloader_t *place;
|
|
{
|
|
if (!place)
|
|
last_error = LT_DLSTRERROR(INVALID_LOADER);
|
|
return place ? place->loader_name : 0;
|
|
}
|
|
|
|
lt_dlloader_data_t *
|
|
lt_dlloader_data (place)
|
|
lt_dlloader_t *place;
|
|
{
|
|
if (!place)
|
|
last_error = LT_DLSTRERROR(INVALID_LOADER);
|
|
return place ? &(place->dlloader_data) : 0;
|
|
}
|
|
|
|
lt_dlloader_t *
|
|
lt_dlloader_find (loader_name)
|
|
const char *loader_name;
|
|
{
|
|
lt_dlloader_t *place = 0;
|
|
|
|
for (place = loaders; place; place = place->next)
|
|
if (strcmp (place->loader_name, loader_name) == 0)
|
|
break;
|
|
|
|
return place;
|
|
}
|
|
|
|
static const char **user_error_strings = 0;
|
|
static int errorcode = LTDL_ERROR_MAX;
|
|
|
|
int
|
|
lt_dladderror (diagnostic)
|
|
const char *diagnostic;
|
|
{
|
|
int index = errorcode - LTDL_ERROR_MAX;
|
|
const char **temp = 0;
|
|
|
|
/* realloc is not entirely portable, so simulate it using
|
|
lt_dlmalloc and lt_dlfree. */
|
|
temp = (const char **) lt_dlmalloc ((1+index) * sizeof(const char*));
|
|
if (temp == 0) {
|
|
last_error = LT_DLSTRERROR(NO_MEMORY);
|
|
return -1;
|
|
}
|
|
|
|
/* Build the new vector in the memory addressed by temp. */
|
|
temp[index] = diagnostic;
|
|
while (--index >= 0)
|
|
temp[index] = user_error_strings[index];
|
|
|
|
lt_dlfree (user_error_strings);
|
|
user_error_strings = temp;
|
|
return errorcode++;
|
|
}
|
|
|
|
int
|
|
lt_dlseterror (index)
|
|
int index;
|
|
{
|
|
if (index >= errorcode || index < 0) {
|
|
last_error = LT_DLSTRERROR(INVALID_ERRORCODE);
|
|
return 1;
|
|
}
|
|
|
|
if (index < LTDL_ERROR_MAX)
|
|
last_error = ltdl_error_strings[errorcode];
|
|
else
|
|
last_error = user_error_strings[errorcode - LTDL_ERROR_MAX];
|
|
|
|
return 0;
|
|
}
|