Support passing Rats to Python

lib/Inline/Python.pm6

@@ -46,6 +46,9 @@ sub py_int_as_long(OpaquePointer)
 sub py_int_to_py(Int)
     returns OpaquePointer { ... }
     native(&py_int_to_py);
+sub py_float_to_py(num64)
+    returns OpaquePointer { ... }
+    native(&py_float_to_py);
 sub py_unicode_to_char_star(OpaquePointer)
     returns Str { ... }
     native(&py_unicode_to_char_star);
@@ -131,6 +134,10 @@ multi method p6_to_py(Int:D $value) returns OpaquePointer {
     py_int_to_py($value);
 }
 
+multi method p6_to_py(Rat:D $value) returns OpaquePointer {
+    py_float_to_py($value.Num);
+}
+
 multi method p6_to_py(Str:D $value) returns OpaquePointer {
     py_str_to_py($value.encode('UTF-8').bytes, $value);
 }

pyhelper.c

@@ -68,6 +68,10 @@ PyObject *py_int_to_py(long num) {
     return PyInt_FromLong(num);
 }
 
+PyObject *py_float_to_py(double num) {
+    return PyFloat_FromDouble(num);
+}
+
 PyObject *py_str_to_py(int len, char *str) {
     return PyUnicode_DecodeUTF8(str, len, "replace");
 }

t/p6_to_py.t

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