pycall 1.0.1-x86-mingw32

data/ext/pycall/pycall.c

@@ -0,0 +1,2184 @@
+#include "pycall_internal.h"
+
+#include <stdarg.h>
+
+VALUE pycall_mPyCall;
+
+VALUE mLibPython;
+VALUE mAPI;
+VALUE mHelpers;
+VALUE mConversion;
+VALUE mPyObjectWrapper;
+VALUE mPyTypeObjectWrapper;
+VALUE mGCGuard;
+
+VALUE pycall_cPyPtr;
+VALUE cPyTypePtr;
+VALUE cTuple;
+VALUE cPyError;
+
+VALUE pycall_eError;
+
+static VALUE pycall_libpython_handle;
+static VALUE python_description;
+static VALUE python_version_string;
+static Py_ssize_t python_hexversion;
+static int python_major_version;
+static int python_has_stackless_extension;
+static PyObject *python_builtins_module;
+static VALUE python_type_mapping;
+static VALUE python_type_mapping;
+static ID id_python_type_mapping;
+
+int
+pycall_python_major_version(void)
+{
+  return python_major_version;
+}
+
+Py_ssize_t
+pycall_python_hexversion(void)
+{
+  return python_hexversion;
+}
+
+#undef pycall_python_major_version
+#define pycall_python_major_version() python_major_version
+
+#undef pycall_python_hexversion
+#define pycall_python_hexversion() python_hexversion
+
+#define python_is_unicode_literals (python_major_version >= 3)
+
+long pycall_hash_salt;
+
+static VALUE pycall_call_python_callable(PyObject *pycallable, int argc, VALUE *argv);
+
+#define PyType_Check(pyobj) PyType_FastSubclass(Py_TYPE(pyobj), Py_TPFLAGS_TYPE_SUBCLASS)
+#define PyClass_Check(pyobj) (Py_API(PyClass_Type) && (pyobj)->ob_type == Py_API(PyClass_Type))
+
+#define PyObject_Hash(pyobj) (pycall_python_long_hash ? Py_API(PyObject_Hash._long)(pyobj) : Py_API(PyObject_Hash._hash_t)(pyobj))
+
+/* ==== PyCall ==== */
+
+VALUE
+pycall_after_fork(VALUE mod)
+{
+  Py_API(PyOS_AfterFork)();
+  return Qnil;
+}
+
+/* ==== PyCall::PyPtr ==== */
+
+const rb_data_type_t pycall_pyptr_data_type = {
+  "PyCall::PyPtr",
+  { 0, pycall_pyptr_free, pycall_pyptr_memsize, },
+#ifdef RUBY_TYPED_FREE_IMMEDIATELY
+  0, 0, RUBY_TYPED_FREE_IMMEDIATELY
+#endif
+};
+
+void
+pycall_pyptr_free(void *ptr)
+{
+  PyObject *pyobj = ptr;
+#ifdef PYCALL_DEBUG_DUMP_REFCNT
+  if (pyobj->ob_refcnt == 0) {
+    fprintf(stderr, "zero refcnt object %p of type %s\n", pyobj, Py_TYPE(pyobj)->tp_name);
+  }
+#endif /* PYCALL_DEBUG_DUMP_REFCNT */
+  pycall_Py_DecRef(pyobj);
+}
+
+static size_t _PySys_GetSizeOf(PyObject *);
+
+size_t
+pycall_pyptr_memsize(void const *ptr)
+{
+  if (ptr)
+    return _PySys_GetSizeOf((PyObject *)ptr);
+
+  return 0;
+}
+
+static size_t
+_PySys_GetSizeOf(PyObject *o)
+{
+  PyObject *res = NULL;
+  Py_ssize_t size;
+
+  if (Py_API(PyType_Ready)(Py_TYPE(o)) < 0)
+    return (size_t)-1;
+
+  res = Py_API(PyObject_CallMethod)(o, "__sizeof__", "");
+  if (res == NULL)
+    return (size_t)-1;
+
+  size = Py_API(PyLong_AsSsize_t)(res);
+  pycall_Py_DecRef(res);
+  if (size == -1 && Py_API(PyErr_Occurred)())
+    return (size_t)-1;
+
+  if (size < 0)
+    return (size_t)-1;
+
+  if (PyObject_IS_GC(o)) {
+    size += sizeof(PyGC_Head);
+  }
+  return (size_t)size;
+}
+
+static inline int
+is_pycall_pyptr(VALUE obj)
+{
+  return rb_typeddata_is_kind_of(obj, &pycall_pyptr_data_type);
+}
+
+static inline PyObject*
+get_pyobj_ptr(VALUE obj)
+{
+  PyObject *pyobj;
+  TypedData_Get_Struct(obj, PyObject, &pycall_pyptr_data_type, pyobj);
+  return pyobj;
+}
+
+static inline PyObject*
+try_get_pyobj_ptr(VALUE obj)
+{
+  if (!is_pycall_pyptr(obj)) return NULL;
+  return (PyObject*)DATA_PTR(obj);
+}
+
+static inline PyObject *
+check_get_pyobj_ptr(VALUE obj, PyTypeObject *pytypeobj)
+{
+  PyObject *pyobj;
+
+  if (!is_pycall_pyptr(obj))
+    rb_raise(rb_eTypeError, "unexpected type %s (expected PyCall::PyPtr)", rb_class2name(CLASS_OF(obj)));
+
+  pyobj = get_pyobj_ptr(obj);
+  if (pytypeobj && Py_TYPE(pyobj) != pytypeobj)
+    rb_raise(rb_eTypeError, "unexpected Python type %s (expected %s)", Py_TYPE(pyobj)->tp_name, pytypeobj->tp_name);
+
+  return pyobj;
+}
+
+VALUE
+pycall_pyptr_incref(VALUE pyptr)
+{
+  PyObject *pyobj;
+
+  pyobj = try_get_pyobj_ptr(pyptr);
+  if (pyobj)
+    Py_API(Py_IncRef)(pyobj);
+  return pyptr;
+}
+
+static VALUE
+pycall_pyptr_s_incref(VALUE klass, VALUE pyptr)
+{
+  return pycall_pyptr_incref(pyptr);
+}
+
+void
+pycall_Py_DecRef(PyObject *pyobj)
+{
+#ifdef PYCALL_DEBUG_DUMP_REFCNT
+  fprintf(stderr, "decref object %p of type %s, refcnt %"PRIdSIZE"\n",
+      pyobj,
+      pyobj ? Py_TYPE(pyobj)->tp_name : "nullptr",
+      pyobj ? pyobj->ob_refcnt : -1);
+#endif /* PYCALL_DEBUG_DUMP_REFCNT */
+  Py_API(Py_DecRef)(pyobj);
+}
+
+VALUE
+pycall_pyptr_decref(VALUE pyptr)
+{
+  PyObject *pyobj;
+
+  pyobj = try_get_pyobj_ptr(pyptr);
+  if (pyobj) {
+    pycall_Py_DecRef(pyobj);
+    DATA_PTR(pyptr) = NULL;
+  }
+  return pyptr;
+}
+
+static VALUE
+pycall_pyptr_s_decref(VALUE klass, VALUE pyptr)
+{
+  return pycall_pyptr_decref(pyptr);
+}
+
+static VALUE
+pycall_pyptr_s_sizeof(VALUE klass, VALUE pyptr)
+{
+  size_t size;
+  PyObject *pyobj;
+
+  pyobj = try_get_pyobj_ptr(pyptr);
+  if (pyobj == NULL) return Qnil;
+
+  size = _PySys_GetSizeOf(pyobj);
+  return SIZET2NUM(size);
+}
+
+static VALUE
+pycall_pyptr_allocate(VALUE klass)
+{
+  return TypedData_Wrap_Struct(klass, &pycall_pyptr_data_type, NULL);
+}
+
+static inline VALUE
+pycall_pyptr_new_with_klass(VALUE klass, PyObject *pyobj)
+{
+  VALUE obj = pycall_pyptr_allocate(klass);
+  DATA_PTR(obj) = pyobj;
+#ifdef PYCALL_DEBUG_DUMP_REFCNT
+  fprintf(stderr, "%s: object %p of type %s, refcnt=%"PRIdSIZE" (%s:%d)\n",
+      rb_class2name(klass), pyobj,
+      (pyobj ? Py_TYPE(pyobj)->tp_name : "(nullptr)"),
+      (pyobj ? pyobj->ob_refcnt : -1),
+      rb_sourcefile(), rb_sourceline());
+#endif /* PYCALL_DEBUG_DUMP_REFCNT */
+  return obj;
+}
+
+VALUE
+pycall_pyptr_new(PyObject *pyobj)
+{
+  return pycall_pyptr_new_with_klass(cPyPtr, pyobj);
+}
+
+static VALUE
+pycall_pyptr_initialize(VALUE pyptr, VALUE val)
+{
+  VALUE addr;
+  PyObject *pyobj;
+
+  addr = rb_check_to_integer(val, "to_int");
+  if (NIL_P(addr)) {
+    rb_raise(rb_eTypeError, "Invalid PyObject address: %"PRIsVALUE, val);
+  }
+
+  pyobj = (PyObject *)NUM2PTR(addr);
+  DATA_PTR(pyptr) = pyobj;
+  return pyptr;
+}
+
+static VALUE
+pycall_pyptr_is_null(VALUE obj)
+{
+  PyObject* pyobj = get_pyobj_ptr(obj);
+  return pyobj ? Qfalse : Qtrue;
+}
+
+static VALUE
+pycall_pyptr_is_none(VALUE obj)
+{
+  PyObject* pyobj = get_pyobj_ptr(obj);
+  return pyobj == Py_API(_Py_NoneStruct) ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_pyptr_is_nil(VALUE obj)
+{
+  PyObject* pyobj = get_pyobj_ptr(obj);
+  return (pyobj == Py_API(_Py_NoneStruct)) || (pyobj == NULL) ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_pyptr_eq(VALUE obj, VALUE other)
+{
+  PyObject* pyobj;
+  PyObject* pyobj_other;
+
+  if (!is_pycall_pyptr(other)) return Qfalse;
+
+  pyobj = get_pyobj_ptr(obj);
+  pyobj_other = get_pyobj_ptr(other);
+
+  return pyobj == pyobj_other ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_pyptr_get_ptr_address(VALUE obj)
+{
+  PyObject* pyobj = get_pyobj_ptr(obj);
+  return PTR2NUM(pyobj);
+}
+
+static VALUE
+pycall_pyptr_get_ob_refcnt(VALUE obj)
+{
+  PyObject* pyobj = get_pyobj_ptr(obj);
+  if (pyobj)
+    return SSIZET2NUM(pyobj->ob_refcnt);
+  return Qnil;
+}
+
+VALUE pycall_pytypeptr_new(PyObject *pytype);
+
+static VALUE
+pycall_pyptr_get_ob_type(VALUE obj)
+{
+  PyObject* pyobj = get_pyobj_ptr(obj);
+  if (pyobj) {
+    VALUE res;
+    if (Py_TYPE(pyobj) == Py_API(PyInstance_Type))
+      res = pycall_pytype_to_ruby((PyObject *)((PyInstanceObject *)pyobj)->in_class);
+    else
+      res = pycall_pytype_to_ruby((PyObject *)pyobj->ob_type);
+    return res;
+  }
+  return Qnil;
+}
+
+static VALUE
+pycall_pyptr_object_id(VALUE obj)
+{
+  return rb_obj_id(obj);
+}
+
+static VALUE
+pycall_pyptr_class(VALUE obj)
+{
+  return CLASS_OF(obj);
+}
+
+static VALUE
+pycall_pyptr_inspect(VALUE obj)
+{
+  VALUE cname, str;
+  PyObject* pyobj = get_pyobj_ptr(obj);
+
+  cname = rb_class_name(CLASS_OF(obj));
+  str = rb_sprintf("#<%"PRIsVALUE":%p type=%s addr=%p>", cname, (void*)obj, Py_TYPE(pyobj)->tp_name, pyobj);
+  OBJ_INFECT(str, obj);
+
+  return str;
+}
+
+static VALUE
+class_or_module_required(VALUE klass)
+{
+  if (SPECIAL_CONST_P(klass)) goto not_class;
+  switch (BUILTIN_TYPE(klass)) {
+    case T_MODULE:
+    case T_CLASS:
+    case T_ICLASS:
+      break;
+
+    default:
+    not_class:
+      rb_raise(rb_eTypeError, "class or module required");
+  }
+  return klass;
+}
+
+static VALUE
+pycall_pyptr_is_kind_of(VALUE obj, VALUE klass)
+{
+  PyObject* pyobj = get_pyobj_ptr(obj);
+  VALUE res;
+
+  if (is_pycall_pyptr(klass)) {
+    int res;
+    PyObject* pyobj_klass = get_pyobj_ptr(klass);
+    res = Py_API(PyObject_IsInstance)(pyobj, pyobj_klass);
+    if (res >= 0) {
+      return res ? Qtrue : Qfalse;
+    }
+    Py_API(PyErr_Clear)();
+  }
+
+  klass = class_or_module_required(klass);
+  res = rb_class_inherited_p(CLASS_OF(obj), klass);
+  return NIL_P(res) ? Qfalse : res;
+}
+
+static VALUE
+pycall_pyptr_hash(VALUE obj)
+{
+  PyObject *pyobj = get_pyobj_ptr(obj);
+  Py_hash_t h;
+
+  if (!pyobj)
+    return PTR2NUM(pyobj);
+
+  h = PyObject_Hash(pyobj);
+  if (h == -1) {
+    Py_API(PyErr_Clear)();
+    return PTR2NUM(pyobj);
+  }
+
+  return SSIZET2NUM(h);
+}
+
+/* ==== PyTypePtr ==== */
+
+const rb_data_type_t pycall_pytypeptr_data_type = {
+  "PyCall::PyTypePtr",
+  { 0, pycall_pyptr_free, pycall_pyptr_memsize, },
+#ifdef RUBY_TYPED_FREE_IMMEDIATELY
+  &pycall_pyptr_data_type, 0, RUBY_TYPED_FREE_IMMEDIATELY
+#endif
+};
+
+static inline int
+is_pycall_pytypeptr(VALUE obj)
+{
+  return rb_typeddata_is_kind_of(obj, &pycall_pytypeptr_data_type);
+}
+
+static inline PyTypeObject*
+get_pytypeobj_ptr(VALUE obj)
+{
+  PyTypeObject *pytype;
+  TypedData_Get_Struct(obj, PyTypeObject, &pycall_pytypeptr_data_type, pytype);
+  return pytype;
+}
+
+static inline PyTypeObject*
+try_get_pytypeobj_ptr(VALUE obj)
+{
+  if (is_pycall_pytypeptr(obj)) return NULL;
+  return (PyTypeObject*)DATA_PTR(obj);
+}
+
+static inline PyTypeObject *
+check_get_pytypeobj_ptr(VALUE obj)
+{
+  PyTypeObject *pytypeobj;
+  if (!is_pycall_pytypeptr(obj))
+    rb_raise(rb_eTypeError, "unexpected type %s (expected PyCall::PyTypePtr)", rb_class2name(CLASS_OF(obj)));
+
+  pytypeobj = get_pytypeobj_ptr(obj);
+  if (!PyType_Check(pytypeobj))
+    rb_raise(rb_eTypeError, "unexpected Python type %s (expected type or class)", Py_TYPE(pytypeobj)->tp_name);
+
+  return pytypeobj;
+}
+
+static VALUE
+pycall_pytypeptr_allocate(VALUE klass)
+{
+  return TypedData_Wrap_Struct(klass, &pycall_pytypeptr_data_type, NULL);
+}
+
+static inline VALUE
+pycall_pytypeptr_new_with_klass(VALUE klass, PyObject *pytypeobj)
+{
+  VALUE obj = pycall_pytypeptr_allocate(klass);
+  DATA_PTR(obj) = pytypeobj;
+  return obj;
+}
+
+VALUE
+pycall_pytypeptr_new(PyObject *pytypeobj)
+{
+  return pycall_pytypeptr_new_with_klass(cPyTypePtr, pytypeobj);
+}
+
+static VALUE
+pycall_pytypeptr_get_ob_size(VALUE obj)
+{
+  PyTypeObject* pytype = get_pytypeobj_ptr(obj);
+  if (pytype)
+    return SSIZET2NUM(pytype->ob_size);
+  return Qnil;
+}
+
+static VALUE
+pycall_pytypeptr_get_tp_name(VALUE obj)
+{
+  PyTypeObject* pytype = get_pytypeobj_ptr(obj);
+  if (pytype) {
+    if (Py_TYPE(pytype) == Py_API(PyType_Type))
+      return rb_str_new2(pytype->tp_name);
+    return pycall_pyobject_to_ruby(((PyClassObject *)pytype)->cl_name);
+  }
+  return Qnil;
+}
+
+static VALUE
+pycall_pytypeptr_get_tp_basicsize(VALUE obj)
+{
+  PyTypeObject* pytype = get_pytypeobj_ptr(obj);
+  if (pytype) {
+    if (Py_TYPE(pytype) == Py_API(PyType_Type))
+      return SSIZET2NUM(pytype->tp_basicsize);
+  }
+  return Qnil;
+}
+
+static VALUE
+pycall_pytypeptr_get_tp_flags(VALUE obj)
+{
+  PyTypeObject* pytype = get_pytypeobj_ptr(obj);
+  if (pytype) {
+    if (Py_TYPE(pytype) == Py_API(PyType_Type))
+      return ULONG2NUM(pytype->tp_flags);
+  }
+  return Qnil;
+}
+
+static VALUE
+pycall_pytypeptr_eqq(VALUE obj, VALUE other)
+{
+  if (is_pycall_pyptr(other))
+    return pycall_pyptr_is_kind_of(other, obj);
+  return Qfalse;
+}
+
+/* ==== PyCall::LibPython::API ==== */
+
+static VALUE
+pycall_libpython_api_get_builtins_module_ptr(VALUE mod)
+{
+  VALUE pyptr = pycall_pyptr_new(python_builtins_module);
+  Py_API(Py_IncRef)(python_builtins_module);
+  return pyptr;
+}
+
+static VALUE
+pycall_libpython_api_PyObject_Dir(VALUE mod, VALUE pyptr)
+{
+  PyObject *dir;
+  PyObject *pyobj;
+
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+  dir = Py_API(PyObject_Dir)(pyobj);
+  if (pyobj && !dir) {
+    pycall_pyerror_fetch_and_raise("PyObject_Dir in pycall_libpython_api_PyObject_Dir");
+  }
+
+  return dir ? pycall_pyptr_new(dir) : Qnil;
+}
+
+static VALUE
+pycall_libpython_api_PyList_Size(VALUE mod, VALUE pyptr)
+{
+  PyObject *pyobj;
+  Py_ssize_t size;
+
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+  size = Py_API(PyList_Size)(pyobj);
+  if (size < 0) {
+    pycall_pyerror_fetch_and_raise("PyList_Size in pycall_libpython_api_PyList_Size");
+  }
+
+  return SSIZET2NUM(size);
+}
+
+static VALUE
+pycall_libpython_api_PyList_GetItem(VALUE mod, VALUE pyptr, VALUE idx)
+{
+  PyObject *pyobj;
+  PyObject *pyobj_item;
+  Py_ssize_t i;
+
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+  i = NUM2SSIZET(idx);
+  pyobj_item = Py_API(PyList_GetItem)(pyobj, i);
+  if (!pyobj_item) {
+    pycall_pyerror_fetch_and_raise("PyList_GetItem in pycall_libpython_api_PyList_GetItem");
+  }
+
+  return pycall_pyptr_new(pyobj_item);
+}
+
+/* ==== PyCall::Helpers ==== */
+
+static VALUE
+pycall_libpython_helpers_m_unicode_literals_p(VALUE mod)
+{
+  return python_is_unicode_literals ? Qtrue : Qfalse;
+}
+
+VALUE
+pycall_import_module(char const *name)
+{
+  PyObject *pymod = Py_API(PyImport_ImportModule)(name);
+  if (!pymod) {
+    pycall_pyerror_fetch_and_raise("PyImport_ImportModule in pycall_libpython_helpers_m_import_module");
+  }
+  return pycall_pyobject_to_ruby(pymod);
+}
+
+VALUE
+pycall_import_module_level(char const *name, VALUE globals, VALUE locals, VALUE fromlist, int level)
+{
+  PyObject *pyglobals = NULL, *pylocals = NULL, *pyfromlist = NULL, *pymod;
+
+  if (!NIL_P(globals)) {
+    pyglobals = check_get_pyobj_ptr(globals, Py_API(PyDict_Type));
+  }
+  if (!NIL_P(locals)) {
+    pylocals = check_get_pyobj_ptr(locals, Py_API(PyDict_Type));
+  }
+  if (!NIL_P(fromlist)) {
+    fromlist = rb_convert_type(fromlist, T_ARRAY, "Array", "to_ary");
+    pyfromlist = pycall_pyobject_from_ruby(fromlist);
+  }
+  else {
+    /* TODO: set the default fromlist to ['*'] */
+  }
+
+  pymod = Py_API(PyImport_ImportModuleLevel)(name, pyglobals, pylocals, pyfromlist, level);
+  if (!pymod) {
+    pycall_pyerror_fetch_and_raise("PyImport_ImportModuleLevel in pycall_libpython_helpers_m_import_module");
+  }
+
+  return pycall_pyobject_to_ruby(pymod);
+}
+
+static VALUE
+pycall_libpython_helpers_m_import_module(int argc, VALUE *argv, VALUE mod)
+{
+  VALUE name, globals, locals, fromlist, level;
+  char const *name_cstr;
+
+  rb_scan_args(argc, argv, "14", &name, &globals, &locals, &fromlist, &level);
+
+  if (RB_TYPE_P(name, T_SYMBOL)) {
+    name = rb_sym_to_s(name);
+  }
+
+  name_cstr = StringValueCStr(name);
+
+  if (argc == 1) {
+    return pycall_import_module(name_cstr);
+  }
+
+  if (argc == 5) {
+    level = rb_check_to_integer(level, "to_int");
+  }
+  else {
+    /* TODO: set the default level to 0 */
+  }
+
+  return pycall_import_module_level(name_cstr, globals, locals, fromlist, NUM2INT(level));
+}
+
+static int
+pycall_rich_compare_opid(VALUE op)
+{
+  ID rb_opid;
+
+  Check_Type(op, T_SYMBOL);
+  rb_opid = SYM2ID(op);
+
+  if (rb_opid == '>')
+    return Py_GT;
+  if (rb_opid == '<')
+    return Py_LT;
+  if (rb_opid == rb_intern("=="))
+    return Py_EQ;
+  if (rb_opid == rb_intern("!="))
+    return Py_NE;
+  if (rb_opid == rb_intern(">="))
+    return Py_GE;
+  if (rb_opid == rb_intern("<="))
+    return Py_LE;
+
+  rb_raise(rb_eArgError, "invalid compare operator: %"PRIsVALUE, op);
+}
+
+static VALUE
+pycall_libpython_helpers_m_compare(VALUE mod, VALUE op, VALUE pyptr_a, VALUE pyptr_b)
+{
+  PyObject *pyobj_a, *pyobj_b, *res;
+  int opid;
+
+  opid = pycall_rich_compare_opid(op);
+
+  if (!is_pycall_pyptr(pyptr_a)) {
+    rb_raise(rb_eTypeError, "unexpected 2nd argument type %s (expected PyCall::PyPtr)", rb_class2name(CLASS_OF(pyptr_a)));
+  }
+  if (!is_pycall_pyptr(pyptr_b)) {
+    rb_raise(rb_eTypeError, "unexpected 3rd argument type %s (expected PyCall::PyPtr)", rb_class2name(CLASS_OF(pyptr_b)));
+  }
+
+  pyobj_a = get_pyobj_ptr(pyptr_a);
+  pyobj_b = get_pyobj_ptr(pyptr_b);
+
+  res = Py_API(PyObject_RichCompare)(pyobj_a, pyobj_b, opid);
+  if (!res) {
+    pycall_pyerror_fetch_and_raise("PyObject_RichCompare in pycall_libpython_helpers_m_compare");
+  }
+
+  return pycall_pyobject_to_ruby(res);
+}
+
+static int is_pyobject_wrapper(VALUE obj);
+static PyObject * pycall_pyobject_wrapper_get_pyobj_ptr(VALUE obj);
+
+VALUE
+pycall_getattr_default(VALUE obj, char const *name, VALUE default_value)
+{
+  PyObject *pyobj, *res;
+
+  if (is_pyobject_wrapper(obj)) {
+    pyobj = pycall_pyobject_wrapper_get_pyobj_ptr(obj);
+  }
+  else {
+    pyobj = check_get_pyobj_ptr(obj, NULL);
+  }
+
+  res = Py_API(PyObject_GetAttrString)(pyobj, name);
+  if (!res && default_value == Qundef) {
+    pycall_pyerror_fetch_and_raise("PyObject_GetAttrString in pycall_libpython_helpers_m_getattr");
+  }
+  Py_API(PyErr_Clear)();
+  return res ? pycall_pyobject_to_ruby(res) : default_value;
+}
+
+VALUE
+pycall_getattr(VALUE pyptr, char const *name)
+{
+  return pycall_getattr_default(pyptr, name, Qundef);
+}
+
+static VALUE
+pycall_libpython_helpers_m_getattr(int argc, VALUE *argv, VALUE mod)
+{
+  VALUE pyptr, name, default_value;
+
+  if (rb_scan_args(argc, argv, "21", &pyptr, &name, &default_value) == 2) {
+    default_value = Qundef;
+  }
+
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  if (RB_TYPE_P(name, T_SYMBOL)) {
+    name = rb_sym_to_s(name);
+  }
+
+  return pycall_getattr_default(pyptr, StringValueCStr(name), default_value);
+}
+
+static VALUE
+pycall_libpython_helpers_m_hasattr_p(VALUE mod, VALUE pyptr, VALUE name)
+{
+  PyObject *pyobj;
+  int res;
+
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+
+  if (RB_TYPE_P(name, T_SYMBOL)) {
+    name = rb_sym_to_s(name);
+  }
+
+  res = Py_API(PyObject_HasAttrString)(pyobj, StringValueCStr(name));
+  return res ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_libpython_helpers_m_callable_p(VALUE mod, VALUE pyptr)
+{
+  PyObject *pyobj;
+  int res;
+
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+
+  res = Py_API(PyCallable_Check)(pyobj);
+  return res ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_libpython_helpers_m_call_object(int argc, VALUE *argv, VALUE mod)
+{
+  VALUE pyptr;
+  PyObject *pyobj;
+
+  if (argc < 1) {
+    rb_raise(rb_eArgError, "too few arguments (%d for >=1)", argc);
+  }
+
+  pyptr = argv[0];
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+  if (!Py_API(PyCallable_Check)(pyobj)) {
+    rb_raise(rb_eTypeError, "Non-callable Python object was given");
+  }
+
+  if (argc == 1) {
+    return pycall_call_python_callable(pyobj, 0, NULL);
+  }
+  else {
+    return pycall_call_python_callable(pyobj, argc - 1, argv + 1);
+  }
+}
+
+static int
+pycall_extract_kwargs_from_ruby_hash(VALUE key, VALUE value, VALUE arg)
+{
+  PyObject *kwargs = (PyObject *)arg;
+  char const *key_cstr;
+  PyObject *pyvalue;
+
+  if (RB_TYPE_P(key, T_SYMBOL)) {
+    key = rb_sym_to_s(key);
+  }
+  key_cstr = StringValueCStr(key);
+  pyvalue = pycall_pyobject_from_ruby(value);
+
+  if (Py_API(PyDict_SetItemString)(kwargs, key_cstr, pyvalue) < 0) {
+    return ST_STOP;
+  }
+  return ST_CONTINUE;
+}
+
+static VALUE
+pycall_call_python_callable(PyObject *pycallable, int argc, VALUE *argv)
+{
+  PyObject *args, *res;
+  PyObject *kwargs = NULL;
+  Py_ssize_t i, n;
+  VALUE hash, obj;
+
+  /* TODO: Use inspect.getfullargspec */
+
+  if (argc > 0) {
+    n = argc - RB_TYPE_P(argv[argc - 1], T_HASH);
+  }
+  else {
+    n = 0;
+  }
+
+  args = Py_API(PyTuple_New)(n);
+  if (!args) {
+    pycall_pyerror_fetch_and_raise("PyTuple_New in pycall_call_python_callable");
+  }
+
+  for (i = 0; i < n; ++i) {
+    PyObject *pytem = pycall_pyobject_from_ruby(argv[i]);
+    if (Py_API(PyTuple_SetItem)(args, i, pytem) == -1) {
+        pycall_Py_DecRef(pytem);
+        pycall_Py_DecRef(args);
+        pycall_pyerror_fetch_and_raise("PyTuple_SetItem in pycall_call_python_callable");
+    }
+    /* NOTE: Although PyTuple_SetItem steals the item reference,
+     * it is unnecessary to call Py_IncRef for the item because
+     * pycall_pyobject_from_ruby increments the reference count
+     * of its result. */
+  }
+
+  if (n < argc) {
+    hash = argv[argc - 1];
+    kwargs = Py_API(PyDict_New)();
+    if (!RHASH_EMPTY_P(hash)) {
+      rb_hash_foreach(hash, pycall_extract_kwargs_from_ruby_hash, (VALUE)kwargs);
+      if (Py_API(PyErr_Occurred)() != NULL) {
+        pycall_Py_DecRef(args);
+        pycall_pyerror_fetch_and_raise("PyDict_SetItemString in pycall_extract_kwargs_from_ruby_hash");
+      }
+    }
+  }
+
+  res = Py_API(PyObject_Call)(pycallable, args, kwargs); /* New reference */
+  if (!res) {
+    pycall_pyerror_fetch_and_raise("PyObject_Call in pycall_call_python_callable");
+  }
+  obj = pycall_pyobject_to_ruby(res);
+  pycall_Py_DecRef(res);
+  return obj;
+}
+
+static VALUE
+pycall_pyobject_wrapper_wrapper_method(int argc, VALUE *argv, VALUE wrapper)
+{
+  VALUE pyptr, name;
+  char *name_cstr;
+  PyObject *pyobj, *attr;
+
+  pyptr = rb_attr_get(wrapper, rb_intern("@__pyptr__"));
+  if (NIL_P(pyptr) || !is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "Wrong wrapper object is given");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+
+  name = rb_id2str(rb_frame_this_func());
+  name_cstr = StringValueCStr(name);
+
+  if (name_cstr[RSTRING_LEN(name) - 1] == '=') {
+    int res;
+    VALUE val;
+
+    rb_scan_args(argc, argv, "1", &val);
+
+    attr = pycall_pyobject_from_ruby(val);
+    if (!attr) {
+      pycall_pyerror_fetch_and_raise("pycall_pyobject_from_ruby in pycall_pyobject_wrapper_wrapper_method");
+    }
+
+    name_cstr[RSTRING_LEN(name) - 1] = '\0';
+    res = Py_API(PyObject_SetAttrString)(pyobj, name_cstr, attr);
+    name_cstr[RSTRING_LEN(name) - 1] = '=';
+    if (res == -1) {
+      pycall_Py_DecRef(attr);
+      pycall_pyerror_fetch_and_raise("PyObject_SetAttrString in pycall_pyobject_wrapper_wrapper_method");
+    }
+
+    return val;
+  }
+
+  attr = Py_API(PyObject_GetAttrString)(pyobj, name_cstr);
+  if (!attr) {
+    pycall_pyerror_fetch_and_raise("PyObject_GetAttrString in pycall_pyobject_wrapper_wrapper_method");
+  }
+
+  if (!Py_API(PyCallable_Check)(attr))
+    return pycall_pyobject_to_ruby(attr);
+
+  if (PyType_Check(attr) || PyClass_Check(attr))
+    return pycall_pyobject_to_ruby(attr);
+
+  return pycall_call_python_callable(attr, argc, argv);
+}
+
+static VALUE
+pycall_libpython_helpers_m_define_wrapper_method(VALUE mod, VALUE wrapper, VALUE name)
+{
+  VALUE pyptr, name_sym;
+  PyObject *pyobj, *attr;
+  char *name_cstr;
+
+  pyptr = rb_attr_get(wrapper, rb_intern("@__pyptr__"));
+  if (NIL_P(pyptr) || !is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "Wrong wrapper object is given");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+
+  if (RB_TYPE_P(name, T_SYMBOL)) {
+    name_sym = name;
+    name = rb_sym_to_s(name);
+  }
+  else if (RB_TYPE_P(name, T_STRING)) {
+    name_sym = rb_str_intern(name);
+  }
+
+  name_cstr = StringValueCStr(name);
+  if (name_cstr[RSTRING_LEN(name) - 1] == '=') {
+    name_cstr[RSTRING_LEN(name) - 1] = '\0';
+    attr = Py_API(PyObject_GetAttrString)(pyobj, name_cstr);
+    name_cstr[RSTRING_LEN(name) - 1] = '=';
+  }
+  else {
+    attr = Py_API(PyObject_GetAttrString)(pyobj, name_cstr);
+  }
+  if (!attr) {
+    pycall_pyerror_fetch_and_raise("PyObject_GetAttrString in pycall_libpython_helpers_m_define_wrapper_method");
+  }
+
+  pycall_Py_DecRef(attr);
+  rb_define_singleton_method(wrapper, name_cstr, pycall_pyobject_wrapper_wrapper_method, -1);
+
+  return Qnil;
+}
+
+static PyObject *
+pycall_convert_index(VALUE index)
+{
+  PyObject *pyobj;
+
+  if (RB_TYPE_P(index, T_ARRAY) && RARRAY_LEN(index) == 1) {
+    index = RARRAY_AREF(index, 0);
+  }
+  if (RB_TYPE_P(index, T_ARRAY)) {
+    long i, n = RARRAY_LEN(index);
+    pyobj = Py_API(PyTuple_New)(n);
+    for (i = 0; i < n; ++i) {
+      PyObject *pytem = pycall_convert_index(RARRAY_AREF(index, i)); /* New reference */
+      Py_API(PyTuple_SetItem)(pyobj, i, pytem); /* Steal reference */
+    }
+  }
+  else if (rb_obj_is_kind_of(index, rb_cRange)) {
+    pyobj = pycall_pyslice_from_ruby(index); /* New refrence */
+  }
+  else if (pycall_obj_is_step_range(index)) {
+    pyobj = pycall_pyslice_from_ruby(index); /* New refrence */
+  }
+  else {
+    pyobj = pycall_pyobject_from_ruby(index); /* New reference */
+  }
+
+  return pyobj;
+}
+
+static VALUE
+pycall_libpython_helpers_m_getitem(VALUE mod, VALUE pyptr, VALUE key)
+{
+  PyObject *pyobj, *pyobj_key, *pyobj_v;
+  VALUE obj;
+
+  if (!is_pycall_pyptr(pyptr)) {
+    rb_raise(rb_eTypeError, "PyCall::PyPtr is required");
+  }
+
+  pyobj = get_pyobj_ptr(pyptr);
+
+  pyobj_key = pycall_convert_index(key);
+
+  pyobj_v = Py_API(PyObject_GetItem)(pyobj, pyobj_key);
+  if (!pyobj_v) {
+    pycall_pyerror_fetch_and_raise("PyObject_GetItem in pycall_libpython_helpers_m_getitem");
+  }
+
+  obj = pycall_pyobject_to_ruby(pyobj_v);
+  pycall_Py_DecRef(pyobj_v);
+  return obj;
+}
+
+static VALUE
+pycall_libpython_helpers_m_setitem(VALUE mod, VALUE pyptr, VALUE key, VALUE v)
+{
+  PyObject *pyobj, *pyobj_key, *pyobj_value;
+  int res;
+
+  pyobj = check_get_pyobj_ptr(pyptr, NULL);
+  pyobj_key = pycall_convert_index(key);
+  pyobj_value = pycall_pyobject_from_ruby(v);
+
+  res = Py_API(PyObject_SetItem)(pyobj, pyobj_key, pyobj_value);
+  if (res == -1) {
+    pycall_pyerror_fetch_and_raise("PyObject_SetItem in pycall_libpython_helpers_m_setitem");
+  }
+  Py_API(Py_DecRef(pyobj_key));
+  Py_API(Py_DecRef(pyobj_value));
+
+  return v;
+}
+
+static VALUE
+pycall_libpython_helpers_m_delitem(VALUE mod, VALUE pyptr, VALUE key, VALUE v)
+{
+  PyObject *pyobj, *pyobj_key;
+  int res;
+
+  pyobj = check_get_pyobj_ptr(pyptr, NULL);
+  pyobj_key = pycall_convert_index(key);
+
+  res = Py_API(PyObject_DelItem)(pyobj, pyobj_key);
+  if (res == -1) {
+    pycall_pyerror_fetch_and_raise("PyObject_DelItem");
+  }
+
+  return v;
+}
+
+static VALUE
+pycall_libpython_helpers_m_str(VALUE mod, VALUE pyptr)
+{
+  PyObject *pyobj, *pyobj_str;
+
+  pyobj = check_get_pyobj_ptr(pyptr, NULL);
+
+  pyobj_str = Py_API(PyObject_Str)(pyobj);
+  if (!pyobj_str) {
+    pycall_pyerror_fetch_and_raise("PyObject_Str");
+  }
+
+  return pycall_pyobject_to_ruby(pyobj_str);
+}
+
+static VALUE
+pycall_libpython_helpers_m_dict_contains(VALUE mod, VALUE pyptr, VALUE key)
+{
+  PyObject *pyobj, *pyobj_key;
+  int res;
+
+  pyobj = check_get_pyobj_ptr(pyptr, Py_API(PyDict_Type));
+  pyobj_key = pycall_pyobject_from_ruby(key);
+  res = Py_API(PyDict_Contains)(pyobj, pyobj_key);
+  if (res == -1) {
+    pycall_pyerror_fetch_and_raise("PyDict_Contains");
+  }
+
+  return res ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_libpython_helpers_m_dict_each(VALUE mod, VALUE pyptr)
+{
+  PyObject *pyobj, *pyobj_key, *pyobj_value;
+  Py_ssize_t pos;
+
+  pyobj = check_get_pyobj_ptr(pyptr, Py_API(PyDict_Type));
+
+  pos = 0;
+  while (Py_API(PyDict_Next)(pyobj, &pos, &pyobj_key, &pyobj_value)) {
+    VALUE key, value;
+    key = pycall_pyobject_to_ruby(pyobj_key);
+    value = pycall_pyobject_to_ruby(pyobj_value);
+    rb_yield(rb_assoc_new(key, value));
+  }
+
+  return Qnil;
+}
+
+static VALUE
+pycall_libpython_helpers_m_sequence_contains(VALUE mod, VALUE pyptr, VALUE key)
+{
+  PyObject *pyobj, *pyobj_key;
+  int res;
+
+  pyobj = check_get_pyobj_ptr(pyptr, NULL);
+  if (!Py_API(PySequence_Check)(pyobj))
+    rb_raise(rb_eTypeError, "unexpected Python type %s (expected a Python sequence object)", Py_TYPE(pyobj)->tp_name);
+
+  pyobj_key = pycall_pyobject_from_ruby(key);
+  res = Py_API(PySequence_Contains)(pyobj, pyobj_key);
+  if (res == -1) {
+    pycall_pyerror_fetch_and_raise("PySequence_Contains");
+  }
+
+  return res ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_libpython_helpers_m_sequence_each(VALUE mod, VALUE pyptr)
+{
+  PyObject *pyobj, *pyobj_iter, *pyobj_item;
+
+  pyobj = check_get_pyobj_ptr(pyptr, NULL);
+  if (!Py_API(PySequence_Check)(pyobj))
+    rb_raise(rb_eTypeError, "unexpected Python type %s (expected a Python sequence object)", Py_TYPE(pyobj)->tp_name);
+
+  pyobj_iter = Py_API(PyObject_GetIter)(pyobj);
+  if (!pyobj_iter) {
+    pycall_pyerror_fetch_and_raise("PyObject_GetIter in pycall_libpython_helpers_m_sequence_each");
+  }
+
+  while ((pyobj_item = Py_API(PyIter_Next)(pyobj_iter))) {
+    rb_yield(pycall_pyobject_to_ruby(pyobj_item));
+    pycall_Py_DecRef(pyobj_item);
+  }
+
+  pycall_Py_DecRef(pyobj_iter);
+
+  if (Py_API(PyErr_Occurred)() != NULL) {
+    pycall_pyerror_fetch_and_raise("checking error just in case at the end of pycall_libpython_helpers_m_sequence_each");
+  }
+
+  return Qnil;
+}
+
+/* ==== PyCall::PyObjectWrapper ==== */
+
+static int
+is_pyobject_wrapper(VALUE obj)
+{
+  return RTEST(rb_obj_is_kind_of(obj, mPyObjectWrapper));
+}
+
+static VALUE
+pycall_pyobject_wrapper_get_pyptr(VALUE obj)
+{
+  if (!is_pyobject_wrapper(obj)) {
+    rb_raise(rb_eTypeError, "PyCal::PyObjectWrapper is required");
+  }
+
+  return rb_funcall(obj, rb_intern("__pyptr__"), 0);
+}
+
+static PyObject *
+pycall_pyobject_wrapper_get_pyobj_ptr(VALUE obj)
+{
+  VALUE pyptr = pycall_pyobject_wrapper_get_pyptr(obj);
+  return get_pyobj_ptr(pyptr);
+}
+
+static PyObject *
+pycall_pyobject_wrapper_check_get_pyobj_ptr(VALUE obj, PyTypeObject *pytypeobj)
+{
+  PyObject *pyobj;
+
+  pyobj = pycall_pyobject_wrapper_get_pyobj_ptr(obj);
+  if (Py_TYPE(pyobj) != pytypeobj) {
+    rb_raise(rb_eTypeError, "unexpected Python type %s (expected %s)", Py_TYPE(pyobj)->tp_name, pytypeobj->tp_name);
+  }
+
+  return pyobj;
+}
+
+/* ==== PyCall::Conversion ==== */
+
+static VALUE
+pycall_python_type_mapping_get_mapped_class(VALUE pytypeptr)
+{
+  (void)check_get_pytypeobj_ptr(pytypeptr);
+  return rb_hash_lookup(python_type_mapping, pytypeptr);
+}
+
+static int
+pycall_python_type_mapping_register(VALUE pytypeptr, VALUE rbcls)
+{
+  (void)check_get_pytypeobj_ptr(pytypeptr);
+  if (rb_hash_lookup2(python_type_mapping, pytypeptr, Qundef) != Qundef)
+    return 0;
+
+  Check_Type(rbcls, T_CLASS);
+  if (!rb_obj_is_kind_of(rbcls, mPyTypeObjectWrapper)) {
+    rb_raise(rb_eTypeError, "ruby class must be extended by PyCall::PyTypeObjectWrapper");
+  }
+
+  /* TODO: Shouldn't have to use weak reference? */
+  rb_hash_aset(python_type_mapping, pytypeptr, rbcls);
+
+  return 1;
+}
+
+static int
+pycall_python_type_mapping_unregister(VALUE pytypeptr)
+{
+  (void)check_get_pytypeobj_ptr(pytypeptr);
+  if (rb_hash_lookup2(python_type_mapping, pytypeptr, Qundef) == Qundef)
+    return 0;
+
+  rb_hash_delete(python_type_mapping, pytypeptr);
+  return 1;
+}
+
+VALUE
+pycall_pyobject_wrapper_object_new(VALUE klass, PyObject *pyobj)
+{
+  VALUE obj;
+
+  obj = rb_obj_alloc(klass);
+  rb_ivar_set(obj, rb_intern("@__pyptr__"), pycall_pyptr_new(pyobj));
+  rb_extend_object(obj, mPyObjectWrapper);
+
+  return obj;
+}
+
+VALUE
+pycall_pyobject_to_ruby(PyObject *pyobj)
+{
+  VALUE cls;
+
+  if (pyobj == Py_API(_Py_NoneStruct))
+    return Qnil;
+
+  if (PyRuby_Check(pyobj))
+    return PyRuby_get_ruby_object(pyobj);
+
+  if (PyType_Check(pyobj))
+    return pycall_pytype_to_ruby(pyobj); /* Increment pyobj refcnt */
+
+  if (PyClass_Check(pyobj))
+    return pycall_pytype_to_ruby(pyobj); /* Increment pyobj refcnt */
+
+  if (pyobj->ob_type == Py_API(PyModule_Type))
+    return pycall_pymodule_to_ruby(pyobj); /* Increment pyobj refcnt */
+
+  if (pyobj->ob_type == Py_API(PyBool_Type))
+    return pycall_pybool_to_ruby(pyobj);
+
+  if (pyobj->ob_type == Py_API(PyComplex_Type))
+    return pycall_pycomplex_to_ruby(pyobj);
+
+  if (pyobj->ob_type == Py_API(PyFloat_Type))
+    return pycall_pyfloat_to_ruby(pyobj);
+
+  if (pyobj->ob_type == Py_API(PyInt_Type))
+    return pycall_pyint_to_ruby(pyobj);
+
+  if (pyobj->ob_type == Py_API(PyLong_Type))
+    return pycall_pylong_to_ruby(pyobj);
+
+  if (pyobj->ob_type == Py_API(PyUnicode_Type) || pyobj->ob_type == Py_API(PyString_Type))
+    return pycall_pystring_to_ruby(pyobj);
+
+  Py_API(Py_IncRef)(pyobj);
+  Py_API(Py_IncRef)((PyObject *)pyobj->ob_type);
+  cls = pycall_python_type_mapping_get_mapped_class(pycall_pytypeptr_new((PyObject *)pyobj->ob_type));
+  if (NIL_P(cls)) {
+    rb_warning("Currentry do not support to convert %s to Ruby object", Py_TYPE(pyobj)->tp_name);
+    return pycall_pyobject_wrapper_object_new(rb_cObject, pyobj);
+  }
+
+  return rb_funcall(cls, rb_intern("wrap_pyptr"), 1, pycall_pyptr_new(pyobj));
+}
+
+VALUE
+pycall_pytype_to_ruby(PyObject *pyobj)
+{
+  VALUE pytypeptr = Qnil, wrapper_class;
+  /* TODO: should look up wrapper class table instead of directly returning PyTypePtr */
+
+  if (PyType_Check(pyobj))
+    pytypeptr = pycall_pytypeptr_new(pyobj);
+  else if (PyClass_Check(pyobj))
+    pytypeptr = pycall_pytypeptr_new(pyobj);
+
+  if (NIL_P(pytypeptr))
+    return Qnil;
+
+  Py_API(Py_IncRef)(pyobj);
+
+  wrapper_class = rb_funcall(mPyCall, rb_intern("wrap_class"), 1, pytypeptr);
+  return wrapper_class;
+}
+
+VALUE
+pycall_pymodule_to_ruby(PyObject *pyobj)
+{
+  VALUE pymodptr = Qnil, wrapper_module;
+
+  if (Py_TYPE(pyobj) != Py_API(PyModule_Type))
+    return Qnil;
+
+  pymodptr = pycall_pyptr_new(pyobj);
+  Py_API(Py_IncRef)(pyobj);
+
+  wrapper_module = rb_funcall(mPyCall, rb_intern("wrap_module"), 1, pymodptr);
+  return wrapper_module;
+}
+
+VALUE
+pycall_pybool_to_ruby(PyObject *pyobj)
+{
+  if (pyobj->ob_type != Py_API(PyBool_Type))
+    return Qnil;
+
+  if (Py_API(PyInt_Type))
+    return Py_API(PyInt_AsSsize_t)(pyobj) ? Qtrue : Qfalse;
+
+  return Py_API(PyLong_AsSsize_t)(pyobj) ? Qtrue : Qfalse;
+}
+
+VALUE
+pycall_pycomplex_to_ruby(PyObject *pyobj)
+{
+  double real, imag;
+
+  if (pyobj->ob_type != Py_API(PyComplex_Type))
+    return Qnil;
+
+  real = Py_API(PyComplex_RealAsDouble)(pyobj);
+  imag = Py_API(PyComplex_ImagAsDouble)(pyobj);
+
+  return rb_complex_new(DBL2NUM(real), DBL2NUM(imag));
+}
+
+VALUE
+pycall_pyfloat_to_ruby(PyObject *pyobj)
+{
+  double d;
+
+  if (pyobj->ob_type != Py_API(PyFloat_Type))
+    return Qnil;
+
+  {
+    PyObject *type, *value, *tb;
+    Py_API(PyErr_Fetch)(&type, &value, &tb);
+
+    d = Py_API(PyFloat_AsDouble)(pyobj);
+    if (d == -1.0) {
+      if (Py_API(PyErr_Occurred)()) {
+        pycall_pyerror_fetch_and_raise("PyFloat_AsDouble");
+      }
+    }
+
+    Py_API(PyErr_Restore)(type, value, tb);
+  }
+
+  return DBL2NUM(d);
+}
+
+VALUE
+pycall_pyint_to_ruby(PyObject *pyobj)
+{
+  Py_ssize_t n;
+
+  if (pyobj->ob_type != Py_API(PyInt_Type))
+    return Qnil;
+
+  n = Py_API(PyInt_AsSsize_t)(pyobj);
+  return SSIZET2NUM(n);
+}
+
+VALUE
+pycall_pylong_to_ruby(PyObject *pyobj)
+{
+  int overflow;
+
+  if (pyobj->ob_type != Py_API(PyLong_Type))
+    return Qnil;
+
+  {
+    long n = Py_API(PyLong_AsLongAndOverflow)(pyobj, &overflow);
+    if (overflow == 0) {
+      if (Py_API(PyErr_Occurred)()) {
+        pycall_pyerror_fetch_and_raise("PyLong_AsLongAndOverflow");
+      }
+      return LONG2FIX(n);
+    }
+  }
+
+#if HAVE_LONG_LONG
+  {
+    LONG_LONG n = Py_API(PyLong_AsLongLongAndOverflow)(pyobj, &overflow);
+    if (overflow == 0) {
+      if (Py_API(PyErr_Occurred)()) {
+        pycall_pyerror_fetch_and_raise("PyLong_AsLongLongAndOverflow");
+      }
+      return LL2NUM(n);
+    }
+  }
+#endif
+
+  rb_warning("Currentry do not support to convert multi-precision PyLong number to Ruby object");
+
+  return Qnil;
+}
+
+VALUE
+pycall_pystring_to_ruby(PyObject *pyobj)
+{
+  char *str = NULL;
+  Py_ssize_t len = 0;
+  int res = -1;
+
+  /* TODO: PyUnicode_Check */
+  if (pyobj->ob_type == Py_API(PyUnicode_Type)) {
+    pyobj = Py_API(PyUnicode_AsUTF8String)(pyobj);
+    res = Py_API(PyString_AsStringAndSize)(pyobj, &str, &len);
+    pycall_Py_DecRef(pyobj);
+  }
+  /* TODO: PyString_Check */
+  else if (pyobj->ob_type == Py_API(PyString_Type)) {
+    res = Py_API(PyString_AsStringAndSize)(pyobj, &str, &len);
+  }
+
+  if (res < 0) {
+    return Qnil;
+  }
+
+  return rb_str_new(str, len);
+}
+
+static VALUE
+pycall_pytuple_to_a(PyObject *pyobj)
+{
+  VALUE ary;
+  Py_ssize_t i, n;
+
+  assert(Py_TYPE(pyobj) == Py_API(PyTuple_Type));
+
+  n = Py_API(PyTuple_Size)(pyobj);
+  ary = rb_ary_new_capa(n);
+  for (i = 0; i < n; ++i) {
+    PyObject *pytem = Py_API(PyTuple_GetItem)(pyobj, i);
+    Py_API(Py_IncRef)(pytem);
+    rb_ary_push(ary, pycall_pyobject_to_ruby(pytem));
+  }
+
+  return ary;
+}
+
+static VALUE
+pycall_pysequence_to_a(PyObject *pyobj)
+{
+  Py_ssize_t n, i;
+  VALUE ary;
+
+  assert(Py_API(PySequence_Check)(pyobj));
+
+  n = Py_API(PySequence_Size)(pyobj);
+  ary = rb_ary_new_capa(n);
+  for (i = 0; i < n; ++i) {
+    PyObject *pytem = Py_API(PySequence_GetItem)(pyobj, i);
+    rb_ary_push(ary, pycall_pyobject_to_ruby(pytem));
+  }
+
+  return ary;
+}
+
+VALUE
+pycall_pyobject_to_a(PyObject *pyobj)
+{
+  if (Py_TYPE(pyobj) == Py_API(PyTuple_Type)) {
+    return pycall_pytuple_to_a(pyobj);
+  }
+
+  if (Py_API(PySequence_Check)(pyobj)) {
+    return pycall_pysequence_to_a(pyobj);
+  }
+
+  /* TODO: PyDict_Type to assoc array */
+
+  return rb_Array(pycall_pyobject_to_ruby(pyobj));
+}
+
+static VALUE
+pycall_conv_m_register_python_type_mapping(VALUE mod, VALUE pytypeptr, VALUE rbcls)
+{
+  return pycall_python_type_mapping_register(pytypeptr, rbcls) ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_conv_m_unregister_python_type_mapping(VALUE mod, VALUE pytypeptr)
+{
+  return pycall_python_type_mapping_unregister(pytypeptr) ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_conv_m_from_ruby(VALUE mod, VALUE obj)
+{
+  PyObject *pyobj = pycall_pyobject_from_ruby(obj);
+  if (PyType_Check(pyobj) || PyClass_Check(pyobj))
+    return pycall_pytypeptr_new(pyobj);
+  if (PyRuby_Check(pyobj))
+    return pycall_pyrubyptr_new(pyobj);
+  return pycall_pyptr_new(pyobj);
+}
+
+static VALUE
+pycall_conv_m_to_ruby(VALUE mod, VALUE pyptr)
+{
+  VALUE obj, obj_pyptr;
+  PyObject *pyobj = check_get_pyobj_ptr(pyptr, NULL);
+  obj = obj_pyptr = pycall_pyobject_to_ruby(pyobj);
+  if (is_pyobject_wrapper(obj)) {
+    obj_pyptr = pycall_pyobject_wrapper_get_pyptr(obj);
+  }
+  if (is_pycall_pyptr(obj_pyptr) && obj_pyptr != pyptr && DATA_PTR(obj_pyptr) == pyobj) {
+    Py_API(Py_IncRef)(pyobj);
+  }
+  return obj;
+}
+
+PyObject *
+pycall_pyobject_from_ruby(VALUE obj)
+{
+  if (is_pycall_pyptr(obj)) {
+    PyObject *pyobj = get_pyobj_ptr(obj);
+    Py_API(Py_IncRef)(pyobj);
+    return pyobj;
+  }
+  if (is_pyobject_wrapper(obj)) {
+    PyObject *pyobj = pycall_pyobject_wrapper_get_pyobj_ptr(obj);
+    Py_API(Py_IncRef)(pyobj);
+    return pyobj;
+  }
+  if (obj == Qnil) {
+    Py_API(Py_IncRef)(Py_API(_Py_NoneStruct));
+    return Py_API(_Py_NoneStruct);
+  }
+  if (obj == Qtrue || obj == Qfalse) {
+    return Py_API(PyBool_FromLong)(RTEST(obj));
+  }
+  if (RB_INTEGER_TYPE_P(obj)) {
+    if (FIXNUM_P(obj)) {
+      if (Py_API(PyInt_FromLong))
+        return Py_API(PyInt_FromLong)(FIX2LONG(obj));
+      return Py_API(PyLong_FromLong)(FIX2LONG(obj));
+    }
+#ifdef HAVE_LONG_LONG
+    else {
+      LONG_LONG ll;
+      int state = 0;
+      ll = (LONG_LONG)rb_protect((VALUE (*)(VALUE))rb_big2ll, obj, &state);
+      if (!state) {
+        if (Py_API(PyInt_FromSsize_t) && SSIZE_MIN <= ll && ll <= SSIZE_MAX)
+          Py_API(PyInt_FromSsize_t)((Py_ssize_t)ll);
+        return Py_API(PyLong_FromLongLong)(ll);
+      }
+    }
+#endif
+    rb_warn("Currently do not support to convert large integer values to PyLong");
+    Py_API(Py_IncRef)(Py_API(_Py_NoneStruct));
+    return Py_API(_Py_NoneStruct); /* FIXME */
+  }
+  if (RB_FLOAT_TYPE_P(obj)) {
+    return Py_API(PyFloat_FromDouble)(RFLOAT_VALUE(obj));
+  }
+  if (RB_TYPE_P(obj, T_COMPLEX)) {
+    VALUE re, im;
+    re = rb_funcall(obj, rb_intern("real"), 0);
+    im = rb_funcall(obj, rb_intern("imag"), 0);
+    return Py_API(PyComplex_FromDoubles)(NUM2DBL(re), NUM2DBL(im));
+  }
+  if (RB_TYPE_P(obj, T_STRING) || RB_TYPE_P(obj, T_SYMBOL)) {
+    return pycall_pystring_from_ruby(obj);
+  }
+  if (RB_TYPE_P(obj, T_ARRAY)) {
+    return pycall_pylist_from_ruby(obj);
+  }
+  if (RB_TYPE_P(obj, T_HASH)) {
+    return pycall_pydict_from_ruby(obj);
+  }
+
+  return PyRuby_New(obj);
+}
+
+PyObject *
+pycall_pystring_from_ruby(VALUE obj)
+{
+  int is_binary, is_ascii_only;
+
+  if (RB_TYPE_P(obj, T_SYMBOL)) {
+    obj = rb_sym_to_s(obj);
+  }
+
+  StringValue(obj);
+
+  is_binary = (rb_enc_get_index(obj) == rb_ascii8bit_encindex());
+  is_ascii_only = (ENC_CODERANGE_7BIT == rb_enc_str_coderange(obj));
+
+  if (is_binary || (!python_is_unicode_literals && is_ascii_only)) {
+    return Py_API(PyString_FromStringAndSize)(RSTRING_PTR(obj), RSTRING_LEN(obj));
+  }
+  return Py_API(PyUnicode_DecodeUTF8)(RSTRING_PTR(obj), RSTRING_LEN(obj), NULL);
+}
+
+PyObject *
+pycall_pytuple_from_ruby(VALUE obj)
+{
+  PyObject *pytupleobj;
+  long i, n;
+
+  obj = rb_convert_type(obj, T_ARRAY, "Array", "to_ary");
+  n = RARRAY_LEN(obj);
+  pytupleobj = Py_API(PyTuple_New)(n);
+  if (!pytupleobj) {
+    pycall_pyerror_fetch_and_raise("PyTuple_New in pycall_pytuple_from_ruby");
+  }
+
+  for (i = 0; i < n; ++i) {
+    int res;
+    PyObject *pytem;
+
+    pytem = pycall_pyobject_from_ruby(RARRAY_AREF(obj, i));
+    res = Py_API(PyTuple_SetItem)(pytupleobj, i, pytem);
+    if (res == -1) {
+      pycall_Py_DecRef(pytem);
+      pycall_Py_DecRef(pytupleobj);
+      pycall_pyerror_fetch_and_raise("PyTuple_SetItem");
+    }
+  }
+
+  return pytupleobj;
+}
+
+PyObject *
+pycall_pylist_from_ruby(VALUE obj)
+{
+  PyObject *pylistobj;
+  long i, n;
+
+  obj = rb_convert_type(obj, T_ARRAY, "Array", "to_ary");
+  n = RARRAY_LEN(obj);
+  pylistobj = Py_API(PyList_New)(n);
+  if (!pylistobj) {
+    pycall_pyerror_fetch_and_raise("PyList_New in pcall_pylist_from_ruby");
+  }
+
+  for (i = 0; i < n; ++i) {
+    int res;
+    PyObject *pytem;
+
+    pytem = pycall_pyobject_from_ruby(RARRAY_AREF(obj, i));
+    res = Py_API(PyList_SetItem)(pylistobj, i, pytem);
+
+    if (res == -1) {
+      pycall_Py_DecRef(pytem);
+      pycall_Py_DecRef(pylistobj);
+      pycall_pyerror_fetch_and_raise("PyList_SetItem in pycall_pylist_from_ruby");
+    }
+  }
+
+  return pylistobj;
+}
+
+static int
+pycall_pydict_from_ruby_iter(VALUE key, VALUE value, VALUE arg)
+{
+  PyObject *pydictobj = (PyObject *)arg;
+  PyObject *pyobj_key, *pyobj_value;
+  int res;
+
+  pyobj_key = pycall_pyobject_from_ruby(key);
+  pyobj_value = pycall_pyobject_from_ruby(value);
+  res = Py_API(PyObject_SetItem)(pydictobj, pyobj_key, pyobj_value);
+  if (res == -1) {
+    return ST_STOP;
+  }
+  Py_API(Py_DecRef)(pyobj_key);
+  Py_API(Py_DecRef)(pyobj_value);
+  return ST_CONTINUE;
+}
+
+PyObject *
+pycall_pydict_from_ruby(VALUE obj)
+{
+  PyObject *pydictobj;
+
+  obj = rb_convert_type(obj, T_HASH, "Hash", "to_hash");
+  pydictobj = Py_API(PyDict_New)();
+  if (!pydictobj) {
+    pycall_pyerror_fetch_and_raise("PyDict_New in pycall_pydict_from_ruby");
+  }
+
+  rb_hash_foreach(obj, pycall_pydict_from_ruby_iter, (VALUE)pydictobj);
+  if (Py_API(PyErr_Occurred)()) {
+    pycall_pyerror_fetch_and_raise("PyObject_SetItem in pycall_pydict_from_ruby_iter");
+  }
+
+  return pydictobj;
+}
+
+PyObject *
+pycall_pyslice_from_ruby(VALUE obj)
+{
+  VALUE begin, end, step = Qnil;
+  int exclude_end;
+  PyObject *pystart, *pystop, *pystep, *pyslice;
+
+  if (rb_obj_is_kind_of(obj, rb_cRange)) {
+    pycall_extract_range(obj, &begin, &end, &exclude_end, NULL);
+  }
+  else if (pycall_obj_is_step_range(obj)) {
+    pycall_extract_range(obj, &begin, &end, &exclude_end, &step);
+  }
+  else {
+    rb_raise(rb_eTypeError, "unexpected argument type %s (expected Range or Enumerator generated by Range#step)", rb_class2name(CLASS_OF(obj)));
+  }
+
+  if (!NIL_P(step) && NUM2SSIZET(step) < 0) {
+    if (!NIL_P(end)) {
+      if (!exclude_end) {
+        ssize_t end_i = NUM2SSIZET(end);
+        switch (end_i) {
+          case 0:
+            end = Qnil;
+            break;
+
+          default:
+            end = SSIZET2NUM(end_i - 1); /* TODO: limit check */
+            break;
+        }
+      }
+    }
+  }
+  else {
+    if (!NIL_P(end)) {
+      if (!exclude_end) {
+        ssize_t end_i = NUM2SSIZET(end);
+        switch (end_i) {
+          case -1:
+            end = Qnil;
+            break;
+
+          default:
+            end = SSIZET2NUM(end_i + 1); /* TODO: limit check */
+            break;
+        }
+      }
+    }
+  }
+
+  pystart = pycall_pyobject_from_ruby(begin);
+  pystop  = pycall_pyobject_from_ruby(end);
+  pystep  = pycall_pyobject_from_ruby(step);
+
+  pyslice = Py_API(PySlice_New)(pystart, pystop, pystep);
+  /* PySlice_New increments reference counts of pystart, pystop, and pystep */
+  pycall_Py_DecRef(pystart);
+  pycall_Py_DecRef(pystop);
+  pycall_Py_DecRef(pystep);
+
+  return pyslice;
+}
+
+VALUE
+pycall_pyerror_new(PyObject *type, PyObject *value, PyObject *traceback)
+{
+  VALUE init_args[3];
+
+  init_args[0] = pycall_pyobject_to_ruby(type);
+  init_args[1] = value ? pycall_pyobject_to_ruby(value) : Qnil;
+  init_args[2] = traceback ? pycall_pyobject_to_ruby(traceback) : Qnil;
+
+  return rb_class_new_instance(3, init_args, cPyError);
+}
+
+VALUE
+pycall_pyerror_fetch(void)
+{
+  PyObject *type, *value, *traceback;
+
+  if (Py_API(PyErr_Occurred)() == NULL)
+    return Qnil;
+
+  Py_API(PyErr_Fetch)(&type, &value, &traceback);
+  if (type == NULL)
+    return Qnil;
+
+  return pycall_pyerror_new(type, value, traceback);
+}
+
+void
+pycall_pyerror_fetch_and_raise(char const *format, ...)
+{
+  va_list args;
+  VALUE pyerror, msg;
+
+  pyerror = pycall_pyerror_fetch();
+  if (!NIL_P(pyerror))
+    rb_exc_raise(pyerror);
+
+  va_start(args, format);
+  msg = rb_vsprintf(format, args);
+  va_end(args);
+
+  rb_exc_raise(rb_exc_new3(eError, msg));
+}
+
+unsigned long
+pycall_default_tp_flags(void)
+{
+  unsigned long const stackless_extension_flag = python_has_stackless_extension ? Py_TPFLAGS_HAVE_STACKLESS_EXTENSION : 0;
+
+  if (python_major_version >= 3) {
+    return stackless_extension_flag | Py_TPFLAGS_HAVE_VERSION_TAG;
+  }
+  else {
+    return stackless_extension_flag |
+      Py_TPFLAGS_HAVE_GETCHARBUFFER |
+      Py_TPFLAGS_HAVE_SEQUENCE_IN |
+      Py_TPFLAGS_HAVE_INPLACEOPS |
+      Py_TPFLAGS_HAVE_RICHCOMPARE |
+      Py_TPFLAGS_HAVE_WEAKREFS |
+      Py_TPFLAGS_HAVE_ITER |
+      Py_TPFLAGS_HAVE_CLASS |
+      Py_TPFLAGS_HAVE_INDEX
+      ;
+  }
+}
+
+PyObject *
+pycall_pystring_from_format(char const *format, ...)
+{
+  va_list vargs;
+  PyObject *res;
+
+  va_start(vargs, format);
+  res = pycall_pystring_from_formatv(format, vargs);
+  va_end(vargs);
+
+  return res;
+}
+
+PyObject *
+pycall_pystring_from_formatv(char const *format, va_list vargs)
+{
+  if (python_is_unicode_literals)
+    return Py_API(PyUnicode_FromFormatV)(format, vargs);
+  else
+    return Py_API(PyString_FromFormatV)(format, vargs);
+}
+
+/* ==== Python ==== */
+
+static void
+init_python(void)
+{
+  static char const *argv[1] = { "" };
+
+  Py_API(Py_InitializeEx)(0);
+  Py_API(PySys_SetArgvEx)(0, (char **)argv, 0);
+
+  /* check the availability of stackless extension */
+  python_has_stackless_extension = (Py_API(PyImport_ImportModule)("stackless") != NULL);
+  if (!python_has_stackless_extension) {
+    Py_API(PyErr_Clear)();
+  }
+
+  /* builtins module */
+  {
+    char const *builtins_module_name = (python_major_version < 3) ? "__builtin__" : "builtins";
+    python_builtins_module = Py_API(PyImport_ImportModule)(builtins_module_name);
+  }
+
+  /* sys module */
+
+  {
+    PyObject *sys, *hexversion;
+    sys = Py_API(PyImport_ImportModule)("sys");
+
+    /* hexversion */
+
+    hexversion = Py_API(PyObject_GetAttrString)(sys, "hexversion");
+    if (Py_API(PyInt_Type))
+      python_hexversion = Py_API(PyInt_AsSsize_t)(hexversion);
+    else
+      python_hexversion = Py_API(PyLong_AsSsize_t)(hexversion);
+  }
+
+  /* constants */
+
+  Py_API(Py_IncRef)(Py_API(_Py_NoneStruct));
+  rb_define_const(mAPI, "None", pycall_pyptr_new(Py_API(_Py_NoneStruct)));
+
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyBool_Type));
+  rb_define_const(mAPI, "PyBool_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyBool_Type)));
+  if (Py_API(PyClass_Type)) {
+    Py_API(Py_IncRef)((PyObject *)Py_API(PyClass_Type));
+    rb_define_const(mAPI, "PyClass_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyClass_Type)));
+  }
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyDict_Type));
+  rb_define_const(mAPI, "PyDict_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyDict_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyFloat_Type));
+  rb_define_const(mAPI, "PyFloat_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyFloat_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyInt_Type));
+  rb_define_const(mAPI, "PyInt_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyInt_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyList_Type));
+  rb_define_const(mAPI, "PyList_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyList_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyLong_Type));
+  rb_define_const(mAPI, "PyLong_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyLong_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyModule_Type));
+  rb_define_const(mAPI, "PyModule_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyModule_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyString_Type));
+  rb_define_const(mAPI, "PyString_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyString_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyType_Type));
+  rb_define_const(mAPI, "PyType_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyType_Type)));
+  Py_API(Py_IncRef)((PyObject *)Py_API(PyUnicode_Type));
+  rb_define_const(mAPI, "PyUnicode_Type", pycall_pytypeptr_new((PyObject *)Py_API(PyUnicode_Type)));
+
+  pycall_init_exceptions(pycall_libpython_handle);
+}
+
+static VALUE
+pycall_tuple_s_new(int argc, VALUE *argv, VALUE klass)
+{
+  VALUE obj;
+  PyObject *pyobj;
+  int i;
+
+  pyobj = Py_API(PyTuple_New)(argc);
+  for (i = 0; i < argc; ++i) {
+    Py_API(PyTuple_SetItem)(pyobj, i, pycall_pyobject_from_ruby(argv[i]));
+
+    /* NOTE: Although PyTuple_SetItem steals the item reference,
+     * it is unnecessary to call Py_IncRef for the item because
+     * pycall_pyobject_from_ruby increments the reference count
+     * of its result. */
+  }
+
+  obj = pycall_pyobject_wrapper_object_new(klass, pyobj);
+  return obj;
+}
+
+static VALUE
+pycall_tuple_length(VALUE obj)
+{
+  PyObject *pyobj;
+  Py_ssize_t n;
+
+  pyobj = pycall_pyobject_wrapper_check_get_pyobj_ptr(obj, Py_API(PyTuple_Type));
+
+  n = Py_API(PyTuple_Size)(pyobj);
+  return SSIZET2NUM(n);
+}
+
+static VALUE
+pycall_tuple_to_a(VALUE obj)
+{
+  PyObject *pyobj;
+
+  pyobj = pycall_pyobject_wrapper_check_get_pyobj_ptr(obj, Py_API(PyTuple_Type));
+
+  return pycall_pytuple_to_a(pyobj);
+}
+
+static VALUE
+pycall_pyerror_s_occurred_p(VALUE klass)
+{
+  return Py_API(PyErr_Occurred)() != NULL ? Qtrue : Qfalse;
+}
+
+static VALUE
+pycall_pyerror_s_fetch(VALUE klass)
+{
+  return pycall_pyerror_fetch();
+}
+
+static void
+init_pyerror(void)
+{
+  rb_define_singleton_method(cPyError, "occurred?", pycall_pyerror_s_occurred_p, 0);
+  rb_define_singleton_method(cPyError, "fetch", pycall_pyerror_s_fetch, 0);
+}
+
+static void
+init_tuple(void)
+{
+  cTuple = rb_funcall(mPyCall, rb_intern("wrap_class"), 1, pycall_pytypeptr_new((PyObject *)Py_API(PyTuple_Type)));
+  rb_define_const(mPyCall, "Tuple", cTuple);
+  rb_funcall(cTuple, rb_intern("register_python_type_mapping"), 0);
+  rb_define_singleton_method(cTuple, "new", pycall_tuple_s_new, -1);
+  rb_define_method(cTuple, "length", pycall_tuple_length, 0);
+  rb_define_method(cTuple, "to_a", pycall_tuple_to_a, 0);
+}
+
+void
+Init_pycall(void)
+{
+  pycall_hash_salt = FIX2LONG(rb_hash(rb_str_new2("PyCall::PyObject")));
+
+  mPyCall = rb_define_module("PyCall");
+  mPyObjectWrapper = rb_const_get_at(mPyCall, rb_intern("PyObjectWrapper"));
+  mPyTypeObjectWrapper = rb_const_get_at(mPyCall, rb_intern("PyTypeObjectWrapper"));
+  mGCGuard = rb_define_module_under(mPyCall, "GCGuard");
+  eError = rb_const_get_at(mPyCall, rb_intern("Error"));
+  cPyError = rb_const_get_at(mPyCall, rb_intern("PyError"));
+
+  /* PyCall */
+
+  rb_define_module_function(mPyCall, "after_fork", pycall_after_fork, 0);
+
+  /* PyCall::PyPtr */
+
+  cPyPtr = rb_define_class_under(mPyCall, "PyPtr", rb_cBasicObject);
+  rb_define_singleton_method(cPyPtr, "incref", pycall_pyptr_s_incref, 1);
+  rb_define_singleton_method(cPyPtr, "decref", pycall_pyptr_s_decref, 1);
+  rb_define_singleton_method(cPyPtr, "sizeof", pycall_pyptr_s_sizeof, 1);
+
+  rb_define_alloc_func(cPyPtr, pycall_pyptr_allocate);
+  rb_define_method(cPyPtr, "initialize", pycall_pyptr_initialize, 1);
+  rb_define_method(cPyPtr, "null?", pycall_pyptr_is_null, 0);
+  rb_define_method(cPyPtr, "none?", pycall_pyptr_is_none, 0);
+  rb_define_method(cPyPtr, "nil?", pycall_pyptr_is_nil, 0);
+  rb_define_method(cPyPtr, "==", pycall_pyptr_eq, 1);
+  rb_define_method(cPyPtr, "===", pycall_pyptr_eq, 1);
+  rb_define_method(cPyPtr, "eql?", pycall_pyptr_eq, 1);
+  rb_define_method(cPyPtr, "hash", pycall_pyptr_hash, 0);
+  rb_define_method(cPyPtr, "__address__", pycall_pyptr_get_ptr_address, 0);
+  rb_define_method(cPyPtr, "__ob_refcnt__", pycall_pyptr_get_ob_refcnt, 0);
+  rb_define_method(cPyPtr, "__ob_type__", pycall_pyptr_get_ob_type, 0);
+  rb_define_method(cPyPtr, "object_id", pycall_pyptr_object_id, 0);
+  rb_define_method(cPyPtr, "class", pycall_pyptr_class, 0);
+  rb_define_method(cPyPtr, "inspect", pycall_pyptr_inspect, 0);
+  rb_define_method(cPyPtr, "kind_of?", pycall_pyptr_is_kind_of, 1);
+  rb_define_method(cPyPtr, "is_a?", pycall_pyptr_is_kind_of, 1);
+
+  rb_define_const(cPyPtr, "NULL", pycall_pyptr_new(NULL));
+
+  /* PyCall::PyTypePtr */
+
+  cPyTypePtr = rb_define_class_under(mPyCall, "PyTypePtr", cPyPtr);
+  rb_define_alloc_func(cPyTypePtr, pycall_pytypeptr_allocate);
+  rb_define_method(cPyTypePtr, "__ob_size__", pycall_pytypeptr_get_ob_size, 0);
+  rb_define_method(cPyTypePtr, "__tp_name__", pycall_pytypeptr_get_tp_name, 0);
+  rb_define_method(cPyTypePtr, "__tp_basicsize__", pycall_pytypeptr_get_tp_basicsize, 0);
+  rb_define_method(cPyTypePtr, "__tp_flags__", pycall_pytypeptr_get_tp_flags, 0);
+  rb_define_method(cPyTypePtr, "===", pycall_pytypeptr_eqq, 1);
+
+  /* PyCall::LibPython::API */
+
+  mLibPython = rb_define_module_under(mPyCall, "LibPython");
+  pycall_libpython_handle = rb_funcall(mLibPython, rb_intern("handle"), 0);
+  pycall_init_libpython_api_table(pycall_libpython_handle);
+
+  mAPI = rb_define_module_under(mLibPython, "API");
+
+  rb_define_module_function(mAPI, "builtins_module_ptr", pycall_libpython_api_get_builtins_module_ptr, 0);
+
+  rb_define_module_function(mAPI, "PyObject_Dir", pycall_libpython_api_PyObject_Dir, 1);
+  rb_define_module_function(mAPI, "PyList_Size", pycall_libpython_api_PyList_Size, 1);
+  rb_define_module_function(mAPI, "PyList_GetItem", pycall_libpython_api_PyList_GetItem, 2);
+
+  /* PyCall::LibPython::Helpers */
+
+  mHelpers = rb_define_module_under(mLibPython, "Helpers");
+
+  rb_define_module_function(mHelpers, "unicode_literals?", pycall_libpython_helpers_m_unicode_literals_p, 0);
+  rb_define_module_function(mHelpers, "import_module", pycall_libpython_helpers_m_import_module, -1);
+  rb_define_module_function(mHelpers, "define_wrapper_method", pycall_libpython_helpers_m_define_wrapper_method, 2);
+  rb_define_module_function(mHelpers, "compare", pycall_libpython_helpers_m_compare, 3);
+  rb_define_module_function(mHelpers, "getattr", pycall_libpython_helpers_m_getattr, -1);
+  rb_define_module_function(mHelpers, "hasattr?", pycall_libpython_helpers_m_hasattr_p, 2);
+  rb_define_module_function(mHelpers, "callable?", pycall_libpython_helpers_m_callable_p, 1);
+  rb_define_module_function(mHelpers, "call_object", pycall_libpython_helpers_m_call_object, -1);
+  rb_define_module_function(mHelpers, "getitem", pycall_libpython_helpers_m_getitem, 2);
+  rb_define_module_function(mHelpers, "setitem", pycall_libpython_helpers_m_setitem, 3);
+  rb_define_module_function(mHelpers, "delitem", pycall_libpython_helpers_m_delitem, 2);
+  rb_define_module_function(mHelpers, "str", pycall_libpython_helpers_m_str, 1);
+  rb_define_module_function(mHelpers, "dict_contains", pycall_libpython_helpers_m_dict_contains, 2);
+  rb_define_module_function(mHelpers, "dict_each", pycall_libpython_helpers_m_dict_each, 1);
+  rb_define_module_function(mHelpers, "sequence_contains", pycall_libpython_helpers_m_sequence_contains, 2);
+  rb_define_module_function(mHelpers, "sequence_each", pycall_libpython_helpers_m_sequence_each, 1);
+
+  /* PyCall::Conversion */
+
+  mConversion = rb_define_module_under(mPyCall, "Conversion");
+
+  rb_define_module_function(mConversion, "register_python_type_mapping", pycall_conv_m_register_python_type_mapping, 2);
+  rb_define_module_function(mConversion, "unregister_python_type_mapping", pycall_conv_m_unregister_python_type_mapping, 1);
+  rb_define_module_function(mConversion, "from_ruby", pycall_conv_m_from_ruby, 1);
+  rb_define_module_function(mConversion, "to_ruby", pycall_conv_m_to_ruby, 1);
+
+  python_type_mapping = rb_hash_new();
+  id_python_type_mapping = rb_intern("__python_type_mapping__");
+  rb_ivar_set(mConversion, id_python_type_mapping, python_type_mapping);
+
+  /* initialize the constat PYTHON_VERSION */
+
+  python_description = rb_str_new2(Py_API(Py_GetVersion)());
+  rb_define_const(mLibPython, "PYTHON_DESCRIPTION", python_description);
+
+  {
+    char *space_pos, *first_dot_pos;
+
+    space_pos = memchr(RSTRING_PTR(python_description), ' ', RSTRING_LEN(python_description));
+    python_version_string = rb_str_subseq(python_description, 0, space_pos - RSTRING_PTR(python_description));
+
+    /* extract major version */
+    first_dot_pos = memchr(RSTRING_PTR(python_version_string), '.', RSTRING_LEN(python_version_string));
+    *first_dot_pos = '\0';
+    python_major_version = (int)strtol(RSTRING_PTR(python_version_string), (char **)NULL, 10);
+    *first_dot_pos = '.';
+  }
+  rb_define_const(mLibPython, "PYTHON_VERSION", python_version_string);
+
+  /* initialize Python interpreter */
+
+  init_python();
+  init_pyerror();
+  init_tuple();
+  pycall_init_gcguard();
+  pycall_init_ruby_wrapper();
+}