[imager.git] / dynaload.c

#include "image.h"
#include "dynaload.h"
/* #include "XSUB.h"  so we can compile on threaded perls */
#include "imagei.h"

static symbol_table_t symbol_table={i_has_format,ICL_set_internal,ICL_info,
			     i_img_new,i_img_empty,i_img_empty_ch,i_img_exorcise,
			     i_img_info,i_img_setmask,i_img_getmask,
			     i_box,i_line,i_arc,i_copyto,i_copyto_trans,i_rubthru};


/*
  Dynamic loading works like this:
  dynaload opens the shared object and
  loads all the functions into an array of functions
  it returns a string from the dynamic function that
  can be supplied to the parser for evaling.
*/

void
DSO_call(DSO_handle *handle,int func_index,HV* hv) {
  mm_log((1,"DSO_call(handle 0x%X, func_index %d, hv 0x%X)\n",handle,func_index,hv));
  (handle->function_list[func_index].iptr)((void*)hv);
}


#if defined( OS_hpux )

void*
DSO_open(char* file,char** evalstring) {
  shl_t tt_handle;
  void *d_handle,**plugin_symtab,**plugin_utiltab;
  int  rc,*iptr, (*fptr)(int);
  func_ptr *function_list;
  DSO_handle *dso_handle;
  void (*f)(void *s,void *u); /* these will just have to be void for now */
  int i;

  *evalstring=NULL;

  mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );

  if ( (tt_handle = shl_load(file, BIND_DEFERRED,0L)) == NULL) return NULL; 
  if ( (shl_findsym(&tt_handle, I_EVALSTR,TYPE_UNDEFINED,(void*)evalstring))) return NULL;

  /*
  if ( (shl_findsym(&tt_handle, "symbol_table",TYPE_UNDEFINED,(void*)&plugin_symtab))) return NULL;
  if ( (shl_findsym(&tt_handle, "util_table",TYPE_UNDEFINED,&plugin_utiltab))) return NULL;
  (*plugin_symtab)=&symbol_table;
  (*plugin_utiltab)=&i_UTIL_table;
  */

  if ( (shl_findsym(&tt_handle, I_INSTALL_TABLES ,TYPE_UNDEFINED, &f ))) return NULL; 
 
  mm_log( (1,"Calling install_tables\n") );
  f(&symbol_table,&i_UTIL_table);
  mm_log( (1,"Call ok.\n") ); 
 
  if ( (shl_findsym(&tt_handle, I_FUNCTION_LIST ,TYPE_UNDEFINED,(func_ptr*)&function_list))) return NULL; 
  if ( (dso_handle=(DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) /* checked 17jul05 tonyc */
    return NULL;

  dso_handle->handle=tt_handle; /* needed to close again */
  dso_handle->function_list=function_list;
  if ( (dso_handle->filename=(char*)malloc(strlen(file)+1)) == NULL) { /* checked 17jul05 tonyc */
    free(dso_handle); return NULL;
  }
  strcpy(dso_handle->filename,file);

  mm_log((1,"DSO_open <- (0x%X)\n",dso_handle));
  return (void*)dso_handle;
}

undef_int
DSO_close(void *ptr) {
  DSO_handle *handle=(DSO_handle*) ptr;
  mm_log((1,"DSO_close(ptr 0x%X)\n",ptr));
  return !shl_unload((handle->handle));
}

#elif defined(WIN32)

void *
DSO_open(char *file, char **evalstring) {
  HMODULE d_handle;
  func_ptr *function_list;
  DSO_handle *dso_handle;
  
  void (*f)(void *s,void *u); /* these will just have to be void for now */

  mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );

  *evalstring = NULL;
  if ((d_handle = LoadLibrary(file)) == NULL) {
    mm_log((1, "DSO_open: LoadLibrary(%s) failed: %lu\n", file, GetLastError()));
    return NULL;
  }
  if ( (*evalstring = (char *)GetProcAddress(d_handle, I_EVALSTR)) == NULL) {
    mm_log((1,"DSO_open: GetProcAddress didn't fine '%s': %lu\n", I_EVALSTR, GetLastError()));
    FreeLibrary(d_handle);
    return NULL;
  }
  if ((f = (void (*)(void *, void*))GetProcAddress(d_handle, I_INSTALL_TABLES)) == NULL) {
    mm_log((1, "DSO_open: GetProcAddress didn't find '%s': %lu\n", I_INSTALL_TABLES, GetLastError()));
    FreeLibrary(d_handle);
    return NULL;
  }
  mm_log((1, "Calling install tables\n"));
  f(&symbol_table, &i_UTIL_table);
  mm_log((1, "Call ok\n"));
  
  if ( (function_list = (func_ptr *)GetProcAddress(d_handle, I_FUNCTION_LIST)) == NULL) {
    mm_log((1, "DSO_open: GetProcAddress didn't find '%s': %lu\n", I_FUNCTION_LIST, GetLastError()));
    FreeLibrary(d_handle);
    return NULL;
  }
  if ( (dso_handle = (DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) { /* checked 17jul05 tonyc */
    mm_log( (1, "DSO_Open: out of memory\n") );
    FreeLibrary(d_handle);
    return NULL;
  }
  dso_handle->handle=d_handle; /* needed to close again */
  dso_handle->function_list=function_list;
  if ( (dso_handle->filename=(char*)malloc(strlen(file)+1)) == NULL) { /* checked 17jul05 tonyc */
    free(dso_handle);
    FreeLibrary(d_handle); 
    return NULL; 
  }
  strcpy(dso_handle->filename,file);

  mm_log( (1,"DSO_open <- 0x%X\n",dso_handle) );
  return (void*)dso_handle;

}

undef_int
DSO_close(void *ptr) {
  DSO_handle *handle = (DSO_handle *)ptr;
  BOOL result = FreeLibrary(handle->handle);
  free(handle->filename);
  free(handle);

  return result;
}

#else

/* OS/2 has no dlclose; Perl doesn't provide one. */
#ifdef __EMX__ /* OS/2 */
int
dlclose(minthandle_t h) {
  return DosFreeModule(h) ? -1 : 0;
}
#endif /* __EMX__ */

#ifdef OS_darwin

#import <mach-o/dyld.h>

static char *dl_error = "unknown";

static char *dlopen(char *path, int mode /* mode is ignored */)
{
  int dyld_result;
  NSObjectFileImage ofile;
  NSModule handle = NULL;


  dyld_result = NSCreateObjectFileImageFromFile(path, &ofile);
  if (dyld_result != NSObjectFileImageSuccess)
    {
     switch (dyld_result) {
       case NSObjectFileImageFailure:
           dl_error = "object file setup failure";
           break;
       case NSObjectFileImageInappropriateFile:
           dl_error = "not a Mach-O MH_BUNDLE file type";
           break;
       case NSObjectFileImageArch:
           dl_error = "no object for this architecture";
           break;
       case NSObjectFileImageFormat:
           dl_error = "bad object file format";
           break;
       case NSObjectFileImageAccess:
           dl_error = "can't read object file";
           break;
       default:
           dl_error = "unknown error from NSCreateObjectFileImageFromFile()";
           break;
     }
    }
    else
      {
        // NSLinkModule will cause the run to abort on any link error's
        // not very friendly but the error recovery functionality is limited.
        handle = NSLinkModule(ofile, path, TRUE);
      }

  return handle;
}

static void *
dlsym(void *handle, char *symbol)
{
  void *addr;

  if (NSIsSymbolNameDefined(symbol))
  {
    addr = NSAddressOfSymbol(NSLookupAndBindSymbol(symbol));
  }
  else
  {
    dl_error = "cannot find symbol";
    addr = NULL;
  }

  return addr;
}

static int dlclose(void *handle) /* stub only */
{
  return 0;
}

static char *dlerror(void) /* stub only */
{
  printf("Error occurred\n");
  return dl_error; 
}

#define RTLD_LAZY 0

#endif 

void*
DSO_open(char* file,char** evalstring) {
  void *d_handle;
  func_ptr *function_list;
  DSO_handle *dso_handle;

  void (*f)(void *s,void *u); /* these will just have to be void for now */
  
  *evalstring=NULL;

  mm_log( (1,"DSO_open(file '%s' (0x%08X), evalstring 0x%08X)\n",file,file,evalstring) );

  if ( (d_handle = dlopen(file, RTLD_LAZY)) == NULL) {
    mm_log( (1,"DSO_open: dlopen failed: %s.\n",dlerror()) );
    return NULL;
  }

  if ( (*evalstring = (char *)dlsym(d_handle, I_EVALSTR)) == NULL) {
    mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_EVALSTR,dlerror()) );
    return NULL;
  }

  /*

    I'll just leave this thing in here for now if I need it real soon

   mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_SYMBOL_TABLE ));
   if ( (plugin_symtab = dlsym(d_handle, I_SYMBOL_TABLE)) == NULL) {
     mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_SYMBOL_TABLE,dlerror()) );
     return NULL;
   }
  
   mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_UTIL_TABLE ));
    if ( (plugin_utiltab = dlsym(d_handle, I_UTIL_TABLE)) == NULL) {
     mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_UTIL_TABLE,dlerror()) );
     return NULL;
   }

  */

  f = (void(*)(void *s,void *u))dlsym(d_handle, I_INSTALL_TABLES);
  mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_INSTALL_TABLES ));
  if ( (f = (void(*)(void *s,void *u))dlsym(d_handle, I_INSTALL_TABLES)) == NULL) {
    mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_INSTALL_TABLES,dlerror()) );
    return NULL;
  }

  mm_log( (1,"Calling install_tables\n") );
  f(&symbol_table,&i_UTIL_table);
  mm_log( (1,"Call ok.\n") );

  /* (*plugin_symtab)=&symbol_table;
     (*plugin_utiltab)=&i_UTIL_table; */
  
  mm_log( (1,"DSO_open: going to dlsym '%s'\n", I_FUNCTION_LIST ));
  if ( (function_list=(func_ptr *)dlsym(d_handle, I_FUNCTION_LIST)) == NULL) {
    mm_log( (1,"DSO_open: dlsym didn't find '%s': %s.\n",I_FUNCTION_LIST,dlerror()) );
    return NULL;
  }
  
  if ( (dso_handle=(DSO_handle*)malloc(sizeof(DSO_handle))) == NULL) /* checked 17jul05 tonyc */
    return NULL;
  
  dso_handle->handle=d_handle; /* needed to close again */
  dso_handle->function_list=function_list;
  if ( (dso_handle->filename=(char*)malloc(strlen(file)+1)) == NULL) { /* checked 17jul05 tonyc */
    free(dso_handle); 
    return NULL;
  }
  strcpy(dso_handle->filename,file);

  mm_log( (1,"DSO_open <- 0x%X\n",dso_handle) );
  return (void*)dso_handle;
}

undef_int
DSO_close(void *ptr) {
  DSO_handle *handle;
  mm_log((1,"DSO_close(ptr 0x%X)\n",ptr));
  handle=(DSO_handle*) ptr;
  return !dlclose(handle->handle);
}

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