Implement conversion of Python integer to Int

Author: niner

lib/Inline/Python.pm6

@@ -25,12 +25,26 @@ sub py_init_python()
 sub py_eval(Str, Int)
     returns OpaquePointer { ... }
     native(&py_eval);
+sub py_int_check(OpaquePointer)
+    returns int32 { ... }
+    native(&py_int_check);
+sub py_int_as_long(OpaquePointer)
+    returns Int { ... }
+    native(&py_int_as_long);
 
 method py_to_p6(OpaquePointer $value) {
+    if py_int_check($value) {
+        return py_int_as_long($value);
+    }
     return Any;
 }
 
-method run($python) {
+multi method run($python, :$eval!) {
+    my $res = py_eval($python, 0);
+    self.py_to_p6($res);
+}
+
+multi method run($python, :$file) {
     my $res = py_eval($python, 1);
     self.py_to_p6($res);
 }

pyhelper.c

@@ -39,3 +39,11 @@ PyObject *py_eval(const char* p, int type) {
     }
     return py_result;
 }
+
+int py_int_check(PyObject *obj) {
+    return PyInt_Check(obj);
+}
+
+long py_int_as_long(PyObject *obj) {
+    return PyInt_AsLong(obj);
+}

t/eval.t

@@ -9,6 +9,6 @@ my $py = Inline::Python.new();
 
 $py.run('
 print "ok 1 - basic eval\n";
-');
+', :file);
 
 # vim: ft=perl6

t/eval_return_values.t

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl6
+
+use v6;
+use Test;
+use Inline::Python;
+
+plan 1;
+
+my $py = Inline::Python.new();
+is $py.run('5', :eval), 5;
+
+# vim: ft=perl6