#include <config.h>
#include <windows.h>
#include <dlfcn.h>
#include <strsafe.h>
#define ERR_STR_LEN 256
static volatile LONG dlfcn_tls = TLS_OUT_OF_INDEXES;
static DWORD get_tl_error_slot(void)
{
if (dlfcn_tls == TLS_OUT_OF_INDEXES) {
DWORD slot = TlsAlloc();
DWORD old_slot;
if (slot == TLS_OUT_OF_INDEXES)
return dlfcn_tls;
if ((old_slot = InterlockedCompareExchange(&dlfcn_tls, slot,
TLS_OUT_OF_INDEXES)) !=
TLS_OUT_OF_INDEXES) {
TlsFree(slot);
return old_slot;
} else {
return slot;
}
}
return dlfcn_tls;
}
static void set_error(const char * e)
{
char * s;
char * old_s;
size_t len;
DWORD slot = get_tl_error_slot();
if (slot == TLS_OUT_OF_INDEXES)
return;
len = strlen(e) * sizeof(char) + sizeof(char);
s = LocalAlloc(LMEM_FIXED, len);
if (s == NULL)
return;
old_s = (char *) TlsGetValue(slot);
TlsSetValue(slot, (LPVOID) s);
if (old_s != NULL)
LocalFree(old_s);
}
static void set_error_from_last(void) {
DWORD slot = get_tl_error_slot();
char * s = NULL;
char * old_s;
if (slot == TLS_OUT_OF_INDEXES)
return;
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER,
0, GetLastError(), 0,
(LPTSTR) &s, 0,
NULL);
if (s == NULL)
return;
old_s = (char *) TlsGetValue(slot);
TlsSetValue(slot, (LPVOID) s);
if (old_s != NULL)
LocalFree(old_s);
}
ROKEN_LIB_FUNCTION int ROKEN_LIB_CALL
dlclose(void * vhm)
{
BOOL brv;
brv = FreeLibrary((HMODULE) vhm);
if (!brv) {
set_error_from_last();
}
return !brv;
}
ROKEN_LIB_FUNCTION char * ROKEN_LIB_CALL
dlerror(void)
{
DWORD slot = get_tl_error_slot();
if (slot == TLS_OUT_OF_INDEXES)
return NULL;
return (char *) TlsGetValue(slot);
}
ROKEN_LIB_FUNCTION void * ROKEN_LIB_CALL
dlopen(const char *fn, int flags)
{
HMODULE hm;
UINT old_error_mode;
if ( fn == NULL ) {
set_error("Not implemented");
return NULL;
}
old_error_mode = SetErrorMode(SEM_FAILCRITICALERRORS);
hm = LoadLibrary(fn);
if (hm == NULL) {
set_error_from_last();
}
SetErrorMode(old_error_mode);
return (void *) hm;
}
ROKEN_LIB_FUNCTION DLSYM_RET_TYPE ROKEN_LIB_CALL
dlsym(void * vhm, const char * func_name)
{
HMODULE hm = (HMODULE) vhm;
return (DLSYM_RET_TYPE)(ULONG_PTR)GetProcAddress(hm, func_name);
}