Implement splice(); run S32-array/splice.t

src/core/List.pm

@@ -206,6 +206,17 @@ my class List does Positional {
         self
     }
 
+    method splice($offset is copy = 0, $size? is copy, *@values) {
+        $offset += self.elems if ($offset < 0);
+        $size //= self.elems - $offset;
+        $size = self.elems + $size - $offset if ($size < 0);
+        my @ret = self[$offset..($offset + $size - 1)];
+        nqp::splice($!items,
+                    nqp::getattr(@values.eager, List, '$!items'),
+                    $offset, $size);
+        @ret;
+    }
+
     method sort($by = &infix:<cmp>) {
         # We defer to Parrot's ResizablePMCArray.sort method here.
         # Instead of sorting elements directly, we sort a Parcel of
@@ -353,3 +364,6 @@ sub reverse(*@a)            { @a.reverse }
 sub rotate(@a, Int $n = 1)  { @a.rotate($n) }
 sub reduce (&with, *@list)  { @list.reduce(&with) }
 sub categorize(&mapper, *@a){ @a.categorize(&mapper)}
+sub splice(@arr, $offset = 0, $size?, *@values) {
+    @arr.splice($offset, $size, @values)
+}

t/spectest.data

@@ -493,7 +493,7 @@ S32-array/pop.t
 S32-array/push.t
 S32-array/rotate.t
 S32-array/shift.t
-# S32-array/splice.t # err: Undefined routine '&splice' called
+S32-array/splice.t
 S32-array/unshift.t
 S32-basics/warn.t
 # S32-container/zip.t # err: Undefined routine '&Seq' called