dynaload.c

   1 #include "dynaload.h"
   2 /* #include "XSUB.h"  so we can compile on threaded perls */
   3 #include "imagei.h"
   4
   5 static symbol_table_t symbol_table={i_has_format,ICL_set_internal,ICL_info,
   6                              i_img_new,i_img_empty,i_img_empty_ch,i_img_exorcise,
   7                              i_img_info,i_img_setmask,i_img_getmask,
   8                              i_box,i_draw,i_arc,i_copyto,i_copyto_trans,i_rubthru};
   9
  10
  11 /*
  12   Dynamic loading works like this:
  13   dynaload opens the shared object and
  14   loads all the functions into an array of functions
  15   it returns a string from the dynamic function that
  16   can be supplied to the parser for evaling.
  17 */
  18
  19 void
  20 DSO_call(DSO_handle *handle,int func_index,HV* hv) {
  21   mm_log((1,"DSO_call(handle 0x%X, func_index %d, hv 0x%X)\n",handle,func_index,hv));
  22   (handle->function_list[func_index].iptr)((void*)hv);
  23 }
  24
  25
  26 #if defined( OS_hpux )
  27
  28 void*
  29 DSO_open(char* file,char** evalstring) {
  30   shl_t tt_handle;
  31   void *d_handle,**plugin_symtab,**plugin_utiltab;
  32   int  rc,*iptr, (*fptr)(int);
  33   func_ptr *function_list;
  34   DSO_handle *dso_handle;
  35   void (*f)(void *s,void *u); /* these will just have to be void for now */
  36   int i;
  37
  38   *evalstring=NULL;
  39
  40   mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );
  41
  42   if ( (tt_handle = shl_load(file, BIND_DEFERRED,0L)) == NULL) return NULL;
  43   if ( (shl_findsym(&tt_handle, I_EVALSTR,TYPE_UNDEFINED,(void*)evalstring))) return NULL;
  44
  45   /*
  46   if ( (shl_findsym(&tt_handle, "symbol_table",TYPE_UNDEFINED,(void*)&plugin_symtab))) return NULL;
  47   if ( (shl_findsym(&tt_handle, "util_table",TYPE_UNDEFINED,&plugin_utiltab))) return NULL;
  48   (*plugin_symtab)=&symbol_table;
  49   (*plugin_utiltab)=&i_UTIL_table;
  50   */
  51
  52   if ( (shl_findsym(&tt_handle, I_INSTALL_TABLES ,TYPE_UNDEFINED, &f ))) return NULL;
  53
  54   mm_log( (1,"Calling install_tables\n") );
  55   f(&symbol_table,&i_UTIL_table);
  56   mm_log( (1,"Call ok.\n") );
  57
  58   if ( (shl_findsym(&tt_handle, I_FUNCTION_LIST ,TYPE_UNDEFINED,(func_ptr*)&function_list))) return NULL;
  59   if ( (dso_handle=(DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) return NULL;
  60
  61   dso_handle->handle=tt_handle; /* needed to close again */
  62   dso_handle->function_list=function_list;
  63   if ( (dso_handle->filename=(char*)malloc(strlen(file))) == NULL) { free(dso_handle); return NULL; }
  64   strcpy(dso_handle->filename,file);
  65
  66   mm_log((1,"DSO_open <- (0x%X)\n",dso_handle));
  67   return (void*)dso_handle;
  68 }
  69
  70 undef_int
  71 DSO_close(void *ptr) {
  72   DSO_handle *handle=(DSO_handle*) ptr;
  73   mm_log((1,"DSO_close(ptr 0x%X)\n",ptr));
  74   return !shl_unload((handle->handle));
  75 }
  76
  77 #elif defined(WIN32)
  78
  79 void *
  80 DSO_open(char *file, char **evalstring) {
  81   HMODULE d_handle;
  82   func_ptr *function_list;
  83   DSO_handle *dso_handle;
  84
  85   void (*f)(void *s,void *u); /* these will just have to be void for now */
  86
  87   mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );
  88
  89   *evalstring = NULL;
  90   if ((d_handle = LoadLibrary(file)) == NULL) {
  91     mm_log((1, "DSO_open: LoadLibrary(%s) failed: %lu\n", file, GetLastError()));
  92     return NULL;
  93   }
  94   if ( (*evalstring = (char *)GetProcAddress(d_handle, I_EVALSTR)) == NULL) {
  95     mm_log((1,"DSO_open: GetProcAddress didn't fine '%s': %lu\n", I_EVALSTR, GetLastError()));
  96     FreeLibrary(d_handle);
  97     return NULL;
  98   }
  99   if ((f = (void (*)(void *, void*))GetProcAddress(d_handle, I_INSTALL_TABLES)) == NULL) {
 100     mm_log((1, "DSO_open: GetProcAddress didn't find '%s': %lu\n", I_INSTALL_TABLES, GetLastError()));
 101     FreeLibrary(d_handle);
 102     return NULL;
 103   }
 104   mm_log((1, "Calling install tables\n"));
 105   f(&symbol_table, &i_UTIL_table);
 106   mm_log((1, "Call ok\n"));
 107
 108   if ( (function_list = (func_ptr *)GetProcAddress(d_handle, I_FUNCTION_LIST)) == NULL) {
 109     mm_log((1, "DSO_open: GetProcAddress didn't find '%s': %lu\n", I_FUNCTION_LIST, GetLastError()));
 110     FreeLibrary(d_handle);
 111     return NULL;
 112   }
 113   if ( (dso_handle = (DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) {
 114     mm_log( (1, "DSO_Open: out of memory\n") );
 115     FreeLibrary(d_handle);
 116     return NULL;
 117   }
 118   dso_handle->handle=d_handle; /* needed to close again */
 119   dso_handle->function_list=function_list;
 120   if ( (dso_handle->filename=(char*)malloc(strlen(file))) == NULL) { free(dso_handle); FreeLibrary(d_handle); return NULL; }
 121   strcpy(dso_handle->filename,file);
 122
 123   mm_log( (1,"DSO_open <- 0x%X\n",dso_handle) );
 124   return (void*)dso_handle;
 125
 126 }
 127
 128 undef_int
 129 DSO_close(void *ptr) {
 130   DSO_handle *handle = (DSO_handle *)ptr;
 131   FreeLibrary(handle->handle);
 132   free(handle->filename);
 133   free(handle);
 134 }
 135
 136 #else
 137
 138 /* OS/2 has no dlclose; Perl doesn't provide one. */
 139 #ifdef __EMX__ /* OS/2 */
 140 int
 141 dlclose(minthandle_t h) {
 142   return DosFreeModule(h) ? -1 : 0;
 143 }
 144 #endif /* __EMX__ */
 145
 146 #ifdef OS_darwin
 147
 148 #import <mach-o/dyld.h>
 149
 150 static char *dl_error = "unknown";
 151
 152 static char *dlopen(char *path, int mode /* mode is ignored */)
 153 {
 154   int dyld_result;
 155   NSObjectFileImage ofile;
 156   NSModule handle = NULL;
 157
 158
 159
 160   dyld_result = NSCreateObjectFileImageFromFile(path, &ofile);
 161   if (dyld_result != NSObjectFileImageSuccess)
 162     {
 163      switch (dyld_result) {
 164        case NSObjectFileImageFailure:
 165            dl_error = "object file setup failure";
 166            break;
 167        case NSObjectFileImageInappropriateFile:
 168            dl_error = "not a Mach-O MH_BUNDLE file type";
 169            break;
 170        case NSObjectFileImageArch:
 171            dl_error = "no object for this architecture";
 172            break;
 173        case NSObjectFileImageFormat:
 174            dl_error = "bad object file format";
 175            break;
 176        case NSObjectFileImageAccess:
 177            dl_error = "can't read object file";
 178            break;
 179        default:
 180            dl_error = "unknown error from NSCreateObjectFileImageFromFile()";
 181            break;
 182      }
 183     }
 184     else
 185       {
 186         // NSLinkModule will cause the run to abort on any link error's
 187         // not very friendly but the error recovery functionality is limited.
 188         handle = NSLinkModule(ofile, path, TRUE);
 189       }
 190
 191   return handle;
 192 }
 193
 194 static void *
 195 dlsym(void *handle, char *symbol)
 196 {
 197   void *addr;
 198
 199   if (NSIsSymbolNameDefined(symbol))
 200   {
 201     addr = NSAddressOfSymbol(NSLookupAndBindSymbol(symbol));
 202   }
 203   else
 204   {
 205     dl_error = "cannot find symbol";
 206     addr = NULL;
 207   }
 208
 209   return addr;
 210 }
 211
 212 static int dlclose(void *handle) /* stub only */
 213 {
 214   return 0;
 215 }
 216
 217 static char *dlerror(void) /* stub only */
 218 {
 219   printf("Error occurred\n");
 220   return dl_error;
 221 }
 222
 223 #define RTLD_LAZY 0
 224
 225 #endif
 226
 227 void*
 228 DSO_open(char* file,char** evalstring) {
 229   void *d_handle;
 230   func_ptr *function_list;
 231   DSO_handle *dso_handle;
 232
 233   void (*f)(void *s,void *u); /* these will just have to be void for now */
 234
 235   *evalstring=NULL;
 236
 237   mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );
 238
 239   if ( (d_handle = dlopen(file, RTLD_LAZY)) == NULL) {
 240     mm_log( (1,"DSO_open: dlopen failed: %s.\n",dlerror()) );
 241     return NULL;
 242   }
 243
 244   if ( (*evalstring = (char *)dlsym(d_handle, I_EVALSTR)) == NULL) {
 245     mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_EVALSTR,dlerror()) );
 246     return NULL;
 247   }
 248
 249   /*
 250
 251     I'll just leave this thing in here for now if I need it real soon
 252
 253    mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_SYMBOL_TABLE ));
 254    if ( (plugin_symtab = dlsym(d_handle, I_SYMBOL_TABLE)) == NULL) {
 255      mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_SYMBOL_TABLE,dlerror()) );
 256      return NULL;
 257    }
 258
 259    mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_UTIL_TABLE ));
 260     if ( (plugin_utiltab = dlsym(d_handle, I_UTIL_TABLE)) == NULL) {
 261      mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_UTIL_TABLE,dlerror()) );
 262      return NULL;
 263    }
 264
 265   */
 266
 267   f = (void(*)(void *s,void *u))dlsym(d_handle, I_INSTALL_TABLES);
 268   mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_INSTALL_TABLES ));
 269   if ( (f = (void(*)(void *s,void *u))dlsym(d_handle, I_INSTALL_TABLES)) == NULL) {
 270     mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_INSTALL_TABLES,dlerror()) );
 271     return NULL;
 272   }
 273
 274   mm_log( (1,"Calling install_tables\n") );
 275   f(&symbol_table,&i_UTIL_table);
 276   mm_log( (1,"Call ok.\n") );
 277
 278   /* (*plugin_symtab)=&symbol_table;
 279      (*plugin_utiltab)=&i_UTIL_table; */
 280
 281   mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_FUNCTION_LIST ));
 282   if ( (function_list=(func_ptr *)dlsym(d_handle, I_FUNCTION_LIST)) == NULL) {
 283     mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_FUNCTION_LIST,dlerror()) );
 284     return NULL;
 285   }
 286
 287   if ( (dso_handle=(DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) return NULL;
 288
 289   dso_handle->handle=d_handle; /* needed to close again */
 290   dso_handle->function_list=function_list;
 291   if ( (dso_handle->filename=(char*)malloc(strlen(file))) == NULL) { free(dso_handle); return NULL; }
 292   strcpy(dso_handle->filename,file);
 293
 294   mm_log( (1,"DSO_open <- 0x%X\n",dso_handle) );
 295   return (void*)dso_handle;
 296 }
 297
 298 undef_int
 299 DSO_close(void *ptr) {
 300   DSO_handle *handle;
 301   mm_log((1,"DSO_close(ptr 0x%X)\n",ptr));
 302   handle=(DSO_handle*) ptr;
 303   return !dlclose(handle->handle);
 304 }
 305
 306 #endif
 307