diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

first attempt at error handling

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-06-18 10:30:23 +01:00
parent b74e38378f
commit 5b047b516b
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
C/load_dl.c
View File

@ -38,6 +38,7 @@ void *
Yap_LoadForeignFile(char *file, int flags)
{
int dlflag;
void *out;
if (flags & EAGER_LOADING)
dlflag = RTLD_NOW;
@ -48,15 +49,21 @@ Yap_LoadForeignFile(char *file, int flags)
else
dlflag |= RTLD_LOCAL;
return (void *)dlopen(file,dlflag);
out = (void *)dlopen(file,dlflag);
if (!out) {
Yap_Error(SYSTEM_ERROR, ARG1, "dlopen error %s\n", dlerror());
}
return out;
}
int
Yap_CallForeignFile(void *handle, char *f)
{
YapInitProc proc = (YapInitProc) dlsym(handle, f);
if (!proc)
if (!proc) {
Yap_Error(SYSTEM_ERROR, ARG1, "dlsym error %s\n", dlerror());
return FALSE;
}
(*proc) ();
return TRUE;
}
@ -64,7 +71,11 @@ Yap_CallForeignFile(void *handle, char *f)
int
Yap_CloseForeignFile(void *handle)
{
return dlclose(handle);
if ( dlclose(handle) < 0) {
Yap_Error(SYSTEM_ERROR, ARG1, "dlclose error %s\n", dlerror());
return -1;
}
return 0;
}