add: support import dll

Author: lcexc

src/quickjs-libc.c

@@ -374,11 +374,57 @@ typedef JSModuleDef *(JSInitModuleFunc)(JSContext *ctx,
 
 
 #if defined(_WIN32)
+#include <Windows.h> 
 static JSModuleDef *js_module_loader_so(JSContext *ctx,
                                         const char *module_name)
 {
-    JS_ThrowReferenceError(ctx, "shared library modules are not supported yet");
-    return NULL;
+    JSModuleDef *m;
+    HINSTANCE h;
+    JSInitModuleFunc *init;
+    char *filename;
+    
+    if (!strchr(module_name, '/')) {
+         /* must add a '/' so that the DLL is not searched in the
+            system library paths */
+         filename = js_malloc(ctx, strlen(module_name) + 2 + 1);
+         if (!filename)
+             return NULL;
+         strcpy(filename, "./");
+         strcpy(filename + 2, module_name);
+     } else {
+         filename = (char *)module_name;
+     }
+     
+    filename = (char *)module_name;
+    
+    /* C module */
+    h=LoadLibraryA(filename);
+    
+    if (filename != module_name)
+        js_free(ctx, filename);
+    if (!h) {
+        JS_ThrowReferenceError(ctx, "could not load module filename '%s' as shared library, ERR code: %d",
+                               module_name, (int)GetLastError());
+        goto fail;
+    }
+    init = (JSInitModuleFunc*)GetProcAddress(h,"js_init_module");  
+    // init = dlsym(hd, "js_init_module");
+    if (!init) {
+        JS_ThrowReferenceError(ctx, "could not load module filename '%s': js_init_module not found",
+                               module_name);
+        goto fail;
+    }
+
+    m = init(ctx, module_name);
+    if (!m) {
+        JS_ThrowReferenceError(ctx, "could not load module filename '%s': initialization error",
+                               module_name);
+    fail:
+        if (h)
+            FreeLibrary(h);
+        return NULL;
+    }
+    return m;
 }
 #else
 static JSModuleDef *js_module_loader_so(JSContext *ctx,
@@ -489,7 +535,7 @@ JSModuleDef *js_module_loader(JSContext *ctx,
 {
     JSModuleDef *m;
 
-    if (has_suffix(module_name, ".so")) {
+    if (has_suffix(module_name, ".dll") || has_suffix(module_name, ".so")) {
         m = js_module_loader_so(ctx, module_name);
     } else {
         size_t buf_len;