Support passing arrays to Python

Author: niner

lib/Inline/Python.pm6

@@ -73,6 +73,12 @@ sub py_tuple_new(Int)
 sub py_tuple_set_item(OpaquePointer, Int, OpaquePointer)
     { ... }
     native(&py_tuple_set_item);
+sub py_list_new(Int)
+    returns OpaquePointer { ... }
+    native(&py_list_new);
+sub py_list_set_item(OpaquePointer, Int, OpaquePointer)
+    { ... }
+    native(&py_list_set_item);
 sub py_call_function(Str, Str, int, CArray[OpaquePointer])
     returns OpaquePointer { ... }
     native(&py_call_function);
@@ -163,6 +169,14 @@ multi method p6_to_py(blob8:D $value) returns OpaquePointer {
     py_buf_to_py($value.elems, $array);
 }
 
+multi method p6_to_py(Positional:D $value) returns OpaquePointer {
+    my $array = py_list_new($value.elems);
+    for @$value.kv -> $i, $item {
+        py_list_set_item($array, $i, self.p6_to_py($item));
+    }
+    return $array;
+}
+
 method !setup_arguments(@args) {
     my $len = @args.elems;
     my $tuple = py_tuple_new($len);

pyhelper.c

@@ -129,6 +129,14 @@ void py_tuple_set_item(PyObject *tuple, int i, PyObject *item) {
     PyTuple_SetItem(tuple, i, item);
 }
 
+PyObject *py_list_new(int len) {
+    return PyList_New(len);
+}
+
+void py_list_set_item(PyObject *list, int i, PyObject *item) {
+    PyList_SetItem(list, i, item);
+}
+
 void py_dec_ref(PyObject *obj) {
     Py_DECREF(obj);
 }

t/p6_to_py.t

@@ -4,7 +4,7 @@ use v6;
 use Test;
 use Inline::Python;
 
-plan 8;
+plan 9;
 
 my $py = Inline::Python.new();
 $py.run(q[
@@ -14,8 +14,8 @@ def identity(a):
 
 class Foo {
 }
-# , [1, 2], { a => 1, b => 2}, Any, Foo.new
-for ('abcö', Buf.new('äbc'.encode('latin-1')), 24, 2.4.Num) -> $obj {
+# , { a => 1, b => 2}, Any, Foo.new
+for ('abcö', Buf.new('äbc'.encode('latin-1')), 24, 2.4.Num, [1, 2]) -> $obj {
     is_deeply $py.call('__main__', 'identity', $obj), $obj, "Can round-trip " ~ $obj.^name;
 }