1999-07-15 23:04:24 +00:00

82 lines
1.2 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;
}