Add Module type introspection.

parrot · Oct 2, 2012 · 6bfba36 · 6bfba36
1 parent 5d6703f
commit 6bfba36
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 5 deletions.
diff --git a/runtime/parrot/library/LLVM/Module.pm b/runtime/parrot/library/LLVM/Module.pm
@@ -45,18 +45,21 @@ class LLVM::Module is LLVM::Opaque {
 
 #/** See Module::addTypeName. */
     # LLVMAddTypeName => "Iptp",
-    method add_type_name(Str $name, $type) {
-        LLVM::call("AddTypeName", self, $name, $type);
+    method add_type(Str $name, LLVM::Type $type) {
+        # Reverse response.
+        !LLVM::call("AddTypeName", self, $name, $type);
     }
 
     # LLVMDeleteTypeName => "vpt",
-    method delete_type_name(Str $name) {
+    method delete_type(Str $name) {
         LLVM::call("DeleteTypeName", self, $name);
     }
 
     # LLVMGetTypeByName => "ppt",
-    method get_type_name(Str $name) {
-        LLVM::call("GetTypeByName", self, $name);
+    method get_type(Str $name) {
+        LLVM::Type.create(
+            LLVM::call("GetTypeByName", self, $name)
+        )
     }
 
 # BitReader

diff --git a/t/library/llvm/05-module.t b/t/library/llvm/05-module.t
@@ -25,6 +25,27 @@ ok( $ff.next() ~~ $lf, "first.next == last" );
 ok( $lf.prev() ~~ $ff, "last.prev == first" );
 
 
+# Types
+my $type_name := "struct.FOO";
+my $added := $module.add_type($type_name, LLVM::Type::struct());
+ok( $added, "Type added" );
+
+$added := $module.add_type($type_name, LLVM::Type::struct());
+nok( $added, "Duplicated type not added" );
+
+my $type := $module.get_type($type_name);
+ok( $type, "Type found" );
+ok( $type ~~ LLVM::Type, ".. with proper type");
+
+
+$module.delete_type($type_name);
+ok( 1, "Type deleted" );
+
+$type := $module.get_type($type_name);
+ok( !$type, "Deleted type not found" );
+
+
+
 done_testing();
 
 # vim: ft=perl6