arch/all-unix/hostlib/hostlib.c

   1 #include <exec/types.h>
   2 #include <aros/libcall.h>
   3
   4 #define timeval sys_timeval
   5 #include <dlfcn.h>
   6 #undef timeval
   7
   8 #include "hostlib_intern.h"
   9
  10 #include LC_LIBDEFS_FILE
  11
  12 #define DEBUG 0
  13 #include <aros/debug.h>
  14
  15 AROS_LH2(void *, HostLib_Open,
  16          AROS_LHA(const char *, filename, A0),
  17          AROS_LHA(char **,      error,    A1),
  18          struct HostLibBase *, HostLibBase, 1, HostLib) {
  19
  20     AROS_LIBFUNC_INIT
  21
  22     void *handle;
  23
  24     D(bug("[hostlib] Open: filename=%s\n", filename));
  25
  26     handle = dlopen((char *) filename, RTLD_NOW);
  27
  28     if (error != NULL)
  29         *error = handle != NULL ? dlerror() : NULL;
  30
  31     return handle;
  32
  33     AROS_LIBFUNC_EXIT
  34 }
  35
  36 AROS_LH2(int, HostLib_Close,
  37          AROS_LHA(void *,  handle, A0),
  38          AROS_LHA(char **, error,  A1),
  39          struct HostLibBase *, HostLibBase, 2, HostLib) {
  40
  41     AROS_LIBFUNC_INIT
  42
  43     int ret;
  44
  45     D(bug("[hostlib] Close: handle=0x%08x\n", handle));
  46
  47     ret = dlclose(handle);
  48
  49     if (error != NULL)
  50         *error = ret != 0 ? dlerror() : NULL;
  51
  52     return ret;
  53
  54     AROS_LIBFUNC_EXIT
  55 }
  56
  57 AROS_LH3(void *, HostLib_GetPointer,
  58          AROS_LHA(void *,       handle, A0),
  59          AROS_LHA(const char *, symbol, A1),
  60          AROS_LHA(char **,      error,  A2),
  61          struct HostLibBase *, HostLibBase, 3, HostLib) {
  62
  63     AROS_LIBFUNC_INIT
  64
  65     void *ptr;
  66
  67     D(bug("[hostlib] GetPointer: handle=0x%08x, symbol=%s\n", handle, symbol));
  68
  69     dlerror();
  70
  71     ptr = dlsym(handle, (char *) symbol);
  72
  73     if (error != NULL)
  74         *error = dlerror();
  75
  76     return ptr;
  77
  78     AROS_LIBFUNC_EXIT
  79 }