mirror of
https://github.com/matrix-construct/construct
synced 2024-11-17 07:20:55 +01:00
211 lines
5.9 KiB
C
211 lines
5.9 KiB
C
|
/* lt_dlloader.c -- dynamic library loader interface
|
||
|
|
||
|
Copyright (C) 2004, 2007, 2008 Free Software Foundation, Inc.
|
||
|
Written by Gary V. Vaughan, 2004
|
||
|
|
||
|
NOTE: The canonical source of this file is maintained with the
|
||
|
GNU Libtool package. Report bugs to bug-libtool@gnu.org.
|
||
|
|
||
|
GNU Libltdl 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 this file under the
|
||
|
same distribution terms that you use for the rest of that program.
|
||
|
|
||
|
GNU Libltdl 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 GNU Libltdl; see the file COPYING.LIB. If not, a
|
||
|
copy can be downloaded from http://www.gnu.org/licenses/lgpl.html,
|
||
|
or obtained by writing to the Free Software Foundation, Inc.,
|
||
|
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||
|
*/
|
||
|
|
||
|
#include "lt__private.h"
|
||
|
#include "lt_dlloader.h"
|
||
|
|
||
|
#define RETURN_SUCCESS 0
|
||
|
#define RETURN_FAILURE 1
|
||
|
|
||
|
static void * loader_callback (SList *item, void *userdata);
|
||
|
|
||
|
/* A list of all the dlloaders we know about, each stored as a boxed
|
||
|
SList item: */
|
||
|
static SList *loaders = 0;
|
||
|
|
||
|
|
||
|
/* Return NULL, unless the loader in this ITEM has a matching name,
|
||
|
in which case we return the matching item so that its address is
|
||
|
passed back out (for possible freeing) by slist_remove. */
|
||
|
static void *
|
||
|
loader_callback (SList *item, void *userdata)
|
||
|
{
|
||
|
const lt_dlvtable *vtable = (const lt_dlvtable *) item->userdata;
|
||
|
const char * name = (const char *) userdata;
|
||
|
|
||
|
assert (vtable);
|
||
|
|
||
|
return streq (vtable->name, name) ? (void *) item : NULL;
|
||
|
}
|
||
|
|
||
|
|
||
|
/* Hook VTABLE into our global LOADERS list according to its own
|
||
|
PRIORITY field value. */
|
||
|
int
|
||
|
lt_dlloader_add (const lt_dlvtable *vtable)
|
||
|
{
|
||
|
SList *item;
|
||
|
|
||
|
if ((vtable == 0) /* diagnose invalid vtable fields */
|
||
|
|| (vtable->module_open == 0)
|
||
|
|| (vtable->module_close == 0)
|
||
|
|| (vtable->find_sym == 0)
|
||
|
|| ((vtable->priority != LT_DLLOADER_PREPEND) &&
|
||
|
(vtable->priority != LT_DLLOADER_APPEND)))
|
||
|
{
|
||
|
LT__SETERROR (INVALID_LOADER);
|
||
|
return RETURN_FAILURE;
|
||
|
}
|
||
|
|
||
|
item = slist_box (vtable);
|
||
|
if (!item)
|
||
|
{
|
||
|
(*lt__alloc_die) ();
|
||
|
|
||
|
/* Let the caller know something went wrong if lt__alloc_die
|
||
|
doesn't abort. */
|
||
|
return RETURN_FAILURE;
|
||
|
}
|
||
|
|
||
|
if (vtable->priority == LT_DLLOADER_PREPEND)
|
||
|
{
|
||
|
loaders = slist_cons (item, loaders);
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
assert (vtable->priority == LT_DLLOADER_APPEND);
|
||
|
loaders = slist_concat (loaders, item);
|
||
|
}
|
||
|
|
||
|
return RETURN_SUCCESS;
|
||
|
}
|
||
|
|
||
|
#ifdef LT_DEBUG_LOADERS
|
||
|
static void *
|
||
|
loader_dump_callback (SList *item, void *userdata)
|
||
|
{
|
||
|
const lt_dlvtable *vtable = (const lt_dlvtable *) item->userdata;
|
||
|
fprintf (stderr, ", %s", (vtable && vtable->name) ? vtable->name : "(null)");
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
void
|
||
|
lt_dlloader_dump (void)
|
||
|
{
|
||
|
fprintf (stderr, "loaders: ");
|
||
|
if (!loaders)
|
||
|
{
|
||
|
fprintf (stderr, "(empty)");
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
const lt_dlvtable *head = (const lt_dlvtable *) loaders->userdata;
|
||
|
fprintf (stderr, "%s", (head && head->name) ? head->name : "(null)");
|
||
|
if (slist_tail (loaders))
|
||
|
slist_foreach (slist_tail (loaders), loader_dump_callback, NULL);
|
||
|
}
|
||
|
fprintf (stderr, "\n");
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
/* An iterator for the global loader list: if LOADER is NULL, then
|
||
|
return the first element, otherwise the following element. */
|
||
|
lt_dlloader
|
||
|
lt_dlloader_next (lt_dlloader loader)
|
||
|
{
|
||
|
SList *item = (SList *) loader;
|
||
|
return (lt_dlloader) (item ? item->next : loaders);
|
||
|
}
|
||
|
|
||
|
|
||
|
/* Non-destructive unboxing of a loader. */
|
||
|
const lt_dlvtable *
|
||
|
lt_dlloader_get (lt_dlloader loader)
|
||
|
{
|
||
|
return (const lt_dlvtable *) (loader ? ((SList *) loader)->userdata : NULL);
|
||
|
}
|
||
|
|
||
|
|
||
|
/* Return the contents of the first item in the global loader list
|
||
|
with a matching NAME after removing it from that list. If there
|
||
|
was no match, return NULL; if there is an error, return NULL and
|
||
|
set an error for lt_dlerror; do not set an error if only resident
|
||
|
modules need this loader; in either case, the loader list is not
|
||
|
changed if NULL is returned. */
|
||
|
lt_dlvtable *
|
||
|
lt_dlloader_remove (const char *name)
|
||
|
{
|
||
|
const lt_dlvtable * vtable = lt_dlloader_find (name);
|
||
|
static const char id_string[] = "lt_dlloader_remove";
|
||
|
lt_dlinterface_id iface;
|
||
|
lt_dlhandle handle = 0;
|
||
|
int in_use = 0;
|
||
|
int in_use_by_resident = 0;
|
||
|
|
||
|
if (!vtable)
|
||
|
{
|
||
|
LT__SETERROR (INVALID_LOADER);
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
/* Fail if there are any open modules which use this loader. */
|
||
|
iface = lt_dlinterface_register (id_string, NULL);
|
||
|
while ((handle = lt_dlhandle_iterate (iface, handle)))
|
||
|
{
|
||
|
lt_dlhandle cur = handle;
|
||
|
if (cur->vtable == vtable)
|
||
|
{
|
||
|
in_use = 1;
|
||
|
if (lt_dlisresident (handle))
|
||
|
in_use_by_resident = 1;
|
||
|
}
|
||
|
}
|
||
|
lt_dlinterface_free (iface);
|
||
|
if (in_use)
|
||
|
{
|
||
|
if (!in_use_by_resident)
|
||
|
LT__SETERROR (REMOVE_LOADER);
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
/* Call the loader finalisation function. */
|
||
|
if (vtable && vtable->dlloader_exit)
|
||
|
{
|
||
|
if ((*vtable->dlloader_exit) (vtable->dlloader_data) != 0)
|
||
|
{
|
||
|
/* If there is an exit function, and it returns non-zero
|
||
|
then it must set an error, and we will not remove it
|
||
|
from the list. */
|
||
|
return 0;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* If we got this far, remove the loader from our global list. */
|
||
|
return (lt_dlvtable *)
|
||
|
slist_unbox ((SList *) slist_remove (&loaders, loader_callback, (void *) name));
|
||
|
}
|
||
|
|
||
|
|
||
|
const lt_dlvtable *
|
||
|
lt_dlloader_find (const char *name)
|
||
|
{
|
||
|
return lt_dlloader_get (slist_find (loaders, loader_callback, (void *) name));
|
||
|
}
|