69 lines
1.2 KiB
C
69 lines
1.2 KiB
C
|
#include "factor.h"
|
||
|
|
|
||
|
|
void primitive_dlopen(void)
|
||
|
|
{
|
||
|
|
#ifdef FFI
|
||
|
|
char* path = to_c_string(untag_string(dpop()));
|
||
|
|
void* dllptr = dlopen(path,RTLD_NOW);
|
||
|
|
DLL* dll;
|
||
|
|
|
||
|
|
if(dllptr == NULL)
|
||
|
|
{
|
||
|
|
general_error(ERROR_FFI,tag_object(
|
||
|
|
from_c_string(dlerror())));
|
||
|
|
}
|
||
|
|
|
||
|
|
dll = allot_object(DLL_TYPE,sizeof(DLL));
|
||
|
|
dll->dll = dllptr;
|
||
|
|
dpush(tag_object(dll));
|
||
|
|
#else
|
||
|
|
general_error(ERROR_FFI_DISABLED,F);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_dlsym(void)
|
||
|
|
{
|
||
|
|
#ifdef FFI
|
||
|
|
DLL* dll = untag_dll(dpop());
|
||
|
|
void* sym = dlsym(dll->dll,to_c_string(untag_string(dpop())));
|
||
|
|
if(sym == NULL)
|
||
|
|
{
|
||
|
|
general_error(ERROR_FFI,tag_object(
|
||
|
|
from_c_string(dlerror())));
|
||
|
|
}
|
||
|
|
dpush(tag_cell((CELL)sym));
|
||
|
|
#else
|
||
|
|
general_error(ERROR_FFI_DISABLED,F);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_dlsym_self(void)
|
||
|
|
{
|
||
|
|
#ifdef FFI
|
||
|
|
void* sym = dlsym(NULL,to_c_string(untag_string(dpop())));
|
||
|
|
if(sym == NULL)
|
||
|
|
{
|
||
|
|
general_error(ERROR_FFI,tag_object(
|
||
|
|
from_c_string(dlerror())));
|
||
|
|
}
|
||
|
|
dpush(tag_cell((CELL)sym));
|
||
|
|
#else
|
||
|
|
general_error(ERROR_FFI_DISABLED,F);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void primitive_dlclose(void)
|
||
|
|
{
|
||
|
|
#ifdef FFI
|
||
|
|
DLL* dll = untag_dll(dpop());
|
||
|
|
if(dlclose(dll->dll) == -1)
|
||
|
|
{
|
||
|
|
general_error(ERROR_FFI,tag_object(
|
||
|
|
from_c_string(dlerror())));
|
||
|
|
}
|
||
|
|
dll->dll = NULL;
|
||
|
|
#else
|
||
|
|
general_error(ERROR_FFI_DISABLED,F);
|
||
|
|
#endif
|
||
|
|
}
|