Support passing floats from Python to Perl

lib/Inline/Python.pm6

@@ -28,6 +28,9 @@ sub py_eval(Str, Int)
 sub py_int_check(OpaquePointer)
     returns int32 { ... }
     native(&py_int_check);
+sub py_float_check(OpaquePointer)
+    returns int32 { ... }
+    native(&py_float_check);
 sub py_unicode_check(OpaquePointer)
     returns int32 { ... }
     native(&py_unicode_check);
@@ -46,6 +49,9 @@ sub py_int_as_long(OpaquePointer)
 sub py_int_to_py(Int)
     returns OpaquePointer { ... }
     native(&py_int_to_py);
+sub py_float_as_double(OpaquePointer)
+    returns num64 { ... }
+    native(&py_float_as_double);
 sub py_float_to_py(num64)
     returns OpaquePointer { ... }
     native(&py_float_to_py);
@@ -107,6 +113,9 @@ method py_to_p6(OpaquePointer $value) {
     if py_int_check($value) {
         return py_int_as_long($value);
     }
+    elsif py_float_check($value) {
+        return py_float_as_double($value);
+    }
     elsif py_unicode_check($value) {
         return py_unicode_to_char_star($value);
     }

pyhelper.c

@@ -44,6 +44,10 @@ int py_int_check(PyObject *obj) {
     return PyInt_Check(obj);
 }
 
+int py_float_check(PyObject *obj) {
+    return PyFloat_Check(obj);
+}
+
 int py_unicode_check(PyObject *obj) {
     return PyUnicode_Check(obj);
 }
@@ -64,6 +68,10 @@ long py_int_as_long(PyObject *obj) {
     return PyInt_AsLong(obj);
 }
 
+double py_float_as_double(PyObject *obj) {
+    return PyFloat_AsDouble(obj);
+}
+
 PyObject *py_int_to_py(long num) {
     return PyInt_FromLong(num);
 }

t/py_to_p6.t

@@ -7,7 +7,6 @@ use Inline::Python;
 my $py = Inline::Python.new();
 
 is $py.run('5', :eval), 5;
-todo 'NYI';
 is $py.run('5.5', :eval), 5.5;
 is $py.run('u"Python"', :eval), 'Python';
 is_deeply $py.run('[1, 2]', :eval), [1, 2];