/*==============================================================================

$Id: dl_hpux.c,v 1.1.1.1 2004/06/01 12:16:17 raph Exp $

simple dlopen()-like implementation above HP-UX shl_xxx() API

Written by Miodrag Vallat <miod@mikmod.org>, released in the public domain

==============================================================================*/

/*

* This implementation currently only works on hppa systems.

* It could be made working on m68k (hp9000s300) series, but my HP-UX 5.5

* disk is dead and I don't have the system tapes...

*/

#ifdef HAVE_CONFIG_H

#include "config.h" /* const */

#endif

#ifdef MIKMOD_DLAPI_HP

#include <dl.h>

#include <malloc.h>

#include <string.h>

#include "dlfcn.h"

extern char *_mm_strdup (const char *__s);

void *dlopen(const char *name, int flags)

{

shl_t handle;

char *library;

if (name == NULL || *name == '\0')

return NULL;

/* By convention, libmikmod will look for "foo.so" while on HP-UX the

name would be "foo.sl". Change the last letter here. */

library = _mm_strdup(name);

library[strlen(library) - 1] = 'l';

handle = shl_load(library,

(flags & RTLD_LAZY ? BIND_DEFERRED : BIND_IMMEDIATE) | DYNAMIC_PATH,

0L);

free(library);

return (void *)handle;

}

int dlclose(void *handle)

{

return shl_unload((shl_t)handle);

}

void *dlsym(void *handle, const char *sym)

{

shl_t h = (shl_t)handle;

void *address;

if (shl_findsym(&h, sym, TYPE_UNDEFINED, &address) == 0)

return address;

return NULL;

}

#endif

/* ex:set ts=4: */