74 lines
1.3 KiB
C

#include <mach-o/rld.h>
#include <streams/streams.h>
#include <stdlib.h>
static char* lastError = NULL;
static NXStream* OpenError()
{
return NXOpenMemory(NULL, 0, NX_WRITEONLY);
}
static void CloseError(NXStream* s)
{
if (s)
NXCloseMemory (s, NX_FREEBUFFER);
}
static void TransferError(NXStream* s)
{
char *buffer;
int len, maxlen;
if (lastError)
free (lastError);
NXGetMemoryBuffer (s, &buffer, &len, &maxlen);
lastError = malloc (len + 1);
strcpy (lastError, buffer);
}
void* next_dlopen(char* name)
{
int rld_success;
NXStream* errorStream;
char* result = NULL;
char **p;
errorStream = OpenError();
p = calloc (2, sizeof(void*));
p[0] = name;
rld_success = rld_load(errorStream, NULL, p, NULL);
free (p);
if (!rld_success) {
TransferError (errorStream);
result = (char*)1;
}
CloseError (errorStream);
return result;
}
int next_dlclose(void* handle)
{
return 0;
}
void* next_dlsym (void *handle, char *symbol)
{
NXStream* errorStream = OpenError();
char symbuf[1024];
unsigned long symref = 0;
sprintf(symbuf, "_%s", symbol);
if (!rld_lookup (errorStream, symbuf, &symref))
TransferError(errorStream);
CloseError(errorStream);
return (void*) symref;
}
char* next_dlerror(void)
{
return lastError;
}