#if HAVE_CONFIG_H
# include <config.h>
#endif
#if HAVE_UNISTD_H
# include <unistd.h>
#endif
#if HAVE_STDIO_H
# include <stdio.h>
#endif
#if HAVE_STDLIB_H
# include <stdlib.h>
#else
# if HAVE_MALLOC_H
# include <malloc.h>
# endif
#endif
#if HAVE_STRING_H
# include <string.h>
#else
# if HAVE_STRINGS_H
# include <strings.h>
# endif
#endif
#if HAVE_CTYPE_H
# include <ctype.h>
#endif
#if HAVE_MEMORY_H
# include <memory.h>
#endif
#if HAVE_ERRNO_H
# include <errno.h>
#endif
#ifndef __WINDOWS__
# ifdef __WIN32__
# define __WINDOWS__
# endif
#endif
#undef LT_USE_POSIX_DIRENT
#ifdef HAVE_CLOSEDIR
# ifdef HAVE_OPENDIR
# ifdef HAVE_READDIR
# ifdef HAVE_DIRENT_H
# define LT_USE_POSIX_DIRENT
# endif
# endif
# endif
#endif
#undef LT_USE_WINDOWS_DIRENT_EMULATION
#ifndef LT_USE_POSIX_DIRENT
# ifdef __WINDOWS__
# define LT_USE_WINDOWS_DIRENT_EMULATION
# endif
#endif
#ifdef LT_USE_POSIX_DIRENT
# include <dirent.h>
# define LT_D_NAMLEN(dirent) (strlen((dirent)->d_name))
#else
# ifdef LT_USE_WINDOWS_DIRENT_EMULATION
# define LT_D_NAMLEN(dirent) (strlen((dirent)->d_name))
# else
# define dirent direct
# define LT_D_NAMLEN(dirent) ((dirent)->d_namlen)
# if HAVE_SYS_NDIR_H
# include <sys/ndir.h>
# endif
# if HAVE_SYS_DIR_H
# include <sys/dir.h>
# endif
# if HAVE_NDIR_H
# include <ndir.h>
# endif
# endif
#endif
#if HAVE_ARGZ_H
# include <argz.h>
#endif
#if HAVE_ASSERT_H
# include <assert.h>
#else
# define assert(arg) ((void) 0)
#endif
#include "ltdl.h"
#if WITH_DMALLOC
# include <dmalloc.h>
#endif
#ifdef DLL_EXPORT
# define LT_GLOBAL_DATA __declspec(dllexport)
#else
# define LT_GLOBAL_DATA
#endif
#undef LT_READTEXT_MODE
#ifdef __WINDOWS__
# define LT_READTEXT_MODE "rt"
#else
# define LT_READTEXT_MODE "r"
#endif
#ifdef LT_USE_WINDOWS_DIRENT_EMULATION
#include <windows.h>
#define dirent lt_dirent
#define DIR lt_DIR
struct dirent
{
char d_name[2048];
int d_namlen;
};
typedef struct _DIR
{
HANDLE hSearch;
WIN32_FIND_DATA Win32FindData;
BOOL firsttime;
struct dirent file_info;
} DIR;
#endif
#undef LTDL_SEARCHPATH_VAR
#define LTDL_SEARCHPATH_VAR "LTDL_LIBRARY_PATH"
#undef LTDL_ARCHIVE_EXT
#define LTDL_ARCHIVE_EXT ".la"
#ifndef LT_FILENAME_MAX
# define LT_FILENAME_MAX 1024
#endif
#undef LT_SYMBOL_LENGTH
#define LT_SYMBOL_LENGTH 128
#undef LT_SYMBOL_OVERHEAD
#define LT_SYMBOL_OVERHEAD 5
static char *lt_estrdup LT_PARAMS((const char *str));
static lt_ptr lt_emalloc LT_PARAMS((size_t size));
static lt_ptr lt_erealloc LT_PARAMS((lt_ptr addr, size_t size));
#define rpl_realloc realloc
LT_GLOBAL_DATA lt_ptr (*lt_dlmalloc) LT_PARAMS((size_t size))
= (lt_ptr (*) LT_PARAMS((size_t))) malloc;
LT_GLOBAL_DATA lt_ptr (*lt_dlrealloc) LT_PARAMS((lt_ptr ptr, size_t size))
= (lt_ptr (*) LT_PARAMS((lt_ptr, size_t))) rpl_realloc;
LT_GLOBAL_DATA void (*lt_dlfree) LT_PARAMS((lt_ptr ptr))
= (void (*) LT_PARAMS((lt_ptr))) free;
#if WITH_DMALLOC
#define LT_DLMALLOC(tp, n) ((tp *) xmalloc ((n) * sizeof(tp)))
#define LT_DLREALLOC(tp, p, n) ((tp *) xrealloc ((p), (n) * sizeof(tp)))
#define LT_DLFREE(p) \
LT_STMT_START { if (p) (p) = (xfree (p), (lt_ptr) 0); } LT_STMT_END
#define LT_EMALLOC(tp, n) ((tp *) xmalloc ((n) * sizeof(tp)))
#define LT_EREALLOC(tp, p, n) ((tp *) xrealloc ((p), (n) * sizeof(tp)))
#else
#define LT_DLMALLOC(tp, n) ((tp *) lt_dlmalloc ((n) * sizeof(tp)))
#define LT_DLREALLOC(tp, p, n) ((tp *) lt_dlrealloc ((p), (n) * sizeof(tp)))
#define LT_DLFREE(p) \
LT_STMT_START { if (p) (p) = (lt_dlfree (p), (lt_ptr) 0); } LT_STMT_END
#define LT_EMALLOC(tp, n) ((tp *) lt_emalloc ((n) * sizeof(tp)))
#define LT_EREALLOC(tp, p, n) ((tp *) lt_erealloc ((p), (n) * sizeof(tp)))
#endif
#define LT_DLMEM_REASSIGN(p, q) LT_STMT_START { \
if ((p) != (q)) { if (p) lt_dlfree (p); (p) = (q); (q) = 0; } \
} LT_STMT_END
#undef strdup
#define strdup rpl_strdup
static char *strdup LT_PARAMS((const char *str));
static char *
strdup(str)
const char *str;
{
char *tmp = 0;
if (str)
{
tmp = LT_DLMALLOC (char, 1+ strlen (str));
if (tmp)
{
strcpy(tmp, str);
}
}
return tmp;
}
#if ! HAVE_STRCMP
#undef strcmp
#define strcmp rpl_strcmp
static int strcmp LT_PARAMS((const char *str1, const char *str2));
static 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 rpl_strchr
static const char *strchr LT_PARAMS((const char *str, int ch));
static const char*
strchr(str, ch)
const char *str;
int ch;
{
const char *p;
for (p = str; *p != (char)ch && *p != LT_EOS_CHAR; ++p)
;
return (*p == (char)ch) ? p : 0;
}
# endif
#endif
#if ! HAVE_STRRCHR
# if HAVE_RINDEX
# define strrchr rindex
# else
# define strrchr rpl_strrchr
static const char *strrchr LT_PARAMS((const char *str, int ch));
static const char*
strrchr(str, ch)
const char *str;
int ch;
{
const char *p, *q = 0;
for (p = str; *p != LT_EOS_CHAR; ++p)
{
if (*p == (char) ch)
{
q = p;
}
}
return q;
}
# endif
#endif
#if ! HAVE_MEMCPY
# if HAVE_BCOPY
# define memcpy(dest, src, size) bcopy (src, dest, size)
# else
# define memcpy rpl_memcpy
static lt_ptr memcpy LT_PARAMS((lt_ptr dest, const lt_ptr src, size_t size));
static lt_ptr
memcpy (dest, src, size)
lt_ptr dest;
const lt_ptr src;
size_t size;
{
const char * s = src;
char * d = dest;
size_t i = 0;
for (i = 0; i < size; ++i)
{
d[i] = s[i];
}
return dest;
}
# endif
#endif
#if ! HAVE_MEMMOVE
# define memmove rpl_memmove
static lt_ptr memmove LT_PARAMS((lt_ptr dest, const lt_ptr src, size_t size));
static lt_ptr
memmove (dest, src, size)
lt_ptr dest;
const lt_ptr src;
size_t size;
{
const char * s = src;
char * d = dest;
size_t i;
if (d < s)
for (i = 0; i < size; ++i)
{
d[i] = s[i];
}
else if (d > s && size > 0)
for (i = size -1; ; --i)
{
d[i] = s[i];
if (i == 0)
break;
}
return dest;
}
#endif
#ifdef LT_USE_WINDOWS_DIRENT_EMULATION
static void closedir LT_PARAMS((DIR *entry));
static void
closedir(entry)
DIR *entry;
{
assert(entry != (DIR *) NULL);
FindClose(entry->hSearch);
lt_dlfree((lt_ptr)entry);
}
static DIR * opendir LT_PARAMS((const char *path));
static DIR*
opendir (path)
const char *path;
{
char file_specification[LT_FILENAME_MAX];
DIR *entry;
assert(path != (char *) NULL);
(void) strncpy (file_specification, path, LT_FILENAME_MAX-6);
file_specification[LT_FILENAME_MAX-6] = LT_EOS_CHAR;
(void) strcat(file_specification,"\\");
entry = LT_DLMALLOC (DIR,sizeof(DIR));
if (entry != (DIR *) 0)
{
entry->firsttime = TRUE;
entry->hSearch = FindFirstFile(file_specification,&entry->Win32FindData);
}
if (entry->hSearch == INVALID_HANDLE_VALUE)
{
(void) strcat(file_specification,"\\*.*");
entry->hSearch = FindFirstFile(file_specification,&entry->Win32FindData);
if (entry->hSearch == INVALID_HANDLE_VALUE)
{
LT_DLFREE (entry);
return (DIR *) 0;
}
}
return(entry);
}
static struct dirent *readdir LT_PARAMS((DIR *entry));
static struct dirent *readdir(entry)
DIR *entry;
{
int
status;
if (entry == (DIR *) 0)
return((struct dirent *) 0);
if (!entry->firsttime)
{
status = FindNextFile(entry->hSearch,&entry->Win32FindData);
if (status == 0)
return((struct dirent *) 0);
}
entry->firsttime = FALSE;
(void) strncpy(entry->file_info.d_name,entry->Win32FindData.cFileName,
LT_FILENAME_MAX-1);
entry->file_info.d_name[LT_FILENAME_MAX - 1] = LT_EOS_CHAR;
entry->file_info.d_namlen = strlen(entry->file_info.d_name);
return(&entry->file_info);
}
#endif
#if 0
static lt_ptr
realloc (ptr, size)
lt_ptr ptr;
size_t size;
{
if (size == 0)
{
if (ptr != 0)
{
lt_dlfree (ptr);
}
return (lt_ptr) 0;
}
else if (ptr == 0)
{
return lt_dlmalloc (size);
}
else
{
lt_ptr mem = lt_dlmalloc (size);
if (mem)
{
memcpy (mem, ptr, size);
lt_dlfree (ptr);
}
return mem;
}
}
#endif
#if ! HAVE_ARGZ_APPEND
# define argz_append rpl_argz_append
static error_t argz_append LT_PARAMS((char **pargz, size_t *pargz_len,
const char *buf, size_t buf_len));
static error_t
argz_append (pargz, pargz_len, buf, buf_len)
char **pargz;
size_t *pargz_len;
const char *buf;
size_t buf_len;
{
size_t argz_len;
char *argz;
assert (pargz);
assert (pargz_len);
assert ((*pargz && *pargz_len) || (!*pargz && !*pargz_len));
if (buf_len == 0)
return 0;
argz_len = *pargz_len + buf_len;
argz = LT_DLREALLOC (char, *pargz, argz_len);
if (!argz)
return ENOMEM;
memcpy (argz + *pargz_len, buf, buf_len);
*pargz = argz;
*pargz_len = argz_len;
return 0;
}
#endif
#if ! HAVE_ARGZ_CREATE_SEP
# define argz_create_sep rpl_argz_create_sep
static error_t argz_create_sep LT_PARAMS((const char *str, int delim,
char **pargz, size_t *pargz_len));
static error_t
argz_create_sep (str, delim, pargz, pargz_len)
const char *str;
int delim;
char **pargz;
size_t *pargz_len;
{
size_t argz_len;
char *argz = 0;
assert (str);
assert (pargz);
assert (pargz_len);
argz_len = 1+ LT_STRLEN (str);
if (argz_len)
{
const char *p;
char *q;
argz = LT_DLMALLOC (char, argz_len);
if (!argz)
return ENOMEM;
for (p = str, q = argz; *p != LT_EOS_CHAR; ++p)
{
if (*p == delim)
{
if ((q > argz) && (q[-1] != LT_EOS_CHAR))
*q++ = LT_EOS_CHAR;
else
--argz_len;
}
else
*q++ = *p;
}
*q = *p;
}
if (!argz_len)
LT_DLFREE (argz);
*pargz = argz;
*pargz_len = argz_len;
return 0;
}
#endif
#if ! HAVE_ARGZ_INSERT
# define argz_insert rpl_argz_insert
static error_t argz_insert LT_PARAMS((char **pargz, size_t *pargz_len,
char *before, const char *entry));
static error_t
argz_insert (pargz, pargz_len, before, entry)
char **pargz;
size_t *pargz_len;
char *before;
const char *entry;
{
assert (pargz);
assert (pargz_len);
assert (entry && *entry);
if (!before)
return argz_append (pargz, pargz_len, entry, 1+ LT_STRLEN (entry));
while ((before > *pargz) && (before[-1] != LT_EOS_CHAR))
--before;
{
size_t entry_len = 1+ LT_STRLEN (entry);
size_t argz_len = *pargz_len + entry_len;
size_t offset = before - *pargz;
char *argz = LT_DLREALLOC (char, *pargz, argz_len);
if (!argz)
return ENOMEM;
before = argz + offset;
memmove (before + entry_len, before, *pargz_len - offset);
memcpy (before, entry, entry_len);
*pargz = argz;
*pargz_len = argz_len;
}
return 0;
}
#endif
#if ! HAVE_ARGZ_NEXT
# define argz_next rpl_argz_next
static char *argz_next LT_PARAMS((char *argz, size_t argz_len,
const char *entry));
static char *
argz_next (argz, argz_len, entry)
char *argz;
size_t argz_len;
const char *entry;
{
assert ((argz && argz_len) || (!argz && !argz_len));
if (entry)
{
assert ((!argz && !argz_len)
|| ((argz <= entry) && (entry < (argz + argz_len))));
entry = 1+ strchr (entry, LT_EOS_CHAR);
return (entry >= argz + argz_len) ? 0 : (char *) entry;
}
else
{
if (argz_len > 0)
return argz;
else
return 0;
}
}
#endif
#if ! HAVE_ARGZ_STRINGIFY
# define argz_stringify rpl_argz_stringify
static void argz_stringify LT_PARAMS((char *argz, size_t argz_len,
int sep));
static void
argz_stringify (argz, argz_len, sep)
char *argz;
size_t argz_len;
int sep;
{
assert ((argz && argz_len) || (!argz && !argz_len));
if (sep)
{
--argz_len;
while (--argz_len > 0)
{
if (argz[argz_len] == LT_EOS_CHAR)
argz[argz_len] = sep;
}
}
}
#endif
typedef struct {
lt_dlcaller_id key;
lt_ptr data;
} lt_caller_data;
static const char *lt_dlerror_strings[] =
{
#define LT_ERROR(name, diagnostic) (diagnostic),
lt_dlerror_table
#undef LT_ERROR
0
};
struct lt_dlloader {
struct lt_dlloader *next;
const char *loader_name;
const char *sym_prefix;
lt_module_open *module_open;
lt_module_close *module_close;
lt_find_sym *find_sym;
lt_dlloader_exit *dlloader_exit;
lt_user_data dlloader_data;
};
struct lt_dlhandle_struct {
struct lt_dlhandle_struct *next;
lt_dlloader *loader;
lt_dlinfo info;
int depcount;
lt_dlhandle *deplibs;
lt_module module;
lt_ptr system;
lt_caller_data *caller_data;
int flags;
};
#define LT_DLGET_FLAG(handle, flag) (((handle)->flags & (flag)) == (flag))
#define LT_DLSET_FLAG(handle, flag) ((handle)->flags |= (flag))
#define LT_DLRESIDENT_FLAG (0x01 << 0)
#define LT_DLIS_RESIDENT(handle) LT_DLGET_FLAG(handle, LT_DLRESIDENT_FLAG)
#define LT_DLSTRERROR(name) lt_dlerror_strings[LT_CONC(LT_ERROR_,name)]
static const char objdir[] = LTDL_OBJDIR;
static const char archive_ext[] = LTDL_ARCHIVE_EXT;
#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
#define LT_DLMUTEX_LOCK() LT_STMT_START { \
if (lt_dlmutex_lock_func) (*lt_dlmutex_lock_func)(); \
} LT_STMT_END
#define LT_DLMUTEX_UNLOCK() LT_STMT_START { \
if (lt_dlmutex_unlock_func) (*lt_dlmutex_unlock_func)();\
} LT_STMT_END
#define LT_DLMUTEX_SETERROR(errormsg) LT_STMT_START { \
if (lt_dlmutex_seterror_func) \
(*lt_dlmutex_seterror_func) (errormsg); \
else lt_dllast_error = (errormsg); } LT_STMT_END
#define LT_DLMUTEX_GETERROR(errormsg) LT_STMT_START { \
if (lt_dlmutex_seterror_func) \
(errormsg) = (*lt_dlmutex_geterror_func) (); \
else (errormsg) = lt_dllast_error; } LT_STMT_END
static lt_dlmutex_lock *lt_dlmutex_lock_func = 0;
static lt_dlmutex_unlock *lt_dlmutex_unlock_func = 0;
static lt_dlmutex_seterror *lt_dlmutex_seterror_func = 0;
static lt_dlmutex_geterror *lt_dlmutex_geterror_func = 0;
static const char *lt_dllast_error = 0;
int
lt_dlmutex_register (lock, unlock, seterror, geterror)
lt_dlmutex_lock *lock;
lt_dlmutex_unlock *unlock;
lt_dlmutex_seterror *seterror;
lt_dlmutex_geterror *geterror;
{
lt_dlmutex_unlock *old_unlock = unlock;
int errors = 0;
LT_DLMUTEX_LOCK ();
if ((lock && unlock && seterror && geterror)
|| !(lock || unlock || seterror || geterror))
{
lt_dlmutex_lock_func = lock;
lt_dlmutex_unlock_func = unlock;
lt_dlmutex_geterror_func = geterror;
}
else
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_MUTEX_ARGS));
++errors;
}
if (old_unlock)
(*old_unlock) ();
return errors;
}
static const char **user_error_strings = 0;
static int errorcount = LT_ERROR_MAX;
int
lt_dladderror (diagnostic)
const char *diagnostic;
{
int errindex = 0;
int result = -1;
const char **temp = (const char **) 0;
assert (diagnostic);
LT_DLMUTEX_LOCK ();
errindex = errorcount - LT_ERROR_MAX;
temp = LT_EREALLOC (const char *, user_error_strings, 1 + errindex);
if (temp)
{
user_error_strings = temp;
user_error_strings[errindex] = diagnostic;
result = errorcount++;
}
LT_DLMUTEX_UNLOCK ();
return result;
}
int
lt_dlseterror (errindex)
int errindex;
{
int errors = 0;
LT_DLMUTEX_LOCK ();
if (errindex >= errorcount || errindex < 0)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_ERRORCODE));
++errors;
}
else if (errindex < LT_ERROR_MAX)
{
LT_DLMUTEX_SETERROR (lt_dlerror_strings[errindex]);
}
else
{
LT_DLMUTEX_SETERROR (user_error_strings[errindex - LT_ERROR_MAX]);
}
LT_DLMUTEX_UNLOCK ();
return errors;
}
static lt_ptr
lt_emalloc (size)
size_t size;
{
lt_ptr mem = lt_dlmalloc (size);
if (size && !mem)
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
return mem;
}
static lt_ptr
lt_erealloc (addr, size)
lt_ptr addr;
size_t size;
{
lt_ptr mem = lt_dlrealloc (addr, size);
if (size && !mem)
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
return mem;
}
static char *
lt_estrdup (str)
const char *str;
{
char *copy = strdup (str);
if (LT_STRLEN (str) && !copy)
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
return copy;
}
#if HAVE_LIBDL
#if HAVE_DLFCN_H
# include <dlfcn.h>
#endif
#if HAVE_SYS_DL_H
# include <sys/dl.h>
#endif
#ifdef RTLD_GLOBAL
# define LT_GLOBAL RTLD_GLOBAL
#else
# ifdef DL_GLOBAL
# define LT_GLOBAL DL_GLOBAL
# endif
#endif
#ifndef LT_GLOBAL
# define LT_GLOBAL 0
#endif
#ifndef LT_LAZY_OR_NOW
# ifdef RTLD_LAZY
# define LT_LAZY_OR_NOW RTLD_LAZY
# else
# ifdef DL_LAZY
# define LT_LAZY_OR_NOW DL_LAZY
# endif
# endif
#endif
#ifndef LT_LAZY_OR_NOW
# ifdef RTLD_NOW
# define LT_LAZY_OR_NOW RTLD_NOW
# else
# ifdef DL_NOW
# define LT_LAZY_OR_NOW DL_NOW
# endif
# endif
#endif
#ifndef LT_LAZY_OR_NOW
# define LT_LAZY_OR_NOW 0
#endif
#if HAVE_DLERROR
# define DLERROR(arg) dlerror ()
#else
# define DLERROR(arg) LT_DLSTRERROR (arg)
#endif
static lt_module
sys_dl_open (loader_data, filename)
lt_user_data loader_data;
const char *filename;
{
lt_module module = dlopen (filename, LT_GLOBAL | LT_LAZY_OR_NOW);
if (!module)
{
LT_DLMUTEX_SETERROR (DLERROR (CANNOT_OPEN));
}
return module;
}
static int
sys_dl_close (loader_data, module)
lt_user_data loader_data;
lt_module module;
{
int errors = 0;
if (dlclose (module) != 0)
{
LT_DLMUTEX_SETERROR (DLERROR (CANNOT_CLOSE));
++errors;
}
return errors;
}
static lt_ptr
sys_dl_sym (loader_data, module, symbol)
lt_user_data loader_data;
lt_module module;
const char *symbol;
{
lt_ptr address = dlsym (module, symbol);
if (!address)
{
LT_DLMUTEX_SETERROR (DLERROR (SYMBOL_NOT_FOUND));
}
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
#ifdef HAVE_DL_H
# include <dl.h>
#endif
#ifndef DYNAMIC_PATH
# define DYNAMIC_PATH 0
#endif
#ifndef BIND_RESTRICTED
# define BIND_RESTRICTED 0
#endif
#define LT_BIND_FLAGS (BIND_IMMEDIATE | BIND_NONFATAL | DYNAMIC_PATH)
static lt_module
sys_shl_open (loader_data, filename)
lt_user_data loader_data;
const char *filename;
{
static shl_t self = (shl_t) 0;
lt_module module = shl_load (filename, LT_BIND_FLAGS, 0L);
if (!self)
{
lt_ptr address;
shl_findsym (&self, "main", TYPE_UNDEFINED, &address);
}
if (!filename)
{
module = self;
}
else
{
module = shl_load (filename, LT_BIND_FLAGS, 0L);
if (!module)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
}
}
return module;
}
static int
sys_shl_close (loader_data, module)
lt_user_data loader_data;
lt_module module;
{
int errors = 0;
if (module && (shl_unload ((shl_t) (module)) != 0))
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
++errors;
}
return errors;
}
static lt_ptr
sys_shl_sym (loader_data, module, symbol)
lt_user_data loader_data;
lt_module module;
const char *symbol;
{
lt_ptr address = 0;
if (module == (lt_module) 0)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
}
else if (!shl_findsym((shl_t*) &module, symbol, TYPE_UNDEFINED, &address))
{
if (!address)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
}
}
return address;
}
static struct lt_user_dlloader sys_shl = {
0, sys_shl_open, sys_shl_close, sys_shl_sym, 0, 0
};
#endif
#ifdef __WINDOWS__
#include <windows.h>
static lt_dlhandle handles;
static lt_module
sys_wll_open (loader_data, filename)
lt_user_data loader_data;
const char *filename;
{
lt_dlhandle cur;
lt_module module = 0;
const char *errormsg = 0;
char *searchname = 0;
char *ext;
char self_name_buf[MAX_PATH];
if (!filename)
{
*self_name_buf = 0;
GetModuleFileName (NULL, self_name_buf, sizeof (self_name_buf));
filename = ext = self_name_buf;
}
else
{
ext = strrchr (filename, '.');
}
if (ext)
{
searchname = lt_estrdup (filename);
}
else
{
searchname = LT_EMALLOC (char, 2+ LT_STRLEN (filename));
if (searchname)
sprintf (searchname, "%s.", filename);
}
if (!searchname)
return 0;
{
UINT errormode = SetErrorMode(SEM_FAILCRITICALERRORS);
SetErrorMode(errormode | SEM_FAILCRITICALERRORS);
#if defined(__CYGWIN__)
{
char wpath[MAX_PATH];
cygwin_conv_to_full_win32_path (searchname, wpath);
module = LoadLibrary (wpath);
}
#else
module = LoadLibrary (searchname);
#endif
SetErrorMode(errormode);
}
LT_DLFREE (searchname);
LT_DLMUTEX_LOCK ();
cur = handles;
while (cur)
{
if (!cur->module)
{
cur = 0;
break;
}
if (cur->module == module)
{
break;
}
cur = cur->next;
}
LT_DLMUTEX_UNLOCK ();
if (cur || !module)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
module = 0;
}
return module;
}
static int
sys_wll_close (loader_data, module)
lt_user_data loader_data;
lt_module module;
{
int errors = 0;
if (FreeLibrary(module) == 0)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
++errors;
}
return errors;
}
static lt_ptr
sys_wll_sym (loader_data, module, symbol)
lt_user_data loader_data;
lt_module module;
const char *symbol;
{
lt_ptr address = GetProcAddress (module, symbol);
if (!address)
{
LT_DLMUTEX_SETERROR (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__
#include <kernel/image.h>
static lt_module
sys_bedl_open (loader_data, filename)
lt_user_data 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)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
image = 0;
}
return (lt_module) image;
}
static int
sys_bedl_close (loader_data, module)
lt_user_data loader_data;
lt_module module;
{
int errors = 0;
if (unload_add_on ((image_id) module) != B_OK)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
++errors;
}
return errors;
}
static lt_ptr
sys_bedl_sym (loader_data, module, symbol)
lt_user_data loader_data;
lt_module module;
const char *symbol;
{
lt_ptr address = 0;
image_id image = (image_id) module;
if (get_image_symbol (image, symbol, B_SYMBOL_TYPE_ANY, address) != B_OK)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
address = 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
#if HAVE_DLD_H
#include <dld.h>
#endif
static lt_module
sys_dld_open (loader_data, filename)
lt_user_data loader_data;
const char *filename;
{
lt_module module = strdup (filename);
if (dld_link (filename) != 0)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_OPEN));
LT_DLFREE (module);
module = 0;
}
return module;
}
static int
sys_dld_close (loader_data, module)
lt_user_data loader_data;
lt_module module;
{
int errors = 0;
if (dld_unlink_by_file ((char*)(module), 1) != 0)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CANNOT_CLOSE));
++errors;
}
else
{
LT_DLFREE (module);
}
return errors;
}
static lt_ptr
sys_dld_sym (loader_data, module, symbol)
lt_user_data loader_data;
lt_module module;
const char *symbol;
{
lt_ptr address = dld_get_func (symbol);
if (!address)
{
LT_DLMUTEX_SETERROR (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
#if HAVE_DYLD
#if HAVE_MACH_O_DYLD_H
#if !defined(__APPLE_CC__) && !defined(__MWERKS__) && !defined(__private_extern__)
#define __private_extern__ extern
#endif
# include <mach-o/dyld.h>
#endif
#include <mach-o/getsect.h>
#ifndef ENUM_DYLD_BOOL
# define ENUM_DYLD_BOOL
# undef FALSE
# undef TRUE
enum DYLD_BOOL {
FALSE,
TRUE
};
#endif
#ifndef LC_REQ_DYLD
# define LC_REQ_DYLD 0x80000000
#endif
#ifndef LC_LOAD_WEAK_DYLIB
# define LC_LOAD_WEAK_DYLIB (0x18 | LC_REQ_DYLD)
#endif
static const struct mach_header * (*ltdl_NSAddImage)(const char *image_name, unsigned long options) = 0;
static NSSymbol (*ltdl_NSLookupSymbolInImage)(const struct mach_header *image,const char *symbolName, unsigned long options) = 0;
static enum DYLD_BOOL (*ltdl_NSIsSymbolNameDefinedInImage)(const struct mach_header *image, const char *symbolName) = 0;
static enum DYLD_BOOL (*ltdl_NSMakePrivateModulePublic)(NSModule module) = 0;
#ifndef NSADDIMAGE_OPTION_NONE
#define NSADDIMAGE_OPTION_NONE 0x0
#endif
#ifndef NSADDIMAGE_OPTION_RETURN_ON_ERROR
#define NSADDIMAGE_OPTION_RETURN_ON_ERROR 0x1
#endif
#ifndef NSADDIMAGE_OPTION_WITH_SEARCHING
#define NSADDIMAGE_OPTION_WITH_SEARCHING 0x2
#endif
#ifndef NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED
#define NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED 0x4
#endif
#ifndef NSADDIMAGE_OPTION_MATCH_FILENAME_BY_INSTALLNAME
#define NSADDIMAGE_OPTION_MATCH_FILENAME_BY_INSTALLNAME 0x8
#endif
#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_BIND
#define NSLOOKUPSYMBOLINIMAGE_OPTION_BIND 0x0
#endif
#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW
#define NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW 0x1
#endif
#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_FULLY
#define NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_FULLY 0x2
#endif
#ifndef NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR
#define NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR 0x4
#endif
static const char *
lt_int_dyld_error(othererror)
char* othererror;
{
NSLinkEditErrors ler;
int lerno;
const char *errstr;
const char *file;
NSLinkEditError(&ler,&lerno,&file,&errstr);
if (!errstr || !strlen(errstr)) errstr = othererror;
return errstr;
}
static const struct mach_header *
lt_int_dyld_get_mach_header_from_nsmodule(module)
NSModule module;
{
int i=_dyld_image_count();
int j;
const char *modname=NSNameOfModule(module);
const struct mach_header *mh=NULL;
if (!modname) return NULL;
for (j = 0; j < i; j++)
{
if (!strcmp(_dyld_get_image_name(j),modname))
{
mh=_dyld_get_image_header(j);
break;
}
}
return mh;
}
static const char* lt_int_dyld_lib_install_name(mh)
const struct mach_header *mh;
{
int j;
struct load_command *lc;
unsigned long offset = sizeof(struct mach_header);
const char* retStr=NULL;
for (j = 0; j < mh->ncmds; j++)
{
lc = (struct load_command*)(((unsigned long)mh) + offset);
if (LC_ID_DYLIB == lc->cmd)
{
retStr=(char*)(((struct dylib_command*)lc)->dylib.name.offset +
(unsigned long)lc);
}
offset += lc->cmdsize;
}
return retStr;
}
static const struct mach_header *
lt_int_dyld_match_loaded_lib_by_install_name(const char *name)
{
int i=_dyld_image_count();
int j;
const struct mach_header *mh=NULL;
const char *id=NULL;
for (j = 0; j < i; j++)
{
id=lt_int_dyld_lib_install_name(_dyld_get_image_header(j));
if ((id) && (!strcmp(id,name)))
{
mh=_dyld_get_image_header(j);
break;
}
}
return mh;
}
static NSSymbol
lt_int_dyld_NSlookupSymbolInLinkedLibs(symbol,mh)
const char *symbol;
const struct mach_header *mh;
{
int j;
struct load_command *lc;
unsigned long offset = sizeof(struct mach_header);
NSSymbol retSym = 0;
const struct mach_header *mh1;
if ((ltdl_NSLookupSymbolInImage) && NSIsSymbolNameDefined(symbol) )
{
for (j = 0; j < mh->ncmds; j++)
{
lc = (struct load_command*)(((unsigned long)mh) + offset);
if ((LC_LOAD_DYLIB == lc->cmd) || (LC_LOAD_WEAK_DYLIB == lc->cmd))
{
mh1=lt_int_dyld_match_loaded_lib_by_install_name((char*)(((struct dylib_command*)lc)->dylib.name.offset +
(unsigned long)lc));
if (!mh1)
{
mh1=ltdl_NSAddImage((char*)(((struct dylib_command*)lc)->dylib.name.offset +
(unsigned long)lc),
NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED +
NSADDIMAGE_OPTION_WITH_SEARCHING +
NSADDIMAGE_OPTION_RETURN_ON_ERROR );
}
if (mh1)
{
retSym = ltdl_NSLookupSymbolInImage(mh1,
symbol,
NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW
| NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR
);
if (retSym) break;
}
}
offset += lc->cmdsize;
}
}
return retSym;
}
static int
sys_dyld_init()
{
int retCode = 0;
int err = 0;
if (!_dyld_present()) {
retCode=1;
}
else {
err = _dyld_func_lookup("__dyld_NSAddImage",(unsigned long*)<dl_NSAddImage);
err = _dyld_func_lookup("__dyld_NSLookupSymbolInImage",(unsigned long*)<dl_NSLookupSymbolInImage);
err = _dyld_func_lookup("__dyld_NSIsSymbolNameDefinedInImage",(unsigned long*)<dl_NSIsSymbolNameDefinedInImage);
err = _dyld_func_lookup("__dyld_NSMakePrivateModulePublic",(unsigned long*)<dl_NSMakePrivateModulePublic);
}
return retCode;
}
static lt_module
sys_dyld_open (loader_data, filename)
lt_user_data loader_data;
const char *filename;
{
lt_module module = 0;
NSObjectFileImage ofi = 0;
NSObjectFileImageReturnCode ofirc;
if (!filename)
return (lt_module)-1;
ofirc = NSCreateObjectFileImageFromFile(filename, &ofi);
switch (ofirc)
{
case NSObjectFileImageSuccess:
module = NSLinkModule(ofi, filename,
NSLINKMODULE_OPTION_RETURN_ON_ERROR
| NSLINKMODULE_OPTION_PRIVATE
| NSLINKMODULE_OPTION_BINDNOW);
NSDestroyObjectFileImage(ofi);
if (module)
ltdl_NSMakePrivateModulePublic(module);
break;
case NSObjectFileImageInappropriateFile:
if (ltdl_NSIsSymbolNameDefinedInImage && ltdl_NSLookupSymbolInImage)
{
module = (lt_module)ltdl_NSAddImage(filename, NSADDIMAGE_OPTION_RETURN_ON_ERROR);
break;
}
default:
LT_DLMUTEX_SETERROR (lt_int_dyld_error(LT_DLSTRERROR(CANNOT_OPEN)));
return 0;
}
if (!module) LT_DLMUTEX_SETERROR (lt_int_dyld_error(LT_DLSTRERROR(CANNOT_OPEN)));
return module;
}
static int
sys_dyld_close (loader_data, module)
lt_user_data loader_data;
lt_module module;
{
int retCode = 0;
int flags = 0;
if (module == (lt_module)-1) return 0;
#ifdef __BIG_ENDIAN__
if (((struct mach_header *)module)->magic == MH_MAGIC)
#else
if (((struct mach_header *)module)->magic == MH_CIGAM)
#endif
{
LT_DLMUTEX_SETERROR("Can not close a dylib");
retCode = 1;
}
else
{
#if 1
if ((const struct section *)NULL !=
getsectbynamefromheader(lt_int_dyld_get_mach_header_from_nsmodule(module),
"__DATA","__mod_term_func"))
{
flags += NSUNLINKMODULE_OPTION_KEEP_MEMORY_MAPPED;
}
#endif
#ifdef __ppc__
flags += NSUNLINKMODULE_OPTION_RESET_LAZY_REFERENCES;
#endif
if (!NSUnLinkModule(module,flags))
{
retCode=1;
LT_DLMUTEX_SETERROR (lt_int_dyld_error(LT_DLSTRERROR(CANNOT_CLOSE)));
}
}
return retCode;
}
static lt_ptr
sys_dyld_sym (loader_data, module, symbol)
lt_user_data loader_data;
lt_module module;
const char *symbol;
{
lt_ptr address = 0;
NSSymbol *nssym = 0;
void *unused;
const struct mach_header *mh=NULL;
char saveError[256] = "Symbol not found";
if (module == (lt_module)-1)
{
_dyld_lookup_and_bind(symbol,(unsigned long*)&address,&unused);
return address;
}
#ifdef __BIG_ENDIAN__
if (((struct mach_header *)module)->magic == MH_MAGIC)
#else
if (((struct mach_header *)module)->magic == MH_CIGAM)
#endif
{
if (ltdl_NSIsSymbolNameDefinedInImage && ltdl_NSLookupSymbolInImage)
{
mh=module;
if (ltdl_NSIsSymbolNameDefinedInImage((struct mach_header*)module,symbol))
{
nssym = ltdl_NSLookupSymbolInImage((struct mach_header*)module,
symbol,
NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW
| NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR
);
}
}
}
else {
nssym = NSLookupSymbolInModule(module, symbol);
}
if (!nssym)
{
strncpy(saveError, lt_int_dyld_error(LT_DLSTRERROR(SYMBOL_NOT_FOUND)), 255);
saveError[255] = 0;
if (!mh) mh=lt_int_dyld_get_mach_header_from_nsmodule(module);
nssym = lt_int_dyld_NSlookupSymbolInLinkedLibs(symbol,mh);
}
if (!nssym)
{
LT_DLMUTEX_SETERROR (saveError);
return NULL;
}
return NSAddressOfSymbol(nssym);
}
static struct lt_user_dlloader sys_dyld =
{ "_", sys_dyld_open, sys_dyld_close, sys_dyld_sym, 0, 0 };
#endif
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_user_data loader_data;
{
int errors = 0;
LT_DLMUTEX_LOCK ();
preloaded_symbols = 0;
if (default_preloaded_symbols)
{
errors = lt_dlpreload (default_preloaded_symbols);
}
LT_DLMUTEX_UNLOCK ();
return errors;
}
static int
presym_free_symlists ()
{
lt_dlsymlists_t *lists;
LT_DLMUTEX_LOCK ();
lists = preloaded_symbols;
while (lists)
{
lt_dlsymlists_t *tmp = lists;
lists = lists->next;
LT_DLFREE (tmp);
}
preloaded_symbols = 0;
LT_DLMUTEX_UNLOCK ();
return 0;
}
static int
presym_exit (loader_data)
lt_user_data 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;
int errors = 0;
LT_DLMUTEX_LOCK ();
lists = preloaded_symbols;
while (lists)
{
if (lists->syms == preloaded)
{
goto done;
}
lists = lists->next;
}
tmp = LT_EMALLOC (lt_dlsymlists_t, 1);
if (tmp)
{
memset (tmp, 0, sizeof(lt_dlsymlists_t));
tmp->syms = preloaded;
tmp->next = preloaded_symbols;
preloaded_symbols = tmp;
}
else
{
++errors;
}
done:
LT_DLMUTEX_UNLOCK ();
return errors;
}
static lt_module
presym_open (loader_data, filename)
lt_user_data loader_data;
const char *filename;
{
lt_dlsymlists_t *lists;
lt_module module = (lt_module) 0;
LT_DLMUTEX_LOCK ();
lists = preloaded_symbols;
if (!lists)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_SYMBOLS));
goto done;
}
if (!filename)
{
filename = "@PROGRAM@";
}
while (lists)
{
const lt_dlsymlist *syms = lists->syms;
while (syms->name)
{
if (!syms->address && strcmp(syms->name, filename) == 0)
{
module = (lt_module) syms;
goto done;
}
++syms;
}
lists = lists->next;
}
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
done:
LT_DLMUTEX_UNLOCK ();
return module;
}
static int
presym_close (loader_data, module)
lt_user_data loader_data;
lt_module module;
{
module = 0;
return 0;
}
static lt_ptr
presym_sym (loader_data, module, symbol)
lt_user_data loader_data;
lt_module module;
const char *symbol;
{
lt_dlsymlist *syms = (lt_dlsymlist*) module;
++syms;
while (syms->address)
{
if (strcmp(syms->name, symbol) == 0)
{
return syms->address;
}
++syms;
}
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
return 0;
}
static struct lt_user_dlloader presym = {
0, presym_open, presym_close, presym_sym, presym_exit, 0
};
typedef int foreach_callback_func LT_PARAMS((char *filename, lt_ptr data1,
lt_ptr data2));
static int foreach_dirinpath LT_PARAMS((const char *search_path,
const char *base_name,
foreach_callback_func *func,
lt_ptr data1, lt_ptr data2));
static int find_file_callback LT_PARAMS((char *filename, lt_ptr data,
lt_ptr ignored));
static int find_handle_callback LT_PARAMS((char *filename, lt_ptr data,
lt_ptr ignored));
static int foreachfile_callback LT_PARAMS((char *filename, lt_ptr data1,
lt_ptr data2));
static int canonicalize_path LT_PARAMS((const char *path,
char **pcanonical));
static int argzize_path LT_PARAMS((const char *path,
char **pargz,
size_t *pargz_len));
static FILE *find_file LT_PARAMS((const char *search_path,
const char *base_name,
char **pdir));
static lt_dlhandle *find_handle LT_PARAMS((const char *search_path,
const char *base_name,
lt_dlhandle *handle));
static int find_module LT_PARAMS((lt_dlhandle *handle,
const char *dir,
const char *libdir,
const char *dlname,
const char *old_name,
int installed));
static int free_vars LT_PARAMS((char *dlname, char *oldname,
char *libdir, char *deplibs));
static int load_deplibs LT_PARAMS((lt_dlhandle handle,
char *deplibs));
static int trim LT_PARAMS((char **dest,
const char *str));
static int try_dlopen LT_PARAMS((lt_dlhandle *handle,
const char *filename));
static int tryall_dlopen LT_PARAMS((lt_dlhandle *handle,
const char *filename));
static int unload_deplibs LT_PARAMS((lt_dlhandle handle));
static int lt_argz_insert LT_PARAMS((char **pargz,
size_t *pargz_len,
char *before,
const char *entry));
static int lt_argz_insertinorder LT_PARAMS((char **pargz,
size_t *pargz_len,
const char *entry));
static int lt_argz_insertdir LT_PARAMS((char **pargz,
size_t *pargz_len,
const char *dirnam,
struct dirent *dp));
static int lt_dlpath_insertdir LT_PARAMS((char **ppath,
char *before,
const char *dir));
static int list_files_by_dir LT_PARAMS((const char *dirnam,
char **pargz,
size_t *pargz_len));
static int file_not_found LT_PARAMS((void));
static char *user_search_path= 0;
static lt_dlloader *loaders = 0;
static lt_dlhandle handles = 0;
static int initialized = 0;
int
lt_dlinit ()
{
int errors = 0;
LT_DLMUTEX_LOCK ();
if (++initialized == 1)
{
handles = 0;
user_search_path = 0;
#if HAVE_LIBDL
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 __WINDOWS__
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
#if HAVE_DYLD
errors += lt_dlloader_add (lt_dlloader_next (0), &sys_dyld, "dyld");
errors += sys_dyld_init();
#endif
errors += lt_dlloader_add (lt_dlloader_next (0), &presym, "dlpreload");
if (presym_init (presym.dlloader_data))
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INIT_LOADER));
++errors;
}
else if (errors != 0)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (DLOPEN_NOT_SUPPORTED));
++errors;
}
}
LT_DLMUTEX_UNLOCK ();
return errors;
}
int
lt_dlpreload (preloaded)
const lt_dlsymlist *preloaded;
{
int errors = 0;
if (preloaded)
{
errors = presym_add_symlist (preloaded);
}
else
{
presym_free_symlists();
LT_DLMUTEX_LOCK ();
if (default_preloaded_symbols)
{
errors = lt_dlpreload (default_preloaded_symbols);
}
LT_DLMUTEX_UNLOCK ();
}
return errors;
}
int
lt_dlpreload_default (preloaded)
const lt_dlsymlist *preloaded;
{
LT_DLMUTEX_LOCK ();
default_preloaded_symbols = preloaded;
LT_DLMUTEX_UNLOCK ();
return 0;
}
int
lt_dlexit ()
{
lt_dlloader *loader;
int errors = 0;
LT_DLMUTEX_LOCK ();
loader = loaders;
if (!initialized)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SHUTDOWN));
++errors;
goto done;
}
if (--initialized == 0)
{
int level;
while (handles && LT_DLIS_RESIDENT (handles))
{
handles = handles->next;
}
for (level = 1; handles; ++level)
{
lt_dlhandle cur = handles;
int saw_nonresident = 0;
while (cur)
{
lt_dlhandle tmp = cur;
cur = cur->next;
if (!LT_DLIS_RESIDENT (tmp))
saw_nonresident = 1;
if (!LT_DLIS_RESIDENT (tmp) && tmp->info.ref_count <= level)
{
if (lt_dlclose (tmp))
{
++errors;
}
}
}
if (!saw_nonresident)
break;
}
while (loader)
{
lt_dlloader *next = loader->next;
lt_user_data data = loader->dlloader_data;
if (loader->dlloader_exit && loader->dlloader_exit (data))
{
++errors;
}
LT_DLMEM_REASSIGN (loader, next);
}
loaders = 0;
}
done:
LT_DLMUTEX_UNLOCK ();
return errors;
}
static int
tryall_dlopen (handle, filename)
lt_dlhandle *handle;
const char *filename;
{
lt_dlhandle cur;
lt_dlloader *loader;
const char *saved_error;
int errors = 0;
LT_DLMUTEX_GETERROR (saved_error);
LT_DLMUTEX_LOCK ();
cur = handles;
loader = loaders;
while (cur)
{
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;
goto done;
}
cur = *handle;
if (filename)
{
cur->info.filename = lt_estrdup (filename);
if (!cur->info.filename)
{
++errors;
goto done;
}
}
else
{
cur->info.filename = 0;
}
while (loader)
{
lt_user_data data = loader->dlloader_data;
cur->module = loader->module_open (data, filename);
if (cur->module != 0)
{
break;
}
loader = loader->next;
}
if (!loader)
{
LT_DLFREE (cur->info.filename);
++errors;
goto done;
}
cur->loader = loader;
LT_DLMUTEX_SETERROR (saved_error);
done:
LT_DLMUTEX_UNLOCK ();
return errors;
}
static int
tryall_dlopen_module (handle, prefix, dirname, dlname)
lt_dlhandle *handle;
const char *prefix;
const char *dirname;
const char *dlname;
{
int error = 0;
char *filename = 0;
size_t filename_len = 0;
size_t dirname_len = LT_STRLEN (dirname);
assert (handle);
assert (dirname);
assert (dlname);
#ifdef LT_DIRSEP_CHAR
assert (strchr (dirname, LT_DIRSEP_CHAR) == 0);
#endif
if (dirname_len > 0)
if (dirname[dirname_len -1] == '/')
--dirname_len;
filename_len = dirname_len + 1 + LT_STRLEN (dlname);
filename = LT_EMALLOC (char, dirname_len + 1 + filename_len + 1);
if (!filename)
return 1;
sprintf (filename, "%.*s/%s", (int) dirname_len, dirname, dlname);
if (prefix)
{
error += tryall_dlopen_module (handle,
(const char *) 0, prefix, filename);
}
else if (tryall_dlopen (handle, filename) != 0)
{
++error;
}
LT_DLFREE (filename);
return error;
}
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;
{
if (old_name && tryall_dlopen (handle, old_name) == 0)
{
return 0;
}
if (dlname)
{
if (installed && libdir)
{
if (tryall_dlopen_module (handle,
(const char *) 0, libdir, dlname) == 0)
return 0;
}
if (!installed)
{
if (tryall_dlopen_module (handle, dir, objdir, dlname) == 0)
return 0;
}
{
if (dir && (tryall_dlopen_module (handle,
(const char *) 0, dir, dlname) == 0))
return 0;
}
}
return 1;
}
static int
canonicalize_path (path, pcanonical)
const char *path;
char **pcanonical;
{
char *canonical = 0;
assert (path && *path);
assert (pcanonical);
canonical = LT_EMALLOC (char, 1+ LT_STRLEN (path));
if (!canonical)
return 1;
{
size_t dest = 0;
size_t src;
for (src = 0; path[src] != LT_EOS_CHAR; ++src)
{
if (path[src] == LT_PATHSEP_CHAR)
{
if ((dest == 0)
|| (path[1+ src] == LT_PATHSEP_CHAR)
|| (path[1+ src] == LT_EOS_CHAR))
continue;
}
if ((path[src] != '/')
#ifdef LT_DIRSEP_CHAR
&& (path[src] != LT_DIRSEP_CHAR)
#endif
)
{
canonical[dest++] = path[src];
}
else if ((path[1+ src] != LT_PATHSEP_CHAR)
&& (path[1+ src] != LT_EOS_CHAR)
#ifdef LT_DIRSEP_CHAR
&& (path[1+ src] != LT_DIRSEP_CHAR)
#endif
&& (path[1+ src] != '/'))
{
canonical[dest++] = '/';
}
}
canonical[dest] = LT_EOS_CHAR;
}
*pcanonical = canonical;
return 0;
}
static int
argzize_path (path, pargz, pargz_len)
const char *path;
char **pargz;
size_t *pargz_len;
{
error_t error;
assert (path);
assert (pargz);
assert (pargz_len);
if ((error = argz_create_sep (path, LT_PATHSEP_CHAR, pargz, pargz_len)))
{
switch (error)
{
case ENOMEM:
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
break;
default:
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (UNKNOWN));
break;
}
return 1;
}
return 0;
}
static int
foreach_dirinpath (search_path, base_name, func, data1, data2)
const char *search_path;
const char *base_name;
foreach_callback_func *func;
lt_ptr data1;
lt_ptr data2;
{
int result = 0;
int filenamesize = 0;
size_t lenbase = LT_STRLEN (base_name);
size_t argz_len = 0;
char *argz = 0;
char *filename = 0;
char *canonical = 0;
LT_DLMUTEX_LOCK ();
if (!search_path || !*search_path)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
goto cleanup;
}
if (canonicalize_path (search_path, &canonical) != 0)
goto cleanup;
if (argzize_path (canonical, &argz, &argz_len) != 0)
goto cleanup;
{
char *dir_name = 0;
while ((dir_name = argz_next (argz, argz_len, dir_name)))
{
size_t lendir = LT_STRLEN (dir_name);
if (lendir +1 +lenbase >= filenamesize)
{
LT_DLFREE (filename);
filenamesize = lendir +1 +lenbase +1;
filename = LT_EMALLOC (char, filenamesize);
if (!filename)
goto cleanup;
}
assert (filenamesize > lendir);
strcpy (filename, dir_name);
if (base_name && *base_name)
{
if (filename[lendir -1] != '/')
filename[lendir++] = '/';
strcpy (filename +lendir, base_name);
}
if ((result = (*func) (filename, data1, data2)))
{
break;
}
}
}
cleanup:
LT_DLFREE (argz);
LT_DLFREE (canonical);
LT_DLFREE (filename);
LT_DLMUTEX_UNLOCK ();
return result;
}
static int
find_file_callback (filename, data1, data2)
char *filename;
lt_ptr data1;
lt_ptr data2;
{
char **pdir = (char **) data1;
FILE **pfile = (FILE **) data2;
int is_done = 0;
assert (filename && *filename);
assert (pdir);
assert (pfile);
if ((*pfile = fopen (filename, LT_READTEXT_MODE)))
{
char *dirend = strrchr (filename, '/');
if (dirend > filename)
*dirend = LT_EOS_CHAR;
LT_DLFREE (*pdir);
*pdir = lt_estrdup (filename);
is_done = (*pdir == 0) ? -1 : 1;
}
return is_done;
}
static FILE *
find_file (search_path, base_name, pdir)
const char *search_path;
const char *base_name;
char **pdir;
{
FILE *file = 0;
foreach_dirinpath (search_path, base_name, find_file_callback, pdir, &file);
return file;
}
static int
find_handle_callback (filename, data, ignored)
char *filename;
lt_ptr data;
lt_ptr ignored;
{
lt_dlhandle *handle = (lt_dlhandle *) data;
int notfound = access (filename, R_OK);
if (notfound)
return 0;
if (tryall_dlopen (handle, filename) != 0)
*handle = 0;
return 1;
}
static lt_dlhandle *
find_handle (search_path, base_name, handle)
const char *search_path;
const char *base_name;
lt_dlhandle *handle;
{
if (!search_path)
return 0;
if (!foreach_dirinpath (search_path, base_name, find_handle_callback,
handle, 0))
return 0;
return handle;
}
static int
load_deplibs (handle, deplibs)
lt_dlhandle handle;
char *deplibs;
{
#if LTDL_DLOPEN_DEPLIBS
char *p, *save_search_path = 0;
int depcount = 0;
int i;
char **names = 0;
#endif
int errors = 0;
handle->depcount = 0;
#if LTDL_DLOPEN_DEPLIBS
if (!deplibs)
{
return errors;
}
++errors;
LT_DLMUTEX_LOCK ();
if (user_search_path)
{
save_search_path = lt_estrdup (user_search_path);
if (!save_search_path)
goto cleanup;
}
p = deplibs;
while (*p)
{
if (!isspace ((int) *p))
{
char *end = p+1;
while (*end && !isspace((int) *end))
{
++end;
}
if (strncmp(p, "-L", 2) == 0 || strncmp(p, "-R", 2) == 0)
{
char save = *end;
*end = 0;
if (lt_dladdsearchdir(p+2))
{
goto cleanup;
}
*end = save;
}
else
{
++depcount;
}
p = end;
}
else
{
++p;
}
}
if (!depcount)
{
errors = 0;
goto cleanup;
}
names = LT_EMALLOC (char *, depcount * sizeof (char*));
if (!names)
goto cleanup;
depcount = 0;
p = deplibs;
while (*p)
{
if (isspace ((int) *p))
{
++p;
}
else
{
char *end = p+1;
while (*end && !isspace ((int) *end))
{
++end;
}
if (strncmp(p, "-L", 2) != 0 && strncmp(p, "-R", 2) != 0)
{
char *name;
char save = *end;
*end = 0;
if (strncmp(p, "-l", 2) == 0)
{
size_t name_len = 3+ LT_STRLEN (p + 2);
name = LT_EMALLOC (char, 1+ name_len);
if (name)
sprintf (name, "lib%s", p+2);
}
else
name = lt_estrdup(p);
if (!name)
goto cleanup_names;
names[depcount++] = name;
*end = save;
}
p = end;
}
}
if (depcount)
{
int j = 0;
handle->deplibs = (lt_dlhandle*) LT_EMALLOC (lt_dlhandle *, depcount);
if (!handle->deplibs)
goto cleanup;
for (i = 0; i < depcount; ++i)
{
handle->deplibs[j] = lt_dlopenext(names[depcount-1-i]);
if (handle->deplibs[j])
{
++j;
}
}
handle->depcount = j;
errors = 0;
}
cleanup_names:
for (i = 0; i < depcount; ++i)
{
LT_DLFREE (names[i]);
}
cleanup:
LT_DLFREE (names);
if (user_search_path) {
LT_DLFREE (user_search_path);
user_search_path = save_search_path;
}
LT_DLMUTEX_UNLOCK ();
#endif
return errors;
}
static int
unload_deplibs (handle)
lt_dlhandle handle;
{
int i;
int errors = 0;
if (handle->depcount)
{
for (i = 0; i < handle->depcount; ++i)
{
if (!LT_DLIS_RESIDENT (handle->deplibs[i]))
{
errors += lt_dlclose (handle->deplibs[i]);
}
}
}
return errors;
}
static int
trim (dest, str)
char **dest;
const char *str;
{
const char *end = strrchr (str, '\'');
size_t len = LT_STRLEN (str);
char *tmp;
LT_DLFREE (*dest);
if (!end)
return 1;
if (len > 3 && str[0] == '\'')
{
tmp = LT_EMALLOC (char, end - str);
if (!tmp)
return 1;
strncpy(tmp, &str[1], (end - str) - 1);
tmp[len-3] = LT_EOS_CHAR;
*dest = tmp;
}
else
{
*dest = 0;
}
return 0;
}
static int
free_vars (dlname, oldname, libdir, deplibs)
char *dlname;
char *oldname;
char *libdir;
char *deplibs;
{
LT_DLFREE (dlname);
LT_DLFREE (oldname);
LT_DLFREE (libdir);
LT_DLFREE (deplibs);
return 0;
}
static int
try_dlopen (phandle, filename)
lt_dlhandle *phandle;
const char *filename;
{
const char * ext = 0;
const char * saved_error = 0;
char * canonical = 0;
char * base_name = 0;
char * dir = 0;
char * name = 0;
int errors = 0;
lt_dlhandle newhandle;
assert (phandle);
assert (*phandle == 0);
LT_DLMUTEX_GETERROR (saved_error);
if (!filename)
{
*phandle = (lt_dlhandle) LT_EMALLOC (struct lt_dlhandle_struct, 1);
if (*phandle == 0)
return 1;
memset (*phandle, 0, sizeof(struct lt_dlhandle_struct));
newhandle = *phandle;
LT_DLSET_FLAG (*phandle, LT_DLRESIDENT_FLAG);
if (tryall_dlopen (&newhandle, 0) != 0)
{
LT_DLFREE (*phandle);
return 1;
}
goto register_handle;
}
assert (filename && *filename);
if (canonicalize_path (filename, &canonical) != 0)
{
++errors;
goto cleanup;
}
base_name = strrchr (canonical, '/');
if (base_name)
{
size_t dirlen = (1+ base_name) - canonical;
dir = LT_EMALLOC (char, 1+ dirlen);
if (!dir)
{
++errors;
goto cleanup;
}
strncpy (dir, canonical, dirlen);
dir[dirlen] = LT_EOS_CHAR;
++base_name;
}
else
base_name = canonical;
assert (base_name && *base_name);
ext = strrchr (base_name, '.');
if (ext && strcmp (ext, archive_ext) == 0)
{
FILE * file = 0;
char * dlname = 0;
char * old_name = 0;
char * libdir = 0;
char * deplibs = 0;
char * line = 0;
size_t line_len;
int installed = 1;
name = LT_EMALLOC (char, ext - base_name + 1);
if (!name)
{
++errors;
goto cleanup;
}
{
size_t i;
for (i = 0; i < ext - base_name; ++i)
{
if (isalnum ((int)(base_name[i])))
{
name[i] = base_name[i];
}
else
{
name[i] = '_';
}
}
name[ext - base_name] = LT_EOS_CHAR;
}
if (!dir)
{
const char *search_path;
LT_DLMUTEX_LOCK ();
search_path = user_search_path;
if (search_path)
file = find_file (user_search_path, base_name, &dir);
LT_DLMUTEX_UNLOCK ();
if (!file)
{
search_path = getenv (LTDL_SEARCHPATH_VAR);
if (search_path)
file = find_file (search_path, base_name, &dir);
}
#ifdef LTDL_SHLIBPATH_VAR
if (!file)
{
search_path = getenv (LTDL_SHLIBPATH_VAR);
if (search_path)
file = find_file (search_path, base_name, &dir);
}
#endif
#ifdef LTDL_SYSSEARCHPATH
if (!file && sys_search_path)
{
file = find_file (sys_search_path, base_name, &dir);
}
#endif
}
if (!file)
{
file = fopen (filename, LT_READTEXT_MODE);
}
if (!file)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
++errors;
goto cleanup;
}
line_len = LT_FILENAME_MAX;
line = LT_EMALLOC (char, line_len);
if (!line)
{
fclose (file);
++errors;
goto cleanup;
}
while (!feof (file))
{
if (!fgets (line, (int) line_len, file))
{
break;
}
while ((line[LT_STRLEN(line) -1] != '\n') && (!feof (file)))
{
line = LT_DLREALLOC (char, line, line_len *2);
if (!fgets (&line[line_len -1], (int) line_len +1, file))
{
break;
}
line_len *= 2;
}
if (line[0] == '\n' || line[0] == '#')
{
continue;
}
#undef STR_DLNAME
#define STR_DLNAME "dlname="
if (strncmp (line, STR_DLNAME, sizeof (STR_DLNAME) - 1) == 0)
{
errors += trim (&dlname, &line[sizeof (STR_DLNAME) - 1]);
}
#undef STR_OLD_LIBRARY
#define STR_OLD_LIBRARY "old_library="
else if (strncmp (line, STR_OLD_LIBRARY,
sizeof (STR_OLD_LIBRARY) - 1) == 0)
{
errors += trim (&old_name, &line[sizeof (STR_OLD_LIBRARY) - 1]);
}
#undef STR_LIBDIR
#define STR_LIBDIR "libdir="
else if (strncmp (line, STR_LIBDIR, sizeof (STR_LIBDIR) - 1) == 0)
{
errors += trim (&libdir, &line[sizeof(STR_LIBDIR) - 1]);
}
#undef STR_DL_DEPLIBS
#define STR_DL_DEPLIBS "dependency_libs="
else if (strncmp (line, STR_DL_DEPLIBS,
sizeof (STR_DL_DEPLIBS) - 1) == 0)
{
errors += 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;
}
#undef STR_LIBRARY_NAMES
#define STR_LIBRARY_NAMES "library_names="
else if (! dlname && strncmp (line, STR_LIBRARY_NAMES,
sizeof (STR_LIBRARY_NAMES) - 1) == 0)
{
char *last_libname;
errors += trim (&dlname, &line[sizeof (STR_LIBRARY_NAMES) - 1]);
if (!errors
&& dlname
&& (last_libname = strrchr (dlname, ' ')) != 0)
{
last_libname = lt_estrdup (last_libname + 1);
if (!last_libname)
{
++errors;
goto cleanup;
}
LT_DLMEM_REASSIGN (dlname, last_libname);
}
}
if (errors)
break;
}
fclose (file);
LT_DLFREE (line);
*phandle = (lt_dlhandle) LT_EMALLOC (struct lt_dlhandle_struct, 1);
if (*phandle == 0)
++errors;
if (errors)
{
free_vars (dlname, old_name, libdir, deplibs);
LT_DLFREE (*phandle);
goto cleanup;
}
assert (*phandle);
memset (*phandle, 0, sizeof(struct lt_dlhandle_struct));
if (load_deplibs (*phandle, deplibs) == 0)
{
newhandle = *phandle;
if (find_module (&newhandle, dir, libdir, dlname, old_name, installed))
{
unload_deplibs (*phandle);
++errors;
}
}
else
{
++errors;
}
free_vars (dlname, old_name, libdir, deplibs);
if (errors)
{
LT_DLFREE (*phandle);
goto cleanup;
}
if (*phandle != newhandle)
{
unload_deplibs (*phandle);
}
}
else
{
*phandle = (lt_dlhandle) LT_EMALLOC (struct lt_dlhandle_struct, 1);
if (*phandle == 0)
{
++errors;
goto cleanup;
}
memset (*phandle, 0, sizeof (struct lt_dlhandle_struct));
newhandle = *phandle;
if ((dir || (!find_handle (user_search_path, base_name, &newhandle)
&& !find_handle (getenv (LTDL_SEARCHPATH_VAR), base_name,
&newhandle)
#ifdef LTDL_SHLIBPATH_VAR
&& !find_handle (getenv (LTDL_SHLIBPATH_VAR), base_name,
&newhandle)
#endif
#ifdef LTDL_SYSSEARCHPATH
&& !find_handle (sys_search_path, base_name, &newhandle)
#endif
)))
{
if (tryall_dlopen (&newhandle, filename) != 0)
{
newhandle = NULL;
}
}
if (!newhandle)
{
LT_DLFREE (*phandle);
++errors;
goto cleanup;
}
}
register_handle:
LT_DLMEM_REASSIGN (*phandle, newhandle);
if ((*phandle)->info.ref_count == 0)
{
(*phandle)->info.ref_count = 1;
LT_DLMEM_REASSIGN ((*phandle)->info.name, name);
LT_DLMUTEX_LOCK ();
(*phandle)->next = handles;
handles = *phandle;
LT_DLMUTEX_UNLOCK ();
}
LT_DLMUTEX_SETERROR (saved_error);
cleanup:
LT_DLFREE (dir);
LT_DLFREE (name);
LT_DLFREE (canonical);
return errors;
}
lt_dlhandle
lt_dlopen (filename)
const char *filename;
{
lt_dlhandle handle = 0;
if (try_dlopen (&handle, filename) != 0)
return 0;
return handle;
}
static int
file_not_found ()
{
const char *error = 0;
LT_DLMUTEX_GETERROR (error);
if (error == LT_DLSTRERROR (FILE_NOT_FOUND))
return 1;
return 0;
}
lt_dlhandle
lt_dlopenext (filename)
const char *filename;
{
lt_dlhandle handle = 0;
char * tmp = 0;
char * ext = 0;
size_t len;
int errors = 0;
if (!filename)
{
return lt_dlopen (filename);
}
assert (filename);
len = LT_STRLEN (filename);
ext = strrchr (filename, '.');
if (ext && ((strcmp (ext, archive_ext) == 0)
#ifdef LTDL_SHLIB_EXT
|| (strcmp (ext, shlib_ext) == 0)
#endif
))
{
return lt_dlopen (filename);
}
tmp = LT_EMALLOC (char, len + LT_STRLEN (archive_ext) + 1);
if (!tmp)
return 0;
strcpy (tmp, filename);
strcat (tmp, archive_ext);
errors = try_dlopen (&handle, tmp);
if (handle && errors) {
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FR_DEPLIB));
return 0;
}
if (handle || ((errors > 0) && !file_not_found ()))
{
LT_DLFREE (tmp);
return handle;
}
#ifdef LTDL_SHLIB_EXT
if (LT_STRLEN (shlib_ext) > LT_STRLEN (archive_ext))
{
LT_DLFREE (tmp);
tmp = LT_EMALLOC (char, len + LT_STRLEN (shlib_ext) + 1);
if (!tmp)
return 0;
strcpy (tmp, filename);
}
else
{
tmp[len] = LT_EOS_CHAR;
}
strcat(tmp, shlib_ext);
errors = try_dlopen (&handle, tmp);
if (handle && errors) {
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FR_DEPLIB));
return 0;
}
if (handle || ((errors > 0) && !file_not_found ()))
{
LT_DLFREE (tmp);
return handle;
}
#endif
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (FILE_NOT_FOUND));
LT_DLFREE (tmp);
return 0;
}
static int
lt_argz_insert (pargz, pargz_len, before, entry)
char **pargz;
size_t *pargz_len;
char *before;
const char *entry;
{
error_t error;
if (before)
error = argz_insert (pargz, pargz_len, before, entry);
else
error = argz_append (pargz, pargz_len, entry, 1 + LT_STRLEN (entry));
if (error)
{
switch (error)
{
case ENOMEM:
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (NO_MEMORY));
break;
default:
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (UNKNOWN));
break;
}
return 1;
}
return 0;
}
static int
lt_argz_insertinorder (pargz, pargz_len, entry)
char **pargz;
size_t *pargz_len;
const char *entry;
{
char *before = 0;
assert (pargz);
assert (pargz_len);
assert (entry && *entry);
if (*pargz)
while ((before = argz_next (*pargz, *pargz_len, before)))
{
int cmp = strcmp (entry, before);
if (cmp < 0) break;
if (cmp == 0) return 0;
}
return lt_argz_insert (pargz, pargz_len, before, entry);
}
static int
lt_argz_insertdir (pargz, pargz_len, dirnam, dp)
char **pargz;
size_t *pargz_len;
const char *dirnam;
struct dirent *dp;
{
char *buf = 0;
size_t buf_len = 0;
char *end = 0;
size_t end_offset = 0;
size_t dir_len = 0;
int errors = 0;
assert (pargz);
assert (pargz_len);
assert (dp);
dir_len = LT_STRLEN (dirnam);
end = dp->d_name + LT_D_NAMLEN(dp);
{
char *p;
for (p = end; p -1 > dp->d_name; --p)
if (strchr (".0123456789", p[-1]) == 0)
break;
if (*p == '.')
end = p;
}
{
char *p;
for (p = end -1; p > dp->d_name; --p)
if (*p == '.')
{
end = p;
break;
}
}
end_offset = end - dp->d_name;
buf_len = dir_len + 1+ end_offset;
buf = LT_EMALLOC (char, 1+ buf_len);
if (!buf)
return ++errors;
assert (buf);
strcpy (buf, dirnam);
strcat (buf, "/");
strncat (buf, dp->d_name, end_offset);
buf[buf_len] = LT_EOS_CHAR;
if (lt_argz_insertinorder (pargz, pargz_len, buf) != 0)
++errors;
LT_DLFREE (buf);
return errors;
}
static int
list_files_by_dir (dirnam, pargz, pargz_len)
const char *dirnam;
char **pargz;
size_t *pargz_len;
{
DIR *dirp = 0;
int errors = 0;
assert (dirnam && *dirnam);
assert (pargz);
assert (pargz_len);
assert (dirnam[LT_STRLEN(dirnam) -1] != '/');
dirp = opendir (dirnam);
if (dirp)
{
struct dirent *dp = 0;
while ((dp = readdir (dirp)))
if (dp->d_name[0] != '.')
if (lt_argz_insertdir (pargz, pargz_len, dirnam, dp))
{
++errors;
break;
}
closedir (dirp);
}
else
++errors;
return errors;
}
static int
foreachfile_callback (dirname, data1, data2)
char *dirname;
lt_ptr data1;
lt_ptr data2;
{
int (*func) LT_PARAMS((const char *filename, lt_ptr data))
= (int (*) LT_PARAMS((const char *filename, lt_ptr data))) data1;
int is_done = 0;
char *argz = 0;
size_t argz_len = 0;
if (list_files_by_dir (dirname, &argz, &argz_len) != 0)
goto cleanup;
if (!argz)
goto cleanup;
{
char *filename = 0;
while ((filename = argz_next (argz, argz_len, filename)))
if ((is_done = (*func) (filename, data2)))
break;
}
cleanup:
LT_DLFREE (argz);
return is_done;
}
int
lt_dlforeachfile (search_path, func, data)
const char *search_path;
int (*func) LT_PARAMS ((const char *filename, lt_ptr data));
lt_ptr data;
{
int is_done = 0;
if (search_path)
{
is_done = foreach_dirinpath (search_path, 0,
foreachfile_callback, func, data);
}
else
{
is_done = foreach_dirinpath (user_search_path, 0,
foreachfile_callback, func, data);
if (!is_done)
{
is_done = foreach_dirinpath (getenv("LTDL_LIBRARY_PATH"), 0,
foreachfile_callback, func, data);
}
#ifdef LTDL_SHLIBPATH_VAR
if (!is_done)
{
is_done = foreach_dirinpath (getenv(LTDL_SHLIBPATH_VAR), 0,
foreachfile_callback, func, data);
}
#endif
#ifdef LTDL_SYSSEARCHPATH
if (!is_done)
{
is_done = foreach_dirinpath (getenv(LTDL_SYSSEARCHPATH), 0,
foreachfile_callback, func, data);
}
#endif
}
return is_done;
}
int
lt_dlclose (handle)
lt_dlhandle handle;
{
lt_dlhandle cur, last;
int errors = 0;
LT_DLMUTEX_LOCK ();
last = cur = handles;
while (cur && handle != cur)
{
last = cur;
cur = cur->next;
}
if (!cur)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
++errors;
goto done;
}
handle->info.ref_count--;
if (handle->info.ref_count <= 0 && !LT_DLIS_RESIDENT (handle))
{
lt_user_data data = handle->loader->dlloader_data;
if (handle != handles)
{
last->next = handle->next;
}
else
{
handles = handle->next;
}
errors += handle->loader->module_close (data, handle->module);
errors += unload_deplibs(handle);
LT_DLFREE (handle->caller_data);
LT_DLFREE (handle->info.filename);
LT_DLFREE (handle->info.name);
LT_DLFREE (handle);
goto done;
}
if (LT_DLIS_RESIDENT (handle))
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (CLOSE_RESIDENT_MODULE));
++errors;
}
done:
LT_DLMUTEX_UNLOCK ();
return errors;
}
lt_ptr
lt_dlsym (handle, symbol)
lt_dlhandle handle;
const char *symbol;
{
size_t lensym;
char lsym[LT_SYMBOL_LENGTH];
char *sym;
lt_ptr address;
lt_user_data data;
if (!handle)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
return 0;
}
if (!symbol)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (SYMBOL_NOT_FOUND));
return 0;
}
lensym = LT_STRLEN (symbol) + LT_STRLEN (handle->loader->sym_prefix)
+ LT_STRLEN (handle->info.name);
if (lensym + LT_SYMBOL_OVERHEAD < LT_SYMBOL_LENGTH)
{
sym = lsym;
}
else
{
sym = LT_EMALLOC (char, lensym + LT_SYMBOL_OVERHEAD + 1);
if (!sym)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (BUFFER_OVERFLOW));
return 0;
}
}
data = handle->loader->dlloader_data;
if (handle->info.name)
{
const char *saved_error;
LT_DLMUTEX_GETERROR (saved_error);
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);
address = handle->loader->find_sym (data, handle->module, sym);
if (address)
{
if (sym != lsym)
{
LT_DLFREE (sym);
}
return address;
}
LT_DLMUTEX_SETERROR (saved_error);
}
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 ()
{
const char *error;
LT_DLMUTEX_GETERROR (error);
LT_DLMUTEX_SETERROR (0);
return error ? error : NULL;
}
static int
lt_dlpath_insertdir (ppath, before, dir)
char **ppath;
char *before;
const char *dir;
{
int errors = 0;
char *canonical = 0;
char *argz = 0;
size_t argz_len = 0;
assert (ppath);
assert (dir && *dir);
if (canonicalize_path (dir, &canonical) != 0)
{
++errors;
goto cleanup;
}
assert (canonical && *canonical);
if (*ppath == 0)
{
assert (!before);
assert (dir);
*ppath = lt_estrdup (dir);
if (*ppath == 0)
++errors;
return errors;
}
assert (ppath && *ppath);
if (argzize_path (*ppath, &argz, &argz_len) != 0)
{
++errors;
goto cleanup;
}
if (before)
{
assert (*ppath <= before);
assert (before - *ppath <= strlen (*ppath));
before = before - *ppath + argz;
}
if (lt_argz_insert (&argz, &argz_len, before, dir) != 0)
{
++errors;
goto cleanup;
}
argz_stringify (argz, argz_len, LT_PATHSEP_CHAR);
LT_DLMEM_REASSIGN (*ppath, argz);
cleanup:
LT_DLFREE (canonical);
LT_DLFREE (argz);
return errors;
}
int
lt_dladdsearchdir (search_dir)
const char *search_dir;
{
int errors = 0;
if (search_dir && *search_dir)
{
LT_DLMUTEX_LOCK ();
if (lt_dlpath_insertdir (&user_search_path, 0, search_dir) != 0)
++errors;
LT_DLMUTEX_UNLOCK ();
}
return errors;
}
int
lt_dlinsertsearchdir (before, search_dir)
const char *before;
const char *search_dir;
{
int errors = 0;
if (before)
{
LT_DLMUTEX_LOCK ();
if ((before < user_search_path)
|| (before >= user_search_path + LT_STRLEN (user_search_path)))
{
LT_DLMUTEX_UNLOCK ();
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_POSITION));
return 1;
}
LT_DLMUTEX_UNLOCK ();
}
if (search_dir && *search_dir)
{
LT_DLMUTEX_LOCK ();
if (lt_dlpath_insertdir (&user_search_path,
(char *) before, search_dir) != 0)
{
++errors;
}
LT_DLMUTEX_UNLOCK ();
}
return errors;
}
int
lt_dlsetsearchpath (search_path)
const char *search_path;
{
int errors = 0;
LT_DLMUTEX_LOCK ();
LT_DLFREE (user_search_path);
LT_DLMUTEX_UNLOCK ();
if (!search_path || !LT_STRLEN (search_path))
{
return errors;
}
LT_DLMUTEX_LOCK ();
if (canonicalize_path (search_path, &user_search_path) != 0)
++errors;
LT_DLMUTEX_UNLOCK ();
return errors;
}
const char *
lt_dlgetsearchpath ()
{
const char *saved_path;
LT_DLMUTEX_LOCK ();
saved_path = user_search_path;
LT_DLMUTEX_UNLOCK ();
return saved_path;
}
int
lt_dlmakeresident (handle)
lt_dlhandle handle;
{
int errors = 0;
if (!handle)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
++errors;
}
else
{
LT_DLSET_FLAG (handle, LT_DLRESIDENT_FLAG);
}
return errors;
}
int
lt_dlisresident (handle)
lt_dlhandle handle;
{
if (!handle)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
return -1;
}
return LT_DLIS_RESIDENT (handle);
}
const lt_dlinfo *
lt_dlgetinfo (handle)
lt_dlhandle handle;
{
if (!handle)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_HANDLE));
return 0;
}
return &(handle->info);
}
lt_dlhandle
lt_dlhandle_next (place)
lt_dlhandle place;
{
return place ? place->next : handles;
}
int
lt_dlforeach (func, data)
int (*func) LT_PARAMS((lt_dlhandle handle, lt_ptr data));
lt_ptr data;
{
int errors = 0;
lt_dlhandle cur;
LT_DLMUTEX_LOCK ();
cur = handles;
while (cur)
{
lt_dlhandle tmp = cur;
cur = cur->next;
if ((*func) (tmp, data))
{
++errors;
break;
}
}
LT_DLMUTEX_UNLOCK ();
return errors;
}
lt_dlcaller_id
lt_dlcaller_register ()
{
static lt_dlcaller_id last_caller_id = 0;
int result;
LT_DLMUTEX_LOCK ();
result = ++last_caller_id;
LT_DLMUTEX_UNLOCK ();
return result;
}
lt_ptr
lt_dlcaller_set_data (key, handle, data)
lt_dlcaller_id key;
lt_dlhandle handle;
lt_ptr data;
{
int n_elements = 0;
lt_ptr stale = (lt_ptr) 0;
int i;
LT_DLMUTEX_LOCK ();
if (handle->caller_data)
while (handle->caller_data[n_elements].key)
++n_elements;
for (i = 0; i < n_elements; ++i)
{
if (handle->caller_data[i].key == key)
{
stale = handle->caller_data[i].data;
break;
}
}
if (i == n_elements)
{
lt_caller_data *temp
= LT_DLREALLOC (lt_caller_data, handle->caller_data, 2+ n_elements);
if (!temp)
{
stale = 0;
goto done;
}
handle->caller_data = temp;
handle->caller_data[i].key = key;
handle->caller_data[1+ i].key = 0;
}
handle->caller_data[i].data = data;
done:
LT_DLMUTEX_UNLOCK ();
return stale;
}
lt_ptr
lt_dlcaller_get_data (key, handle)
lt_dlcaller_id key;
lt_dlhandle handle;
{
lt_ptr result = (lt_ptr) 0;
LT_DLMUTEX_LOCK ();
{
int i;
for (i = 0; handle->caller_data[i].key; ++i)
{
if (handle->caller_data[i].key == key)
{
result = handle->caller_data[i].data;
break;
}
}
}
LT_DLMUTEX_UNLOCK ();
return result;
}
int
lt_dlloader_add (place, dlloader, loader_name)
lt_dlloader *place;
const struct lt_user_dlloader *dlloader;
const char *loader_name;
{
int errors = 0;
lt_dlloader *node = 0, *ptr = 0;
if ((dlloader == 0)
|| (dlloader->module_open == 0)
|| (dlloader->module_close == 0)
|| (dlloader->find_sym == 0))
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
return 1;
}
node = LT_EMALLOC (lt_dlloader, 1);
if (!node)
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;
LT_DLMUTEX_LOCK ();
if (!loaders)
{
loaders = node;
}
else if (!place)
{
for (ptr = loaders; ptr->next; ptr = ptr->next)
{
;
}
ptr->next = node;
}
else if (loaders == place)
{
node->next = place;
loaders = node;
}
else
{
for (ptr = loaders; ptr->next != place; ptr = ptr->next)
{
;
}
if (ptr->next != place)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
++errors;
}
else
{
node->next = place;
ptr->next = node;
}
}
LT_DLMUTEX_UNLOCK ();
return errors;
}
int
lt_dlloader_remove (loader_name)
const char *loader_name;
{
lt_dlloader *place = lt_dlloader_find (loader_name);
lt_dlhandle handle;
int errors = 0;
if (!place)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
return 1;
}
LT_DLMUTEX_LOCK ();
for (handle = handles; handle; handle = handle->next)
{
if (handle->loader == place)
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (REMOVE_LOADER));
++errors;
goto done;
}
}
if (place == loaders)
{
loaders = loaders->next;
}
else
{
lt_dlloader *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)
{
errors = place->dlloader_exit (place->dlloader_data);
}
LT_DLFREE (place);
done:
LT_DLMUTEX_UNLOCK ();
return errors;
}
lt_dlloader *
lt_dlloader_next (place)
lt_dlloader *place;
{
lt_dlloader *next;
LT_DLMUTEX_LOCK ();
next = place ? place->next : loaders;
LT_DLMUTEX_UNLOCK ();
return next;
}
const char *
lt_dlloader_name (place)
lt_dlloader *place;
{
const char *name = 0;
if (place)
{
LT_DLMUTEX_LOCK ();
name = place ? place->loader_name : 0;
LT_DLMUTEX_UNLOCK ();
}
else
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
}
return name;
}
lt_user_data *
lt_dlloader_data (place)
lt_dlloader *place;
{
lt_user_data *data = 0;
if (place)
{
LT_DLMUTEX_LOCK ();
data = place ? &(place->dlloader_data) : 0;
LT_DLMUTEX_UNLOCK ();
}
else
{
LT_DLMUTEX_SETERROR (LT_DLSTRERROR (INVALID_LOADER));
}
return data;
}
lt_dlloader *
lt_dlloader_find (loader_name)
const char *loader_name;
{
lt_dlloader *place = 0;
LT_DLMUTEX_LOCK ();
for (place = loaders; place; place = place->next)
{
if (strcmp (place->loader_name, loader_name) == 0)
{
break;
}
}
LT_DLMUTEX_UNLOCK ();
return place;
}