Copyright (C) 1998 Thomas Tanner <tanner@gmx.de>
This file is part of GNU Libtool.
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Library General Public
+License as published by the Free Software Foundation; either
+version 2 of the License, or (at your option) any later version.
-This program is distributed in the hope that it will be useful,
+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 General Public License for more details.
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+Library General Public License for more details.
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
-USA. */
+You should have received a copy of the GNU Library General Public
+License along with this library; if not, write to the Free
+Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+*/
+
+#define _LTDL_COMPILE_
#include "ltdl.h"
#include <string.h>
#endif
-#ifdef LT_RENAME
+#include <stdio.h>
+
+#ifndef HAVE_STRDUP
+
+static char *
+strdup(const char *str)
+{
+ char *tmp;
+
+ if (!str)
+ return str;
+ tmp = malloc(strlen(str)+1);
+ if (tmp)
+ strcpy(tmp, str);
+ return tmp;
+}
+
+#endif
+
+typedef struct lt_dlhandle_t {
+ struct lt_dlhandle_t *next;
+ char *filename; /* file name */
+ char *name; /* module name */
+ int usage; /* usage */
+ void *handle; /* system handle */
+ void *sys; /* system specific data */
+} lt_dlhandle_t;
+
+#ifdef STATIC
/* emulate dynamic linking using dld_preloaded_symbols */
extern struct dld_symlist dld_preloaded_symbols[];
-static void
-sys_dlinit (void)
+static int
+sys_dlinit ()
{
+ return 0;
}
-static lt_dlhandle
-sys_dlopen (char *filename)
+static int
+sys_dlexit ()
+{
+ return 0;
+}
+
+static int
+sys_dlopen (handle, filename) lt_dlhandle handle; const char *filename;
{
struct dld_symlist *s = dld_preloaded_symbols;
s++;
}
if (!s->name)
- return 0;
- return (void*)s;
+ return 1;
+ handle->handle = s;
+ return 0;
}
-static void
-sys_dlclose (lt_dlhandle handle)
+static int
+sys_dlclose (handle) lt_dlhandle handle;
{
+ return 0;
}
static void *
-sys_dlsym (lt_dlhandle handle, char *symbol)
+sys_dlsym (handle, symbol) lt_dlhandle handle; char *symbol;
{
- struct dld_symlist *s = (struct dld_symlist*)handle;
+ struct dld_symlist *s = (struct dld_symlist*)(handle->handle);
if (!s)
return 0;
s++;
while (s->address) {
- if (!strncmp(s->name, "ltexp_", 6)) {
- char *p = strstr(s->name, "___");
- if (p && !strcmp(&p[3], symbol))
- return s->address;
- }
+ if (strcmp(s->name, symbol) == 0)
+ return s->address;
s++;
}
return 0;
#include <dlfcn.h>
#endif
-#ifdef RTLD_LAZY /* Solaris 2. */
+#ifdef RTLD_LAZY
# define DLOPEN_MODE RTLD_LAZY
#else
#ifdef DL_LAZY
# define DLOPEN_MODE DL_LAZY
#else
-# define DLOPEN_MODE 1 /* Thats what it says in the man page. */
+# define DLOPEN_MODE 1
#endif
#endif
-static void
-sys_dlinit (void)
+static int
+sys_dlinit ()
{
+ return 0;
}
-static lt_dlhandle
-sys_dlopen (char *filename)
+static int
+sys_dlexit ()
{
- return dlopen(filename, DLOPEN_MODE);
+ return 0;
}
-static void
-sys_dlclose (lt_dlhandle handle)
+static int
+sys_dlopen (handle, filename) lt_dlhandle handle; const char *filename;
+{
+ handle->handle = dlopen(filename, DLOPEN_MODE);
+ return !(handle->handle);
+}
+
+static int
+sys_dlclose (handle) lt_dlhandle handle;
{
- dlclose(handle);
+ return dlclose(handle->handle);
}
static void *
-sys_dlsym (lt_dlhandle handle, char *symbol)
+sys_dlsym (handle, symbol) lt_dlhandle handle; char *symbol;
{
-#ifdef __OpenBSD__
- char sym[128];
-
- strcpy(sym, "_");
- strcat(sym, symbol); /* prefix symbol with leading underscore */
- return dlsym(handle, sym);
-#else
- return dlsym(handle, symbol);
-#endif
+ return dlsym(handle->handle, symbol);
}
#else
#include <dl.h>
#endif
-static void
-sys_dlinit (void)
+static int
+sys_dlinit ()
+{
+ return 0;
+}
+
+static int
+sys_dlexit ()
{
+ return 0;
}
-static lt_dlhandle
-sys_dlopen (char *filename)
+static int
+sys_dlopen (handle, filename) lt_dlhandle handle; const char *filename;
{
/* Probably too much BIND_* flags */
- return shl_load (filename, BIND_IMMEDIATE || BIND_FIRST ||
+ handle->handle = shl_load (filename, BIND_IMMEDIATE || BIND_FIRST ||
BIND_TOGETHER || BIND_VERBOSE || DYNAMIC_PATH, 0L);
+ return !(handle->handle);
}
-static void
-sys_dlclose (lt_dlhandle handle)
+static int
+sys_dlclose (handle) lt_dlhandle handle;
{
- shl_unload((shl_t) handle);
+ shl_unload((shl_t) (handle->handle));
+ return 0;
}
static void *
-sys_dlsym (lt_dlhandle handle, char *symbol)
+sys_dlsym (handle, symbol) lt_dlhandle handle; char *symbol;
{
int status, i;
struct shl_symbol *sym;
- status = shl_getsymbols((shl_t) handle, TYPE_PROCEDURE,
+ status = shl_getsymbols((shl_t) (handle->handle), TYPE_PROCEDURE,
EXPORT_SYMBOLS, malloc, &sym);
for (i = 0; i < status; i++)
if (strcmp(symbol, sym[i].name) == 0)
/* dynamic linking with dld */
-static void
-sys_dlinit (void)
+static int
+sys_dlinit ()
{
+ return 0;
}
-static lt_dlhandle
-sys_dlopen (char *filename)
+static int
+sys_dlexit ()
{
- if (dld_link (filename))
- return 0;
- return filename;
+ return 0;
}
-static void
-sys_dlclose (lt_dlhandle handle)
+static int
+sys_dlopen (handle, filename) lt_dlhandle handle; const char *filename;
{
- dld_unlink_by_file ((char*)handle, 1);
+ if (dld_link(filename))
+ return 1;
+ handle->handle = filename;
+ return 0;
+}
+
+static int
+sys_dlclose (handle) lt_dlhandle handle;
+{
+ dld_unlink_by_file((char*)(handle->handle), 1);
+ return 0;
}
static void *
-sys_dlsym (lt_dlhandle handle, char *symbol)
+sys_dlsym (handle, symbol) lt_dlhandle handle; char *symbol;
{
- return dld_get_func (symbol);
+ return dld_get_func(symbol);
}
#else
#include <windows.h>
-static void
-sys_dlinit (void)
+static int
+sys_dlinit ()
{
+ return 0;
}
-static lt_dlhandle
-sys_dlopen (char *filename)
+static int
+sys_dlexit ()
{
- return LoadLibrary(filename);
+ return 0;
}
-static void
-sys_dlclose (lt_dlhandle handle)
+static int
+sys_dlopen (handle, filename) lt_dlhandle handle; const char *filename;
{
- FreeLibrary(handle);
+ handle->handle = LoadLibrary(filename);
+ return !(handle->handle);
+}
+
+static int
+sys_dlclose (handle) lt_dlhandle handle;
+{
+ FreeLibrary(handle->handle);
+ return 0;
}
static void *
-sys_dlsym (lt_dlhandle handle, char *symbol)
+sys_dlsym (handle, symbol) lt_dlhandle handle; char *symbol;
{
- return GetProcAddress(handle, symbol);
+ return GetProcAddress(handle->handle, symbol);
}
#else
/* no dynamic linking available */
-static void
-sys_dlinit (void)
+static int
+sys_dlinit ()
{
+ return 1; /* dlopen not supported */
}
-static lt_dlhandle
-sys_dlopen (char *filename)
+static int
+sys_dlexit ()
{
return 0;
}
-static void
-sys_dlclose (lt_dlhandle handle)
+static int
+sys_dlopen (handle, filename) lt_dlhandle handle; const char *filename;
+{
+ return 1; /* always report an error */
+}
+
+static int
+sys_dlclose (handle) lt_dlhandle handle;
{
+ return 0;
}
static void *
-sys_dlsym (lt_dlhandle handle, char *symbol)
+sys_dlsym (handle, symbol) lt_dlhandle handle; char *symbol;
{
return 0;
}
#endif
#endif
-void
-lt_dlinit (void)
+static lt_dlhandle handles;
+static int initialized = 0;
+
+int
+lt_dlinit ()
{
- sys_dlinit();
+ if (initialized) { /* Initialize only at first call. */
+ initialized++;
+ return 0;
+ }
+ handles = 0;
+ if (sys_dlinit())
+ return 1;
+ initialized = 1;
+ return 0;
}
-lt_dlhandle
-lt_dlopen (char *filename)
+int
+lt_dlexit ()
{
- return sys_dlopen(filename);
+ int error;
+
+ if (!initialized)
+ return 1; /* already deinitialized */
+ if (initialized != 1) { /* deinitialize only at last call. */
+ initialized--;
+ return 0;
+ }
+ /* close all modules */
+ error = 0;
+ while (handles)
+ if (lt_dlclose(handles))
+ error = 1;
+ initialized = 0;
+ if (sys_dlexit())
+ error = 1;
+ return error;
}
+static void
+trim (char *dest, const char *s)
+{
+ char *i = rindex(s, '\'');
+ int len = strlen(s);
+
+ if (len > 3 && s[0] == '\'') {
+ strncpy(dest, &s[1], (i - s) - 1);
+ dest[len-3] = '\0';
+ } else
+ *dest = '\0';
+}
-void
-lt_dlclose (lt_dlhandle handle)
+lt_dlhandle
+lt_dlopen (filename) const char *filename;
{
- sys_dlclose(handle);
+ lt_dlhandle handle, cur;
+ FILE *file;
+ char tmp[1024], dir[512];
+ char *basename, *ext;
+
+ /* check whether the module was already opened */
+ cur = handles;
+ while (cur && strcmp(cur->filename, filename))
+ cur = cur->next;
+ if (cur) {
+ cur->usage++;
+ return cur;
+ }
+
+ handle = (lt_dlhandle) malloc(sizeof(lt_dlhandle_t));
+ if (!handle)
+ return 0;
+ basename = rindex(filename, '/'); /* FIXME: portable? */
+ if (basename)
+ basename++;
+ strncpy(dir, filename, basename - filename);
+ dir[basename - filename] = '\0';
+ /* check whether we open a libtool module (.la extension) */
+ ext = rindex(basename, '.');
+ if (ext && strcmp(ext, ".la") == 0) {
+ char dlname[256], libdir[512], deps[512];
+ char fullname[512];
+
+ file = fopen(filename, "r"); /* FIXME: portable? */
+ if (!file) {
+ free(handle);
+ return 0;
+ }
+ while (!feof(file)) {
+ if (!fgets(tmp, 1024, file))
+ break;
+ if (strncmp(tmp, "libdir=", 7) == 0)
+ trim(libdir, &tmp[7]);
+ else
+ if (strncmp(tmp, "dependency_libs=", 16) == 0)
+ trim(deps, &tmp[16]);
+ else
+#ifdef STATIC
+ if (strncmp(tmp, "old_library=", 12) == 0)
+ trim(dlname, &tmp[12]);
+#else
+ if (strncmp(tmp, "dlname=", 7) == 0)
+ trim(dlname, &tmp[7]);
+#endif
+ }
+ fclose(file);
+ if (!strlen(dlname)) { /* filename not found */
+ free(handle);
+ return 0;
+ }
+ /* search the module */
+#ifdef STATIC
+ if (sys_dlopen(handle, dlname)) {
+ free(handle);
+ return 0;
+ }
+ handle->filename = strdup(dlname);
+#else
+ strcpy(fullname, libdir);
+ strcat(fullname, "/");
+ strcat(fullname, dlname);
+ if (sys_dlopen(handle, fullname)) {
+ strcpy(fullname, dir);
+ strcat(fullname, dlname);
+ if (sys_dlopen(handle, fullname)) {
+ strcpy(fullname, dir);
+ strcat(fullname, ".libs/");
+ strcat(fullname, dlname);
+ if (sys_dlopen(handle, fullname)) {
+ free(handle);
+ return 0;
+ }
+ }
+ }
+ handle->filename = strdup(fullname);
+#endif
+ /* extract the module name from the file name */
+ strcpy(tmp, basename);
+ tmp[ext - basename] = '\0';
+ handle->name = strdup(tmp);
+ } else {
+ /* not a libtool module */
+ if (sys_dlopen(handle, filename)) {
+ free(handle);
+ return 0;
+ }
+ handle->filename = strdup(filename);
+ handle->name = 0;
+ }
+ handle->usage = 1;
+ handle->next = handles;
+ handles = handle;
+ return handle;
+}
+
+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)
+ return 1; /* invalid handle */
+ handle->usage--;
+ if (!handle->usage) {
+ int error;
+
+ if (handle != handles)
+ last->next = handle->next;
+ else
+ handles = handle->next;
+ error = sys_dlclose(handle);
+ free(handle->filename);
+ if (handle->name)
+ free(handle->name);
+ free(handle);
+ return error;
+ }
+ return 0;
}
void *
-lt_dlsym (lt_dlhandle handle, char *symbol)
+lt_dlsym (handle, symbol) lt_dlhandle handle; char *symbol;
{
+ char sym[128];
+ void *address;
+
+ if (handle->name) { /* libtool module */
+#ifdef NEED_USCORE
+ /* prefix symbol with leading underscore */
+ strcpy(sym, "_");
+ strcat(sym, handle->name);
+#else
+ strcpy(sym, handle->name);
+#endif
+ strcat(sym, "_LTX_");
+ strcat(sym, symbol);
+ /* try "modulename_LTX_symbol" */
+ address = sys_dlsym(handle, sym);
+ if (address)
+ return address;
+ }
+ /* otherwise try "symbol" */
+#ifdef NEED_USCORE
+ /* prefix symbol with leading underscore */
+ strcpy(sym, "_");
+ strcat(sym, symbol);
+ return sys_dlsym(handle, sym);
+#else
return sys_dlsym(handle, symbol);
+#endif
}
projects / thirdparty / libtool.git / commitdiff
