Skeleton for LLVM bindings

parrot · Oct 2, 2012 · df587e8 · df587e8
1 parent bd6851e
commit df587e8
Show file tree

Hide file tree

Showing 4 changed files with 59 additions and 0 deletions.
diff --git a/runtime/parrot/library/LLVM.pir b/runtime/parrot/library/LLVM.pir
@@ -0,0 +1,2 @@
+
+.include "runtime/parrot/library/LLVM/Module.pir"
diff --git a/runtime/parrot/library/LLVM/Module.pm b/runtime/parrot/library/LLVM/Module.pm
@@ -0,0 +1,33 @@
+#! nqp
+=begin Description
+LLVM Module.
+=end Description
+
+
+class LLVM::Module {
+    our %FUNCTIONS;
+
+    has $!ref;
+
+    method createWithName($name) {
+        $!ref := %FUNCTIONS<CreateWithName>($name);
+        self;
+    }
+
+    method dump() {
+        %FUNCTIONS<Dump>($!ref);
+    }
+
+
+    INIT {
+        pir::load_bytecode("nqp-setting.pbc");
+
+        # Vivify
+        my $lib := pir::loadlib("/usr/lib/libLLVM-2.7.so.1");
+        %FUNCTIONS<CreateWithName> := pir::dlfunc__ppss($lib, "LLVMModuleCreateWithName", "pt");
+        %FUNCTIONS<Dump>           := pir::dlfunc__ppss($lib, "LLVMDumpModule", "vp");
+    }
+
+};
+
+# vim: ft=perl6
diff --git a/runtime/parrot/library/Rules.mak b/runtime/parrot/library/Rules.mak
@@ -21,3 +21,13 @@ $(LIBRARY_DIR)/Tcl/Glob.pbc : \
 
 $(LIBRARY_DIR)/P6Object.pbc : \
     $(LIBRARY_DIR)/dumper.pbc
+
+$(LIBRARY_DIR)/LLVM.pbc : \
+	$(LIBRARY_DIR)/LLVM.pir				\
+	$(LIBRARY_DIR)/LLVM/Module.pir
+	$(PARROT) -o $@ $(LIBRARY_DIR)/LLVM.pir
+
+$(LIBRARY_DIR)/LLVM/Module.pir: $(NQP_RX) $(LIBRARY_DIR)/LLVM/Module.pm
+	$(NQP_RX) --target=pir --output=$@ $(LIBRARY_DIR)/LLVM/Module.pm
+
+
diff --git a/t/library/llvm.t b/t/library/llvm.t
@@ -0,0 +1,14 @@
+#! parrot-nqp
+
+pir::load_bytecode("LLVM.pbc");
+
+Q:PIR {
+        # We want Test::More features for testing. Not NQP's builtin.
+        .include "test_more.pir"
+        load_bytecode "dumper.pbc"
+};
+
+my $module := LLVM::Module.new.createWithName("HELLO");
+$module.dump();
+
+# vim: ft=perl6