Merge pull request #2142 from jstuder-gh/carray_indexing_candidates

Add Callable, Whatever, and zen indexing candidates for CArray
rakudo · Jul 28, 2018 · b7379a8 · b7379a8
2 parents 0ec4f5f + 2a803a3
commit b7379a8
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/lib/NativeCall.pm6 b/lib/NativeCall.pm6
@@ -588,6 +588,21 @@ multi sub postcircumfix:<[ ]>(CArray:D \array, $pos) is export(:DEFAULT, :types)
 multi sub postcircumfix:<[ ]>(CArray:D \array, *@pos) is export(:DEFAULT, :types) {
     @pos.map: { array.AT-POS($_) };
 }
+multi sub postcircumfix:<[ ]>(CArray:D \array, Callable:D $block) is export(:DEFAULT, :types) {
+    nqp::stmts(
+      (my $*INDEX = 'Effective index'),
+      array[$block.pos(array)]
+    )
+}
+multi sub postcircumfix:<[ ]>(CArray:D \array) is export(:DEFAULT, :types) {
+    array.ZEN-POS
+}
+multi sub postcircumfix:<[ ]>(CArray:D \array, Whatever:D) is export(:DEFAULT, :types) {
+    array[^array.elems]
+}
+multi sub postcircumfix:<[ ]>(CArray:D \array, HyperWhatever:D) is export(:DEFAULT, :types) {
+    X::NYI.new(feature => 'HyperWhatever in CArray index').throw;
+}
 
 multi trait_mod:<is>(Routine $r, :$symbol!) is export(:DEFAULT, :traits) {
     $r does NativeCallSymbol[$symbol];

diff --git a/lib/NativeCall/Types.pm6 b/lib/NativeCall/Types.pm6
@@ -218,6 +218,8 @@ our class CArray is repr('CArray') is array_type(Pointer) {
         $what;
     }
 
+    method Str { self.join(' ') }
+
     method elems { nqp::elems(self) }
 
     method list {