1 files changed, 43 insertions, 0 deletions
diff --git a/foreign_msvc.c b/foreign_msvc.c
new file mode 100644
index 0000000..1e1cf7c
--- /dev/null
+++ b/foreign_msvc.c
@@ -0,0 +1,43 @@
+#include <windows.h>
+
+typedef struct {
+	HMODULE handle;
+} Library;
+
+static FnPtr msvc_get_fn_ptr(ForeignFnManager *ffmgr, FnExpr *fn, Location call_where) {
+	FnPtr fn_ptr = fn->foreign.fn_ptr;
+	if (!fn_ptr) {
+		assert(fn->flags & FN_EXPR_FOREIGN);
+		char const *libname = fn->foreign.lib;
+		if (!libname) {
+			err_print(call_where, "Attempt to call function at compile time which does not have an associated library.");
+			info_print(fn->where, "Function was declared here.");
+			return false;
+		}
+		Library *lib = str_hash_table_get(&ffmgr->libs_loaded, libname, strlen(libname));
+		if (!lib) {
+			HMODULE handle = LoadLibraryA(libname);
+			if (!handle) {
+				DWORD err = GetLastError();
+				err_print(call_where, "Could not open dynamic library %s (error code %ld).", libname, err);
+				return false;
+			}
+			lib = str_hash_table_insert(&ffmgr->libs_loaded, libname, strlen(libname));
+			lib->handle = handle;
+		}
+		const char *name = fn->foreign.name;
+		fn_ptr = (FnPtr)GetProcAddress(lib->handle, name);
+		if (!fn_ptr) {
+			err_print(call_where, "Could not get function %s from dynamic library.", name);
+			return false;
+		}
+		fn->foreign.fn_ptr = fn_ptr;
+	}
+	return fn_ptr;
+}
+
+#ifdef _WIN64
+#include "foreign_msvc64.c"
+#else
+#include "foreign_msvc32.c"
+#endif