unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / llvm / reader / reader.factor

diff --git a/llvm/reader/reader.factor b/llvm/reader/reader.factor
new file mode 100644 (file)
index 0000000..90cf36f
--- /dev/null
+++ b/llvm/reader/reader.factor
@@ -0,0 +1,21 @@
+! Copyright (C) 2009 Matthew Willis.
+! See http://factorcode.org/license.txt for BSD license.
+USING: accessors alien.c-types alien.data alien.syntax
+destructors kernel llvm.core llvm.engine llvm.jit llvm.wrappers
+;
+
+IN: llvm.reader
+
+: buffer>module ( buffer -- module )
+    [
+        value>> f void* <ref> f void* <ref>
+        [ LLVMParseBitcode drop ] 2keep
+        void* deref [ llvm-throw ] when* void* deref
+        module new swap >>value
+    ] with-disposal ;
+
+: load-module ( path -- module )
+    <buffer> buffer>module ;
+
+: load-into-jit ( path name -- )
+    [ load-module ] dip add-module ;