arch/all-unix/bootstrap/hostlib.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <dlfcn.h>
   7 #include <stdio.h>
   8
   9 #include "hostlib.h"
  10
  11 static inline void GetErrorStr(char **error)
  12 {
  13     if (error)
  14         *error = (char *)dlerror();
  15 }
  16
  17 void *Host_HostLib_Open(const char *filename, char **error)
  18 {
  19     void *ret = dlopen(filename, RTLD_NOW);
  20
  21     GetErrorStr(error);
  22     return ret;
  23 }
  24
  25 int Host_HostLib_Close(void *handle, char **error)
  26 {
  27     int ret = dlclose(handle);
  28
  29     GetErrorStr(error);
  30     return ret;
  31 }
  32
  33 void *Host_HostLib_GetPointer(void *handle, const char *symbol, char **error)
  34 {
  35     void *ret = dlsym(handle, symbol);
  36
  37     GetErrorStr(error);
  38     return ret;
  39 }