Add loadlib to c.tcl

1 files changed, 14 insertions, 1 deletions

diff --git a/lib/c.tcl b/lib/c.tcl
index 8469b84e..f8f8d03b 100644
--- a/lib/c.tcl
+++ b/lib/c.tcl
@@ -161,7 +161,20 @@ namespace eval c {
         }]
         return $handle
     }
-    namespace export create
+
+    set loader [create]
+    $loader include <dlfcn.h>
+    $loader proc loadlibImpl {char* filename} void* {
+        return dlopen(filename, RTLD_NOW);
+    }
+    $loader compile
+    proc loadlib {filename} {
+        if {[loadlibImpl $filename] == "(void*) 0x0"} {
+            error "Failed to dlopen $filename"
+        }
+    }
+
+    namespace export *
     namespace ensemble create
 }