src/include/sysvr4-foreign.h

   1 #define SHLIB_DYNLOAD
   2
   3 #define INTERNAL_CNAME_PATTERN "%s"
   4 #define INTERNAL_FNAME_PATTERN "%s_" /**** check this */
   5 #define VERBDFLT TRUE
   6
   7 LOCAL VOID link_and_load _((char *fname, char *libs, int fort));
   8 LOCAL char *get_caddress _((char *name));
   9
  10 #include <dlfcn.h>
  11
  12 /**** This code ought to cache the addresses found, but I won't bother
  13 until I revise the way dynamic loading works */
  14
  15 LOCAL VOID link_and_load(fname, libs, fort)
  16      char *fname, *libs;
  17      int fort;
  18 {
  19   static initialized = FALSE;
  20   void *handle;
  21
  22   if (! initialized) {
  23     setvalue(s_cfun_table, NIL);
  24     initialized = TRUE;
  25   }
  26
  27   handle = dlopen(fname, RTLD_LAZY);
  28   if (handle == NULL) {
  29     sprintf(buf, "can't open %s", fname);
  30     xlfail(buf);
  31   }
  32   setvalue(s_cfun_table,
  33            cons(cvfixnum((FIXTYPE) handle), getvalue(s_cfun_table)));
  34 }
  35
  36 LOCAL char *get_caddress(name)
  37      char *name;
  38 {
  39   LVAL next;
  40   void *handle;
  41   char *f;
  42   static int initialized = FALSE;
  43   static void *prog_handle = NULL;
  44
  45   for (next = getvalue(s_cfun_table); consp(next); next = cdr(next)) {
  46     handle = (void *) getfixnum(car(next));
  47     f = dlsym(handle, name);
  48     if (f != NULL) return(f);
  49   }
  50   if (! initialized) {
  51     prog_handle = dlopen(NULL, RTLD_LAZY);
  52     initialized = TRUE;
  53   }
  54   f = dlsym(prog_handle, name);
  55   return(f);
  56 }