mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-11 20:49:05 +03:00
Move platform code to header to make it available for baked code.
This commit is contained in:
Markus Gustavsson
parent
085e26b2d5
commit
90befac640
@ -94,39 +94,188 @@ static char* carp_get_load_library_error() {
|
||||
|
||||
#endif
|
||||
|
||||
#if defined(WIN32)
|
||||
|
||||
///* Init/shutdown */
|
||||
//
|
||||
//void carp_platform_init();
|
||||
//void carp_platform_shutdown();
|
||||
//
|
||||
///* --- Threads --- */
|
||||
//
|
||||
//typedef struct carp_thread* carp_thread_t;
|
||||
//typedef void(*carp_thread_routine)(void* arg);
|
||||
//
|
||||
//carp_thread_t carp_thread_create(carp_thread_routine thread_routine, void* arg);
|
||||
//
|
||||
///* It is safe to call carp_thread_destroy before the thread finishes, or even starts, if a fire and forget thread is desired.
|
||||
// But carp_thread_destroy must be called or resources will leak. */
|
||||
//void carp_thread_destroy(carp_thread_t thread);
|
||||
//
|
||||
///* --- Timing --- */
|
||||
//
|
||||
//int carp_millitime();
|
||||
//
|
||||
///* --- Libraries --- */
|
||||
//
|
||||
//typedef struct carp_library* carp_library_t;
|
||||
//
|
||||
//carp_library_t carp_load_library(const char* name);
|
||||
//
|
||||
//int carp_unload_library(carp_library_t lib);
|
||||
//
|
||||
///* Pass NULL to search all loaded libraries */
|
||||
//void* carp_find_symbol(carp_library_t lib, const char* name);
|
||||
//
|
||||
///* On Windows, this function just gets the last error for the calling thread
|
||||
// so to get any error from a failed library loading, this needs to be called
|
||||
// immediately after the load call */
|
||||
//char* carp_get_load_library_error();
|
||||
#define WIN32_LEAN_AND_MEAN
|
||||
#include <Windows.h>
|
||||
#include <assert.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
/* Support code for library symbol search */
|
||||
|
||||
typedef struct module_list {
|
||||
HMODULE module;
|
||||
struct module_list* next;
|
||||
}*module_list_t;
|
||||
|
||||
static LARGE_INTEGER perf_freq;
|
||||
static HMODULE main_module = INVALID_HANDLE_VALUE;
|
||||
static module_list_t loaded_modules = NULL;
|
||||
|
||||
static module_list_t new_module_list_node() {
|
||||
module_list_t lst = malloc(sizeof(struct module_list));
|
||||
lst->module = INVALID_HANDLE_VALUE;
|
||||
lst->next = NULL;
|
||||
return lst;
|
||||
}
|
||||
|
||||
static void add_module_to_list(module_list_t lst, HMODULE module) {
|
||||
while (lst->module != INVALID_HANDLE_VALUE) {
|
||||
if (lst->next == NULL) {
|
||||
lst->next = new_module_list_node();
|
||||
}
|
||||
lst = lst->next;
|
||||
}
|
||||
lst->module = module;
|
||||
}
|
||||
|
||||
static void remove_module_from_list(module_list_t lst, HMODULE module) {
|
||||
while (lst->module != module) {
|
||||
if (lst->next == NULL) {
|
||||
return; // not found
|
||||
}
|
||||
lst = lst->next;
|
||||
}
|
||||
lst->module = INVALID_HANDLE_VALUE;
|
||||
}
|
||||
|
||||
static void free_all_modules_and_destroy_module_list(module_list_t lst) {
|
||||
while (lst) {
|
||||
if (lst->module != INVALID_HANDLE_VALUE) {
|
||||
FreeLibrary(lst->module);
|
||||
}
|
||||
module_list_t tmp = lst;
|
||||
lst = lst->next;
|
||||
free(tmp);
|
||||
}
|
||||
}
|
||||
|
||||
/* Init/shutdown */
|
||||
|
||||
static void carp_platform_init() {
|
||||
QueryPerformanceFrequency(&perf_freq);
|
||||
main_module = GetModuleHandle(NULL);
|
||||
loaded_modules = new_module_list_node();
|
||||
}
|
||||
|
||||
static void carp_platform_shutdown() {
|
||||
CloseHandle(main_module);
|
||||
main_module = INVALID_HANDLE_VALUE;
|
||||
free_all_modules_and_destroy_module_list(loaded_modules);
|
||||
loaded_modules = NULL;
|
||||
}
|
||||
|
||||
/* --- Threads --- */
|
||||
|
||||
typedef struct carp_thread* carp_thread_t;
|
||||
typedef void(*carp_thread_routine)(void* arg);
|
||||
|
||||
struct carp_thread {
|
||||
HANDLE handle;
|
||||
};
|
||||
|
||||
typedef struct thread_arg_wrapper {
|
||||
carp_thread_routine tr;
|
||||
void* arg;
|
||||
} thread_arg_wrapper;
|
||||
|
||||
static DWORD WINAPI thread_proc_wrapper(LPVOID p) {
|
||||
thread_arg_wrapper* argw = (thread_arg_wrapper*)p;
|
||||
argw->tr(argw->arg);
|
||||
free(argw);
|
||||
return 0;
|
||||
}
|
||||
|
||||
static carp_thread_t carp_thread_create(carp_thread_routine thread_routine, void* arg) {
|
||||
carp_thread_t thread = malloc(sizeof(struct carp_thread));
|
||||
assert(thread);
|
||||
thread_arg_wrapper* argw = malloc(sizeof(thread_arg_wrapper));
|
||||
assert(argw);
|
||||
argw->arg = arg;
|
||||
argw->tr = thread_routine;
|
||||
thread->handle = CreateThread(NULL, 0, thread_proc_wrapper, argw, 0, 0);
|
||||
return thread;
|
||||
}
|
||||
|
||||
static void carp_thread_destroy(carp_thread_t thread) {
|
||||
CloseHandle(thread->handle);
|
||||
free(thread);
|
||||
}
|
||||
|
||||
/* --- Timing --- */
|
||||
|
||||
static int carp_millitime() {
|
||||
LARGE_INTEGER pt;
|
||||
QueryPerformanceCounter(&pt);
|
||||
return (int)(((double)pt.QuadPart) / ((double)perf_freq.QuadPart) * 1000);
|
||||
}
|
||||
|
||||
/* --- Libraries --- */
|
||||
|
||||
typedef struct carp_library* carp_library_t;
|
||||
|
||||
struct carp_library {
|
||||
HMODULE module;
|
||||
};
|
||||
|
||||
static carp_library_t carp_load_library(const char* name) {
|
||||
HMODULE module = LoadLibrary(name);
|
||||
if (module == NULL) {
|
||||
return NULL;
|
||||
}
|
||||
SetLastError(0);
|
||||
add_module_to_list(loaded_modules, module);
|
||||
carp_library_t lib = malloc(sizeof(struct carp_library));
|
||||
lib->module = module;
|
||||
return lib;
|
||||
}
|
||||
|
||||
static int carp_unload_library(carp_library_t lib) {
|
||||
remove_module_from_list(loaded_modules, lib->module);
|
||||
BOOL result = FreeLibrary(lib->module);
|
||||
free(lib);
|
||||
return (int)result;
|
||||
}
|
||||
|
||||
static void* carp_find_symbol(carp_library_t lib, const char * name) {
|
||||
if (lib != NULL) {
|
||||
assert(lib->module != INVALID_HANDLE_VALUE);
|
||||
return GetProcAddress(lib->module, name);
|
||||
}
|
||||
void* addr = GetProcAddress(main_module, name);
|
||||
if (addr != NULL) {
|
||||
return addr;
|
||||
}
|
||||
module_list_t lst = loaded_modules;
|
||||
while (lst) {
|
||||
if (lst->module != INVALID_HANDLE_VALUE) {
|
||||
void* addr = GetProcAddress(lst->module, name);
|
||||
if (addr != NULL) {
|
||||
return addr;
|
||||
}
|
||||
}
|
||||
lst = lst->next;
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
static char error_buf[2048];
|
||||
|
||||
static char* carp_get_load_library_error() {
|
||||
DWORD error = GetLastError();
|
||||
if (error == 0) {
|
||||
return NULL;
|
||||
}
|
||||
assert(sizeof(TCHAR) == 1); // If wide chars are used, we have to convert to utf8
|
||||
FormatMessage(
|
||||
FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
|
||||
NULL,
|
||||
error,
|
||||
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
|
||||
(LPSTR)&error_buf,
|
||||
sizeof(error_buf) - 1,
|
||||
NULL);
|
||||
return error_buf;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
@ -1,170 +0,0 @@
|
||||
#include "platform.h"
|
||||
|
||||
#define WIN32_LEAN_AND_MEAN
|
||||
#include <Windows.h>
|
||||
#include <assert.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
typedef struct module_list {
|
||||
HMODULE module;
|
||||
struct module_list* next;
|
||||
}* module_list_t;
|
||||
|
||||
static LARGE_INTEGER perf_freq;
|
||||
static HMODULE main_module = INVALID_HANDLE_VALUE;
|
||||
static module_list_t loaded_modules = NULL;
|
||||
|
||||
static module_list_t new_module_list_node() {
|
||||
module_list_t lst = malloc(sizeof(struct module_list));
|
||||
lst->module = INVALID_HANDLE_VALUE;
|
||||
lst->next = NULL;
|
||||
return lst;
|
||||
}
|
||||
|
||||
static void add_module_to_list(module_list_t lst, HMODULE module) {
|
||||
while (lst->module != INVALID_HANDLE_VALUE) {
|
||||
if (lst->next == NULL) {
|
||||
lst->next = new_module_list_node();
|
||||
}
|
||||
lst = lst->next;
|
||||
}
|
||||
lst->module = module;
|
||||
}
|
||||
|
||||
static void remove_module_from_list(module_list_t lst, HMODULE module) {
|
||||
while (lst->module != module) {
|
||||
if (lst->next == NULL) {
|
||||
return; // not found
|
||||
}
|
||||
lst = lst->next;
|
||||
}
|
||||
lst->module = INVALID_HANDLE_VALUE;
|
||||
}
|
||||
|
||||
static void free_all_modules_and_destroy_module_list(module_list_t lst) {
|
||||
while (lst) {
|
||||
if (lst->module != INVALID_HANDLE_VALUE) {
|
||||
FreeLibrary(lst->module);
|
||||
}
|
||||
module_list_t tmp = lst;
|
||||
lst = lst->next;
|
||||
free(tmp);
|
||||
}
|
||||
}
|
||||
|
||||
void carp_platform_init() {
|
||||
QueryPerformanceFrequency(&perf_freq);
|
||||
main_module = GetModuleHandle(NULL);
|
||||
loaded_modules = new_module_list_node();
|
||||
}
|
||||
|
||||
void carp_platform_shutdown() {
|
||||
CloseHandle(main_module);
|
||||
main_module = INVALID_HANDLE_VALUE;
|
||||
free_all_modules_and_destroy_module_list(loaded_modules);
|
||||
loaded_modules = NULL;
|
||||
}
|
||||
|
||||
struct carp_thread {
|
||||
HANDLE handle;
|
||||
};
|
||||
|
||||
typedef struct thread_arg_wrapper {
|
||||
carp_thread_routine tr;
|
||||
void* arg;
|
||||
} thread_arg_wrapper;
|
||||
|
||||
static DWORD WINAPI thread_proc_wrapper(LPVOID p) {
|
||||
thread_arg_wrapper* argw = (thread_arg_wrapper*)p;
|
||||
argw->tr(argw->arg);
|
||||
free(argw);
|
||||
return 0;
|
||||
}
|
||||
|
||||
carp_thread_t carp_thread_create(carp_thread_routine thread_routine, void* arg) {
|
||||
carp_thread_t thread = malloc(sizeof(struct carp_thread));
|
||||
assert(thread);
|
||||
thread_arg_wrapper* argw = malloc(sizeof(thread_arg_wrapper));
|
||||
assert(argw);
|
||||
argw->arg = arg;
|
||||
argw->tr = thread_routine;
|
||||
thread->handle = CreateThread(NULL, 0, thread_proc_wrapper, argw, 0, 0);
|
||||
return thread;
|
||||
}
|
||||
|
||||
void carp_thread_destroy(carp_thread_t thread) {
|
||||
CloseHandle(thread->handle);
|
||||
free(thread);
|
||||
}
|
||||
|
||||
//uint64_t carp_nanotime() {
|
||||
int carp_millitime() {
|
||||
LARGE_INTEGER pt;
|
||||
QueryPerformanceCounter(&pt);
|
||||
return (int)(((double)pt.QuadPart) / ((double)perf_freq.QuadPart) * 1000);
|
||||
}
|
||||
|
||||
struct carp_library {
|
||||
HMODULE module;
|
||||
};
|
||||
|
||||
carp_library_t carp_load_library(const char* name) {
|
||||
HMODULE module = LoadLibrary(name);
|
||||
if (module == NULL) {
|
||||
return NULL;
|
||||
}
|
||||
SetLastError(0);
|
||||
add_module_to_list(loaded_modules, module);
|
||||
carp_library_t lib = malloc(sizeof(struct carp_library));
|
||||
lib->module = module;
|
||||
return lib;
|
||||
}
|
||||
|
||||
int carp_unload_library(carp_library_t lib) {
|
||||
remove_module_from_list(loaded_modules, lib->module);
|
||||
BOOL result = FreeLibrary(lib->module);
|
||||
free(lib);
|
||||
return (int)result;
|
||||
}
|
||||
|
||||
void * carp_find_symbol(carp_library_t lib, const char * name) {
|
||||
if (lib != NULL) {
|
||||
assert(lib->module != INVALID_HANDLE_VALUE);
|
||||
return GetProcAddress(lib->module, name);
|
||||
}
|
||||
void* addr = GetProcAddress(main_module, name);
|
||||
if (addr != NULL) {
|
||||
return addr;
|
||||
}
|
||||
module_list_t lst = loaded_modules;
|
||||
while (lst) {
|
||||
if (lst->module != INVALID_HANDLE_VALUE) {
|
||||
void* addr = GetProcAddress(lst->module, name);
|
||||
if (addr != NULL) {
|
||||
return addr;
|
||||
}
|
||||
}
|
||||
lst = lst->next;
|
||||
}
|
||||
return NULL;
|
||||
}
|
||||
|
||||
static char error_buf[2048];
|
||||
|
||||
char* carp_get_load_library_error() {
|
||||
DWORD error = GetLastError();
|
||||
if (error == 0) {
|
||||
return NULL;
|
||||
}
|
||||
assert(sizeof(TCHAR) == 1); // If wide chars are used, we have to convert to utf8
|
||||
FormatMessage(
|
||||
FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
|
||||
NULL,
|
||||
error,
|
||||
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
|
||||
(LPSTR)&error_buf,
|
||||
sizeof(error_buf) - 1,
|
||||
NULL);
|
||||
return error_buf;
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user