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

win...

Browse Source
This commit is contained in:
Vitor Santoss Costa
2017-02-22 21:28:05 +00:00
parent 477772e703
commit f3b0e962a7
8 changed files with 32 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
C/load_dll.c
View File

@@ -43,11 +43,10 @@ void *
Yap_LoadForeignFile(char *file, int flags)
{
char *buf = malloc(1024);
printf("file=%s\n" , file );
void *ptr= (void *)LoadLibrary(file);
if (!ptr) {
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
NULL, GetLastError(),
NULL, GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), buf, 1023,
NULL);
}
@@ -76,12 +75,20 @@ Yap_CloseForeignFile(void *handle)
*/
static Int
LoadForeign(StringList ofiles, StringList libs,
char *proc_name, YapInitProc *init_proc)
const char *proc_name, YapInitProc *init_proc)
{
CACHE_REGS
while (ofiles) {
HINSTANCE handle;
if (*init_proc == NULL &&
(*init_proc = (YapInitProc)GetProcAddress((HMODULE)handle, proc_name)))
{
YapInitProc f = *init_proc;
f();
return true;
}
const char *file = AtomName(ofiles->name);
if (Yap_findFile(file, NULL, NULL, LOCAL_FileNameBuf, true, YAP_OBJ, true, true) &&
(handle=LoadLibrary(LOCAL_FileNameBuf)) != 0)
@@ -90,9 +97,9 @@ LoadForeign(StringList ofiles, StringList libs,
if (*init_proc == NULL)
*init_proc = (YapInitProc)GetProcAddress((HMODULE)handle, proc_name);
} else {
char *buf = malloc(1024);
char *buf = malloc(1024);
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
NULL, GetLastError(),
NULL, GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), buf, 1023,
NULL);
//fprintf(stderr,"WinError: %s\n", LOCAL_ErrorSay);
@@ -139,7 +146,7 @@ Yap_LoadForeign(StringList ofiles, StringList libs,
return LoadForeign(ofiles, libs, proc_name, init_proc);
}
void
void
Yap_ShutdownLoadForeign(void)
{
}
@@ -152,4 +159,3 @@ Yap_ReLoadForeign(StringList ofiles, StringList libs,
}
#endif