[imager.git] / dynaload.c

#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_draw,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) 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))) == NULL) { 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) {
    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))) == NULL) { 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;
  FreeLibrary(handle->handle);
  free(handle->filename);
  free(handle);
}

#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) 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))) == NULL) { 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
02d1d628	1	#include "dynaload.h"
b33c08f8 TC	2	/* #include "XSUB.h" so we can compile on threaded perls */
b33c08f8 TC	3	#include "imagei.h"
02d1d628	4
b6cfd214 TC	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
02d1d628 AMH	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;
b33c08f8	49	(*plugin_utiltab)=&i_UTIL_table;
02d1d628 AMH	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") );
b33c08f8	55	f(&symbol_table,&i_UTIL_table);
02d1d628 AMH	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"));
b33c08f8	105	f(&symbol_table, &i_UTIL_table);
02d1d628 AMH	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
b6cfd214 TC	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
560a3a0a TC	194	static void *
560a3a0a TC	195	dlsym(void handle, char symbol)
b6cfd214 TC	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
560a3a0a	212	static int dlclose(void handle) / stub only */
b6cfd214 TC	213	{
	214	return 0;
	215	}
	216
4ede8fe2	217	static char dlerror(void) / stub only */
b6cfd214	218	{
560a3a0a	219	printf("Error occurred\n");
b6cfd214 TC	220	return dl_error;
	221	}
	222
	223	#define RTLD_LAZY 0
	224
	225	#endif
02d1d628 AMH	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") );
b33c08f8	275	f(&symbol_table,&i_UTIL_table);
02d1d628 AMH	276	mm_log( (1,"Call ok.\n") );
	277
	278	/* (*plugin_symtab)=&symbol_table;
b33c08f8	279	(plugin_utiltab)=&i_UTIL_table; /
02d1d628 AMH	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