/**
module_read_path : string list -> name:string -> loader:object -> 'module
<doc>
Read a module using the specified search path.
</doc>
**/
static value module_read_path( value path, value name, value loader ) {
FILE *f;
value fname;
char *mname, *ext;
neko_module *m;
val_check(name,string);
val_check(loader,object);
mname = val_string(name);
ext = strrchr(mname,'.');
if( ext && ext[1] == 'n' && ext[2] == 0 )
fname = neko_select_file(path,mname,"");
else
fname = neko_select_file(path,mname,".n");
f = fopen(val_string(fname),"rb");
if( f == NULL ) {
buffer b = alloc_buffer("Module not found : ");
buffer_append(b,mname);
bfailure(b);
}
m = neko_read_module(neko_file_reader,f,loader);
fclose(f);
if( m == NULL ) {
buffer b = alloc_buffer("Invalid module : ");
val_buffer(b,name);
bfailure(b);
}
m->name = alloc_string(val_string(name));
return alloc_abstract(neko_kind_module,m);
}
static void open_module( value path, const char *mname, reader *r, readp *p ) {
FILE *f;
value fname;
char *ext = strrchr(mname,'.');
if( ext && ext[1] == 'n' && ext[2] == 0 )
fname = neko_select_file(path,mname,"");
else
fname = neko_select_file(path,mname,".n");
f = fopen(val_string(fname),"rb");
if( f == NULL ) {
buffer b = alloc_buffer("Module not found : ");
buffer_append(b,mname);
bfailure(b);
}
*r = neko_file_reader;
*p = f;
}
static void *load_primitive( const char *prim, int nargs, value path, liblist **libs ) {
char *pos = strchr(prim,'@');
int len;
liblist *l;
PRIM0 ptr;
if( pos == NULL )
return NULL;
l = *libs;
*pos = 0;
len = (int)strlen(prim) + 1;
# ifndef NEKO_STANDALONE
while( l != NULL ) {
if( memcmp(l->name,prim,len) == 0 )
break;
l = l->next;
}
# endif
if( l == NULL ) {
void *h;
value pname = pname = neko_select_file(path,prim,".ndll");
#ifdef NEKO_STANDALONE
# ifdef NEKO_WINDOWS
h = (void*)GetModuleHandle(NULL);
# else
h = dlopen(NULL,RTLD_LAZY);
# endif
#else
h = dlopen(val_string(pname),RTLD_LAZY);
#endif
if( h == NULL ) {
buffer b = alloc_buffer("Failed to load library : ");
val_buffer(b,pname);
#ifndef NEKO_WINDOWS
buffer_append(b," (");
buffer_append(b,dlerror());
buffer_append(b,")");
#endif
*pos = '@';
bfailure(b);
}
l = (liblist*)alloc(sizeof(liblist));
l->handle = h;
l->name = alloc_private(len);
memcpy(l->name,prim,len);
l->next = *libs;
*libs = l;
ptr = (PRIM0)dlsym(l->handle,"__neko_entry_point");
if( ptr != NULL )
((PRIM0)ptr())();
}
*pos++ = '@';
{
char buf[100];
if( strlen(pos) > 90 )
return NULL;
if( nargs == VAR_ARGS )
sprintf(buf,"%s__MULT",pos);
else
sprintf(buf,"%s__%d",pos,nargs);
ptr = (PRIM0)dlsym(l->handle,buf);
if( ptr == NULL )
return NULL;
return ptr();
}
}