Implemented the unix dlfcn API; note, the RTLD_xxx modes are not yet supported
by the loader. dlerror() is not thread-safe. git-svn-id: file:///srv/svn/repos/haiku/trunk/current@2439 a95241bf-73f2-0310-859d-f6bbb57e9c96
This commit is contained in:
parent
eadb1c453a
commit
7dce97278f
@ -1,36 +1,67 @@
|
||||
/*
|
||||
** Copyright 2003, Axel Dörfler, axeld@pinc-software.de. All rights reserved.
|
||||
** Copyright 2002, Manuel J. Petit. All rights reserved.
|
||||
** Distributed under the terms of the NewOS License.
|
||||
*/
|
||||
|
||||
|
||||
#include <dlfcn.h>
|
||||
#include <syscalls.h>
|
||||
#include <user_runtime.h>
|
||||
#include <string.h>
|
||||
#include "user_runtime.h"
|
||||
|
||||
|
||||
void __init__dlfcn(struct uspace_program_args const *);
|
||||
|
||||
static struct rld_export const *gRuntimeLinker;
|
||||
static status_t gStatus;
|
||||
|
||||
void __init__dlfcn(struct uspace_prog_args_t const *);
|
||||
static struct rld_export_t const *rld;
|
||||
|
||||
void *
|
||||
dlopen(char const *name, unsigned flags)
|
||||
dlopen(char const *name, int mode)
|
||||
{
|
||||
return (void*)(rld->dl_open(name, flags));
|
||||
if (name == NULL)
|
||||
name = MAGIC_APP_NAME;
|
||||
|
||||
gStatus = gRuntimeLinker->load_add_on(name, mode);
|
||||
if (gStatus < B_OK)
|
||||
return NULL;
|
||||
|
||||
return (void *)gStatus;
|
||||
}
|
||||
|
||||
|
||||
void *
|
||||
dlsym(void *img, char const *name)
|
||||
dlsym(void *handle, char const *name)
|
||||
{
|
||||
return rld->dl_sym((unsigned)img, name, 0);
|
||||
void *location;
|
||||
|
||||
gStatus = gRuntimeLinker->get_image_symbol((image_id)handle, name, B_SYMBOL_TYPE_ANY, &location);
|
||||
if (gStatus < B_OK)
|
||||
return NULL;
|
||||
|
||||
return location;
|
||||
}
|
||||
|
||||
|
||||
int
|
||||
dlclose(void *img)
|
||||
dlclose(void *handle)
|
||||
{
|
||||
return rld->dl_close((unsigned)img, 0);
|
||||
return gRuntimeLinker->unload_add_on((image_id)handle);
|
||||
}
|
||||
|
||||
|
||||
char *
|
||||
dlerror(void)
|
||||
{
|
||||
if (gStatus < B_OK)
|
||||
return strerror(gStatus);
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
|
||||
void
|
||||
__init__dlfcn(struct uspace_prog_args_t const *uspa)
|
||||
__init__dlfcn(struct uspace_program_args const *args)
|
||||
{
|
||||
rld= uspa->rld_export;
|
||||
gRuntimeLinker = args->rld_export;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user