AppPkg/Applications/Python/Python-2.7.10: Initial Checkin part 3/5.

[mirror_edk2.git] / AppPkg / Applications / Python / Python-2.7.10 / Objects / typeobject.c

/* Type object implementation */\r
\r
#include "Python.h"\r
#include "structmember.h"\r
\r
#include <ctype.h>\r
\r
\r
/* Support type attribute cache */\r
\r
/* The cache can keep references to the names alive for longer than\r
   they normally would.  This is why the maximum size is limited to\r
   MCACHE_MAX_ATTR_SIZE, since it might be a problem if very large\r
   strings are used as attribute names. */\r
#define MCACHE_MAX_ATTR_SIZE    100\r
#define MCACHE_SIZE_EXP         10\r
#define MCACHE_HASH(version, name_hash)                                 \\r
        (((unsigned int)(version) * (unsigned int)(name_hash))          \\r
         >> (8*sizeof(unsigned int) - MCACHE_SIZE_EXP))\r
#define MCACHE_HASH_METHOD(type, name)                                  \\r
        MCACHE_HASH((type)->tp_version_tag,                     \\r
                    ((PyStringObject *)(name))->ob_shash)\r
#define MCACHE_CACHEABLE_NAME(name)                                     \\r
        PyString_CheckExact(name) &&                            \\r
        PyString_GET_SIZE(name) <= MCACHE_MAX_ATTR_SIZE\r
\r
struct method_cache_entry {\r
    unsigned int version;\r
    PyObject *name;             /* reference to exactly a str or None */\r
    PyObject *value;            /* borrowed */\r
};\r
\r
static struct method_cache_entry method_cache[1 << MCACHE_SIZE_EXP];\r
static unsigned int next_version_tag = 0;\r
\r
unsigned int\r
PyType_ClearCache(void)\r
{\r
    Py_ssize_t i;\r
    unsigned int cur_version_tag = next_version_tag - 1;\r
\r
    for (i = 0; i < (1 << MCACHE_SIZE_EXP); i++) {\r
        method_cache[i].version = 0;\r
        Py_CLEAR(method_cache[i].name);\r
        method_cache[i].value = NULL;\r
    }\r
    next_version_tag = 0;\r
    /* mark all version tags as invalid */\r
    PyType_Modified(&PyBaseObject_Type);\r
    return cur_version_tag;\r
}\r
\r
void\r
PyType_Modified(PyTypeObject *type)\r
{\r
    /* Invalidate any cached data for the specified type and all\r
       subclasses.  This function is called after the base\r
       classes, mro, or attributes of the type are altered.\r
\r
       Invariants:\r
\r
       - Py_TPFLAGS_VALID_VERSION_TAG is never set if\r
         Py_TPFLAGS_HAVE_VERSION_TAG is not set (e.g. on type\r
         objects coming from non-recompiled extension modules)\r
\r
       - before Py_TPFLAGS_VALID_VERSION_TAG can be set on a type,\r
         it must first be set on all super types.\r
\r
       This function clears the Py_TPFLAGS_VALID_VERSION_TAG of a\r
       type (so it must first clear it on all subclasses).  The\r
       tp_version_tag value is meaningless unless this flag is set.\r
       We don't assign new version tags eagerly, but only as\r
       needed.\r
     */\r
    PyObject *raw, *ref;\r
    Py_ssize_t i, n;\r
\r
    if (!PyType_HasFeature(type, Py_TPFLAGS_VALID_VERSION_TAG))\r
        return;\r
\r
    raw = type->tp_subclasses;\r
    if (raw != NULL) {\r
        n = PyList_GET_SIZE(raw);\r
        for (i = 0; i < n; i++) {\r
            ref = PyList_GET_ITEM(raw, i);\r
            ref = PyWeakref_GET_OBJECT(ref);\r
            if (ref != Py_None) {\r
                PyType_Modified((PyTypeObject *)ref);\r
            }\r
        }\r
    }\r
    type->tp_flags &= ~Py_TPFLAGS_VALID_VERSION_TAG;\r
}\r
\r
static void\r
type_mro_modified(PyTypeObject *type, PyObject *bases) {\r
    /*\r
       Check that all base classes or elements of the mro of type are\r
       able to be cached.  This function is called after the base\r
       classes or mro of the type are altered.\r
\r
       Unset HAVE_VERSION_TAG and VALID_VERSION_TAG if the type\r
       inherits from an old-style class, either directly or if it\r
       appears in the MRO of a new-style class.  No support either for\r
       custom MROs that include types that are not officially super\r
       types.\r
\r
       Called from mro_internal, which will subsequently be called on\r
       each subclass when their mro is recursively updated.\r
     */\r
    Py_ssize_t i, n;\r
    int clear = 0;\r
\r
    if (!PyType_HasFeature(type, Py_TPFLAGS_HAVE_VERSION_TAG))\r
        return;\r
\r
    n = PyTuple_GET_SIZE(bases);\r
    for (i = 0; i < n; i++) {\r
        PyObject *b = PyTuple_GET_ITEM(bases, i);\r
        PyTypeObject *cls;\r
\r
        if (!PyType_Check(b) ) {\r
            clear = 1;\r
            break;\r
        }\r
\r
        cls = (PyTypeObject *)b;\r
\r
        if (!PyType_HasFeature(cls, Py_TPFLAGS_HAVE_VERSION_TAG) ||\r
            !PyType_IsSubtype(type, cls)) {\r
            clear = 1;\r
            break;\r
        }\r
    }\r
\r
    if (clear)\r
        type->tp_flags &= ~(Py_TPFLAGS_HAVE_VERSION_TAG|\r
                            Py_TPFLAGS_VALID_VERSION_TAG);\r
}\r
\r
static int\r
assign_version_tag(PyTypeObject *type)\r
{\r
    /* Ensure that the tp_version_tag is valid and set\r
       Py_TPFLAGS_VALID_VERSION_TAG.  To respect the invariant, this\r
       must first be done on all super classes.  Return 0 if this\r
       cannot be done, 1 if Py_TPFLAGS_VALID_VERSION_TAG.\r
    */\r
    Py_ssize_t i, n;\r
    PyObject *bases;\r
\r
    if (PyType_HasFeature(type, Py_TPFLAGS_VALID_VERSION_TAG))\r
        return 1;\r
    if (!PyType_HasFeature(type, Py_TPFLAGS_HAVE_VERSION_TAG))\r
        return 0;\r
    if (!PyType_HasFeature(type, Py_TPFLAGS_READY))\r
        return 0;\r
\r
    type->tp_version_tag = next_version_tag++;\r
    /* for stress-testing: next_version_tag &= 0xFF; */\r
\r
    if (type->tp_version_tag == 0) {\r
        /* wrap-around or just starting Python - clear the whole\r
           cache by filling names with references to Py_None.\r
           Values are also set to NULL for added protection, as they\r
           are borrowed reference */\r
        for (i = 0; i < (1 << MCACHE_SIZE_EXP); i++) {\r
            method_cache[i].value = NULL;\r
            Py_XDECREF(method_cache[i].name);\r
            method_cache[i].name = Py_None;\r
            Py_INCREF(Py_None);\r
        }\r
        /* mark all version tags as invalid */\r
        PyType_Modified(&PyBaseObject_Type);\r
        return 1;\r
    }\r
    bases = type->tp_bases;\r
    n = PyTuple_GET_SIZE(bases);\r
    for (i = 0; i < n; i++) {\r
        PyObject *b = PyTuple_GET_ITEM(bases, i);\r
        assert(PyType_Check(b));\r
        if (!assign_version_tag((PyTypeObject *)b))\r
            return 0;\r
    }\r
    type->tp_flags |= Py_TPFLAGS_VALID_VERSION_TAG;\r
    return 1;\r
}\r
\r
\r
static PyMemberDef type_members[] = {\r
    {"__basicsize__", T_PYSSIZET, offsetof(PyTypeObject,tp_basicsize),READONLY},\r
    {"__itemsize__", T_PYSSIZET, offsetof(PyTypeObject, tp_itemsize), READONLY},\r
    {"__flags__", T_LONG, offsetof(PyTypeObject, tp_flags), READONLY},\r
    {"__weakrefoffset__", T_LONG,\r
     offsetof(PyTypeObject, tp_weaklistoffset), READONLY},\r
    {"__base__", T_OBJECT, offsetof(PyTypeObject, tp_base), READONLY},\r
    {"__dictoffset__", T_LONG,\r
     offsetof(PyTypeObject, tp_dictoffset), READONLY},\r
    {"__mro__", T_OBJECT, offsetof(PyTypeObject, tp_mro), READONLY},\r
    {0}\r
};\r
\r
static PyObject *\r
type_name(PyTypeObject *type, void *context)\r
{\r
    const char *s;\r
\r
    if (type->tp_flags & Py_TPFLAGS_HEAPTYPE) {\r
        PyHeapTypeObject* et = (PyHeapTypeObject*)type;\r
\r
        Py_INCREF(et->ht_name);\r
        return et->ht_name;\r
    }\r
    else {\r
        s = strrchr(type->tp_name, '.');\r
        if (s == NULL)\r
            s = type->tp_name;\r
        else\r
            s++;\r
        return PyString_FromString(s);\r
    }\r
}\r
\r
static int\r
type_set_name(PyTypeObject *type, PyObject *value, void *context)\r
{\r
    PyHeapTypeObject* et;\r
    PyObject *tmp;\r
\r
    if (!(type->tp_flags & Py_TPFLAGS_HEAPTYPE)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can't set %s.__name__", type->tp_name);\r
        return -1;\r
    }\r
    if (!value) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can't delete %s.__name__", type->tp_name);\r
        return -1;\r
    }\r
    if (!PyString_Check(value)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can only assign string to %s.__name__, not '%s'",\r
                     type->tp_name, Py_TYPE(value)->tp_name);\r
        return -1;\r
    }\r
    if (strlen(PyString_AS_STRING(value))\r
        != (size_t)PyString_GET_SIZE(value)) {\r
        PyErr_Format(PyExc_ValueError,\r
                     "__name__ must not contain null bytes");\r
        return -1;\r
    }\r
\r
    et = (PyHeapTypeObject*)type;\r
\r
    Py_INCREF(value);\r
\r
    /* Wait until et is a sane state before Py_DECREF'ing the old et->ht_name\r
       value.  (Bug #16447.)  */\r
    tmp = et->ht_name;\r
    et->ht_name = value;\r
\r
    type->tp_name = PyString_AS_STRING(value);\r
    Py_DECREF(tmp);\r
\r
    return 0;\r
}\r
\r
static PyObject *\r
type_module(PyTypeObject *type, void *context)\r
{\r
    PyObject *mod;\r
    char *s;\r
\r
    if (type->tp_flags & Py_TPFLAGS_HEAPTYPE) {\r
        mod = PyDict_GetItemString(type->tp_dict, "__module__");\r
        if (!mod) {\r
            PyErr_Format(PyExc_AttributeError, "__module__");\r
            return 0;\r
        }\r
        Py_XINCREF(mod);\r
        return mod;\r
    }\r
    else {\r
        s = strrchr(type->tp_name, '.');\r
        if (s != NULL)\r
            return PyString_FromStringAndSize(\r
                type->tp_name, (Py_ssize_t)(s - type->tp_name));\r
        return PyString_FromString("__builtin__");\r
    }\r
}\r
\r
static int\r
type_set_module(PyTypeObject *type, PyObject *value, void *context)\r
{\r
    if (!(type->tp_flags & Py_TPFLAGS_HEAPTYPE)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can't set %s.__module__", type->tp_name);\r
        return -1;\r
    }\r
    if (!value) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can't delete %s.__module__", type->tp_name);\r
        return -1;\r
    }\r
\r
    PyType_Modified(type);\r
\r
    return PyDict_SetItemString(type->tp_dict, "__module__", value);\r
}\r
\r
static PyObject *\r
type_abstractmethods(PyTypeObject *type, void *context)\r
{\r
    PyObject *mod = NULL;\r
    /* type itself has an __abstractmethods__ descriptor (this). Don't return\r
       that. */\r
    if (type != &PyType_Type)\r
        mod = PyDict_GetItemString(type->tp_dict, "__abstractmethods__");\r
    if (!mod) {\r
        PyErr_SetString(PyExc_AttributeError, "__abstractmethods__");\r
        return NULL;\r
    }\r
    Py_XINCREF(mod);\r
    return mod;\r
}\r
\r
static int\r
type_set_abstractmethods(PyTypeObject *type, PyObject *value, void *context)\r
{\r
    /* __abstractmethods__ should only be set once on a type, in\r
       abc.ABCMeta.__new__, so this function doesn't do anything\r
       special to update subclasses.\r
    */\r
    int abstract, res;\r
    if (value != NULL) {\r
        abstract = PyObject_IsTrue(value);\r
        if (abstract < 0)\r
            return -1;\r
        res = PyDict_SetItemString(type->tp_dict, "__abstractmethods__", value);\r
    }\r
    else {\r
        abstract = 0;\r
        res = PyDict_DelItemString(type->tp_dict, "__abstractmethods__");\r
        if (res && PyErr_ExceptionMatches(PyExc_KeyError)) {\r
            PyErr_SetString(PyExc_AttributeError, "__abstractmethods__");\r
            return -1;\r
        }\r
    }\r
    if (res == 0) {\r
        PyType_Modified(type);\r
        if (abstract)\r
            type->tp_flags |= Py_TPFLAGS_IS_ABSTRACT;\r
        else\r
            type->tp_flags &= ~Py_TPFLAGS_IS_ABSTRACT;\r
    }\r
    return res;\r
}\r
\r
static PyObject *\r
type_get_bases(PyTypeObject *type, void *context)\r
{\r
    Py_INCREF(type->tp_bases);\r
    return type->tp_bases;\r
}\r
\r
static PyTypeObject *best_base(PyObject *);\r
static int mro_internal(PyTypeObject *);\r
static int compatible_for_assignment(PyTypeObject *, PyTypeObject *, char *);\r
static int add_subclass(PyTypeObject*, PyTypeObject*);\r
static void remove_subclass(PyTypeObject *, PyTypeObject *);\r
static void update_all_slots(PyTypeObject *);\r
\r
typedef int (*update_callback)(PyTypeObject *, void *);\r
static int update_subclasses(PyTypeObject *type, PyObject *name,\r
                             update_callback callback, void *data);\r
static int recurse_down_subclasses(PyTypeObject *type, PyObject *name,\r
                                   update_callback callback, void *data);\r
\r
static int\r
mro_subclasses(PyTypeObject *type, PyObject* temp)\r
{\r
    PyTypeObject *subclass;\r
    PyObject *ref, *subclasses, *old_mro;\r
    Py_ssize_t i, n;\r
\r
    subclasses = type->tp_subclasses;\r
    if (subclasses == NULL)\r
        return 0;\r
    assert(PyList_Check(subclasses));\r
    n = PyList_GET_SIZE(subclasses);\r
    for (i = 0; i < n; i++) {\r
        ref = PyList_GET_ITEM(subclasses, i);\r
        assert(PyWeakref_CheckRef(ref));\r
        subclass = (PyTypeObject *)PyWeakref_GET_OBJECT(ref);\r
        assert(subclass != NULL);\r
        if ((PyObject *)subclass == Py_None)\r
            continue;\r
        assert(PyType_Check(subclass));\r
        old_mro = subclass->tp_mro;\r
        if (mro_internal(subclass) < 0) {\r
            subclass->tp_mro = old_mro;\r
            return -1;\r
        }\r
        else {\r
            PyObject* tuple;\r
            tuple = PyTuple_Pack(2, subclass, old_mro);\r
            Py_DECREF(old_mro);\r
            if (!tuple)\r
                return -1;\r
            if (PyList_Append(temp, tuple) < 0)\r
                return -1;\r
            Py_DECREF(tuple);\r
        }\r
        if (mro_subclasses(subclass, temp) < 0)\r
            return -1;\r
    }\r
    return 0;\r
}\r
\r
static int\r
type_set_bases(PyTypeObject *type, PyObject *value, void *context)\r
{\r
    Py_ssize_t i;\r
    int r = 0;\r
    PyObject *ob, *temp;\r
    PyTypeObject *new_base, *old_base;\r
    PyObject *old_bases, *old_mro;\r
\r
    if (!(type->tp_flags & Py_TPFLAGS_HEAPTYPE)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can't set %s.__bases__", type->tp_name);\r
        return -1;\r
    }\r
    if (!value) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can't delete %s.__bases__", type->tp_name);\r
        return -1;\r
    }\r
    if (!PyTuple_Check(value)) {\r
        PyErr_Format(PyExc_TypeError,\r
             "can only assign tuple to %s.__bases__, not %s",\r
                 type->tp_name, Py_TYPE(value)->tp_name);\r
        return -1;\r
    }\r
    if (PyTuple_GET_SIZE(value) == 0) {\r
        PyErr_Format(PyExc_TypeError,\r
             "can only assign non-empty tuple to %s.__bases__, not ()",\r
                 type->tp_name);\r
        return -1;\r
    }\r
    for (i = 0; i < PyTuple_GET_SIZE(value); i++) {\r
        ob = PyTuple_GET_ITEM(value, i);\r
        if (!PyClass_Check(ob) && !PyType_Check(ob)) {\r
            PyErr_Format(\r
                PyExc_TypeError,\r
    "%s.__bases__ must be tuple of old- or new-style classes, not '%s'",\r
                            type->tp_name, Py_TYPE(ob)->tp_name);\r
                    return -1;\r
        }\r
        if (PyType_Check(ob)) {\r
            if (PyType_IsSubtype((PyTypeObject*)ob, type)) {\r
                PyErr_SetString(PyExc_TypeError,\r
            "a __bases__ item causes an inheritance cycle");\r
                return -1;\r
            }\r
        }\r
    }\r
\r
    new_base = best_base(value);\r
\r
    if (!new_base) {\r
        return -1;\r
    }\r
\r
    if (!compatible_for_assignment(type->tp_base, new_base, "__bases__"))\r
        return -1;\r
\r
    Py_INCREF(new_base);\r
    Py_INCREF(value);\r
\r
    old_bases = type->tp_bases;\r
    old_base = type->tp_base;\r
    old_mro = type->tp_mro;\r
\r
    type->tp_bases = value;\r
    type->tp_base = new_base;\r
\r
    if (mro_internal(type) < 0) {\r
        goto bail;\r
    }\r
\r
    temp = PyList_New(0);\r
    if (!temp)\r
        goto bail;\r
\r
    r = mro_subclasses(type, temp);\r
\r
    if (r < 0) {\r
        for (i = 0; i < PyList_Size(temp); i++) {\r
            PyTypeObject* cls;\r
            PyObject* mro;\r
            PyArg_UnpackTuple(PyList_GET_ITEM(temp, i),\r
                             "", 2, 2, &cls, &mro);\r
            Py_INCREF(mro);\r
            ob = cls->tp_mro;\r
            cls->tp_mro = mro;\r
            Py_DECREF(ob);\r
        }\r
        Py_DECREF(temp);\r
        goto bail;\r
    }\r
\r
    Py_DECREF(temp);\r
\r
    /* any base that was in __bases__ but now isn't, we\r
       need to remove |type| from its tp_subclasses.\r
       conversely, any class now in __bases__ that wasn't\r
       needs to have |type| added to its subclasses. */\r
\r
    /* for now, sod that: just remove from all old_bases,\r
       add to all new_bases */\r
\r
    for (i = PyTuple_GET_SIZE(old_bases) - 1; i >= 0; i--) {\r
        ob = PyTuple_GET_ITEM(old_bases, i);\r
        if (PyType_Check(ob)) {\r
            remove_subclass(\r
                (PyTypeObject*)ob, type);\r
        }\r
    }\r
\r
    for (i = PyTuple_GET_SIZE(value) - 1; i >= 0; i--) {\r
        ob = PyTuple_GET_ITEM(value, i);\r
        if (PyType_Check(ob)) {\r
            if (add_subclass((PyTypeObject*)ob, type) < 0)\r
                r = -1;\r
        }\r
    }\r
\r
    update_all_slots(type);\r
\r
    Py_DECREF(old_bases);\r
    Py_DECREF(old_base);\r
    Py_DECREF(old_mro);\r
\r
    return r;\r
\r
  bail:\r
    Py_DECREF(type->tp_bases);\r
    Py_DECREF(type->tp_base);\r
    if (type->tp_mro != old_mro) {\r
        Py_DECREF(type->tp_mro);\r
    }\r
\r
    type->tp_bases = old_bases;\r
    type->tp_base = old_base;\r
    type->tp_mro = old_mro;\r
\r
    return -1;\r
}\r
\r
static PyObject *\r
type_dict(PyTypeObject *type, void *context)\r
{\r
    if (type->tp_dict == NULL) {\r
        Py_INCREF(Py_None);\r
        return Py_None;\r
    }\r
    return PyDictProxy_New(type->tp_dict);\r
}\r
\r
static PyObject *\r
type_get_doc(PyTypeObject *type, void *context)\r
{\r
    PyObject *result;\r
    if (!(type->tp_flags & Py_TPFLAGS_HEAPTYPE) && type->tp_doc != NULL)\r
        return PyString_FromString(type->tp_doc);\r
    result = PyDict_GetItemString(type->tp_dict, "__doc__");\r
    if (result == NULL) {\r
        result = Py_None;\r
        Py_INCREF(result);\r
    }\r
    else if (Py_TYPE(result)->tp_descr_get) {\r
        result = Py_TYPE(result)->tp_descr_get(result, NULL,\r
                                               (PyObject *)type);\r
    }\r
    else {\r
        Py_INCREF(result);\r
    }\r
    return result;\r
}\r
\r
static PyObject *\r
type___instancecheck__(PyObject *type, PyObject *inst)\r
{\r
    switch (_PyObject_RealIsInstance(inst, type)) {\r
    case -1:\r
        return NULL;\r
    case 0:\r
        Py_RETURN_FALSE;\r
    default:\r
        Py_RETURN_TRUE;\r
    }\r
}\r
\r
\r
static PyObject *\r
type___subclasscheck__(PyObject *type, PyObject *inst)\r
{\r
    switch (_PyObject_RealIsSubclass(inst, type)) {\r
    case -1:\r
        return NULL;\r
    case 0:\r
        Py_RETURN_FALSE;\r
    default:\r
        Py_RETURN_TRUE;\r
    }\r
}\r
\r
\r
static PyGetSetDef type_getsets[] = {\r
    {"__name__", (getter)type_name, (setter)type_set_name, NULL},\r
    {"__bases__", (getter)type_get_bases, (setter)type_set_bases, NULL},\r
    {"__module__", (getter)type_module, (setter)type_set_module, NULL},\r
    {"__abstractmethods__", (getter)type_abstractmethods,\r
     (setter)type_set_abstractmethods, NULL},\r
    {"__dict__",  (getter)type_dict,  NULL, NULL},\r
    {"__doc__", (getter)type_get_doc, NULL, NULL},\r
    {0}\r
};\r
\r
\r
static PyObject*\r
type_richcompare(PyObject *v, PyObject *w, int op)\r
{\r
    PyObject *result;\r
    Py_uintptr_t vv, ww;\r
    int c;\r
\r
    /* Make sure both arguments are types. */\r
    if (!PyType_Check(v) || !PyType_Check(w) ||\r
        /* If there is a __cmp__ method defined, let it be called instead\r
           of our dumb function designed merely to warn.  See bug\r
           #7491. */\r
        Py_TYPE(v)->tp_compare || Py_TYPE(w)->tp_compare) {\r
        result = Py_NotImplemented;\r
        goto out;\r
    }\r
\r
    /* Py3K warning if comparison isn't == or !=  */\r
    if (Py_Py3kWarningFlag && op != Py_EQ && op != Py_NE &&\r
        PyErr_WarnEx(PyExc_DeprecationWarning,\r
                   "type inequality comparisons not supported "\r
                   "in 3.x", 1) < 0) {\r
        return NULL;\r
    }\r
\r
    /* Compare addresses */\r
    vv = (Py_uintptr_t)v;\r
    ww = (Py_uintptr_t)w;\r
    switch (op) {\r
    case Py_LT: c = vv <  ww; break;\r
    case Py_LE: c = vv <= ww; break;\r
    case Py_EQ: c = vv == ww; break;\r
    case Py_NE: c = vv != ww; break;\r
    case Py_GT: c = vv >  ww; break;\r
    case Py_GE: c = vv >= ww; break;\r
    default:\r
        result = Py_NotImplemented;\r
        goto out;\r
    }\r
    result = c ? Py_True : Py_False;\r
\r
  /* incref and return */\r
  out:\r
    Py_INCREF(result);\r
    return result;\r
}\r
\r
static PyObject *\r
type_repr(PyTypeObject *type)\r
{\r
    PyObject *mod, *name, *rtn;\r
    char *kind;\r
\r
    mod = type_module(type, NULL);\r
    if (mod == NULL)\r
        PyErr_Clear();\r
    else if (!PyString_Check(mod)) {\r
        Py_DECREF(mod);\r
        mod = NULL;\r
    }\r
    name = type_name(type, NULL);\r
    if (name == NULL) {\r
        Py_XDECREF(mod);\r
        return NULL;\r
    }\r
\r
    if (type->tp_flags & Py_TPFLAGS_HEAPTYPE)\r
        kind = "class";\r
    else\r
        kind = "type";\r
\r
    if (mod != NULL && strcmp(PyString_AS_STRING(mod), "__builtin__")) {\r
        rtn = PyString_FromFormat("<%s '%s.%s'>",\r
                                  kind,\r
                                  PyString_AS_STRING(mod),\r
                                  PyString_AS_STRING(name));\r
    }\r
    else\r
        rtn = PyString_FromFormat("<%s '%s'>", kind, type->tp_name);\r
\r
    Py_XDECREF(mod);\r
    Py_DECREF(name);\r
    return rtn;\r
}\r
\r
static PyObject *\r
type_call(PyTypeObject *type, PyObject *args, PyObject *kwds)\r
{\r
    PyObject *obj;\r
\r
    if (type->tp_new == NULL) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "cannot create '%.100s' instances",\r
                     type->tp_name);\r
        return NULL;\r
    }\r
\r
    obj = type->tp_new(type, args, kwds);\r
    if (obj != NULL) {\r
        /* Ugly exception: when the call was type(something),\r
           don't call tp_init on the result. */\r
        if (type == &PyType_Type &&\r
            PyTuple_Check(args) && PyTuple_GET_SIZE(args) == 1 &&\r
            (kwds == NULL ||\r
             (PyDict_Check(kwds) && PyDict_Size(kwds) == 0)))\r
            return obj;\r
        /* If the returned object is not an instance of type,\r
           it won't be initialized. */\r
        if (!PyType_IsSubtype(obj->ob_type, type))\r
            return obj;\r
        type = obj->ob_type;\r
        if (PyType_HasFeature(type, Py_TPFLAGS_HAVE_CLASS) &&\r
            type->tp_init != NULL &&\r
            type->tp_init(obj, args, kwds) < 0) {\r
            Py_DECREF(obj);\r
            obj = NULL;\r
        }\r
    }\r
    return obj;\r
}\r
\r
PyObject *\r
PyType_GenericAlloc(PyTypeObject *type, Py_ssize_t nitems)\r
{\r
    PyObject *obj;\r
    const size_t size = _PyObject_VAR_SIZE(type, nitems+1);\r
    /* note that we need to add one, for the sentinel */\r
\r
    if (PyType_IS_GC(type))\r
        obj = _PyObject_GC_Malloc(size);\r
    else\r
        obj = (PyObject *)PyObject_MALLOC(size);\r
\r
    if (obj == NULL)\r
        return PyErr_NoMemory();\r
\r
    memset(obj, '\0', size);\r
\r
    if (type->tp_flags & Py_TPFLAGS_HEAPTYPE)\r
        Py_INCREF(type);\r
\r
    if (type->tp_itemsize == 0)\r
        PyObject_INIT(obj, type);\r
    else\r
        (void) PyObject_INIT_VAR((PyVarObject *)obj, type, nitems);\r
\r
    if (PyType_IS_GC(type))\r
        _PyObject_GC_TRACK(obj);\r
    return obj;\r
}\r
\r
PyObject *\r
PyType_GenericNew(PyTypeObject *type, PyObject *args, PyObject *kwds)\r
{\r
    return type->tp_alloc(type, 0);\r
}\r
\r
/* Helpers for subtyping */\r
\r
static int\r
traverse_slots(PyTypeObject *type, PyObject *self, visitproc visit, void *arg)\r
{\r
    Py_ssize_t i, n;\r
    PyMemberDef *mp;\r
\r
    n = Py_SIZE(type);\r
    mp = PyHeapType_GET_MEMBERS((PyHeapTypeObject *)type);\r
    for (i = 0; i < n; i++, mp++) {\r
        if (mp->type == T_OBJECT_EX) {\r
            char *addr = (char *)self + mp->offset;\r
            PyObject *obj = *(PyObject **)addr;\r
            if (obj != NULL) {\r
                int err = visit(obj, arg);\r
                if (err)\r
                    return err;\r
            }\r
        }\r
    }\r
    return 0;\r
}\r
\r
static int\r
subtype_traverse(PyObject *self, visitproc visit, void *arg)\r
{\r
    PyTypeObject *type, *base;\r
    traverseproc basetraverse;\r
\r
    /* Find the nearest base with a different tp_traverse,\r
       and traverse slots while we're at it */\r
    type = Py_TYPE(self);\r
    base = type;\r
    while ((basetraverse = base->tp_traverse) == subtype_traverse) {\r
        if (Py_SIZE(base)) {\r
            int err = traverse_slots(base, self, visit, arg);\r
            if (err)\r
                return err;\r
        }\r
        base = base->tp_base;\r
        assert(base);\r
    }\r
\r
    if (type->tp_dictoffset != base->tp_dictoffset) {\r
        PyObject **dictptr = _PyObject_GetDictPtr(self);\r
        if (dictptr && *dictptr)\r
            Py_VISIT(*dictptr);\r
    }\r
\r
    if (type->tp_flags & Py_TPFLAGS_HEAPTYPE)\r
        /* For a heaptype, the instances count as references\r
           to the type.          Traverse the type so the collector\r
           can find cycles involving this link. */\r
        Py_VISIT(type);\r
\r
    if (basetraverse)\r
        return basetraverse(self, visit, arg);\r
    return 0;\r
}\r
\r
static void\r
clear_slots(PyTypeObject *type, PyObject *self)\r
{\r
    Py_ssize_t i, n;\r
    PyMemberDef *mp;\r
\r
    n = Py_SIZE(type);\r
    mp = PyHeapType_GET_MEMBERS((PyHeapTypeObject *)type);\r
    for (i = 0; i < n; i++, mp++) {\r
        if (mp->type == T_OBJECT_EX && !(mp->flags & READONLY)) {\r
            char *addr = (char *)self + mp->offset;\r
            PyObject *obj = *(PyObject **)addr;\r
            if (obj != NULL) {\r
                *(PyObject **)addr = NULL;\r
                Py_DECREF(obj);\r
            }\r
        }\r
    }\r
}\r
\r
static int\r
subtype_clear(PyObject *self)\r
{\r
    PyTypeObject *type, *base;\r
    inquiry baseclear;\r
\r
    /* Find the nearest base with a different tp_clear\r
       and clear slots while we're at it */\r
    type = Py_TYPE(self);\r
    base = type;\r
    while ((baseclear = base->tp_clear) == subtype_clear) {\r
        if (Py_SIZE(base))\r
            clear_slots(base, self);\r
        base = base->tp_base;\r
        assert(base);\r
    }\r
\r
    /* Clear the instance dict (if any), to break cycles involving only\r
       __dict__ slots (as in the case 'self.__dict__ is self'). */\r
    if (type->tp_dictoffset != base->tp_dictoffset) {\r
        PyObject **dictptr = _PyObject_GetDictPtr(self);\r
        if (dictptr && *dictptr)\r
            Py_CLEAR(*dictptr);\r
    }\r
\r
    if (baseclear)\r
        return baseclear(self);\r
    return 0;\r
}\r
\r
static void\r
subtype_dealloc(PyObject *self)\r
{\r
    PyTypeObject *type, *base;\r
    destructor basedealloc;\r
    PyThreadState *tstate = PyThreadState_GET();\r
\r
    /* Extract the type; we expect it to be a heap type */\r
    type = Py_TYPE(self);\r
    assert(type->tp_flags & Py_TPFLAGS_HEAPTYPE);\r
\r
    /* Test whether the type has GC exactly once */\r
\r
    if (!PyType_IS_GC(type)) {\r
        /* It's really rare to find a dynamic type that doesn't have\r
           GC; it can only happen when deriving from 'object' and not\r
           adding any slots or instance variables.  This allows\r
           certain simplifications: there's no need to call\r
           clear_slots(), or DECREF the dict, or clear weakrefs. */\r
\r
        /* Maybe call finalizer; exit early if resurrected */\r
        if (type->tp_del) {\r
            type->tp_del(self);\r
            if (self->ob_refcnt > 0)\r
                return;\r
        }\r
\r
        /* Find the nearest base with a different tp_dealloc */\r
        base = type;\r
        while ((basedealloc = base->tp_dealloc) == subtype_dealloc) {\r
            assert(Py_SIZE(base) == 0);\r
            base = base->tp_base;\r
            assert(base);\r
        }\r
\r
        /* Extract the type again; tp_del may have changed it */\r
        type = Py_TYPE(self);\r
\r
        /* Call the base tp_dealloc() */\r
        assert(basedealloc);\r
        basedealloc(self);\r
\r
        /* Can't reference self beyond this point */\r
        Py_DECREF(type);\r
\r
        /* Done */\r
        return;\r
    }\r
\r
    /* We get here only if the type has GC */\r
\r
    /* UnTrack and re-Track around the trashcan macro, alas */\r
    /* See explanation at end of function for full disclosure */\r
    PyObject_GC_UnTrack(self);\r
    ++_PyTrash_delete_nesting;\r
    ++ tstate->trash_delete_nesting;\r
    Py_TRASHCAN_SAFE_BEGIN(self);\r
    --_PyTrash_delete_nesting;\r
    -- tstate->trash_delete_nesting;\r
    /* DO NOT restore GC tracking at this point.  weakref callbacks\r
     * (if any, and whether directly here or indirectly in something we\r
     * call) may trigger GC, and if self is tracked at that point, it\r
     * will look like trash to GC and GC will try to delete self again.\r
     */\r
\r
    /* Find the nearest base with a different tp_dealloc */\r
    base = type;\r
    while ((basedealloc = base->tp_dealloc) == subtype_dealloc) {\r
        base = base->tp_base;\r
        assert(base);\r
    }\r
\r
    /* If we added a weaklist, we clear it.      Do this *before* calling\r
       the finalizer (__del__), clearing slots, or clearing the instance\r
       dict. */\r
\r
    if (type->tp_weaklistoffset && !base->tp_weaklistoffset)\r
        PyObject_ClearWeakRefs(self);\r
\r
    /* Maybe call finalizer; exit early if resurrected */\r
    if (type->tp_del) {\r
        _PyObject_GC_TRACK(self);\r
        type->tp_del(self);\r
        if (self->ob_refcnt > 0)\r
            goto endlabel;              /* resurrected */\r
        else\r
            _PyObject_GC_UNTRACK(self);\r
        /* New weakrefs could be created during the finalizer call.\r
            If this occurs, clear them out without calling their\r
            finalizers since they might rely on part of the object\r
            being finalized that has already been destroyed. */\r
        if (type->tp_weaklistoffset && !base->tp_weaklistoffset) {\r
            /* Modeled after GET_WEAKREFS_LISTPTR() */\r
            PyWeakReference **list = (PyWeakReference **) \\r
                PyObject_GET_WEAKREFS_LISTPTR(self);\r
            while (*list)\r
                _PyWeakref_ClearRef(*list);\r
        }\r
    }\r
\r
    /*  Clear slots up to the nearest base with a different tp_dealloc */\r
    base = type;\r
    while (base->tp_dealloc == subtype_dealloc) {\r
        if (Py_SIZE(base))\r
            clear_slots(base, self);\r
        base = base->tp_base;\r
        assert(base);\r
    }\r
\r
    /* If we added a dict, DECREF it */\r
    if (type->tp_dictoffset && !base->tp_dictoffset) {\r
        PyObject **dictptr = _PyObject_GetDictPtr(self);\r
        if (dictptr != NULL) {\r
            PyObject *dict = *dictptr;\r
            if (dict != NULL) {\r
                Py_DECREF(dict);\r
                *dictptr = NULL;\r
            }\r
        }\r
    }\r
\r
    /* Extract the type again; tp_del may have changed it */\r
    type = Py_TYPE(self);\r
\r
    /* Call the base tp_dealloc(); first retrack self if\r
     * basedealloc knows about gc.\r
     */\r
    if (PyType_IS_GC(base))\r
        _PyObject_GC_TRACK(self);\r
    assert(basedealloc);\r
    basedealloc(self);\r
\r
    /* Can't reference self beyond this point */\r
    Py_DECREF(type);\r
\r
  endlabel:\r
    ++_PyTrash_delete_nesting;\r
    ++ tstate->trash_delete_nesting;\r
    Py_TRASHCAN_SAFE_END(self);\r
    --_PyTrash_delete_nesting;\r
    -- tstate->trash_delete_nesting;\r
\r
    /* Explanation of the weirdness around the trashcan macros:\r
\r
       Q. What do the trashcan macros do?\r
\r
       A. Read the comment titled "Trashcan mechanism" in object.h.\r
          For one, this explains why there must be a call to GC-untrack\r
          before the trashcan begin macro.      Without understanding the\r
          trashcan code, the answers to the following questions don't make\r
          sense.\r
\r
       Q. Why do we GC-untrack before the trashcan and then immediately\r
          GC-track again afterward?\r
\r
       A. In the case that the base class is GC-aware, the base class\r
          probably GC-untracks the object.      If it does that using the\r
          UNTRACK macro, this will crash when the object is already\r
          untracked.  Because we don't know what the base class does, the\r
          only safe thing is to make sure the object is tracked when we\r
          call the base class dealloc.  But...  The trashcan begin macro\r
          requires that the object is *untracked* before it is called.  So\r
          the dance becomes:\r
\r
         GC untrack\r
         trashcan begin\r
         GC track\r
\r
       Q. Why did the last question say "immediately GC-track again"?\r
          It's nowhere near immediately.\r
\r
       A. Because the code *used* to re-track immediately.      Bad Idea.\r
          self has a refcount of 0, and if gc ever gets its hands on it\r
          (which can happen if any weakref callback gets invoked), it\r
          looks like trash to gc too, and gc also tries to delete self\r
          then.  But we're already deleting self.  Double deallocation is\r
          a subtle disaster.\r
\r
       Q. Why the bizarre (net-zero) manipulation of\r
          _PyTrash_delete_nesting around the trashcan macros?\r
\r
       A. Some base classes (e.g. list) also use the trashcan mechanism.\r
          The following scenario used to be possible:\r
\r
          - suppose the trashcan level is one below the trashcan limit\r
\r
          - subtype_dealloc() is called\r
\r
          - the trashcan limit is not yet reached, so the trashcan level\r
        is incremented and the code between trashcan begin and end is\r
        executed\r
\r
          - this destroys much of the object's contents, including its\r
        slots and __dict__\r
\r
          - basedealloc() is called; this is really list_dealloc(), or\r
        some other type which also uses the trashcan macros\r
\r
          - the trashcan limit is now reached, so the object is put on the\r
        trashcan's to-be-deleted-later list\r
\r
          - basedealloc() returns\r
\r
          - subtype_dealloc() decrefs the object's type\r
\r
          - subtype_dealloc() returns\r
\r
          - later, the trashcan code starts deleting the objects from its\r
        to-be-deleted-later list\r
\r
          - subtype_dealloc() is called *AGAIN* for the same object\r
\r
          - at the very least (if the destroyed slots and __dict__ don't\r
        cause problems) the object's type gets decref'ed a second\r
        time, which is *BAD*!!!\r
\r
          The remedy is to make sure that if the code between trashcan\r
          begin and end in subtype_dealloc() is called, the code between\r
          trashcan begin and end in basedealloc() will also be called.\r
          This is done by decrementing the level after passing into the\r
          trashcan block, and incrementing it just before leaving the\r
          block.\r
\r
          But now it's possible that a chain of objects consisting solely\r
          of objects whose deallocator is subtype_dealloc() will defeat\r
          the trashcan mechanism completely: the decremented level means\r
          that the effective level never reaches the limit.      Therefore, we\r
          *increment* the level *before* entering the trashcan block, and\r
          matchingly decrement it after leaving.  This means the trashcan\r
          code will trigger a little early, but that's no big deal.\r
\r
       Q. Are there any live examples of code in need of all this\r
          complexity?\r
\r
       A. Yes.  See SF bug 668433 for code that crashed (when Python was\r
          compiled in debug mode) before the trashcan level manipulations\r
          were added.  For more discussion, see SF patches 581742, 575073\r
          and bug 574207.\r
    */\r
}\r
\r
static PyTypeObject *solid_base(PyTypeObject *type);\r
\r
/* type test with subclassing support */\r
\r
int\r
PyType_IsSubtype(PyTypeObject *a, PyTypeObject *b)\r
{\r
    PyObject *mro;\r
\r
    if (!(a->tp_flags & Py_TPFLAGS_HAVE_CLASS))\r
        return b == a || b == &PyBaseObject_Type;\r
\r
    mro = a->tp_mro;\r
    if (mro != NULL) {\r
        /* Deal with multiple inheritance without recursion\r
           by walking the MRO tuple */\r
        Py_ssize_t i, n;\r
        assert(PyTuple_Check(mro));\r
        n = PyTuple_GET_SIZE(mro);\r
        for (i = 0; i < n; i++) {\r
            if (PyTuple_GET_ITEM(mro, i) == (PyObject *)b)\r
                return 1;\r
        }\r
        return 0;\r
    }\r
    else {\r
        /* a is not completely initilized yet; follow tp_base */\r
        do {\r
            if (a == b)\r
                return 1;\r
            a = a->tp_base;\r
        } while (a != NULL);\r
        return b == &PyBaseObject_Type;\r
    }\r
}\r
\r
/* Internal routines to do a method lookup in the type\r
   without looking in the instance dictionary\r
   (so we can't use PyObject_GetAttr) but still binding\r
   it to the instance.  The arguments are the object,\r
   the method name as a C string, and the address of a\r
   static variable used to cache the interned Python string.\r
\r
   Two variants:\r
\r
   - lookup_maybe() returns NULL without raising an exception\r
     when the _PyType_Lookup() call fails;\r
\r
   - lookup_method() always raises an exception upon errors.\r
\r
   - _PyObject_LookupSpecial() exported for the benefit of other places.\r
*/\r
\r
static PyObject *\r
lookup_maybe(PyObject *self, char *attrstr, PyObject **attrobj)\r
{\r
    PyObject *res;\r
\r
    if (*attrobj == NULL) {\r
        *attrobj = PyString_InternFromString(attrstr);\r
        if (*attrobj == NULL)\r
            return NULL;\r
    }\r
    res = _PyType_Lookup(Py_TYPE(self), *attrobj);\r
    if (res != NULL) {\r
        descrgetfunc f;\r
        if ((f = Py_TYPE(res)->tp_descr_get) == NULL)\r
            Py_INCREF(res);\r
        else\r
            res = f(res, self, (PyObject *)(Py_TYPE(self)));\r
    }\r
    return res;\r
}\r
\r
static PyObject *\r
lookup_method(PyObject *self, char *attrstr, PyObject **attrobj)\r
{\r
    PyObject *res = lookup_maybe(self, attrstr, attrobj);\r
    if (res == NULL && !PyErr_Occurred())\r
        PyErr_SetObject(PyExc_AttributeError, *attrobj);\r
    return res;\r
}\r
\r
PyObject *\r
_PyObject_LookupSpecial(PyObject *self, char *attrstr, PyObject **attrobj)\r
{\r
    assert(!PyInstance_Check(self));\r
    return lookup_maybe(self, attrstr, attrobj);\r
}\r
\r
/* A variation of PyObject_CallMethod that uses lookup_method()\r
   instead of PyObject_GetAttrString().  This uses the same convention\r
   as lookup_method to cache the interned name string object. */\r
\r
static PyObject *\r
call_method(PyObject *o, char *name, PyObject **nameobj, char *format, ...)\r
{\r
    va_list va;\r
    PyObject *args, *func = 0, *retval;\r
    va_start(va, format);\r
\r
    func = lookup_maybe(o, name, nameobj);\r
    if (func == NULL) {\r
        va_end(va);\r
        if (!PyErr_Occurred())\r
            PyErr_SetObject(PyExc_AttributeError, *nameobj);\r
        return NULL;\r
    }\r
\r
    if (format && *format)\r
        args = Py_VaBuildValue(format, va);\r
    else\r
        args = PyTuple_New(0);\r
\r
    va_end(va);\r
\r
    if (args == NULL)\r
        return NULL;\r
\r
    assert(PyTuple_Check(args));\r
    retval = PyObject_Call(func, args, NULL);\r
\r
    Py_DECREF(args);\r
    Py_DECREF(func);\r
\r
    return retval;\r
}\r
\r
/* Clone of call_method() that returns NotImplemented when the lookup fails. */\r
\r
static PyObject *\r
call_maybe(PyObject *o, char *name, PyObject **nameobj, char *format, ...)\r
{\r
    va_list va;\r
    PyObject *args, *func = 0, *retval;\r
    va_start(va, format);\r
\r
    func = lookup_maybe(o, name, nameobj);\r
    if (func == NULL) {\r
        va_end(va);\r
        if (!PyErr_Occurred()) {\r
            Py_INCREF(Py_NotImplemented);\r
            return Py_NotImplemented;\r
        }\r
        return NULL;\r
    }\r
\r
    if (format && *format)\r
        args = Py_VaBuildValue(format, va);\r
    else\r
        args = PyTuple_New(0);\r
\r
    va_end(va);\r
\r
    if (args == NULL)\r
        return NULL;\r
\r
    assert(PyTuple_Check(args));\r
    retval = PyObject_Call(func, args, NULL);\r
\r
    Py_DECREF(args);\r
    Py_DECREF(func);\r
\r
    return retval;\r
}\r
\r
static int\r
fill_classic_mro(PyObject *mro, PyObject *cls)\r
{\r
    PyObject *bases, *base;\r
    Py_ssize_t i, n;\r
\r
    assert(PyList_Check(mro));\r
    assert(PyClass_Check(cls));\r
    i = PySequence_Contains(mro, cls);\r
    if (i < 0)\r
        return -1;\r
    if (!i) {\r
        if (PyList_Append(mro, cls) < 0)\r
            return -1;\r
    }\r
    bases = ((PyClassObject *)cls)->cl_bases;\r
    assert(bases && PyTuple_Check(bases));\r
    n = PyTuple_GET_SIZE(bases);\r
    for (i = 0; i < n; i++) {\r
        base = PyTuple_GET_ITEM(bases, i);\r
        if (fill_classic_mro(mro, base) < 0)\r
            return -1;\r
    }\r
    return 0;\r
}\r
\r
static PyObject *\r
classic_mro(PyObject *cls)\r
{\r
    PyObject *mro;\r
\r
    assert(PyClass_Check(cls));\r
    mro = PyList_New(0);\r
    if (mro != NULL) {\r
        if (fill_classic_mro(mro, cls) == 0)\r
            return mro;\r
        Py_DECREF(mro);\r
    }\r
    return NULL;\r
}\r
\r
/*\r
    Method resolution order algorithm C3 described in\r
    "A Monotonic Superclass Linearization for Dylan",\r
    by Kim Barrett, Bob Cassel, Paul Haahr,\r
    David A. Moon, Keith Playford, and P. Tucker Withington.\r
    (OOPSLA 1996)\r
\r
    Some notes about the rules implied by C3:\r
\r
    No duplicate bases.\r
    It isn't legal to repeat a class in a list of base classes.\r
\r
    The next three properties are the 3 constraints in "C3".\r
\r
    Local precendece order.\r
    If A precedes B in C's MRO, then A will precede B in the MRO of all\r
    subclasses of C.\r
\r
    Monotonicity.\r
    The MRO of a class must be an extension without reordering of the\r
    MRO of each of its superclasses.\r
\r
    Extended Precedence Graph (EPG).\r
    Linearization is consistent if there is a path in the EPG from\r
    each class to all its successors in the linearization.  See\r
    the paper for definition of EPG.\r
 */\r
\r
static int\r
tail_contains(PyObject *list, int whence, PyObject *o) {\r
    Py_ssize_t j, size;\r
    size = PyList_GET_SIZE(list);\r
\r
    for (j = whence+1; j < size; j++) {\r
        if (PyList_GET_ITEM(list, j) == o)\r
            return 1;\r
    }\r
    return 0;\r
}\r
\r
static PyObject *\r
class_name(PyObject *cls)\r
{\r
    PyObject *name = PyObject_GetAttrString(cls, "__name__");\r
    if (name == NULL) {\r
        PyErr_Clear();\r
        Py_XDECREF(name);\r
        name = PyObject_Repr(cls);\r
    }\r
    if (name == NULL)\r
        return NULL;\r
    if (!PyString_Check(name)) {\r
        Py_DECREF(name);\r
        return NULL;\r
    }\r
    return name;\r
}\r
\r
static int\r
check_duplicates(PyObject *list)\r
{\r
    Py_ssize_t i, j, n;\r
    /* Let's use a quadratic time algorithm,\r
       assuming that the bases lists is short.\r
    */\r
    n = PyList_GET_SIZE(list);\r
    for (i = 0; i < n; i++) {\r
        PyObject *o = PyList_GET_ITEM(list, i);\r
        for (j = i + 1; j < n; j++) {\r
            if (PyList_GET_ITEM(list, j) == o) {\r
                o = class_name(o);\r
                PyErr_Format(PyExc_TypeError,\r
                             "duplicate base class %s",\r
                             o ? PyString_AS_STRING(o) : "?");\r
                Py_XDECREF(o);\r
                return -1;\r
            }\r
        }\r
    }\r
    return 0;\r
}\r
\r
/* Raise a TypeError for an MRO order disagreement.\r
\r
   It's hard to produce a good error message.  In the absence of better\r
   insight into error reporting, report the classes that were candidates\r
   to be put next into the MRO.  There is some conflict between the\r
   order in which they should be put in the MRO, but it's hard to\r
   diagnose what constraint can't be satisfied.\r
*/\r
\r
static void\r
set_mro_error(PyObject *to_merge, int *remain)\r
{\r
    Py_ssize_t i, n, off, to_merge_size;\r
    char buf[1000];\r
    PyObject *k, *v;\r
    PyObject *set = PyDict_New();\r
    if (!set) return;\r
\r
    to_merge_size = PyList_GET_SIZE(to_merge);\r
    for (i = 0; i < to_merge_size; i++) {\r
        PyObject *L = PyList_GET_ITEM(to_merge, i);\r
        if (remain[i] < PyList_GET_SIZE(L)) {\r
            PyObject *c = PyList_GET_ITEM(L, remain[i]);\r
            if (PyDict_SetItem(set, c, Py_None) < 0) {\r
                Py_DECREF(set);\r
                return;\r
            }\r
        }\r
    }\r
    n = PyDict_Size(set);\r
\r
    off = PyOS_snprintf(buf, sizeof(buf), "Cannot create a \\r
consistent method resolution\norder (MRO) for bases");\r
    i = 0;\r
    while (PyDict_Next(set, &i, &k, &v) && (size_t)off < sizeof(buf)) {\r
        PyObject *name = class_name(k);\r
        off += PyOS_snprintf(buf + off, sizeof(buf) - off, " %s",\r
                             name ? PyString_AS_STRING(name) : "?");\r
        Py_XDECREF(name);\r
        if (--n && (size_t)(off+1) < sizeof(buf)) {\r
            buf[off++] = ',';\r
            buf[off] = '\0';\r
        }\r
    }\r
    PyErr_SetString(PyExc_TypeError, buf);\r
    Py_DECREF(set);\r
}\r
\r
static int\r
pmerge(PyObject *acc, PyObject* to_merge) {\r
    Py_ssize_t i, j, to_merge_size, empty_cnt;\r
    int *remain;\r
    int ok;\r
\r
    to_merge_size = PyList_GET_SIZE(to_merge);\r
\r
    /* remain stores an index into each sublist of to_merge.\r
       remain[i] is the index of the next base in to_merge[i]\r
       that is not included in acc.\r
    */\r
    remain = (int *)PyMem_MALLOC(SIZEOF_INT*to_merge_size);\r
    if (remain == NULL)\r
        return -1;\r
    for (i = 0; i < to_merge_size; i++)\r
        remain[i] = 0;\r
\r
  again:\r
    empty_cnt = 0;\r
    for (i = 0; i < to_merge_size; i++) {\r
        PyObject *candidate;\r
\r
        PyObject *cur_list = PyList_GET_ITEM(to_merge, i);\r
\r
        if (remain[i] >= PyList_GET_SIZE(cur_list)) {\r
            empty_cnt++;\r
            continue;\r
        }\r
\r
        /* Choose next candidate for MRO.\r
\r
           The input sequences alone can determine the choice.\r
           If not, choose the class which appears in the MRO\r
           of the earliest direct superclass of the new class.\r
        */\r
\r
        candidate = PyList_GET_ITEM(cur_list, remain[i]);\r
        for (j = 0; j < to_merge_size; j++) {\r
            PyObject *j_lst = PyList_GET_ITEM(to_merge, j);\r
            if (tail_contains(j_lst, remain[j], candidate)) {\r
                goto skip; /* continue outer loop */\r
            }\r
        }\r
        ok = PyList_Append(acc, candidate);\r
        if (ok < 0) {\r
            PyMem_Free(remain);\r
            return -1;\r
        }\r
        for (j = 0; j < to_merge_size; j++) {\r
            PyObject *j_lst = PyList_GET_ITEM(to_merge, j);\r
            if (remain[j] < PyList_GET_SIZE(j_lst) &&\r
                PyList_GET_ITEM(j_lst, remain[j]) == candidate) {\r
                remain[j]++;\r
            }\r
        }\r
        goto again;\r
      skip: ;\r
    }\r
\r
    if (empty_cnt == to_merge_size) {\r
        PyMem_FREE(remain);\r
        return 0;\r
    }\r
    set_mro_error(to_merge, remain);\r
    PyMem_FREE(remain);\r
    return -1;\r
}\r
\r
static PyObject *\r
mro_implementation(PyTypeObject *type)\r
{\r
    Py_ssize_t i, n;\r
    int ok;\r
    PyObject *bases, *result;\r
    PyObject *to_merge, *bases_aslist;\r
\r
    if (type->tp_dict == NULL) {\r
        if (PyType_Ready(type) < 0)\r
            return NULL;\r
    }\r
\r
    /* Find a superclass linearization that honors the constraints\r
       of the explicit lists of bases and the constraints implied by\r
       each base class.\r
\r
       to_merge is a list of lists, where each list is a superclass\r
       linearization implied by a base class.  The last element of\r
       to_merge is the declared list of bases.\r
    */\r
\r
    bases = type->tp_bases;\r
    n = PyTuple_GET_SIZE(bases);\r
\r
    to_merge = PyList_New(n+1);\r
    if (to_merge == NULL)\r
        return NULL;\r
\r
    for (i = 0; i < n; i++) {\r
        PyObject *base = PyTuple_GET_ITEM(bases, i);\r
        PyObject *parentMRO;\r
        if (PyType_Check(base))\r
            parentMRO = PySequence_List(\r
                ((PyTypeObject*)base)->tp_mro);\r
        else\r
            parentMRO = classic_mro(base);\r
        if (parentMRO == NULL) {\r
            Py_DECREF(to_merge);\r
            return NULL;\r
        }\r
\r
        PyList_SET_ITEM(to_merge, i, parentMRO);\r
    }\r
\r
    bases_aslist = PySequence_List(bases);\r
    if (bases_aslist == NULL) {\r
        Py_DECREF(to_merge);\r
        return NULL;\r
    }\r
    /* This is just a basic sanity check. */\r
    if (check_duplicates(bases_aslist) < 0) {\r
        Py_DECREF(to_merge);\r
        Py_DECREF(bases_aslist);\r
        return NULL;\r
    }\r
    PyList_SET_ITEM(to_merge, n, bases_aslist);\r
\r
    result = Py_BuildValue("[O]", (PyObject *)type);\r
    if (result == NULL) {\r
        Py_DECREF(to_merge);\r
        return NULL;\r
    }\r
\r
    ok = pmerge(result, to_merge);\r
    Py_DECREF(to_merge);\r
    if (ok < 0) {\r
        Py_DECREF(result);\r
        return NULL;\r
    }\r
\r
    return result;\r
}\r
\r
static PyObject *\r
mro_external(PyObject *self)\r
{\r
    PyTypeObject *type = (PyTypeObject *)self;\r
\r
    return mro_implementation(type);\r
}\r
\r
static int\r
mro_internal(PyTypeObject *type)\r
{\r
    PyObject *mro, *result, *tuple;\r
    int checkit = 0;\r
\r
    if (Py_TYPE(type) == &PyType_Type) {\r
        result = mro_implementation(type);\r
    }\r
    else {\r
        static PyObject *mro_str;\r
        checkit = 1;\r
        mro = lookup_method((PyObject *)type, "mro", &mro_str);\r
        if (mro == NULL)\r
            return -1;\r
        result = PyObject_CallObject(mro, NULL);\r
        Py_DECREF(mro);\r
    }\r
    if (result == NULL)\r
        return -1;\r
    tuple = PySequence_Tuple(result);\r
    Py_DECREF(result);\r
    if (tuple == NULL)\r
        return -1;\r
    if (checkit) {\r
        Py_ssize_t i, len;\r
        PyObject *cls;\r
        PyTypeObject *solid;\r
\r
        solid = solid_base(type);\r
\r
        len = PyTuple_GET_SIZE(tuple);\r
\r
        for (i = 0; i < len; i++) {\r
            PyTypeObject *t;\r
            cls = PyTuple_GET_ITEM(tuple, i);\r
            if (PyClass_Check(cls))\r
                continue;\r
            else if (!PyType_Check(cls)) {\r
                PyErr_Format(PyExc_TypeError,\r
                 "mro() returned a non-class ('%.500s')",\r
                                 Py_TYPE(cls)->tp_name);\r
                Py_DECREF(tuple);\r
                return -1;\r
            }\r
            t = (PyTypeObject*)cls;\r
            if (!PyType_IsSubtype(solid, solid_base(t))) {\r
                PyErr_Format(PyExc_TypeError,\r
             "mro() returned base with unsuitable layout ('%.500s')",\r
                                     t->tp_name);\r
                        Py_DECREF(tuple);\r
                        return -1;\r
            }\r
        }\r
    }\r
    type->tp_mro = tuple;\r
\r
    type_mro_modified(type, type->tp_mro);\r
    /* corner case: the old-style super class might have been hidden\r
       from the custom MRO */\r
    type_mro_modified(type, type->tp_bases);\r
\r
    PyType_Modified(type);\r
\r
    return 0;\r
}\r
\r
\r
/* Calculate the best base amongst multiple base classes.\r
   This is the first one that's on the path to the "solid base". */\r
\r
static PyTypeObject *\r
best_base(PyObject *bases)\r
{\r
    Py_ssize_t i, n;\r
    PyTypeObject *base, *winner, *candidate, *base_i;\r
    PyObject *base_proto;\r
\r
    assert(PyTuple_Check(bases));\r
    n = PyTuple_GET_SIZE(bases);\r
    assert(n > 0);\r
    base = NULL;\r
    winner = NULL;\r
    for (i = 0; i < n; i++) {\r
        base_proto = PyTuple_GET_ITEM(bases, i);\r
        if (PyClass_Check(base_proto))\r
            continue;\r
        if (!PyType_Check(base_proto)) {\r
            PyErr_SetString(\r
                PyExc_TypeError,\r
                "bases must be types");\r
            return NULL;\r
        }\r
        base_i = (PyTypeObject *)base_proto;\r
        if (base_i->tp_dict == NULL) {\r
            if (PyType_Ready(base_i) < 0)\r
                return NULL;\r
        }\r
        candidate = solid_base(base_i);\r
        if (winner == NULL) {\r
            winner = candidate;\r
            base = base_i;\r
        }\r
        else if (PyType_IsSubtype(winner, candidate))\r
            ;\r
        else if (PyType_IsSubtype(candidate, winner)) {\r
            winner = candidate;\r
            base = base_i;\r
        }\r
        else {\r
            PyErr_SetString(\r
                PyExc_TypeError,\r
                "multiple bases have "\r
                "instance lay-out conflict");\r
            return NULL;\r
        }\r
    }\r
    if (base == NULL)\r
        PyErr_SetString(PyExc_TypeError,\r
            "a new-style class can't have only classic bases");\r
    return base;\r
}\r
\r
static int\r
extra_ivars(PyTypeObject *type, PyTypeObject *base)\r
{\r
    size_t t_size = type->tp_basicsize;\r
    size_t b_size = base->tp_basicsize;\r
\r
    assert(t_size >= b_size); /* Else type smaller than base! */\r
    if (type->tp_itemsize || base->tp_itemsize) {\r
        /* If itemsize is involved, stricter rules */\r
        return t_size != b_size ||\r
            type->tp_itemsize != base->tp_itemsize;\r
    }\r
    if (type->tp_weaklistoffset && base->tp_weaklistoffset == 0 &&\r
        type->tp_weaklistoffset + sizeof(PyObject *) == t_size &&\r
        type->tp_flags & Py_TPFLAGS_HEAPTYPE)\r
        t_size -= sizeof(PyObject *);\r
    if (type->tp_dictoffset && base->tp_dictoffset == 0 &&\r
        type->tp_dictoffset + sizeof(PyObject *) == t_size &&\r
        type->tp_flags & Py_TPFLAGS_HEAPTYPE)\r
        t_size -= sizeof(PyObject *);\r
\r
    return t_size != b_size;\r
}\r
\r
static PyTypeObject *\r
solid_base(PyTypeObject *type)\r
{\r
    PyTypeObject *base;\r
\r
    if (type->tp_base)\r
        base = solid_base(type->tp_base);\r
    else\r
        base = &PyBaseObject_Type;\r
    if (extra_ivars(type, base))\r
        return type;\r
    else\r
        return base;\r
}\r
\r
static void object_dealloc(PyObject *);\r
static int object_init(PyObject *, PyObject *, PyObject *);\r
static int update_slot(PyTypeObject *, PyObject *);\r
static void fixup_slot_dispatchers(PyTypeObject *);\r
\r
/*\r
 * Helpers for  __dict__ descriptor.  We don't want to expose the dicts\r
 * inherited from various builtin types.  The builtin base usually provides\r
 * its own __dict__ descriptor, so we use that when we can.\r
 */\r
static PyTypeObject *\r
get_builtin_base_with_dict(PyTypeObject *type)\r
{\r
    while (type->tp_base != NULL) {\r
        if (type->tp_dictoffset != 0 &&\r
            !(type->tp_flags & Py_TPFLAGS_HEAPTYPE))\r
            return type;\r
        type = type->tp_base;\r
    }\r
    return NULL;\r
}\r
\r
static PyObject *\r
get_dict_descriptor(PyTypeObject *type)\r
{\r
    static PyObject *dict_str;\r
    PyObject *descr;\r
\r
    if (dict_str == NULL) {\r
        dict_str = PyString_InternFromString("__dict__");\r
        if (dict_str == NULL)\r
            return NULL;\r
    }\r
    descr = _PyType_Lookup(type, dict_str);\r
    if (descr == NULL || !PyDescr_IsData(descr))\r
        return NULL;\r
\r
    return descr;\r
}\r
\r
static void\r
raise_dict_descr_error(PyObject *obj)\r
{\r
    PyErr_Format(PyExc_TypeError,\r
                 "this __dict__ descriptor does not support "\r
                 "'%.200s' objects", obj->ob_type->tp_name);\r
}\r
\r
static PyObject *\r
subtype_dict(PyObject *obj, void *context)\r
{\r
    PyObject **dictptr;\r
    PyObject *dict;\r
    PyTypeObject *base;\r
\r
    base = get_builtin_base_with_dict(obj->ob_type);\r
    if (base != NULL) {\r
        descrgetfunc func;\r
        PyObject *descr = get_dict_descriptor(base);\r
        if (descr == NULL) {\r
            raise_dict_descr_error(obj);\r
            return NULL;\r
        }\r
        func = descr->ob_type->tp_descr_get;\r
        if (func == NULL) {\r
            raise_dict_descr_error(obj);\r
            return NULL;\r
        }\r
        return func(descr, obj, (PyObject *)(obj->ob_type));\r
    }\r
\r
    dictptr = _PyObject_GetDictPtr(obj);\r
    if (dictptr == NULL) {\r
        PyErr_SetString(PyExc_AttributeError,\r
                        "This object has no __dict__");\r
        return NULL;\r
    }\r
    dict = *dictptr;\r
    if (dict == NULL)\r
        *dictptr = dict = PyDict_New();\r
    Py_XINCREF(dict);\r
    return dict;\r
}\r
\r
static int\r
subtype_setdict(PyObject *obj, PyObject *value, void *context)\r
{\r
    PyObject **dictptr;\r
    PyObject *dict;\r
    PyTypeObject *base;\r
\r
    base = get_builtin_base_with_dict(obj->ob_type);\r
    if (base != NULL) {\r
        descrsetfunc func;\r
        PyObject *descr = get_dict_descriptor(base);\r
        if (descr == NULL) {\r
            raise_dict_descr_error(obj);\r
            return -1;\r
        }\r
        func = descr->ob_type->tp_descr_set;\r
        if (func == NULL) {\r
            raise_dict_descr_error(obj);\r
            return -1;\r
        }\r
        return func(descr, obj, value);\r
    }\r
\r
    dictptr = _PyObject_GetDictPtr(obj);\r
    if (dictptr == NULL) {\r
        PyErr_SetString(PyExc_AttributeError,\r
                        "This object has no __dict__");\r
        return -1;\r
    }\r
    if (value != NULL && !PyDict_Check(value)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "__dict__ must be set to a dictionary, "\r
                     "not a '%.200s'", Py_TYPE(value)->tp_name);\r
        return -1;\r
    }\r
    dict = *dictptr;\r
    Py_XINCREF(value);\r
    *dictptr = value;\r
    Py_XDECREF(dict);\r
    return 0;\r
}\r
\r
static PyObject *\r
subtype_getweakref(PyObject *obj, void *context)\r
{\r
    PyObject **weaklistptr;\r
    PyObject *result;\r
\r
    if (Py_TYPE(obj)->tp_weaklistoffset == 0) {\r
        PyErr_SetString(PyExc_AttributeError,\r
                        "This object has no __weakref__");\r
        return NULL;\r
    }\r
    assert(Py_TYPE(obj)->tp_weaklistoffset > 0);\r
    assert(Py_TYPE(obj)->tp_weaklistoffset + sizeof(PyObject *) <=\r
           (size_t)(Py_TYPE(obj)->tp_basicsize));\r
    weaklistptr = (PyObject **)\r
        ((char *)obj + Py_TYPE(obj)->tp_weaklistoffset);\r
    if (*weaklistptr == NULL)\r
        result = Py_None;\r
    else\r
        result = *weaklistptr;\r
    Py_INCREF(result);\r
    return result;\r
}\r
\r
/* Three variants on the subtype_getsets list. */\r
\r
static PyGetSetDef subtype_getsets_full[] = {\r
    {"__dict__", subtype_dict, subtype_setdict,\r
     PyDoc_STR("dictionary for instance variables (if defined)")},\r
    {"__weakref__", subtype_getweakref, NULL,\r
     PyDoc_STR("list of weak references to the object (if defined)")},\r
    {0}\r
};\r
\r
static PyGetSetDef subtype_getsets_dict_only[] = {\r
    {"__dict__", subtype_dict, subtype_setdict,\r
     PyDoc_STR("dictionary for instance variables (if defined)")},\r
    {0}\r
};\r
\r
static PyGetSetDef subtype_getsets_weakref_only[] = {\r
    {"__weakref__", subtype_getweakref, NULL,\r
     PyDoc_STR("list of weak references to the object (if defined)")},\r
    {0}\r
};\r
\r
static int\r
valid_identifier(PyObject *s)\r
{\r
    unsigned char *p;\r
    Py_ssize_t i, n;\r
\r
    if (!PyString_Check(s)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "__slots__ items must be strings, not '%.200s'",\r
                     Py_TYPE(s)->tp_name);\r
        return 0;\r
    }\r
    p = (unsigned char *) PyString_AS_STRING(s);\r
    n = PyString_GET_SIZE(s);\r
    /* We must reject an empty name.  As a hack, we bump the\r
       length to 1 so that the loop will balk on the trailing \0. */\r
    if (n == 0)\r
        n = 1;\r
    for (i = 0; i < n; i++, p++) {\r
        if (!(i == 0 ? isalpha(*p) : isalnum(*p)) && *p != '_') {\r
            PyErr_SetString(PyExc_TypeError,\r
                            "__slots__ must be identifiers");\r
            return 0;\r
        }\r
    }\r
    return 1;\r
}\r
\r
#ifdef Py_USING_UNICODE\r
/* Replace Unicode objects in slots.  */\r
\r
static PyObject *\r
_unicode_to_string(PyObject *slots, Py_ssize_t nslots)\r
{\r
    PyObject *tmp = NULL;\r
    PyObject *slot_name, *new_name;\r
    Py_ssize_t i;\r
\r
    for (i = 0; i < nslots; i++) {\r
        if (PyUnicode_Check(slot_name = PyTuple_GET_ITEM(slots, i))) {\r
            if (tmp == NULL) {\r
                tmp = PySequence_List(slots);\r
                if (tmp == NULL)\r
                    return NULL;\r
            }\r
            new_name = _PyUnicode_AsDefaultEncodedString(slot_name,\r
                                                         NULL);\r
            if (new_name == NULL) {\r
                Py_DECREF(tmp);\r
                return NULL;\r
            }\r
            Py_INCREF(new_name);\r
            PyList_SET_ITEM(tmp, i, new_name);\r
            Py_DECREF(slot_name);\r
        }\r
    }\r
    if (tmp != NULL) {\r
        slots = PyList_AsTuple(tmp);\r
        Py_DECREF(tmp);\r
    }\r
    return slots;\r
}\r
#endif\r
\r
/* Forward */\r
static int\r
object_init(PyObject *self, PyObject *args, PyObject *kwds);\r
\r
static int\r
type_init(PyObject *cls, PyObject *args, PyObject *kwds)\r
{\r
    int res;\r
\r
    assert(args != NULL && PyTuple_Check(args));\r
    assert(kwds == NULL || PyDict_Check(kwds));\r
\r
    if (kwds != NULL && PyDict_Check(kwds) && PyDict_Size(kwds) != 0) {\r
        PyErr_SetString(PyExc_TypeError,\r
                        "type.__init__() takes no keyword arguments");\r
        return -1;\r
    }\r
\r
    if (args != NULL && PyTuple_Check(args) &&\r
        (PyTuple_GET_SIZE(args) != 1 && PyTuple_GET_SIZE(args) != 3)) {\r
        PyErr_SetString(PyExc_TypeError,\r
                        "type.__init__() takes 1 or 3 arguments");\r
        return -1;\r
    }\r
\r
    /* Call object.__init__(self) now. */\r
    /* XXX Could call super(type, cls).__init__() but what's the point? */\r
    args = PyTuple_GetSlice(args, 0, 0);\r
    res = object_init(cls, args, NULL);\r
    Py_DECREF(args);\r
    return res;\r
}\r
\r
static PyObject *\r
type_new(PyTypeObject *metatype, PyObject *args, PyObject *kwds)\r
{\r
    PyObject *name, *bases, *dict;\r
    static char *kwlist[] = {"name", "bases", "dict", 0};\r
    PyObject *slots, *tmp, *newslots;\r
    PyTypeObject *type, *base, *tmptype, *winner;\r
    PyHeapTypeObject *et;\r
    PyMemberDef *mp;\r
    Py_ssize_t i, nbases, nslots, slotoffset, add_dict, add_weak;\r
    int j, may_add_dict, may_add_weak;\r
\r
    assert(args != NULL && PyTuple_Check(args));\r
    assert(kwds == NULL || PyDict_Check(kwds));\r
\r
    /* Special case: type(x) should return x->ob_type */\r
    {\r
        const Py_ssize_t nargs = PyTuple_GET_SIZE(args);\r
        const Py_ssize_t nkwds = kwds == NULL ? 0 : PyDict_Size(kwds);\r
\r
        if (PyType_CheckExact(metatype) && nargs == 1 && nkwds == 0) {\r
            PyObject *x = PyTuple_GET_ITEM(args, 0);\r
            Py_INCREF(Py_TYPE(x));\r
            return (PyObject *) Py_TYPE(x);\r
        }\r
\r
        /* SF bug 475327 -- if that didn't trigger, we need 3\r
           arguments. but PyArg_ParseTupleAndKeywords below may give\r
           a msg saying type() needs exactly 3. */\r
        if (nargs + nkwds != 3) {\r
            PyErr_SetString(PyExc_TypeError,\r
                            "type() takes 1 or 3 arguments");\r
            return NULL;\r
        }\r
    }\r
\r
    /* Check arguments: (name, bases, dict) */\r
    if (!PyArg_ParseTupleAndKeywords(args, kwds, "SO!O!:type", kwlist,\r
                                     &name,\r
                                     &PyTuple_Type, &bases,\r
                                     &PyDict_Type, &dict))\r
        return NULL;\r
\r
    /* Determine the proper metatype to deal with this,\r
       and check for metatype conflicts while we're at it.\r
       Note that if some other metatype wins to contract,\r
       it's possible that its instances are not types. */\r
    nbases = PyTuple_GET_SIZE(bases);\r
    winner = metatype;\r
    for (i = 0; i < nbases; i++) {\r
        tmp = PyTuple_GET_ITEM(bases, i);\r
        tmptype = tmp->ob_type;\r
        if (tmptype == &PyClass_Type)\r
            continue; /* Special case classic classes */\r
        if (PyType_IsSubtype(winner, tmptype))\r
            continue;\r
        if (PyType_IsSubtype(tmptype, winner)) {\r
            winner = tmptype;\r
            continue;\r
        }\r
        PyErr_SetString(PyExc_TypeError,\r
                        "metaclass conflict: "\r
                        "the metaclass of a derived class "\r
                        "must be a (non-strict) subclass "\r
                        "of the metaclasses of all its bases");\r
        return NULL;\r
    }\r
    if (winner != metatype) {\r
        if (winner->tp_new != type_new) /* Pass it to the winner */\r
            return winner->tp_new(winner, args, kwds);\r
        metatype = winner;\r
    }\r
\r
    /* Adjust for empty tuple bases */\r
    if (nbases == 0) {\r
        bases = PyTuple_Pack(1, &PyBaseObject_Type);\r
        if (bases == NULL)\r
            return NULL;\r
        nbases = 1;\r
    }\r
    else\r
        Py_INCREF(bases);\r
\r
    /* XXX From here until type is allocated, "return NULL" leaks bases! */\r
\r
    /* Calculate best base, and check that all bases are type objects */\r
    base = best_base(bases);\r
    if (base == NULL) {\r
        Py_DECREF(bases);\r
        return NULL;\r
    }\r
    if (!PyType_HasFeature(base, Py_TPFLAGS_BASETYPE)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "type '%.100s' is not an acceptable base type",\r
                     base->tp_name);\r
        Py_DECREF(bases);\r
        return NULL;\r
    }\r
\r
    /* Check for a __slots__ sequence variable in dict, and count it */\r
    slots = PyDict_GetItemString(dict, "__slots__");\r
    nslots = 0;\r
    add_dict = 0;\r
    add_weak = 0;\r
    may_add_dict = base->tp_dictoffset == 0;\r
    may_add_weak = base->tp_weaklistoffset == 0 && base->tp_itemsize == 0;\r
    if (slots == NULL) {\r
        if (may_add_dict) {\r
            add_dict++;\r
        }\r
        if (may_add_weak) {\r
            add_weak++;\r
        }\r
    }\r
    else {\r
        /* Have slots */\r
\r
        /* Make it into a tuple */\r
        if (PyString_Check(slots) || PyUnicode_Check(slots))\r
            slots = PyTuple_Pack(1, slots);\r
        else\r
            slots = PySequence_Tuple(slots);\r
        if (slots == NULL) {\r
            Py_DECREF(bases);\r
            return NULL;\r
        }\r
        assert(PyTuple_Check(slots));\r
\r
        /* Are slots allowed? */\r
        nslots = PyTuple_GET_SIZE(slots);\r
        if (nslots > 0 && base->tp_itemsize != 0) {\r
            PyErr_Format(PyExc_TypeError,\r
                         "nonempty __slots__ "\r
                         "not supported for subtype of '%s'",\r
                         base->tp_name);\r
          bad_slots:\r
            Py_DECREF(bases);\r
            Py_DECREF(slots);\r
            return NULL;\r
        }\r
\r
#ifdef Py_USING_UNICODE\r
        tmp = _unicode_to_string(slots, nslots);\r
        if (tmp == NULL)\r
            goto bad_slots;\r
        if (tmp != slots) {\r
            Py_DECREF(slots);\r
            slots = tmp;\r
        }\r
#endif\r
        /* Check for valid slot names and two special cases */\r
        for (i = 0; i < nslots; i++) {\r
            PyObject *tmp = PyTuple_GET_ITEM(slots, i);\r
            char *s;\r
            if (!valid_identifier(tmp))\r
                goto bad_slots;\r
            assert(PyString_Check(tmp));\r
            s = PyString_AS_STRING(tmp);\r
            if (strcmp(s, "__dict__") == 0) {\r
                if (!may_add_dict || add_dict) {\r
                    PyErr_SetString(PyExc_TypeError,\r
                        "__dict__ slot disallowed: "\r
                        "we already got one");\r
                    goto bad_slots;\r
                }\r
                add_dict++;\r
            }\r
            if (strcmp(s, "__weakref__") == 0) {\r
                if (!may_add_weak || add_weak) {\r
                    PyErr_SetString(PyExc_TypeError,\r
                        "__weakref__ slot disallowed: "\r
                        "either we already got one, "\r
                        "or __itemsize__ != 0");\r
                    goto bad_slots;\r
                }\r
                add_weak++;\r
            }\r
        }\r
\r
        /* Copy slots into a list, mangle names and sort them.\r
           Sorted names are needed for __class__ assignment.\r
           Convert them back to tuple at the end.\r
        */\r
        newslots = PyList_New(nslots - add_dict - add_weak);\r
        if (newslots == NULL)\r
            goto bad_slots;\r
        for (i = j = 0; i < nslots; i++) {\r
            char *s;\r
            tmp = PyTuple_GET_ITEM(slots, i);\r
            s = PyString_AS_STRING(tmp);\r
            if ((add_dict && strcmp(s, "__dict__") == 0) ||\r
                (add_weak && strcmp(s, "__weakref__") == 0))\r
                continue;\r
            tmp =_Py_Mangle(name, tmp);\r
            if (!tmp) {\r
                Py_DECREF(newslots);\r
                goto bad_slots;\r
            }\r
            PyList_SET_ITEM(newslots, j, tmp);\r
            j++;\r
        }\r
        assert(j == nslots - add_dict - add_weak);\r
        nslots = j;\r
        Py_DECREF(slots);\r
        if (PyList_Sort(newslots) == -1) {\r
            Py_DECREF(bases);\r
            Py_DECREF(newslots);\r
            return NULL;\r
        }\r
        slots = PyList_AsTuple(newslots);\r
        Py_DECREF(newslots);\r
        if (slots == NULL) {\r
            Py_DECREF(bases);\r
            return NULL;\r
        }\r
\r
        /* Secondary bases may provide weakrefs or dict */\r
        if (nbases > 1 &&\r
            ((may_add_dict && !add_dict) ||\r
             (may_add_weak && !add_weak))) {\r
            for (i = 0; i < nbases; i++) {\r
                tmp = PyTuple_GET_ITEM(bases, i);\r
                if (tmp == (PyObject *)base)\r
                    continue; /* Skip primary base */\r
                if (PyClass_Check(tmp)) {\r
                    /* Classic base class provides both */\r
                    if (may_add_dict && !add_dict)\r
                        add_dict++;\r
                    if (may_add_weak && !add_weak)\r
                        add_weak++;\r
                    break;\r
                }\r
                assert(PyType_Check(tmp));\r
                tmptype = (PyTypeObject *)tmp;\r
                if (may_add_dict && !add_dict &&\r
                    tmptype->tp_dictoffset != 0)\r
                    add_dict++;\r
                if (may_add_weak && !add_weak &&\r
                    tmptype->tp_weaklistoffset != 0)\r
                    add_weak++;\r
                if (may_add_dict && !add_dict)\r
                    continue;\r
                if (may_add_weak && !add_weak)\r
                    continue;\r
                /* Nothing more to check */\r
                break;\r
            }\r
        }\r
    }\r
\r
    /* XXX From here until type is safely allocated,\r
       "return NULL" may leak slots! */\r
\r
    /* Allocate the type object */\r
    type = (PyTypeObject *)metatype->tp_alloc(metatype, nslots);\r
    if (type == NULL) {\r
        Py_XDECREF(slots);\r
        Py_DECREF(bases);\r
        return NULL;\r
    }\r
\r
    /* Keep name and slots alive in the extended type object */\r
    et = (PyHeapTypeObject *)type;\r
    Py_INCREF(name);\r
    et->ht_name = name;\r
    et->ht_slots = slots;\r
\r
    /* Initialize tp_flags */\r
    type->tp_flags = Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HEAPTYPE |\r
        Py_TPFLAGS_BASETYPE;\r
    if (base->tp_flags & Py_TPFLAGS_HAVE_GC)\r
        type->tp_flags |= Py_TPFLAGS_HAVE_GC;\r
    if (base->tp_flags & Py_TPFLAGS_HAVE_NEWBUFFER)\r
        type->tp_flags |= Py_TPFLAGS_HAVE_NEWBUFFER;\r
\r
    /* It's a new-style number unless it specifically inherits any\r
       old-style numeric behavior */\r
    if ((base->tp_flags & Py_TPFLAGS_CHECKTYPES) ||\r
        (base->tp_as_number == NULL))\r
        type->tp_flags |= Py_TPFLAGS_CHECKTYPES;\r
\r
    /* Initialize essential fields */\r
    type->tp_as_number = &et->as_number;\r
    type->tp_as_sequence = &et->as_sequence;\r
    type->tp_as_mapping = &et->as_mapping;\r
    type->tp_as_buffer = &et->as_buffer;\r
    type->tp_name = PyString_AS_STRING(name);\r
\r
    /* Set tp_base and tp_bases */\r
    type->tp_bases = bases;\r
    Py_INCREF(base);\r
    type->tp_base = base;\r
\r
    /* Initialize tp_dict from passed-in dict */\r
    type->tp_dict = dict = PyDict_Copy(dict);\r
    if (dict == NULL) {\r
        Py_DECREF(type);\r
        return NULL;\r
    }\r
\r
    /* Set __module__ in the dict */\r
    if (PyDict_GetItemString(dict, "__module__") == NULL) {\r
        tmp = PyEval_GetGlobals();\r
        if (tmp != NULL) {\r
            tmp = PyDict_GetItemString(tmp, "__name__");\r
            if (tmp != NULL) {\r
                if (PyDict_SetItemString(dict, "__module__",\r
                                         tmp) < 0)\r
                    return NULL;\r
            }\r
        }\r
    }\r
\r
    /* Set tp_doc to a copy of dict['__doc__'], if the latter is there\r
       and is a string.  The __doc__ accessor will first look for tp_doc;\r
       if that fails, it will still look into __dict__.\r
    */\r
    {\r
        PyObject *doc = PyDict_GetItemString(dict, "__doc__");\r
        if (doc != NULL && PyString_Check(doc)) {\r
            const size_t n = (size_t)PyString_GET_SIZE(doc);\r
            char *tp_doc = (char *)PyObject_MALLOC(n+1);\r
            if (tp_doc == NULL) {\r
                Py_DECREF(type);\r
                return NULL;\r
            }\r
            memcpy(tp_doc, PyString_AS_STRING(doc), n+1);\r
            type->tp_doc = tp_doc;\r
        }\r
    }\r
\r
    /* Special-case __new__: if it's a plain function,\r
       make it a static function */\r
    tmp = PyDict_GetItemString(dict, "__new__");\r
    if (tmp != NULL && PyFunction_Check(tmp)) {\r
        tmp = PyStaticMethod_New(tmp);\r
        if (tmp == NULL) {\r
            Py_DECREF(type);\r
            return NULL;\r
        }\r
        PyDict_SetItemString(dict, "__new__", tmp);\r
        Py_DECREF(tmp);\r
    }\r
\r
    /* Add descriptors for custom slots from __slots__, or for __dict__ */\r
    mp = PyHeapType_GET_MEMBERS(et);\r
    slotoffset = base->tp_basicsize;\r
    if (slots != NULL) {\r
        for (i = 0; i < nslots; i++, mp++) {\r
            mp->name = PyString_AS_STRING(\r
                PyTuple_GET_ITEM(slots, i));\r
            mp->type = T_OBJECT_EX;\r
            mp->offset = slotoffset;\r
\r
            /* __dict__ and __weakref__ are already filtered out */\r
            assert(strcmp(mp->name, "__dict__") != 0);\r
            assert(strcmp(mp->name, "__weakref__") != 0);\r
\r
            slotoffset += sizeof(PyObject *);\r
        }\r
    }\r
    if (add_dict) {\r
        if (base->tp_itemsize)\r
            type->tp_dictoffset = -(long)sizeof(PyObject *);\r
        else\r
            type->tp_dictoffset = slotoffset;\r
        slotoffset += sizeof(PyObject *);\r
    }\r
    if (add_weak) {\r
        assert(!base->tp_itemsize);\r
        type->tp_weaklistoffset = slotoffset;\r
        slotoffset += sizeof(PyObject *);\r
    }\r
    type->tp_basicsize = slotoffset;\r
    type->tp_itemsize = base->tp_itemsize;\r
    type->tp_members = PyHeapType_GET_MEMBERS(et);\r
\r
    if (type->tp_weaklistoffset && type->tp_dictoffset)\r
        type->tp_getset = subtype_getsets_full;\r
    else if (type->tp_weaklistoffset && !type->tp_dictoffset)\r
        type->tp_getset = subtype_getsets_weakref_only;\r
    else if (!type->tp_weaklistoffset && type->tp_dictoffset)\r
        type->tp_getset = subtype_getsets_dict_only;\r
    else\r
        type->tp_getset = NULL;\r
\r
    /* Special case some slots */\r
    if (type->tp_dictoffset != 0 || nslots > 0) {\r
        if (base->tp_getattr == NULL && base->tp_getattro == NULL)\r
            type->tp_getattro = PyObject_GenericGetAttr;\r
        if (base->tp_setattr == NULL && base->tp_setattro == NULL)\r
            type->tp_setattro = PyObject_GenericSetAttr;\r
    }\r
    type->tp_dealloc = subtype_dealloc;\r
\r
    /* Enable GC unless there are really no instance variables possible */\r
    if (!(type->tp_basicsize == sizeof(PyObject) &&\r
          type->tp_itemsize == 0))\r
        type->tp_flags |= Py_TPFLAGS_HAVE_GC;\r
\r
    /* Always override allocation strategy to use regular heap */\r
    type->tp_alloc = PyType_GenericAlloc;\r
    if (type->tp_flags & Py_TPFLAGS_HAVE_GC) {\r
        type->tp_free = PyObject_GC_Del;\r
        type->tp_traverse = subtype_traverse;\r
        type->tp_clear = subtype_clear;\r
    }\r
    else\r
        type->tp_free = PyObject_Del;\r
\r
    /* Initialize the rest */\r
    if (PyType_Ready(type) < 0) {\r
        Py_DECREF(type);\r
        return NULL;\r
    }\r
\r
    /* Put the proper slots in place */\r
    fixup_slot_dispatchers(type);\r
\r
    return (PyObject *)type;\r
}\r
\r
/* Internal API to look for a name through the MRO.\r
   This returns a borrowed reference, and doesn't set an exception! */\r
PyObject *\r
_PyType_Lookup(PyTypeObject *type, PyObject *name)\r
{\r
    Py_ssize_t i, n;\r
    PyObject *mro, *res, *base, *dict;\r
    unsigned int h;\r
\r
    if (MCACHE_CACHEABLE_NAME(name) &&\r
        PyType_HasFeature(type, Py_TPFLAGS_VALID_VERSION_TAG)) {\r
        /* fast path */\r
        h = MCACHE_HASH_METHOD(type, name);\r
        if (method_cache[h].version == type->tp_version_tag &&\r
            method_cache[h].name == name)\r
            return method_cache[h].value;\r
    }\r
\r
    /* Look in tp_dict of types in MRO */\r
    mro = type->tp_mro;\r
\r
    /* If mro is NULL, the type is either not yet initialized\r
       by PyType_Ready(), or already cleared by type_clear().\r
       Either way the safest thing to do is to return NULL. */\r
    if (mro == NULL)\r
        return NULL;\r
\r
    res = NULL;\r
    assert(PyTuple_Check(mro));\r
    n = PyTuple_GET_SIZE(mro);\r
    for (i = 0; i < n; i++) {\r
        base = PyTuple_GET_ITEM(mro, i);\r
        if (PyClass_Check(base))\r
            dict = ((PyClassObject *)base)->cl_dict;\r
        else {\r
            assert(PyType_Check(base));\r
            dict = ((PyTypeObject *)base)->tp_dict;\r
        }\r
        assert(dict && PyDict_Check(dict));\r
        res = PyDict_GetItem(dict, name);\r
        if (res != NULL)\r
            break;\r
    }\r
\r
    if (MCACHE_CACHEABLE_NAME(name) && assign_version_tag(type)) {\r
        h = MCACHE_HASH_METHOD(type, name);\r
        method_cache[h].version = type->tp_version_tag;\r
        method_cache[h].value = res;  /* borrowed */\r
        Py_INCREF(name);\r
        Py_DECREF(method_cache[h].name);\r
        method_cache[h].name = name;\r
    }\r
    return res;\r
}\r
\r
/* This is similar to PyObject_GenericGetAttr(),\r
   but uses _PyType_Lookup() instead of just looking in type->tp_dict. */\r
static PyObject *\r
type_getattro(PyTypeObject *type, PyObject *name)\r
{\r
    PyTypeObject *metatype = Py_TYPE(type);\r
    PyObject *meta_attribute, *attribute;\r
    descrgetfunc meta_get;\r
\r
    if (!PyString_Check(name)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "attribute name must be string, not '%.200s'",\r
                     name->ob_type->tp_name);\r
        return NULL;\r
    }\r
\r
    /* Initialize this type (we'll assume the metatype is initialized) */\r
    if (type->tp_dict == NULL) {\r
        if (PyType_Ready(type) < 0)\r
            return NULL;\r
    }\r
\r
    /* No readable descriptor found yet */\r
    meta_get = NULL;\r
\r
    /* Look for the attribute in the metatype */\r
    meta_attribute = _PyType_Lookup(metatype, name);\r
\r
    if (meta_attribute != NULL) {\r
        meta_get = Py_TYPE(meta_attribute)->tp_descr_get;\r
\r
        if (meta_get != NULL && PyDescr_IsData(meta_attribute)) {\r
            /* Data descriptors implement tp_descr_set to intercept\r
             * writes. Assume the attribute is not overridden in\r
             * type's tp_dict (and bases): call the descriptor now.\r
             */\r
            return meta_get(meta_attribute, (PyObject *)type,\r
                            (PyObject *)metatype);\r
        }\r
        Py_INCREF(meta_attribute);\r
    }\r
\r
    /* No data descriptor found on metatype. Look in tp_dict of this\r
     * type and its bases */\r
    attribute = _PyType_Lookup(type, name);\r
    if (attribute != NULL) {\r
        /* Implement descriptor functionality, if any */\r
        descrgetfunc local_get = Py_TYPE(attribute)->tp_descr_get;\r
\r
        Py_XDECREF(meta_attribute);\r
\r
        if (local_get != NULL) {\r
            /* NULL 2nd argument indicates the descriptor was\r
             * found on the target object itself (or a base)  */\r
            return local_get(attribute, (PyObject *)NULL,\r
                             (PyObject *)type);\r
        }\r
\r
        Py_INCREF(attribute);\r
        return attribute;\r
    }\r
\r
    /* No attribute found in local __dict__ (or bases): use the\r
     * descriptor from the metatype, if any */\r
    if (meta_get != NULL) {\r
        PyObject *res;\r
        res = meta_get(meta_attribute, (PyObject *)type,\r
                       (PyObject *)metatype);\r
        Py_DECREF(meta_attribute);\r
        return res;\r
    }\r
\r
    /* If an ordinary attribute was found on the metatype, return it now */\r
    if (meta_attribute != NULL) {\r
        return meta_attribute;\r
    }\r
\r
    /* Give up */\r
    PyErr_Format(PyExc_AttributeError,\r
                     "type object '%.50s' has no attribute '%.400s'",\r
                     type->tp_name, PyString_AS_STRING(name));\r
    return NULL;\r
}\r
\r
static int\r
type_setattro(PyTypeObject *type, PyObject *name, PyObject *value)\r
{\r
    if (!(type->tp_flags & Py_TPFLAGS_HEAPTYPE)) {\r
        PyErr_Format(\r
            PyExc_TypeError,\r
            "can't set attributes of built-in/extension type '%s'",\r
            type->tp_name);\r
        return -1;\r
    }\r
    if (PyObject_GenericSetAttr((PyObject *)type, name, value) < 0)\r
        return -1;\r
    return update_slot(type, name);\r
}\r
\r
static void\r
type_dealloc(PyTypeObject *type)\r
{\r
    PyHeapTypeObject *et;\r
\r
    /* Assert this is a heap-allocated type object */\r
    assert(type->tp_flags & Py_TPFLAGS_HEAPTYPE);\r
    _PyObject_GC_UNTRACK(type);\r
    PyObject_ClearWeakRefs((PyObject *)type);\r
    et = (PyHeapTypeObject *)type;\r
    Py_XDECREF(type->tp_base);\r
    Py_XDECREF(type->tp_dict);\r
    Py_XDECREF(type->tp_bases);\r
    Py_XDECREF(type->tp_mro);\r
    Py_XDECREF(type->tp_cache);\r
    Py_XDECREF(type->tp_subclasses);\r
    /* A type's tp_doc is heap allocated, unlike the tp_doc slots\r
     * of most other objects.  It's okay to cast it to char *.\r
     */\r
    PyObject_Free((char *)type->tp_doc);\r
    Py_XDECREF(et->ht_name);\r
    Py_XDECREF(et->ht_slots);\r
    Py_TYPE(type)->tp_free((PyObject *)type);\r
}\r
\r
static PyObject *\r
type_subclasses(PyTypeObject *type, PyObject *args_ignored)\r
{\r
    PyObject *list, *raw, *ref;\r
    Py_ssize_t i, n;\r
\r
    list = PyList_New(0);\r
    if (list == NULL)\r
        return NULL;\r
    raw = type->tp_subclasses;\r
    if (raw == NULL)\r
        return list;\r
    assert(PyList_Check(raw));\r
    n = PyList_GET_SIZE(raw);\r
    for (i = 0; i < n; i++) {\r
        ref = PyList_GET_ITEM(raw, i);\r
        assert(PyWeakref_CheckRef(ref));\r
        ref = PyWeakref_GET_OBJECT(ref);\r
        if (ref != Py_None) {\r
            if (PyList_Append(list, ref) < 0) {\r
                Py_DECREF(list);\r
                return NULL;\r
            }\r
        }\r
    }\r
    return list;\r
}\r
\r
static PyMethodDef type_methods[] = {\r
    {"mro", (PyCFunction)mro_external, METH_NOARGS,\r
     PyDoc_STR("mro() -> list\nreturn a type's method resolution order")},\r
    {"__subclasses__", (PyCFunction)type_subclasses, METH_NOARGS,\r
     PyDoc_STR("__subclasses__() -> list of immediate subclasses")},\r
    {"__instancecheck__", type___instancecheck__, METH_O,\r
     PyDoc_STR("__instancecheck__() -> bool\ncheck if an object is an instance")},\r
    {"__subclasscheck__", type___subclasscheck__, METH_O,\r
     PyDoc_STR("__subclasscheck__() -> bool\ncheck if a class is a subclass")},\r
    {0}\r
};\r
\r
PyDoc_STRVAR(type_doc,\r
"type(object) -> the object's type\n"\r
"type(name, bases, dict) -> a new type");\r
\r
static int\r
type_traverse(PyTypeObject *type, visitproc visit, void *arg)\r
{\r
    /* Because of type_is_gc(), the collector only calls this\r
       for heaptypes. */\r
    assert(type->tp_flags & Py_TPFLAGS_HEAPTYPE);\r
\r
    Py_VISIT(type->tp_dict);\r
    Py_VISIT(type->tp_cache);\r
    Py_VISIT(type->tp_mro);\r
    Py_VISIT(type->tp_bases);\r
    Py_VISIT(type->tp_base);\r
\r
    /* There's no need to visit type->tp_subclasses or\r
       ((PyHeapTypeObject *)type)->ht_slots, because they can't be involved\r
       in cycles; tp_subclasses is a list of weak references,\r
       and slots is a tuple of strings. */\r
\r
    return 0;\r
}\r
\r
static int\r
type_clear(PyTypeObject *type)\r
{\r
    /* Because of type_is_gc(), the collector only calls this\r
       for heaptypes. */\r
    assert(type->tp_flags & Py_TPFLAGS_HEAPTYPE);\r
\r
    /* We need to invalidate the method cache carefully before clearing\r
       the dict, so that other objects caught in a reference cycle\r
       don't start calling destroyed methods.\r
\r
       Otherwise, the only field we need to clear is tp_mro, which is\r
       part of a hard cycle (its first element is the class itself) that\r
       won't be broken otherwise (it's a tuple and tuples don't have a\r
       tp_clear handler).  None of the other fields need to be\r
       cleared, and here's why:\r
\r
       tp_cache:\r
           Not used; if it were, it would be a dict.\r
\r
       tp_bases, tp_base:\r
           If these are involved in a cycle, there must be at least\r
           one other, mutable object in the cycle, e.g. a base\r
           class's dict; the cycle will be broken that way.\r
\r
       tp_subclasses:\r
           A list of weak references can't be part of a cycle; and\r
           lists have their own tp_clear.\r
\r
       slots (in PyHeapTypeObject):\r
           A tuple of strings can't be part of a cycle.\r
    */\r
\r
    PyType_Modified(type);\r
    if (type->tp_dict)\r
        PyDict_Clear(type->tp_dict);\r
    Py_CLEAR(type->tp_mro);\r
\r
    return 0;\r
}\r
\r
static int\r
type_is_gc(PyTypeObject *type)\r
{\r
    return type->tp_flags & Py_TPFLAGS_HEAPTYPE;\r
}\r
\r
PyTypeObject PyType_Type = {\r
    PyVarObject_HEAD_INIT(&PyType_Type, 0)\r
    "type",                                     /* tp_name */\r
    sizeof(PyHeapTypeObject),                   /* tp_basicsize */\r
    sizeof(PyMemberDef),                        /* tp_itemsize */\r
    (destructor)type_dealloc,                   /* tp_dealloc */\r
    0,                                          /* tp_print */\r
    0,                                          /* tp_getattr */\r
    0,                                          /* tp_setattr */\r
    0,                                  /* tp_compare */\r
    (reprfunc)type_repr,                        /* tp_repr */\r
    0,                                          /* tp_as_number */\r
    0,                                          /* tp_as_sequence */\r
    0,                                          /* tp_as_mapping */\r
    (hashfunc)_Py_HashPointer,                  /* tp_hash */\r
    (ternaryfunc)type_call,                     /* tp_call */\r
    0,                                          /* tp_str */\r
    (getattrofunc)type_getattro,                /* tp_getattro */\r
    (setattrofunc)type_setattro,                /* tp_setattro */\r
    0,                                          /* tp_as_buffer */\r
    Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC |\r
        Py_TPFLAGS_BASETYPE | Py_TPFLAGS_TYPE_SUBCLASS,         /* tp_flags */\r
    type_doc,                                   /* tp_doc */\r
    (traverseproc)type_traverse,                /* tp_traverse */\r
    (inquiry)type_clear,                        /* tp_clear */\r
    type_richcompare,                                           /* tp_richcompare */\r
    offsetof(PyTypeObject, tp_weaklist),        /* tp_weaklistoffset */\r
    0,                                          /* tp_iter */\r
    0,                                          /* tp_iternext */\r
    type_methods,                               /* tp_methods */\r
    type_members,                               /* tp_members */\r
    type_getsets,                               /* tp_getset */\r
    0,                                          /* tp_base */\r
    0,                                          /* tp_dict */\r
    0,                                          /* tp_descr_get */\r
    0,                                          /* tp_descr_set */\r
    offsetof(PyTypeObject, tp_dict),            /* tp_dictoffset */\r
    type_init,                                  /* tp_init */\r
    0,                                          /* tp_alloc */\r
    type_new,                                   /* tp_new */\r
    PyObject_GC_Del,                            /* tp_free */\r
    (inquiry)type_is_gc,                        /* tp_is_gc */\r
};\r
\r
\r
/* The base type of all types (eventually)... except itself. */\r
\r
/* You may wonder why object.__new__() only complains about arguments\r
   when object.__init__() is not overridden, and vice versa.\r
\r
   Consider the use cases:\r
\r
   1. When neither is overridden, we want to hear complaints about\r
      excess (i.e., any) arguments, since their presence could\r
      indicate there's a bug.\r
\r
   2. When defining an Immutable type, we are likely to override only\r
      __new__(), since __init__() is called too late to initialize an\r
      Immutable object.  Since __new__() defines the signature for the\r
      type, it would be a pain to have to override __init__() just to\r
      stop it from complaining about excess arguments.\r
\r
   3. When defining a Mutable type, we are likely to override only\r
      __init__().  So here the converse reasoning applies: we don't\r
      want to have to override __new__() just to stop it from\r
      complaining.\r
\r
   4. When __init__() is overridden, and the subclass __init__() calls\r
      object.__init__(), the latter should complain about excess\r
      arguments; ditto for __new__().\r
\r
   Use cases 2 and 3 make it unattractive to unconditionally check for\r
   excess arguments.  The best solution that addresses all four use\r
   cases is as follows: __init__() complains about excess arguments\r
   unless __new__() is overridden and __init__() is not overridden\r
   (IOW, if __init__() is overridden or __new__() is not overridden);\r
   symmetrically, __new__() complains about excess arguments unless\r
   __init__() is overridden and __new__() is not overridden\r
   (IOW, if __new__() is overridden or __init__() is not overridden).\r
\r
   However, for backwards compatibility, this breaks too much code.\r
   Therefore, in 2.6, we'll *warn* about excess arguments when both\r
   methods are overridden; for all other cases we'll use the above\r
   rules.\r
\r
*/\r
\r
/* Forward */\r
static PyObject *\r
object_new(PyTypeObject *type, PyObject *args, PyObject *kwds);\r
\r
static int\r
excess_args(PyObject *args, PyObject *kwds)\r
{\r
    return PyTuple_GET_SIZE(args) ||\r
        (kwds && PyDict_Check(kwds) && PyDict_Size(kwds));\r
}\r
\r
static int\r
object_init(PyObject *self, PyObject *args, PyObject *kwds)\r
{\r
    int err = 0;\r
    if (excess_args(args, kwds)) {\r
        PyTypeObject *type = Py_TYPE(self);\r
        if (type->tp_init != object_init &&\r
            type->tp_new != object_new)\r
        {\r
            err = PyErr_WarnEx(PyExc_DeprecationWarning,\r
                       "object.__init__() takes no parameters",\r
                       1);\r
        }\r
        else if (type->tp_init != object_init ||\r
                 type->tp_new == object_new)\r
        {\r
            PyErr_SetString(PyExc_TypeError,\r
                "object.__init__() takes no parameters");\r
            err = -1;\r
        }\r
    }\r
    return err;\r
}\r
\r
static PyObject *\r
object_new(PyTypeObject *type, PyObject *args, PyObject *kwds)\r
{\r
    int err = 0;\r
    if (excess_args(args, kwds)) {\r
        if (type->tp_new != object_new &&\r
            type->tp_init != object_init)\r
        {\r
            err = PyErr_WarnEx(PyExc_DeprecationWarning,\r
                       "object() takes no parameters",\r
                       1);\r
        }\r
        else if (type->tp_new != object_new ||\r
                 type->tp_init == object_init)\r
        {\r
            PyErr_SetString(PyExc_TypeError,\r
                "object() takes no parameters");\r
            err = -1;\r
        }\r
    }\r
    if (err < 0)\r
        return NULL;\r
\r
    if (type->tp_flags & Py_TPFLAGS_IS_ABSTRACT) {\r
        static PyObject *comma = NULL;\r
        PyObject *abstract_methods = NULL;\r
        PyObject *builtins;\r
        PyObject *sorted;\r
        PyObject *sorted_methods = NULL;\r
        PyObject *joined = NULL;\r
        const char *joined_str;\r
\r
        /* Compute ", ".join(sorted(type.__abstractmethods__))\r
           into joined. */\r
        abstract_methods = type_abstractmethods(type, NULL);\r
        if (abstract_methods == NULL)\r
            goto error;\r
        builtins = PyEval_GetBuiltins();\r
        if (builtins == NULL)\r
            goto error;\r
        sorted = PyDict_GetItemString(builtins, "sorted");\r
        if (sorted == NULL)\r
            goto error;\r
        sorted_methods = PyObject_CallFunctionObjArgs(sorted,\r
                                                      abstract_methods,\r
                                                      NULL);\r
        if (sorted_methods == NULL)\r
            goto error;\r
        if (comma == NULL) {\r
            comma = PyString_InternFromString(", ");\r
            if (comma == NULL)\r
                goto error;\r
        }\r
        joined = PyObject_CallMethod(comma, "join",\r
                                     "O",  sorted_methods);\r
        if (joined == NULL)\r
            goto error;\r
        joined_str = PyString_AsString(joined);\r
        if (joined_str == NULL)\r
            goto error;\r
\r
        PyErr_Format(PyExc_TypeError,\r
                     "Can't instantiate abstract class %s "\r
                     "with abstract methods %s",\r
                     type->tp_name,\r
                     joined_str);\r
    error:\r
        Py_XDECREF(joined);\r
        Py_XDECREF(sorted_methods);\r
        Py_XDECREF(abstract_methods);\r
        return NULL;\r
    }\r
    return type->tp_alloc(type, 0);\r
}\r
\r
static void\r
object_dealloc(PyObject *self)\r
{\r
    Py_TYPE(self)->tp_free(self);\r
}\r
\r
static PyObject *\r
object_repr(PyObject *self)\r
{\r
    PyTypeObject *type;\r
    PyObject *mod, *name, *rtn;\r
\r
    type = Py_TYPE(self);\r
    mod = type_module(type, NULL);\r
    if (mod == NULL)\r
        PyErr_Clear();\r
    else if (!PyString_Check(mod)) {\r
        Py_DECREF(mod);\r
        mod = NULL;\r
    }\r
    name = type_name(type, NULL);\r
    if (name == NULL) {\r
        Py_XDECREF(mod);\r
        return NULL;\r
    }\r
    if (mod != NULL && strcmp(PyString_AS_STRING(mod), "__builtin__"))\r
        rtn = PyString_FromFormat("<%s.%s object at %p>",\r
                                  PyString_AS_STRING(mod),\r
                                  PyString_AS_STRING(name),\r
                                  self);\r
    else\r
        rtn = PyString_FromFormat("<%s object at %p>",\r
                                  type->tp_name, self);\r
    Py_XDECREF(mod);\r
    Py_DECREF(name);\r
    return rtn;\r
}\r
\r
static PyObject *\r
object_str(PyObject *self)\r
{\r
    unaryfunc f;\r
\r
    f = Py_TYPE(self)->tp_repr;\r
    if (f == NULL)\r
        f = object_repr;\r
    return f(self);\r
}\r
\r
static PyObject *\r
object_get_class(PyObject *self, void *closure)\r
{\r
    Py_INCREF(Py_TYPE(self));\r
    return (PyObject *)(Py_TYPE(self));\r
}\r
\r
static int\r
equiv_structs(PyTypeObject *a, PyTypeObject *b)\r
{\r
    return a == b ||\r
           (a != NULL &&\r
        b != NULL &&\r
        a->tp_basicsize == b->tp_basicsize &&\r
        a->tp_itemsize == b->tp_itemsize &&\r
        a->tp_dictoffset == b->tp_dictoffset &&\r
        a->tp_weaklistoffset == b->tp_weaklistoffset &&\r
        ((a->tp_flags & Py_TPFLAGS_HAVE_GC) ==\r
         (b->tp_flags & Py_TPFLAGS_HAVE_GC)));\r
}\r
\r
static int\r
same_slots_added(PyTypeObject *a, PyTypeObject *b)\r
{\r
    PyTypeObject *base = a->tp_base;\r
    Py_ssize_t size;\r
    PyObject *slots_a, *slots_b;\r
\r
    assert(base == b->tp_base);\r
    size = base->tp_basicsize;\r
    if (a->tp_dictoffset == size && b->tp_dictoffset == size)\r
        size += sizeof(PyObject *);\r
    if (a->tp_weaklistoffset == size && b->tp_weaklistoffset == size)\r
        size += sizeof(PyObject *);\r
\r
    /* Check slots compliance */\r
    slots_a = ((PyHeapTypeObject *)a)->ht_slots;\r
    slots_b = ((PyHeapTypeObject *)b)->ht_slots;\r
    if (slots_a && slots_b) {\r
        if (PyObject_Compare(slots_a, slots_b) != 0)\r
            return 0;\r
        size += sizeof(PyObject *) * PyTuple_GET_SIZE(slots_a);\r
    }\r
    return size == a->tp_basicsize && size == b->tp_basicsize;\r
}\r
\r
static int\r
compatible_for_assignment(PyTypeObject* oldto, PyTypeObject* newto, char* attr)\r
{\r
    PyTypeObject *newbase, *oldbase;\r
\r
    if (newto->tp_dealloc != oldto->tp_dealloc ||\r
        newto->tp_free != oldto->tp_free)\r
    {\r
        PyErr_Format(PyExc_TypeError,\r
                     "%s assignment: "\r
                     "'%s' deallocator differs from '%s'",\r
                     attr,\r
                     newto->tp_name,\r
                     oldto->tp_name);\r
        return 0;\r
    }\r
    newbase = newto;\r
    oldbase = oldto;\r
    while (equiv_structs(newbase, newbase->tp_base))\r
        newbase = newbase->tp_base;\r
    while (equiv_structs(oldbase, oldbase->tp_base))\r
        oldbase = oldbase->tp_base;\r
    if (newbase != oldbase &&\r
        (newbase->tp_base != oldbase->tp_base ||\r
         !same_slots_added(newbase, oldbase))) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "%s assignment: "\r
                     "'%s' object layout differs from '%s'",\r
                     attr,\r
                     newto->tp_name,\r
                     oldto->tp_name);\r
        return 0;\r
    }\r
\r
    return 1;\r
}\r
\r
static int\r
object_set_class(PyObject *self, PyObject *value, void *closure)\r
{\r
    PyTypeObject *oldto = Py_TYPE(self);\r
    PyTypeObject *newto;\r
\r
    if (value == NULL) {\r
        PyErr_SetString(PyExc_TypeError,\r
                        "can't delete __class__ attribute");\r
        return -1;\r
    }\r
    if (!PyType_Check(value)) {\r
        PyErr_Format(PyExc_TypeError,\r
          "__class__ must be set to new-style class, not '%s' object",\r
          Py_TYPE(value)->tp_name);\r
        return -1;\r
    }\r
    newto = (PyTypeObject *)value;\r
    if (!(newto->tp_flags & Py_TPFLAGS_HEAPTYPE) ||\r
        !(oldto->tp_flags & Py_TPFLAGS_HEAPTYPE))\r
    {\r
        PyErr_Format(PyExc_TypeError,\r
                     "__class__ assignment: only for heap types");\r
        return -1;\r
    }\r
    if (compatible_for_assignment(newto, oldto, "__class__")) {\r
        Py_INCREF(newto);\r
        Py_TYPE(self) = newto;\r
        Py_DECREF(oldto);\r
        return 0;\r
    }\r
    else {\r
        return -1;\r
    }\r
}\r
\r
static PyGetSetDef object_getsets[] = {\r
    {"__class__", object_get_class, object_set_class,\r
     PyDoc_STR("the object's class")},\r
    {0}\r
};\r
\r
\r
/* Stuff to implement __reduce_ex__ for pickle protocols >= 2.\r
   We fall back to helpers in copy_reg for:\r
   - pickle protocols < 2\r
   - calculating the list of slot names (done only once per class)\r
   - the __newobj__ function (which is used as a token but never called)\r
*/\r
\r
static PyObject *\r
import_copyreg(void)\r
{\r
    static PyObject *copyreg_str;\r
\r
    if (!copyreg_str) {\r
        copyreg_str = PyString_InternFromString("copy_reg");\r
        if (copyreg_str == NULL)\r
            return NULL;\r
    }\r
\r
    return PyImport_Import(copyreg_str);\r
}\r
\r
static PyObject *\r
slotnames(PyObject *cls)\r
{\r
    PyObject *clsdict;\r
    PyObject *copyreg;\r
    PyObject *slotnames;\r
\r
    if (!PyType_Check(cls)) {\r
        Py_INCREF(Py_None);\r
        return Py_None;\r
    }\r
\r
    clsdict = ((PyTypeObject *)cls)->tp_dict;\r
    slotnames = PyDict_GetItemString(clsdict, "__slotnames__");\r
    if (slotnames != NULL && PyList_Check(slotnames)) {\r
        Py_INCREF(slotnames);\r
        return slotnames;\r
    }\r
\r
    copyreg = import_copyreg();\r
    if (copyreg == NULL)\r
        return NULL;\r
\r
    slotnames = PyObject_CallMethod(copyreg, "_slotnames", "O", cls);\r
    Py_DECREF(copyreg);\r
    if (slotnames != NULL &&\r
        slotnames != Py_None &&\r
        !PyList_Check(slotnames))\r
    {\r
        PyErr_SetString(PyExc_TypeError,\r
            "copy_reg._slotnames didn't return a list or None");\r
        Py_DECREF(slotnames);\r
        slotnames = NULL;\r
    }\r
\r
    return slotnames;\r
}\r
\r
static PyObject *\r
reduce_2(PyObject *obj)\r
{\r
    PyObject *cls, *getnewargs;\r
    PyObject *args = NULL, *args2 = NULL;\r
    PyObject *getstate = NULL, *state = NULL, *names = NULL;\r
    PyObject *slots = NULL, *listitems = NULL, *dictitems = NULL;\r
    PyObject *copyreg = NULL, *newobj = NULL, *res = NULL;\r
    Py_ssize_t i, n;\r
\r
    cls = PyObject_GetAttrString(obj, "__class__");\r
    if (cls == NULL)\r
        return NULL;\r
\r
    getnewargs = PyObject_GetAttrString(obj, "__getnewargs__");\r
    if (getnewargs != NULL) {\r
        args = PyObject_CallObject(getnewargs, NULL);\r
        Py_DECREF(getnewargs);\r
        if (args != NULL && !PyTuple_Check(args)) {\r
            PyErr_Format(PyExc_TypeError,\r
                "__getnewargs__ should return a tuple, "\r
                "not '%.200s'", Py_TYPE(args)->tp_name);\r
            goto end;\r
        }\r
    }\r
    else {\r
        PyErr_Clear();\r
        args = PyTuple_New(0);\r
    }\r
    if (args == NULL)\r
        goto end;\r
\r
    getstate = PyObject_GetAttrString(obj, "__getstate__");\r
    if (getstate != NULL) {\r
        state = PyObject_CallObject(getstate, NULL);\r
        Py_DECREF(getstate);\r
        if (state == NULL)\r
            goto end;\r
    }\r
    else {\r
        PyErr_Clear();\r
        state = PyObject_GetAttrString(obj, "__dict__");\r
        if (state == NULL) {\r
            PyErr_Clear();\r
            state = Py_None;\r
            Py_INCREF(state);\r
        }\r
        names = slotnames(cls);\r
        if (names == NULL)\r
            goto end;\r
        if (names != Py_None) {\r
            assert(PyList_Check(names));\r
            slots = PyDict_New();\r
            if (slots == NULL)\r
                goto end;\r
            n = 0;\r
            /* Can't pre-compute the list size; the list\r
               is stored on the class so accessible to other\r
               threads, which may be run by DECREF */\r
            for (i = 0; i < PyList_GET_SIZE(names); i++) {\r
                PyObject *name, *value;\r
                name = PyList_GET_ITEM(names, i);\r
                value = PyObject_GetAttr(obj, name);\r
                if (value == NULL)\r
                    PyErr_Clear();\r
                else {\r
                    int err = PyDict_SetItem(slots, name,\r
                                             value);\r
                    Py_DECREF(value);\r
                    if (err)\r
                        goto end;\r
                    n++;\r
                }\r
            }\r
            if (n) {\r
                state = Py_BuildValue("(NO)", state, slots);\r
                if (state == NULL)\r
                    goto end;\r
            }\r
        }\r
    }\r
\r
    if (!PyList_Check(obj)) {\r
        listitems = Py_None;\r
        Py_INCREF(listitems);\r
    }\r
    else {\r
        listitems = PyObject_GetIter(obj);\r
        if (listitems == NULL)\r
            goto end;\r
    }\r
\r
    if (!PyDict_Check(obj)) {\r
        dictitems = Py_None;\r
        Py_INCREF(dictitems);\r
    }\r
    else {\r
        dictitems = PyObject_CallMethod(obj, "iteritems", "");\r
        if (dictitems == NULL)\r
            goto end;\r
    }\r
\r
    copyreg = import_copyreg();\r
    if (copyreg == NULL)\r
        goto end;\r
    newobj = PyObject_GetAttrString(copyreg, "__newobj__");\r
    if (newobj == NULL)\r
        goto end;\r
\r
    n = PyTuple_GET_SIZE(args);\r
    args2 = PyTuple_New(n+1);\r
    if (args2 == NULL)\r
        goto end;\r
    PyTuple_SET_ITEM(args2, 0, cls);\r
    cls = NULL;\r
    for (i = 0; i < n; i++) {\r
        PyObject *v = PyTuple_GET_ITEM(args, i);\r
        Py_INCREF(v);\r
        PyTuple_SET_ITEM(args2, i+1, v);\r
    }\r
\r
    res = PyTuple_Pack(5, newobj, args2, state, listitems, dictitems);\r
\r
  end:\r
    Py_XDECREF(cls);\r
    Py_XDECREF(args);\r
    Py_XDECREF(args2);\r
    Py_XDECREF(slots);\r
    Py_XDECREF(state);\r
    Py_XDECREF(names);\r
    Py_XDECREF(listitems);\r
    Py_XDECREF(dictitems);\r
    Py_XDECREF(copyreg);\r
    Py_XDECREF(newobj);\r
    return res;\r
}\r
\r
/*\r
 * There were two problems when object.__reduce__ and object.__reduce_ex__\r
 * were implemented in the same function:\r
 *  - trying to pickle an object with a custom __reduce__ method that\r
 *    fell back to object.__reduce__ in certain circumstances led to\r
 *    infinite recursion at Python level and eventual RuntimeError.\r
 *  - Pickling objects that lied about their type by overwriting the\r
 *    __class__ descriptor could lead to infinite recursion at C level\r
 *    and eventual segfault.\r
 *\r
 * Because of backwards compatibility, the two methods still have to\r
 * behave in the same way, even if this is not required by the pickle\r
 * protocol. This common functionality was moved to the _common_reduce\r
 * function.\r
 */\r
static PyObject *\r
_common_reduce(PyObject *self, int proto)\r
{\r
    PyObject *copyreg, *res;\r
\r
    if (proto >= 2)\r
        return reduce_2(self);\r
\r
    copyreg = import_copyreg();\r
    if (!copyreg)\r
        return NULL;\r
\r
    res = PyEval_CallMethod(copyreg, "_reduce_ex", "(Oi)", self, proto);\r
    Py_DECREF(copyreg);\r
\r
    return res;\r
}\r
\r
static PyObject *\r
object_reduce(PyObject *self, PyObject *args)\r
{\r
    int proto = 0;\r
\r
    if (!PyArg_ParseTuple(args, "|i:__reduce__", &proto))\r
        return NULL;\r
\r
    return _common_reduce(self, proto);\r
}\r
\r
static PyObject *\r
object_reduce_ex(PyObject *self, PyObject *args)\r
{\r
    PyObject *reduce, *res;\r
    int proto = 0;\r
\r
    if (!PyArg_ParseTuple(args, "|i:__reduce_ex__", &proto))\r
        return NULL;\r
\r
    reduce = PyObject_GetAttrString(self, "__reduce__");\r
    if (reduce == NULL)\r
        PyErr_Clear();\r
    else {\r
        PyObject *cls, *clsreduce, *objreduce;\r
        int override;\r
        cls = PyObject_GetAttrString(self, "__class__");\r
        if (cls == NULL) {\r
            Py_DECREF(reduce);\r
            return NULL;\r
        }\r
        clsreduce = PyObject_GetAttrString(cls, "__reduce__");\r
        Py_DECREF(cls);\r
        if (clsreduce == NULL) {\r
            Py_DECREF(reduce);\r
            return NULL;\r
        }\r
        objreduce = PyDict_GetItemString(PyBaseObject_Type.tp_dict,\r
                                         "__reduce__");\r
        override = (clsreduce != objreduce);\r
        Py_DECREF(clsreduce);\r
        if (override) {\r
            res = PyObject_CallObject(reduce, NULL);\r
            Py_DECREF(reduce);\r
            return res;\r
        }\r
        else\r
            Py_DECREF(reduce);\r
    }\r
\r
    return _common_reduce(self, proto);\r
}\r
\r
static PyObject *\r
object_subclasshook(PyObject *cls, PyObject *args)\r
{\r
    Py_INCREF(Py_NotImplemented);\r
    return Py_NotImplemented;\r
}\r
\r
PyDoc_STRVAR(object_subclasshook_doc,\r
"Abstract classes can override this to customize issubclass().\n"\r
"\n"\r
"This is invoked early on by abc.ABCMeta.__subclasscheck__().\n"\r
"It should return True, False or NotImplemented.  If it returns\n"\r
"NotImplemented, the normal algorithm is used.  Otherwise, it\n"\r
"overrides the normal algorithm (and the outcome is cached).\n");\r
\r
/*\r
   from PEP 3101, this code implements:\r
\r
   class object:\r
       def __format__(self, format_spec):\r
       if isinstance(format_spec, str):\r
           return format(str(self), format_spec)\r
       elif isinstance(format_spec, unicode):\r
           return format(unicode(self), format_spec)\r
*/\r
static PyObject *\r
object_format(PyObject *self, PyObject *args)\r
{\r
    PyObject *format_spec;\r
    PyObject *self_as_str = NULL;\r
    PyObject *result = NULL;\r
    Py_ssize_t format_len;\r
\r
    if (!PyArg_ParseTuple(args, "O:__format__", &format_spec))\r
        return NULL;\r
#ifdef Py_USING_UNICODE\r
    if (PyUnicode_Check(format_spec)) {\r
        format_len = PyUnicode_GET_SIZE(format_spec);\r
        self_as_str = PyObject_Unicode(self);\r
    } else if (PyString_Check(format_spec)) {\r
#else\r
    if (PyString_Check(format_spec)) {\r
#endif\r
        format_len = PyString_GET_SIZE(format_spec);\r
        self_as_str = PyObject_Str(self);\r
    } else {\r
        PyErr_SetString(PyExc_TypeError,\r
                 "argument to __format__ must be unicode or str");\r
        return NULL;\r
    }\r
\r
    if (self_as_str != NULL) {\r
        /* Issue 7994: If we're converting to a string, we\r
           should reject format specifications */\r
        if (format_len > 0) {\r
            if (PyErr_WarnEx(PyExc_PendingDeprecationWarning,\r
             "object.__format__ with a non-empty format "\r
             "string is deprecated", 1) < 0) {\r
                goto done;\r
            }\r
            /* Eventually this will become an error:\r
            PyErr_Format(PyExc_TypeError,\r
               "non-empty format string passed to object.__format__");\r
            goto done;\r
            */\r
        }\r
        result = PyObject_Format(self_as_str, format_spec);\r
    }\r
\r
done:\r
    Py_XDECREF(self_as_str);\r
\r
    return result;\r
}\r
\r
static PyObject *\r
object_sizeof(PyObject *self, PyObject *args)\r
{\r
    Py_ssize_t res, isize;\r
\r
    res = 0;\r
    isize = self->ob_type->tp_itemsize;\r
    if (isize > 0)\r
        res = Py_SIZE(self) * isize;\r
    res += self->ob_type->tp_basicsize;\r
\r
    return PyInt_FromSsize_t(res);\r
}\r
\r
static PyMethodDef object_methods[] = {\r
    {"__reduce_ex__", object_reduce_ex, METH_VARARGS,\r
     PyDoc_STR("helper for pickle")},\r
    {"__reduce__", object_reduce, METH_VARARGS,\r
     PyDoc_STR("helper for pickle")},\r
    {"__subclasshook__", object_subclasshook, METH_CLASS | METH_VARARGS,\r
     object_subclasshook_doc},\r
    {"__format__", object_format, METH_VARARGS,\r
     PyDoc_STR("default object formatter")},\r
    {"__sizeof__", object_sizeof, METH_NOARGS,\r
     PyDoc_STR("__sizeof__() -> int\nsize of object in memory, in bytes")},\r
    {0}\r
};\r
\r
\r
PyTypeObject PyBaseObject_Type = {\r
    PyVarObject_HEAD_INIT(&PyType_Type, 0)\r
    "object",                                   /* tp_name */\r
    sizeof(PyObject),                           /* tp_basicsize */\r
    0,                                          /* tp_itemsize */\r
    object_dealloc,                             /* tp_dealloc */\r
    0,                                          /* tp_print */\r
    0,                                          /* tp_getattr */\r
    0,                                          /* tp_setattr */\r
    0,                                          /* tp_compare */\r
    object_repr,                                /* tp_repr */\r
    0,                                          /* tp_as_number */\r
    0,                                          /* tp_as_sequence */\r
    0,                                          /* tp_as_mapping */\r
    (hashfunc)_Py_HashPointer,                  /* tp_hash */\r
    0,                                          /* tp_call */\r
    object_str,                                 /* tp_str */\r
    PyObject_GenericGetAttr,                    /* tp_getattro */\r
    PyObject_GenericSetAttr,                    /* tp_setattro */\r
    0,                                          /* tp_as_buffer */\r
    Py_TPFLAGS_DEFAULT | Py_TPFLAGS_BASETYPE, /* tp_flags */\r
    PyDoc_STR("The most base type"),            /* tp_doc */\r
    0,                                          /* tp_traverse */\r
    0,                                          /* tp_clear */\r
    0,                                          /* tp_richcompare */\r
    0,                                          /* tp_weaklistoffset */\r
    0,                                          /* tp_iter */\r
    0,                                          /* tp_iternext */\r
    object_methods,                             /* tp_methods */\r
    0,                                          /* tp_members */\r
    object_getsets,                             /* tp_getset */\r
    0,                                          /* tp_base */\r
    0,                                          /* tp_dict */\r
    0,                                          /* tp_descr_get */\r
    0,                                          /* tp_descr_set */\r
    0,                                          /* tp_dictoffset */\r
    object_init,                                /* tp_init */\r
    PyType_GenericAlloc,                        /* tp_alloc */\r
    object_new,                                 /* tp_new */\r
    PyObject_Del,                               /* tp_free */\r
};\r
\r
\r
/* Initialize the __dict__ in a type object */\r
\r
static int\r
add_methods(PyTypeObject *type, PyMethodDef *meth)\r
{\r
    PyObject *dict = type->tp_dict;\r
\r
    for (; meth->ml_name != NULL; meth++) {\r
        PyObject *descr;\r
        int err;\r
        if (PyDict_GetItemString(dict, meth->ml_name) &&\r
            !(meth->ml_flags & METH_COEXIST))\r
                continue;\r
        if (meth->ml_flags & METH_CLASS) {\r
            if (meth->ml_flags & METH_STATIC) {\r
                PyErr_SetString(PyExc_ValueError,\r
                     "method cannot be both class and static");\r
                return -1;\r
            }\r
            descr = PyDescr_NewClassMethod(type, meth);\r
        }\r
        else if (meth->ml_flags & METH_STATIC) {\r
            PyObject *cfunc = PyCFunction_New(meth, NULL);\r
            if (cfunc == NULL)\r
                return -1;\r
            descr = PyStaticMethod_New(cfunc);\r
            Py_DECREF(cfunc);\r
        }\r
        else {\r
            descr = PyDescr_NewMethod(type, meth);\r
        }\r
        if (descr == NULL)\r
            return -1;\r
        err = PyDict_SetItemString(dict, meth->ml_name, descr);\r
        Py_DECREF(descr);\r
        if (err < 0)\r
            return -1;\r
    }\r
    return 0;\r
}\r
\r
static int\r
add_members(PyTypeObject *type, PyMemberDef *memb)\r
{\r
    PyObject *dict = type->tp_dict;\r
\r
    for (; memb->name != NULL; memb++) {\r
        PyObject *descr;\r
        if (PyDict_GetItemString(dict, memb->name))\r
            continue;\r
        descr = PyDescr_NewMember(type, memb);\r
        if (descr == NULL)\r
            return -1;\r
        if (PyDict_SetItemString(dict, memb->name, descr) < 0)\r
            return -1;\r
        Py_DECREF(descr);\r
    }\r
    return 0;\r
}\r
\r
static int\r
add_getset(PyTypeObject *type, PyGetSetDef *gsp)\r
{\r
    PyObject *dict = type->tp_dict;\r
\r
    for (; gsp->name != NULL; gsp++) {\r
        PyObject *descr;\r
        if (PyDict_GetItemString(dict, gsp->name))\r
            continue;\r
        descr = PyDescr_NewGetSet(type, gsp);\r
\r
        if (descr == NULL)\r
            return -1;\r
        if (PyDict_SetItemString(dict, gsp->name, descr) < 0)\r
            return -1;\r
        Py_DECREF(descr);\r
    }\r
    return 0;\r
}\r
\r
#define BUFFER_FLAGS (Py_TPFLAGS_HAVE_GETCHARBUFFER | Py_TPFLAGS_HAVE_NEWBUFFER)\r
\r
static void\r
inherit_special(PyTypeObject *type, PyTypeObject *base)\r
{\r
    Py_ssize_t oldsize, newsize;\r
\r
    /* Special flag magic */\r
    if (!type->tp_as_buffer && base->tp_as_buffer) {\r
        type->tp_flags &= ~BUFFER_FLAGS;\r
        type->tp_flags |=\r
            base->tp_flags & BUFFER_FLAGS;\r
    }\r
    if (!type->tp_as_sequence && base->tp_as_sequence) {\r
        type->tp_flags &= ~Py_TPFLAGS_HAVE_SEQUENCE_IN;\r
        type->tp_flags |= base->tp_flags & Py_TPFLAGS_HAVE_SEQUENCE_IN;\r
    }\r
    if ((type->tp_flags & Py_TPFLAGS_HAVE_INPLACEOPS) !=\r
        (base->tp_flags & Py_TPFLAGS_HAVE_INPLACEOPS)) {\r
        if ((!type->tp_as_number && base->tp_as_number) ||\r
            (!type->tp_as_sequence && base->tp_as_sequence)) {\r
            type->tp_flags &= ~Py_TPFLAGS_HAVE_INPLACEOPS;\r
            if (!type->tp_as_number && !type->tp_as_sequence) {\r
                type->tp_flags |= base->tp_flags &\r
                    Py_TPFLAGS_HAVE_INPLACEOPS;\r
            }\r
        }\r
        /* Wow */\r
    }\r
    if (!type->tp_as_number && base->tp_as_number) {\r
        type->tp_flags &= ~Py_TPFLAGS_CHECKTYPES;\r
        type->tp_flags |= base->tp_flags & Py_TPFLAGS_CHECKTYPES;\r
    }\r
\r
    /* Copying basicsize is connected to the GC flags */\r
    oldsize = base->tp_basicsize;\r
    newsize = type->tp_basicsize ? type->tp_basicsize : oldsize;\r
    if (!(type->tp_flags & Py_TPFLAGS_HAVE_GC) &&\r
        (base->tp_flags & Py_TPFLAGS_HAVE_GC) &&\r
        (type->tp_flags & Py_TPFLAGS_HAVE_RICHCOMPARE/*GC slots exist*/) &&\r
        (!type->tp_traverse && !type->tp_clear)) {\r
        type->tp_flags |= Py_TPFLAGS_HAVE_GC;\r
        if (type->tp_traverse == NULL)\r
            type->tp_traverse = base->tp_traverse;\r
        if (type->tp_clear == NULL)\r
            type->tp_clear = base->tp_clear;\r
    }\r
    if (type->tp_flags & base->tp_flags & Py_TPFLAGS_HAVE_CLASS) {\r
        /* The condition below could use some explanation.\r
           It appears that tp_new is not inherited for static types\r
           whose base class is 'object'; this seems to be a precaution\r
           so that old extension types don't suddenly become\r
           callable (object.__new__ wouldn't insure the invariants\r
           that the extension type's own factory function ensures).\r
           Heap types, of course, are under our control, so they do\r
           inherit tp_new; static extension types that specify some\r
           other built-in type as the default are considered\r
           new-style-aware so they also inherit object.__new__. */\r
        if (base != &PyBaseObject_Type ||\r
            (type->tp_flags & Py_TPFLAGS_HEAPTYPE)) {\r
            if (type->tp_new == NULL)\r
                type->tp_new = base->tp_new;\r
        }\r
    }\r
    type->tp_basicsize = newsize;\r
\r
    /* Copy other non-function slots */\r
\r
#undef COPYVAL\r
#define COPYVAL(SLOT) \\r
    if (type->SLOT == 0) type->SLOT = base->SLOT\r
\r
    COPYVAL(tp_itemsize);\r
    if (type->tp_flags & base->tp_flags & Py_TPFLAGS_HAVE_WEAKREFS) {\r
        COPYVAL(tp_weaklistoffset);\r
    }\r
    if (type->tp_flags & base->tp_flags & Py_TPFLAGS_HAVE_CLASS) {\r
        COPYVAL(tp_dictoffset);\r
    }\r
\r
    /* Setup fast subclass flags */\r
    if (PyType_IsSubtype(base, (PyTypeObject*)PyExc_BaseException))\r
        type->tp_flags |= Py_TPFLAGS_BASE_EXC_SUBCLASS;\r
    else if (PyType_IsSubtype(base, &PyType_Type))\r
        type->tp_flags |= Py_TPFLAGS_TYPE_SUBCLASS;\r
    else if (PyType_IsSubtype(base, &PyInt_Type))\r
        type->tp_flags |= Py_TPFLAGS_INT_SUBCLASS;\r
    else if (PyType_IsSubtype(base, &PyLong_Type))\r
        type->tp_flags |= Py_TPFLAGS_LONG_SUBCLASS;\r
    else if (PyType_IsSubtype(base, &PyString_Type))\r
        type->tp_flags |= Py_TPFLAGS_STRING_SUBCLASS;\r
#ifdef Py_USING_UNICODE\r
    else if (PyType_IsSubtype(base, &PyUnicode_Type))\r
        type->tp_flags |= Py_TPFLAGS_UNICODE_SUBCLASS;\r
#endif\r
    else if (PyType_IsSubtype(base, &PyTuple_Type))\r
        type->tp_flags |= Py_TPFLAGS_TUPLE_SUBCLASS;\r
    else if (PyType_IsSubtype(base, &PyList_Type))\r
        type->tp_flags |= Py_TPFLAGS_LIST_SUBCLASS;\r
    else if (PyType_IsSubtype(base, &PyDict_Type))\r
        type->tp_flags |= Py_TPFLAGS_DICT_SUBCLASS;\r
}\r
\r
static int\r
overrides_name(PyTypeObject *type, char *name)\r
{\r
    PyObject *dict = type->tp_dict;\r
\r
    assert(dict != NULL);\r
    if (PyDict_GetItemString(dict, name) != NULL) {\r
        return 1;\r
    }\r
    return 0;\r
}\r
\r
#define OVERRIDES_HASH(x)       overrides_name(x, "__hash__")\r
#define OVERRIDES_EQ(x)         overrides_name(x, "__eq__")\r
\r
static void\r
inherit_slots(PyTypeObject *type, PyTypeObject *base)\r
{\r
    PyTypeObject *basebase;\r
\r
#undef SLOTDEFINED\r
#undef COPYSLOT\r
#undef COPYNUM\r
#undef COPYSEQ\r
#undef COPYMAP\r
#undef COPYBUF\r
\r
#define SLOTDEFINED(SLOT) \\r
    (base->SLOT != 0 && \\r
     (basebase == NULL || base->SLOT != basebase->SLOT))\r
\r
#define COPYSLOT(SLOT) \\r
    if (!type->SLOT && SLOTDEFINED(SLOT)) type->SLOT = base->SLOT\r
\r
#define COPYNUM(SLOT) COPYSLOT(tp_as_number->SLOT)\r
#define COPYSEQ(SLOT) COPYSLOT(tp_as_sequence->SLOT)\r
#define COPYMAP(SLOT) COPYSLOT(tp_as_mapping->SLOT)\r
#define COPYBUF(SLOT) COPYSLOT(tp_as_buffer->SLOT)\r
\r
    /* This won't inherit indirect slots (from tp_as_number etc.)\r
       if type doesn't provide the space. */\r
\r
    if (type->tp_as_number != NULL && base->tp_as_number != NULL) {\r
        basebase = base->tp_base;\r
        if (basebase->tp_as_number == NULL)\r
            basebase = NULL;\r
        COPYNUM(nb_add);\r
        COPYNUM(nb_subtract);\r
        COPYNUM(nb_multiply);\r
        COPYNUM(nb_divide);\r
        COPYNUM(nb_remainder);\r
        COPYNUM(nb_divmod);\r
        COPYNUM(nb_power);\r
        COPYNUM(nb_negative);\r
        COPYNUM(nb_positive);\r
        COPYNUM(nb_absolute);\r
        COPYNUM(nb_nonzero);\r
        COPYNUM(nb_invert);\r
        COPYNUM(nb_lshift);\r
        COPYNUM(nb_rshift);\r
        COPYNUM(nb_and);\r
        COPYNUM(nb_xor);\r
        COPYNUM(nb_or);\r
        COPYNUM(nb_coerce);\r
        COPYNUM(nb_int);\r
        COPYNUM(nb_long);\r
        COPYNUM(nb_float);\r
        COPYNUM(nb_oct);\r
        COPYNUM(nb_hex);\r
        COPYNUM(nb_inplace_add);\r
        COPYNUM(nb_inplace_subtract);\r
        COPYNUM(nb_inplace_multiply);\r
        COPYNUM(nb_inplace_divide);\r
        COPYNUM(nb_inplace_remainder);\r
        COPYNUM(nb_inplace_power);\r
        COPYNUM(nb_inplace_lshift);\r
        COPYNUM(nb_inplace_rshift);\r
        COPYNUM(nb_inplace_and);\r
        COPYNUM(nb_inplace_xor);\r
        COPYNUM(nb_inplace_or);\r
        if (base->tp_flags & Py_TPFLAGS_CHECKTYPES) {\r
            COPYNUM(nb_true_divide);\r
            COPYNUM(nb_floor_divide);\r
            COPYNUM(nb_inplace_true_divide);\r
            COPYNUM(nb_inplace_floor_divide);\r
        }\r
        if (base->tp_flags & Py_TPFLAGS_HAVE_INDEX) {\r
            COPYNUM(nb_index);\r
        }\r
    }\r
\r
    if (type->tp_as_sequence != NULL && base->tp_as_sequence != NULL) {\r
        basebase = base->tp_base;\r
        if (basebase->tp_as_sequence == NULL)\r
            basebase = NULL;\r
        COPYSEQ(sq_length);\r
        COPYSEQ(sq_concat);\r
        COPYSEQ(sq_repeat);\r
        COPYSEQ(sq_item);\r
        COPYSEQ(sq_slice);\r
        COPYSEQ(sq_ass_item);\r
        COPYSEQ(sq_ass_slice);\r
        COPYSEQ(sq_contains);\r
        COPYSEQ(sq_inplace_concat);\r
        COPYSEQ(sq_inplace_repeat);\r
    }\r
\r
    if (type->tp_as_mapping != NULL && base->tp_as_mapping != NULL) {\r
        basebase = base->tp_base;\r
        if (basebase->tp_as_mapping == NULL)\r
            basebase = NULL;\r
        COPYMAP(mp_length);\r
        COPYMAP(mp_subscript);\r
        COPYMAP(mp_ass_subscript);\r
    }\r
\r
    if (type->tp_as_buffer != NULL && base->tp_as_buffer != NULL) {\r
        basebase = base->tp_base;\r
        if (basebase->tp_as_buffer == NULL)\r
            basebase = NULL;\r
        COPYBUF(bf_getreadbuffer);\r
        COPYBUF(bf_getwritebuffer);\r
        COPYBUF(bf_getsegcount);\r
        COPYBUF(bf_getcharbuffer);\r
        COPYBUF(bf_getbuffer);\r
        COPYBUF(bf_releasebuffer);\r
    }\r
\r
    basebase = base->tp_base;\r
\r
    COPYSLOT(tp_dealloc);\r
    COPYSLOT(tp_print);\r
    if (type->tp_getattr == NULL && type->tp_getattro == NULL) {\r
        type->tp_getattr = base->tp_getattr;\r
        type->tp_getattro = base->tp_getattro;\r
    }\r
    if (type->tp_setattr == NULL && type->tp_setattro == NULL) {\r
        type->tp_setattr = base->tp_setattr;\r
        type->tp_setattro = base->tp_setattro;\r
    }\r
    /* tp_compare see tp_richcompare */\r
    COPYSLOT(tp_repr);\r
    /* tp_hash see tp_richcompare */\r
    COPYSLOT(tp_call);\r
    COPYSLOT(tp_str);\r
    if (type->tp_flags & base->tp_flags & Py_TPFLAGS_HAVE_RICHCOMPARE) {\r
        if (type->tp_compare == NULL &&\r
            type->tp_richcompare == NULL &&\r
            type->tp_hash == NULL)\r
        {\r
            type->tp_compare = base->tp_compare;\r
            type->tp_richcompare = base->tp_richcompare;\r
            type->tp_hash = base->tp_hash;\r
            /* Check for changes to inherited methods in Py3k*/\r
            if (Py_Py3kWarningFlag) {\r
                if (base->tp_hash &&\r
                                (base->tp_hash != PyObject_HashNotImplemented) &&\r
                                !OVERRIDES_HASH(type)) {\r
                    if (OVERRIDES_EQ(type)) {\r
                        if (PyErr_WarnPy3k("Overriding "\r
                                           "__eq__ blocks inheritance "\r
                                           "of __hash__ in 3.x",\r
                                           1) < 0)\r
                            /* XXX This isn't right.  If the warning is turned\r
                               into an exception, we should be communicating\r
                               the error back to the caller, but figuring out\r
                               how to clean up in that case is tricky.  See\r
                               issue 8627 for more. */\r
                            PyErr_Clear();\r
                    }\r
                }\r
            }\r
        }\r
    }\r
    else {\r
        COPYSLOT(tp_compare);\r
    }\r
    if (type->tp_flags & base->tp_flags & Py_TPFLAGS_HAVE_ITER) {\r
        COPYSLOT(tp_iter);\r
        COPYSLOT(tp_iternext);\r
    }\r
    if (type->tp_flags & base->tp_flags & Py_TPFLAGS_HAVE_CLASS) {\r
        COPYSLOT(tp_descr_get);\r
        COPYSLOT(tp_descr_set);\r
        COPYSLOT(tp_dictoffset);\r
        COPYSLOT(tp_init);\r
        COPYSLOT(tp_alloc);\r
        COPYSLOT(tp_is_gc);\r
        if ((type->tp_flags & Py_TPFLAGS_HAVE_GC) ==\r
            (base->tp_flags & Py_TPFLAGS_HAVE_GC)) {\r
            /* They agree about gc. */\r
            COPYSLOT(tp_free);\r
        }\r
        else if ((type->tp_flags & Py_TPFLAGS_HAVE_GC) &&\r
                 type->tp_free == NULL &&\r
                 base->tp_free == _PyObject_Del) {\r
            /* A bit of magic to plug in the correct default\r
             * tp_free function when a derived class adds gc,\r
             * didn't define tp_free, and the base uses the\r
             * default non-gc tp_free.\r
             */\r
            type->tp_free = PyObject_GC_Del;\r
        }\r
        /* else they didn't agree about gc, and there isn't something\r
         * obvious to be done -- the type is on its own.\r
         */\r
    }\r
}\r
\r
static int add_operators(PyTypeObject *);\r
\r
int\r
PyType_Ready(PyTypeObject *type)\r
{\r
    PyObject *dict, *bases;\r
    PyTypeObject *base;\r
    Py_ssize_t i, n;\r
\r
    if (type->tp_flags & Py_TPFLAGS_READY) {\r
        assert(type->tp_dict != NULL);\r
        return 0;\r
    }\r
    assert((type->tp_flags & Py_TPFLAGS_READYING) == 0);\r
\r
    type->tp_flags |= Py_TPFLAGS_READYING;\r
\r
#ifdef Py_TRACE_REFS\r
    /* PyType_Ready is the closest thing we have to a choke point\r
     * for type objects, so is the best place I can think of to try\r
     * to get type objects into the doubly-linked list of all objects.\r
     * Still, not all type objects go thru PyType_Ready.\r
     */\r
    _Py_AddToAllObjects((PyObject *)type, 0);\r
#endif\r
\r
    /* Initialize tp_base (defaults to BaseObject unless that's us) */\r
    base = type->tp_base;\r
    if (base == NULL && type != &PyBaseObject_Type) {\r
        base = type->tp_base = &PyBaseObject_Type;\r
        Py_INCREF(base);\r
    }\r
\r
    /* Now the only way base can still be NULL is if type is\r
     * &PyBaseObject_Type.\r
     */\r
\r
    /* Initialize the base class */\r
    if (base && base->tp_dict == NULL) {\r
        if (PyType_Ready(base) < 0)\r
            goto error;\r
    }\r
\r
    /* Initialize ob_type if NULL.      This means extensions that want to be\r
       compilable separately on Windows can call PyType_Ready() instead of\r
       initializing the ob_type field of their type objects. */\r
    /* The test for base != NULL is really unnecessary, since base is only\r
       NULL when type is &PyBaseObject_Type, and we know its ob_type is\r
       not NULL (it's initialized to &PyType_Type).      But coverity doesn't\r
       know that. */\r
    if (Py_TYPE(type) == NULL && base != NULL)\r
        Py_TYPE(type) = Py_TYPE(base);\r
\r
    /* Initialize tp_bases */\r
    bases = type->tp_bases;\r
    if (bases == NULL) {\r
        if (base == NULL)\r
            bases = PyTuple_New(0);\r
        else\r
            bases = PyTuple_Pack(1, base);\r
        if (bases == NULL)\r
            goto error;\r
        type->tp_bases = bases;\r
    }\r
\r
    /* Initialize tp_dict */\r
    dict = type->tp_dict;\r
    if (dict == NULL) {\r
        dict = PyDict_New();\r
        if (dict == NULL)\r
            goto error;\r
        type->tp_dict = dict;\r
    }\r
\r
    /* Add type-specific descriptors to tp_dict */\r
    if (add_operators(type) < 0)\r
        goto error;\r
    if (type->tp_methods != NULL) {\r
        if (add_methods(type, type->tp_methods) < 0)\r
            goto error;\r
    }\r
    if (type->tp_members != NULL) {\r
        if (add_members(type, type->tp_members) < 0)\r
            goto error;\r
    }\r
    if (type->tp_getset != NULL) {\r
        if (add_getset(type, type->tp_getset) < 0)\r
            goto error;\r
    }\r
\r
    /* Calculate method resolution order */\r
    if (mro_internal(type) < 0) {\r
        goto error;\r
    }\r
\r
    /* Inherit special flags from dominant base */\r
    if (type->tp_base != NULL)\r
        inherit_special(type, type->tp_base);\r
\r
    /* Initialize tp_dict properly */\r
    bases = type->tp_mro;\r
    assert(bases != NULL);\r
    assert(PyTuple_Check(bases));\r
    n = PyTuple_GET_SIZE(bases);\r
    for (i = 1; i < n; i++) {\r
        PyObject *b = PyTuple_GET_ITEM(bases, i);\r
        if (PyType_Check(b))\r
            inherit_slots(type, (PyTypeObject *)b);\r
    }\r
\r
    /* All bases of statically allocated type should be statically allocated */\r
    if (Py_Py3kWarningFlag && !(type->tp_flags & Py_TPFLAGS_HEAPTYPE))\r
        for (i = 0; i < n; i++) {\r
            PyObject *b = PyTuple_GET_ITEM(bases, i);\r
            if (PyType_Check(b) &&\r
                (((PyTypeObject *)b)->tp_flags & Py_TPFLAGS_HEAPTYPE)) {\r
                char buf[300];\r
                PyOS_snprintf(buf, sizeof(buf),\r
                              "type '%.100s' is not dynamically allocated but "\r
                              "its base type '%.100s' is dynamically allocated",\r
                              type->tp_name, ((PyTypeObject *)b)->tp_name);\r
                if (PyErr_WarnPy3k(buf, 1) < 0)\r
                    goto error;\r
                break;\r
            }\r
        }\r
\r
    /* Sanity check for tp_free. */\r
    if (PyType_IS_GC(type) && (type->tp_flags & Py_TPFLAGS_BASETYPE) &&\r
        (type->tp_free == NULL || type->tp_free == PyObject_Del)) {\r
        /* This base class needs to call tp_free, but doesn't have\r
         * one, or its tp_free is for non-gc'ed objects.\r
         */\r
        PyErr_Format(PyExc_TypeError, "type '%.100s' participates in "\r
                     "gc and is a base type but has inappropriate "\r
                     "tp_free slot",\r
                     type->tp_name);\r
        goto error;\r
    }\r
\r
    /* if the type dictionary doesn't contain a __doc__, set it from\r
       the tp_doc slot.\r
     */\r
    if (PyDict_GetItemString(type->tp_dict, "__doc__") == NULL) {\r
        if (type->tp_doc != NULL) {\r
            PyObject *doc = PyString_FromString(type->tp_doc);\r
            if (doc == NULL)\r
                goto error;\r
            PyDict_SetItemString(type->tp_dict, "__doc__", doc);\r
            Py_DECREF(doc);\r
        } else {\r
            PyDict_SetItemString(type->tp_dict,\r
                                 "__doc__", Py_None);\r
        }\r
    }\r
\r
    /* Some more special stuff */\r
    base = type->tp_base;\r
    if (base != NULL) {\r
        if (type->tp_as_number == NULL)\r
            type->tp_as_number = base->tp_as_number;\r
        if (type->tp_as_sequence == NULL)\r
            type->tp_as_sequence = base->tp_as_sequence;\r
        if (type->tp_as_mapping == NULL)\r
            type->tp_as_mapping = base->tp_as_mapping;\r
        if (type->tp_as_buffer == NULL)\r
            type->tp_as_buffer = base->tp_as_buffer;\r
    }\r
\r
    /* Link into each base class's list of subclasses */\r
    bases = type->tp_bases;\r
    n = PyTuple_GET_SIZE(bases);\r
    for (i = 0; i < n; i++) {\r
        PyObject *b = PyTuple_GET_ITEM(bases, i);\r
        if (PyType_Check(b) &&\r
            add_subclass((PyTypeObject *)b, type) < 0)\r
            goto error;\r
    }\r
\r
    /* All done -- set the ready flag */\r
    assert(type->tp_dict != NULL);\r
    type->tp_flags =\r
        (type->tp_flags & ~Py_TPFLAGS_READYING) | Py_TPFLAGS_READY;\r
    return 0;\r
\r
  error:\r
    type->tp_flags &= ~Py_TPFLAGS_READYING;\r
    return -1;\r
}\r
\r
static int\r
add_subclass(PyTypeObject *base, PyTypeObject *type)\r
{\r
    Py_ssize_t i;\r
    int result;\r
    PyObject *list, *ref, *newobj;\r
\r
    list = base->tp_subclasses;\r
    if (list == NULL) {\r
        base->tp_subclasses = list = PyList_New(0);\r
        if (list == NULL)\r
            return -1;\r
    }\r
    assert(PyList_Check(list));\r
    newobj = PyWeakref_NewRef((PyObject *)type, NULL);\r
    i = PyList_GET_SIZE(list);\r
    while (--i >= 0) {\r
        ref = PyList_GET_ITEM(list, i);\r
        assert(PyWeakref_CheckRef(ref));\r
        if (PyWeakref_GET_OBJECT(ref) == Py_None)\r
            return PyList_SetItem(list, i, newobj);\r
    }\r
    result = PyList_Append(list, newobj);\r
    Py_DECREF(newobj);\r
    return result;\r
}\r
\r
static void\r
remove_subclass(PyTypeObject *base, PyTypeObject *type)\r
{\r
    Py_ssize_t i;\r
    PyObject *list, *ref;\r
\r
    list = base->tp_subclasses;\r
    if (list == NULL) {\r
        return;\r
    }\r
    assert(PyList_Check(list));\r
    i = PyList_GET_SIZE(list);\r
    while (--i >= 0) {\r
        ref = PyList_GET_ITEM(list, i);\r
        assert(PyWeakref_CheckRef(ref));\r
        if (PyWeakref_GET_OBJECT(ref) == (PyObject*)type) {\r
            /* this can't fail, right? */\r
            PySequence_DelItem(list, i);\r
            return;\r
        }\r
    }\r
}\r
\r
static int\r
check_num_args(PyObject *ob, int n)\r
{\r
    if (!PyTuple_CheckExact(ob)) {\r
        PyErr_SetString(PyExc_SystemError,\r
            "PyArg_UnpackTuple() argument list is not a tuple");\r
        return 0;\r
    }\r
    if (n == PyTuple_GET_SIZE(ob))\r
        return 1;\r
    PyErr_Format(\r
        PyExc_TypeError,\r
        "expected %d arguments, got %zd", n, PyTuple_GET_SIZE(ob));\r
    return 0;\r
}\r
\r
/* Generic wrappers for overloadable 'operators' such as __getitem__ */\r
\r
/* There's a wrapper *function* for each distinct function typedef used\r
   for type object slots (e.g. binaryfunc, ternaryfunc, etc.).  There's a\r
   wrapper *table* for each distinct operation (e.g. __len__, __add__).\r
   Most tables have only one entry; the tables for binary operators have two\r
   entries, one regular and one with reversed arguments. */\r
\r
static PyObject *\r
wrap_lenfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    lenfunc func = (lenfunc)wrapped;\r
    Py_ssize_t res;\r
\r
    if (!check_num_args(args, 0))\r
        return NULL;\r
    res = (*func)(self);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    return PyInt_FromLong((long)res);\r
}\r
\r
static PyObject *\r
wrap_inquirypred(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    inquiry func = (inquiry)wrapped;\r
    int res;\r
\r
    if (!check_num_args(args, 0))\r
        return NULL;\r
    res = (*func)(self);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    return PyBool_FromLong((long)res);\r
}\r
\r
static PyObject *\r
wrap_binaryfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    binaryfunc func = (binaryfunc)wrapped;\r
    PyObject *other;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    other = PyTuple_GET_ITEM(args, 0);\r
    return (*func)(self, other);\r
}\r
\r
static PyObject *\r
wrap_binaryfunc_l(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    binaryfunc func = (binaryfunc)wrapped;\r
    PyObject *other;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    other = PyTuple_GET_ITEM(args, 0);\r
    if (!(self->ob_type->tp_flags & Py_TPFLAGS_CHECKTYPES) &&\r
        !PyType_IsSubtype(other->ob_type, self->ob_type)) {\r
        Py_INCREF(Py_NotImplemented);\r
        return Py_NotImplemented;\r
    }\r
    return (*func)(self, other);\r
}\r
\r
static PyObject *\r
wrap_binaryfunc_r(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    binaryfunc func = (binaryfunc)wrapped;\r
    PyObject *other;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    other = PyTuple_GET_ITEM(args, 0);\r
    if (!(self->ob_type->tp_flags & Py_TPFLAGS_CHECKTYPES) &&\r
        !PyType_IsSubtype(other->ob_type, self->ob_type)) {\r
        Py_INCREF(Py_NotImplemented);\r
        return Py_NotImplemented;\r
    }\r
    return (*func)(other, self);\r
}\r
\r
static PyObject *\r
wrap_coercefunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    coercion func = (coercion)wrapped;\r
    PyObject *other, *res;\r
    int ok;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    other = PyTuple_GET_ITEM(args, 0);\r
    ok = func(&self, &other);\r
    if (ok < 0)\r
        return NULL;\r
    if (ok > 0) {\r
        Py_INCREF(Py_NotImplemented);\r
        return Py_NotImplemented;\r
    }\r
    res = PyTuple_New(2);\r
    if (res == NULL) {\r
        Py_DECREF(self);\r
        Py_DECREF(other);\r
        return NULL;\r
    }\r
    PyTuple_SET_ITEM(res, 0, self);\r
    PyTuple_SET_ITEM(res, 1, other);\r
    return res;\r
}\r
\r
static PyObject *\r
wrap_ternaryfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ternaryfunc func = (ternaryfunc)wrapped;\r
    PyObject *other;\r
    PyObject *third = Py_None;\r
\r
    /* Note: This wrapper only works for __pow__() */\r
\r
    if (!PyArg_UnpackTuple(args, "", 1, 2, &other, &third))\r
        return NULL;\r
    return (*func)(self, other, third);\r
}\r
\r
static PyObject *\r
wrap_ternaryfunc_r(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ternaryfunc func = (ternaryfunc)wrapped;\r
    PyObject *other;\r
    PyObject *third = Py_None;\r
\r
    /* Note: This wrapper only works for __pow__() */\r
\r
    if (!PyArg_UnpackTuple(args, "", 1, 2, &other, &third))\r
        return NULL;\r
    return (*func)(other, self, third);\r
}\r
\r
static PyObject *\r
wrap_unaryfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    unaryfunc func = (unaryfunc)wrapped;\r
\r
    if (!check_num_args(args, 0))\r
        return NULL;\r
    return (*func)(self);\r
}\r
\r
static PyObject *\r
wrap_indexargfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ssizeargfunc func = (ssizeargfunc)wrapped;\r
    PyObject* o;\r
    Py_ssize_t i;\r
\r
    if (!PyArg_UnpackTuple(args, "", 1, 1, &o))\r
        return NULL;\r
    i = PyNumber_AsSsize_t(o, PyExc_OverflowError);\r
    if (i == -1 && PyErr_Occurred())\r
        return NULL;\r
    return (*func)(self, i);\r
}\r
\r
static Py_ssize_t\r
getindex(PyObject *self, PyObject *arg)\r
{\r
    Py_ssize_t i;\r
\r
    i = PyNumber_AsSsize_t(arg, PyExc_OverflowError);\r
    if (i == -1 && PyErr_Occurred())\r
        return -1;\r
    if (i < 0) {\r
        PySequenceMethods *sq = Py_TYPE(self)->tp_as_sequence;\r
        if (sq && sq->sq_length) {\r
            Py_ssize_t n = (*sq->sq_length)(self);\r
            if (n < 0)\r
                return -1;\r
            i += n;\r
        }\r
    }\r
    return i;\r
}\r
\r
static PyObject *\r
wrap_sq_item(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ssizeargfunc func = (ssizeargfunc)wrapped;\r
    PyObject *arg;\r
    Py_ssize_t i;\r
\r
    if (PyTuple_GET_SIZE(args) == 1) {\r
        arg = PyTuple_GET_ITEM(args, 0);\r
        i = getindex(self, arg);\r
        if (i == -1 && PyErr_Occurred())\r
            return NULL;\r
        return (*func)(self, i);\r
    }\r
    check_num_args(args, 1);\r
    assert(PyErr_Occurred());\r
    return NULL;\r
}\r
\r
static PyObject *\r
wrap_ssizessizeargfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ssizessizeargfunc func = (ssizessizeargfunc)wrapped;\r
    Py_ssize_t i, j;\r
\r
    if (!PyArg_ParseTuple(args, "nn", &i, &j))\r
        return NULL;\r
    return (*func)(self, i, j);\r
}\r
\r
static PyObject *\r
wrap_sq_setitem(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ssizeobjargproc func = (ssizeobjargproc)wrapped;\r
    Py_ssize_t i;\r
    int res;\r
    PyObject *arg, *value;\r
\r
    if (!PyArg_UnpackTuple(args, "", 2, 2, &arg, &value))\r
        return NULL;\r
    i = getindex(self, arg);\r
    if (i == -1 && PyErr_Occurred())\r
        return NULL;\r
    res = (*func)(self, i, value);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_sq_delitem(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ssizeobjargproc func = (ssizeobjargproc)wrapped;\r
    Py_ssize_t i;\r
    int res;\r
    PyObject *arg;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    arg = PyTuple_GET_ITEM(args, 0);\r
    i = getindex(self, arg);\r
    if (i == -1 && PyErr_Occurred())\r
        return NULL;\r
    res = (*func)(self, i, NULL);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_ssizessizeobjargproc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ssizessizeobjargproc func = (ssizessizeobjargproc)wrapped;\r
    Py_ssize_t i, j;\r
    int res;\r
    PyObject *value;\r
\r
    if (!PyArg_ParseTuple(args, "nnO", &i, &j, &value))\r
        return NULL;\r
    res = (*func)(self, i, j, value);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_delslice(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    ssizessizeobjargproc func = (ssizessizeobjargproc)wrapped;\r
    Py_ssize_t i, j;\r
    int res;\r
\r
    if (!PyArg_ParseTuple(args, "nn", &i, &j))\r
        return NULL;\r
    res = (*func)(self, i, j, NULL);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
/* XXX objobjproc is a misnomer; should be objargpred */\r
static PyObject *\r
wrap_objobjproc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    objobjproc func = (objobjproc)wrapped;\r
    int res;\r
    PyObject *value;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    value = PyTuple_GET_ITEM(args, 0);\r
    res = (*func)(self, value);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    else\r
        return PyBool_FromLong(res);\r
}\r
\r
static PyObject *\r
wrap_objobjargproc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    objobjargproc func = (objobjargproc)wrapped;\r
    int res;\r
    PyObject *key, *value;\r
\r
    if (!PyArg_UnpackTuple(args, "", 2, 2, &key, &value))\r
        return NULL;\r
    res = (*func)(self, key, value);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_delitem(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    objobjargproc func = (objobjargproc)wrapped;\r
    int res;\r
    PyObject *key;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    key = PyTuple_GET_ITEM(args, 0);\r
    res = (*func)(self, key, NULL);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_cmpfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    cmpfunc func = (cmpfunc)wrapped;\r
    int res;\r
    PyObject *other;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    other = PyTuple_GET_ITEM(args, 0);\r
    if (Py_TYPE(other)->tp_compare != func &&\r
        !PyType_IsSubtype(Py_TYPE(other), Py_TYPE(self))) {\r
        PyErr_Format(\r
            PyExc_TypeError,\r
            "%s.__cmp__(x,y) requires y to be a '%s', not a '%s'",\r
            Py_TYPE(self)->tp_name,\r
            Py_TYPE(self)->tp_name,\r
            Py_TYPE(other)->tp_name);\r
        return NULL;\r
    }\r
    res = (*func)(self, other);\r
    if (PyErr_Occurred())\r
        return NULL;\r
    return PyInt_FromLong((long)res);\r
}\r
\r
/* Helper to check for object.__setattr__ or __delattr__ applied to a type.\r
   This is called the Carlo Verre hack after its discoverer. */\r
static int\r
hackcheck(PyObject *self, setattrofunc func, char *what)\r
{\r
    PyTypeObject *type = Py_TYPE(self);\r
    while (type && type->tp_flags & Py_TPFLAGS_HEAPTYPE)\r
        type = type->tp_base;\r
    /* If type is NULL now, this is a really weird type.\r
       In the spirit of backwards compatibility (?), just shut up. */\r
    if (type && type->tp_setattro != func) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "can't apply this %s to %s object",\r
                     what,\r
                     type->tp_name);\r
        return 0;\r
    }\r
    return 1;\r
}\r
\r
static PyObject *\r
wrap_setattr(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    setattrofunc func = (setattrofunc)wrapped;\r
    int res;\r
    PyObject *name, *value;\r
\r
    if (!PyArg_UnpackTuple(args, "", 2, 2, &name, &value))\r
        return NULL;\r
    if (!hackcheck(self, func, "__setattr__"))\r
        return NULL;\r
    res = (*func)(self, name, value);\r
    if (res < 0)\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_delattr(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    setattrofunc func = (setattrofunc)wrapped;\r
    int res;\r
    PyObject *name;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    name = PyTuple_GET_ITEM(args, 0);\r
    if (!hackcheck(self, func, "__delattr__"))\r
        return NULL;\r
    res = (*func)(self, name, NULL);\r
    if (res < 0)\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_hashfunc(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    hashfunc func = (hashfunc)wrapped;\r
    long res;\r
\r
    if (!check_num_args(args, 0))\r
        return NULL;\r
    res = (*func)(self);\r
    if (res == -1 && PyErr_Occurred())\r
        return NULL;\r
    return PyInt_FromLong(res);\r
}\r
\r
static PyObject *\r
wrap_call(PyObject *self, PyObject *args, void *wrapped, PyObject *kwds)\r
{\r
    ternaryfunc func = (ternaryfunc)wrapped;\r
\r
    return (*func)(self, args, kwds);\r
}\r
\r
static PyObject *\r
wrap_richcmpfunc(PyObject *self, PyObject *args, void *wrapped, int op)\r
{\r
    richcmpfunc func = (richcmpfunc)wrapped;\r
    PyObject *other;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    other = PyTuple_GET_ITEM(args, 0);\r
    return (*func)(self, other, op);\r
}\r
\r
#undef RICHCMP_WRAPPER\r
#define RICHCMP_WRAPPER(NAME, OP) \\r
static PyObject * \\r
richcmp_##NAME(PyObject *self, PyObject *args, void *wrapped) \\r
{ \\r
    return wrap_richcmpfunc(self, args, wrapped, OP); \\r
}\r
\r
RICHCMP_WRAPPER(lt, Py_LT)\r
RICHCMP_WRAPPER(le, Py_LE)\r
RICHCMP_WRAPPER(eq, Py_EQ)\r
RICHCMP_WRAPPER(ne, Py_NE)\r
RICHCMP_WRAPPER(gt, Py_GT)\r
RICHCMP_WRAPPER(ge, Py_GE)\r
\r
static PyObject *\r
wrap_next(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    unaryfunc func = (unaryfunc)wrapped;\r
    PyObject *res;\r
\r
    if (!check_num_args(args, 0))\r
        return NULL;\r
    res = (*func)(self);\r
    if (res == NULL && !PyErr_Occurred())\r
        PyErr_SetNone(PyExc_StopIteration);\r
    return res;\r
}\r
\r
static PyObject *\r
wrap_descr_get(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    descrgetfunc func = (descrgetfunc)wrapped;\r
    PyObject *obj;\r
    PyObject *type = NULL;\r
\r
    if (!PyArg_UnpackTuple(args, "", 1, 2, &obj, &type))\r
        return NULL;\r
    if (obj == Py_None)\r
        obj = NULL;\r
    if (type == Py_None)\r
        type = NULL;\r
    if (type == NULL &&obj == NULL) {\r
        PyErr_SetString(PyExc_TypeError,\r
                        "__get__(None, None) is invalid");\r
        return NULL;\r
    }\r
    return (*func)(self, obj, type);\r
}\r
\r
static PyObject *\r
wrap_descr_set(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    descrsetfunc func = (descrsetfunc)wrapped;\r
    PyObject *obj, *value;\r
    int ret;\r
\r
    if (!PyArg_UnpackTuple(args, "", 2, 2, &obj, &value))\r
        return NULL;\r
    ret = (*func)(self, obj, value);\r
    if (ret < 0)\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_descr_delete(PyObject *self, PyObject *args, void *wrapped)\r
{\r
    descrsetfunc func = (descrsetfunc)wrapped;\r
    PyObject *obj;\r
    int ret;\r
\r
    if (!check_num_args(args, 1))\r
        return NULL;\r
    obj = PyTuple_GET_ITEM(args, 0);\r
    ret = (*func)(self, obj, NULL);\r
    if (ret < 0)\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
wrap_init(PyObject *self, PyObject *args, void *wrapped, PyObject *kwds)\r
{\r
    initproc func = (initproc)wrapped;\r
\r
    if (func(self, args, kwds) < 0)\r
        return NULL;\r
    Py_INCREF(Py_None);\r
    return Py_None;\r
}\r
\r
static PyObject *\r
tp_new_wrapper(PyObject *self, PyObject *args, PyObject *kwds)\r
{\r
    PyTypeObject *type, *subtype, *staticbase;\r
    PyObject *arg0, *res;\r
\r
    if (self == NULL || !PyType_Check(self))\r
        Py_FatalError("__new__() called with non-type 'self'");\r
    type = (PyTypeObject *)self;\r
    if (!PyTuple_Check(args) || PyTuple_GET_SIZE(args) < 1) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "%s.__new__(): not enough arguments",\r
                     type->tp_name);\r
        return NULL;\r
    }\r
    arg0 = PyTuple_GET_ITEM(args, 0);\r
    if (!PyType_Check(arg0)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "%s.__new__(X): X is not a type object (%s)",\r
                     type->tp_name,\r
                     Py_TYPE(arg0)->tp_name);\r
        return NULL;\r
    }\r
    subtype = (PyTypeObject *)arg0;\r
    if (!PyType_IsSubtype(subtype, type)) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "%s.__new__(%s): %s is not a subtype of %s",\r
                     type->tp_name,\r
                     subtype->tp_name,\r
                     subtype->tp_name,\r
                     type->tp_name);\r
        return NULL;\r
    }\r
\r
    /* Check that the use doesn't do something silly and unsafe like\r
       object.__new__(dict).  To do this, we check that the\r
       most derived base that's not a heap type is this type. */\r
    staticbase = subtype;\r
    while (staticbase && (staticbase->tp_flags & Py_TPFLAGS_HEAPTYPE))\r
        staticbase = staticbase->tp_base;\r
    /* If staticbase is NULL now, it is a really weird type.\r
       In the spirit of backwards compatibility (?), just shut up. */\r
    if (staticbase && staticbase->tp_new != type->tp_new) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "%s.__new__(%s) is not safe, use %s.__new__()",\r
                     type->tp_name,\r
                     subtype->tp_name,\r
                     staticbase->tp_name);\r
        return NULL;\r
    }\r
\r
    args = PyTuple_GetSlice(args, 1, PyTuple_GET_SIZE(args));\r
    if (args == NULL)\r
        return NULL;\r
    res = type->tp_new(subtype, args, kwds);\r
    Py_DECREF(args);\r
    return res;\r
}\r
\r
static struct PyMethodDef tp_new_methoddef[] = {\r
    {"__new__", (PyCFunction)tp_new_wrapper, METH_VARARGS|METH_KEYWORDS,\r
     PyDoc_STR("T.__new__(S, ...) -> "\r
               "a new object with type S, a subtype of T")},\r
    {0}\r
};\r
\r
static int\r
add_tp_new_wrapper(PyTypeObject *type)\r
{\r
    PyObject *func;\r
\r
    if (PyDict_GetItemString(type->tp_dict, "__new__") != NULL)\r
        return 0;\r
    func = PyCFunction_New(tp_new_methoddef, (PyObject *)type);\r
    if (func == NULL)\r
        return -1;\r
    if (PyDict_SetItemString(type->tp_dict, "__new__", func)) {\r
        Py_DECREF(func);\r
        return -1;\r
    }\r
    Py_DECREF(func);\r
    return 0;\r
}\r
\r
/* Slot wrappers that call the corresponding __foo__ slot.  See comments\r
   below at override_slots() for more explanation. */\r
\r
#define SLOT0(FUNCNAME, OPSTR) \\r
static PyObject * \\r
FUNCNAME(PyObject *self) \\r
{ \\r
    static PyObject *cache_str; \\r
    return call_method(self, OPSTR, &cache_str, "()"); \\r
}\r
\r
#define SLOT1(FUNCNAME, OPSTR, ARG1TYPE, ARGCODES) \\r
static PyObject * \\r
FUNCNAME(PyObject *self, ARG1TYPE arg1) \\r
{ \\r
    static PyObject *cache_str; \\r
    return call_method(self, OPSTR, &cache_str, "(" ARGCODES ")", arg1); \\r
}\r
\r
/* Boolean helper for SLOT1BINFULL().\r
   right.__class__ is a nontrivial subclass of left.__class__. */\r
static int\r
method_is_overloaded(PyObject *left, PyObject *right, char *name)\r
{\r
    PyObject *a, *b;\r
    int ok;\r
\r
    b = PyObject_GetAttrString((PyObject *)(Py_TYPE(right)), name);\r
    if (b == NULL) {\r
        PyErr_Clear();\r
        /* If right doesn't have it, it's not overloaded */\r
        return 0;\r
    }\r
\r
    a = PyObject_GetAttrString((PyObject *)(Py_TYPE(left)), name);\r
    if (a == NULL) {\r
        PyErr_Clear();\r
        Py_DECREF(b);\r
        /* If right has it but left doesn't, it's overloaded */\r
        return 1;\r
    }\r
\r
    ok = PyObject_RichCompareBool(a, b, Py_NE);\r
    Py_DECREF(a);\r
    Py_DECREF(b);\r
    if (ok < 0) {\r
        PyErr_Clear();\r
        return 0;\r
    }\r
\r
    return ok;\r
}\r
\r
\r
#define SLOT1BINFULL(FUNCNAME, TESTFUNC, SLOTNAME, OPSTR, ROPSTR) \\r
static PyObject * \\r
FUNCNAME(PyObject *self, PyObject *other) \\r
{ \\r
    static PyObject *cache_str, *rcache_str; \\r
    int do_other = Py_TYPE(self) != Py_TYPE(other) && \\r
        Py_TYPE(other)->tp_as_number != NULL && \\r
        Py_TYPE(other)->tp_as_number->SLOTNAME == TESTFUNC; \\r
    if (Py_TYPE(self)->tp_as_number != NULL && \\r
        Py_TYPE(self)->tp_as_number->SLOTNAME == TESTFUNC) { \\r
        PyObject *r; \\r
        if (do_other && \\r
            PyType_IsSubtype(Py_TYPE(other), Py_TYPE(self)) && \\r
            method_is_overloaded(self, other, ROPSTR)) { \\r
            r = call_maybe( \\r
                other, ROPSTR, &rcache_str, "(O)", self); \\r
            if (r != Py_NotImplemented) \\r
                return r; \\r
            Py_DECREF(r); \\r
            do_other = 0; \\r
        } \\r
        r = call_maybe( \\r
            self, OPSTR, &cache_str, "(O)", other); \\r
        if (r != Py_NotImplemented || \\r
            Py_TYPE(other) == Py_TYPE(self)) \\r
            return r; \\r
        Py_DECREF(r); \\r
    } \\r
    if (do_other) { \\r
        return call_maybe( \\r
            other, ROPSTR, &rcache_str, "(O)", self); \\r
    } \\r
    Py_INCREF(Py_NotImplemented); \\r
    return Py_NotImplemented; \\r
}\r
\r
#define SLOT1BIN(FUNCNAME, SLOTNAME, OPSTR, ROPSTR) \\r
    SLOT1BINFULL(FUNCNAME, FUNCNAME, SLOTNAME, OPSTR, ROPSTR)\r
\r
#define SLOT2(FUNCNAME, OPSTR, ARG1TYPE, ARG2TYPE, ARGCODES) \\r
static PyObject * \\r
FUNCNAME(PyObject *self, ARG1TYPE arg1, ARG2TYPE arg2) \\r
{ \\r
    static PyObject *cache_str; \\r
    return call_method(self, OPSTR, &cache_str, \\r
                       "(" ARGCODES ")", arg1, arg2); \\r
}\r
\r
static Py_ssize_t\r
slot_sq_length(PyObject *self)\r
{\r
    static PyObject *len_str;\r
    PyObject *res = call_method(self, "__len__", &len_str, "()");\r
    Py_ssize_t len;\r
\r
    if (res == NULL)\r
        return -1;\r
    len = PyInt_AsSsize_t(res);\r
    Py_DECREF(res);\r
    if (len < 0) {\r
        if (!PyErr_Occurred())\r
            PyErr_SetString(PyExc_ValueError,\r
                            "__len__() should return >= 0");\r
        return -1;\r
    }\r
    return len;\r
}\r
\r
/* Super-optimized version of slot_sq_item.\r
   Other slots could do the same... */\r
static PyObject *\r
slot_sq_item(PyObject *self, Py_ssize_t i)\r
{\r
    static PyObject *getitem_str;\r
    PyObject *func, *args = NULL, *ival = NULL, *retval = NULL;\r
    descrgetfunc f;\r
\r
    if (getitem_str == NULL) {\r
        getitem_str = PyString_InternFromString("__getitem__");\r
        if (getitem_str == NULL)\r
            return NULL;\r
    }\r
    func = _PyType_Lookup(Py_TYPE(self), getitem_str);\r
    if (func != NULL) {\r
        if ((f = Py_TYPE(func)->tp_descr_get) == NULL)\r
            Py_INCREF(func);\r
        else {\r
            func = f(func, self, (PyObject *)(Py_TYPE(self)));\r
            if (func == NULL) {\r
                return NULL;\r
            }\r
        }\r
        ival = PyInt_FromSsize_t(i);\r
        if (ival != NULL) {\r
            args = PyTuple_New(1);\r
            if (args != NULL) {\r
                PyTuple_SET_ITEM(args, 0, ival);\r
                retval = PyObject_Call(func, args, NULL);\r
                Py_XDECREF(args);\r
                Py_XDECREF(func);\r
                return retval;\r
            }\r
        }\r
    }\r
    else {\r
        PyErr_SetObject(PyExc_AttributeError, getitem_str);\r
    }\r
    Py_XDECREF(args);\r
    Py_XDECREF(ival);\r
    Py_XDECREF(func);\r
    return NULL;\r
}\r
\r
static PyObject*\r
slot_sq_slice(PyObject *self, Py_ssize_t i, Py_ssize_t j)\r
{\r
    static PyObject *getslice_str;\r
\r
    if (PyErr_WarnPy3k("in 3.x, __getslice__ has been removed; "\r
                        "use __getitem__", 1) < 0)\r
        return NULL;\r
    return call_method(self, "__getslice__", &getslice_str,\r
        "nn", i, j);\r
}\r
\r
static int\r
slot_sq_ass_item(PyObject *self, Py_ssize_t index, PyObject *value)\r
{\r
    PyObject *res;\r
    static PyObject *delitem_str, *setitem_str;\r
\r
    if (value == NULL)\r
        res = call_method(self, "__delitem__", &delitem_str,\r
                          "(n)", index);\r
    else\r
        res = call_method(self, "__setitem__", &setitem_str,\r
                          "(nO)", index, value);\r
    if (res == NULL)\r
        return -1;\r
    Py_DECREF(res);\r
    return 0;\r
}\r
\r
static int\r
slot_sq_ass_slice(PyObject *self, Py_ssize_t i, Py_ssize_t j, PyObject *value)\r
{\r
    PyObject *res;\r
    static PyObject *delslice_str, *setslice_str;\r
\r
    if (value == NULL) {\r
        if (PyErr_WarnPy3k("in 3.x, __delslice__ has been removed; "\r
                           "use __delitem__", 1) < 0)\r
            return -1;\r
        res = call_method(self, "__delslice__", &delslice_str,\r
                          "(nn)", i, j);\r
    }\r
    else {\r
        if (PyErr_WarnPy3k("in 3.x, __setslice__ has been removed; "\r
                                "use __setitem__", 1) < 0)\r
            return -1;\r
        res = call_method(self, "__setslice__", &setslice_str,\r
                  "(nnO)", i, j, value);\r
    }\r
    if (res == NULL)\r
        return -1;\r
    Py_DECREF(res);\r
    return 0;\r
}\r
\r
static int\r
slot_sq_contains(PyObject *self, PyObject *value)\r
{\r
    PyObject *func, *res, *args;\r
    int result = -1;\r
\r
    static PyObject *contains_str;\r
\r
    func = lookup_maybe(self, "__contains__", &contains_str);\r
    if (func != NULL) {\r
        args = PyTuple_Pack(1, value);\r
        if (args == NULL)\r
            res = NULL;\r
        else {\r
            res = PyObject_Call(func, args, NULL);\r
            Py_DECREF(args);\r
        }\r
        Py_DECREF(func);\r
        if (res != NULL) {\r
            result = PyObject_IsTrue(res);\r
            Py_DECREF(res);\r
        }\r
    }\r
    else if (! PyErr_Occurred()) {\r
        /* Possible results: -1 and 1 */\r
        result = (int)_PySequence_IterSearch(self, value,\r
                                         PY_ITERSEARCH_CONTAINS);\r
    }\r
    return result;\r
}\r
\r
#define slot_mp_length slot_sq_length\r
\r
SLOT1(slot_mp_subscript, "__getitem__", PyObject *, "O")\r
\r
static int\r
slot_mp_ass_subscript(PyObject *self, PyObject *key, PyObject *value)\r
{\r
    PyObject *res;\r
    static PyObject *delitem_str, *setitem_str;\r
\r
    if (value == NULL)\r
        res = call_method(self, "__delitem__", &delitem_str,\r
                          "(O)", key);\r
    else\r
        res = call_method(self, "__setitem__", &setitem_str,\r
                         "(OO)", key, value);\r
    if (res == NULL)\r
        return -1;\r
    Py_DECREF(res);\r
    return 0;\r
}\r
\r
SLOT1BIN(slot_nb_add, nb_add, "__add__", "__radd__")\r
SLOT1BIN(slot_nb_subtract, nb_subtract, "__sub__", "__rsub__")\r
SLOT1BIN(slot_nb_multiply, nb_multiply, "__mul__", "__rmul__")\r
SLOT1BIN(slot_nb_divide, nb_divide, "__div__", "__rdiv__")\r
SLOT1BIN(slot_nb_remainder, nb_remainder, "__mod__", "__rmod__")\r
SLOT1BIN(slot_nb_divmod, nb_divmod, "__divmod__", "__rdivmod__")\r
\r
static PyObject *slot_nb_power(PyObject *, PyObject *, PyObject *);\r
\r
SLOT1BINFULL(slot_nb_power_binary, slot_nb_power,\r
             nb_power, "__pow__", "__rpow__")\r
\r
static PyObject *\r
slot_nb_power(PyObject *self, PyObject *other, PyObject *modulus)\r
{\r
    static PyObject *pow_str;\r
\r
    if (modulus == Py_None)\r
        return slot_nb_power_binary(self, other);\r
    /* Three-arg power doesn't use __rpow__.  But ternary_op\r
       can call this when the second argument's type uses\r
       slot_nb_power, so check before calling self.__pow__. */\r
    if (Py_TYPE(self)->tp_as_number != NULL &&\r
        Py_TYPE(self)->tp_as_number->nb_power == slot_nb_power) {\r
        return call_method(self, "__pow__", &pow_str,\r
                           "(OO)", other, modulus);\r
    }\r
    Py_INCREF(Py_NotImplemented);\r
    return Py_NotImplemented;\r
}\r
\r
SLOT0(slot_nb_negative, "__neg__")\r
SLOT0(slot_nb_positive, "__pos__")\r
SLOT0(slot_nb_absolute, "__abs__")\r
\r
static int\r
slot_nb_nonzero(PyObject *self)\r
{\r
    PyObject *func, *args;\r
    static PyObject *nonzero_str, *len_str;\r
    int result = -1;\r
    int using_len = 0;\r
\r
    func = lookup_maybe(self, "__nonzero__", &nonzero_str);\r
    if (func == NULL) {\r
        if (PyErr_Occurred())\r
            return -1;\r
        func = lookup_maybe(self, "__len__", &len_str);\r
        if (func == NULL)\r
            return PyErr_Occurred() ? -1 : 1;\r
        using_len = 1;\r
    }\r
    args = PyTuple_New(0);\r
    if (args != NULL) {\r
        PyObject *temp = PyObject_Call(func, args, NULL);\r
        Py_DECREF(args);\r
        if (temp != NULL) {\r
            if (PyInt_CheckExact(temp) || PyBool_Check(temp))\r
                result = PyObject_IsTrue(temp);\r
            else {\r
                PyErr_Format(PyExc_TypeError,\r
                             "%s should return "\r
                             "bool or int, returned %s",\r
                             (using_len ? "__len__"\r
                                        : "__nonzero__"),\r
                             temp->ob_type->tp_name);\r
                result = -1;\r
            }\r
            Py_DECREF(temp);\r
        }\r
    }\r
    Py_DECREF(func);\r
    return result;\r
}\r
\r
\r
static PyObject *\r
slot_nb_index(PyObject *self)\r
{\r
    static PyObject *index_str;\r
    return call_method(self, "__index__", &index_str, "()");\r
}\r
\r
\r
SLOT0(slot_nb_invert, "__invert__")\r
SLOT1BIN(slot_nb_lshift, nb_lshift, "__lshift__", "__rlshift__")\r
SLOT1BIN(slot_nb_rshift, nb_rshift, "__rshift__", "__rrshift__")\r
SLOT1BIN(slot_nb_and, nb_and, "__and__", "__rand__")\r
SLOT1BIN(slot_nb_xor, nb_xor, "__xor__", "__rxor__")\r
SLOT1BIN(slot_nb_or, nb_or, "__or__", "__ror__")\r
\r
static int\r
slot_nb_coerce(PyObject **a, PyObject **b)\r
{\r
    static PyObject *coerce_str;\r
    PyObject *self = *a, *other = *b;\r
\r
    if (self->ob_type->tp_as_number != NULL &&\r
        self->ob_type->tp_as_number->nb_coerce == slot_nb_coerce) {\r
        PyObject *r;\r
        r = call_maybe(\r
            self, "__coerce__", &coerce_str, "(O)", other);\r
        if (r == NULL)\r
            return -1;\r
        if (r == Py_NotImplemented) {\r
            Py_DECREF(r);\r
        }\r
        else {\r
            if (!PyTuple_Check(r) || PyTuple_GET_SIZE(r) != 2) {\r
                PyErr_SetString(PyExc_TypeError,\r
                    "__coerce__ didn't return a 2-tuple");\r
                Py_DECREF(r);\r
                return -1;\r
            }\r
            *a = PyTuple_GET_ITEM(r, 0);\r
            Py_INCREF(*a);\r
            *b = PyTuple_GET_ITEM(r, 1);\r
            Py_INCREF(*b);\r
            Py_DECREF(r);\r
            return 0;\r
        }\r
    }\r
    if (other->ob_type->tp_as_number != NULL &&\r
        other->ob_type->tp_as_number->nb_coerce == slot_nb_coerce) {\r
        PyObject *r;\r
        r = call_maybe(\r
            other, "__coerce__", &coerce_str, "(O)", self);\r
        if (r == NULL)\r
            return -1;\r
        if (r == Py_NotImplemented) {\r
            Py_DECREF(r);\r
            return 1;\r
        }\r
        if (!PyTuple_Check(r) || PyTuple_GET_SIZE(r) != 2) {\r
            PyErr_SetString(PyExc_TypeError,\r
                            "__coerce__ didn't return a 2-tuple");\r
            Py_DECREF(r);\r
            return -1;\r
        }\r
        *a = PyTuple_GET_ITEM(r, 1);\r
        Py_INCREF(*a);\r
        *b = PyTuple_GET_ITEM(r, 0);\r
        Py_INCREF(*b);\r
        Py_DECREF(r);\r
        return 0;\r
    }\r
    return 1;\r
}\r
\r
SLOT0(slot_nb_int, "__int__")\r
SLOT0(slot_nb_long, "__long__")\r
SLOT0(slot_nb_float, "__float__")\r
SLOT0(slot_nb_oct, "__oct__")\r
SLOT0(slot_nb_hex, "__hex__")\r
SLOT1(slot_nb_inplace_add, "__iadd__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_subtract, "__isub__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_multiply, "__imul__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_divide, "__idiv__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_remainder, "__imod__", PyObject *, "O")\r
/* Can't use SLOT1 here, because nb_inplace_power is ternary */\r
static PyObject *\r
slot_nb_inplace_power(PyObject *self, PyObject * arg1, PyObject *arg2)\r
{\r
  static PyObject *cache_str;\r
  return call_method(self, "__ipow__", &cache_str, "(" "O" ")", arg1);\r
}\r
SLOT1(slot_nb_inplace_lshift, "__ilshift__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_rshift, "__irshift__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_and, "__iand__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_xor, "__ixor__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_or, "__ior__", PyObject *, "O")\r
SLOT1BIN(slot_nb_floor_divide, nb_floor_divide,\r
         "__floordiv__", "__rfloordiv__")\r
SLOT1BIN(slot_nb_true_divide, nb_true_divide, "__truediv__", "__rtruediv__")\r
SLOT1(slot_nb_inplace_floor_divide, "__ifloordiv__", PyObject *, "O")\r
SLOT1(slot_nb_inplace_true_divide, "__itruediv__", PyObject *, "O")\r
\r
static int\r
half_compare(PyObject *self, PyObject *other)\r
{\r
    PyObject *func, *args, *res;\r
    static PyObject *cmp_str;\r
    Py_ssize_t c;\r
\r
    func = lookup_method(self, "__cmp__", &cmp_str);\r
    if (func == NULL) {\r
        PyErr_Clear();\r
    }\r
    else {\r
        args = PyTuple_Pack(1, other);\r
        if (args == NULL)\r
            res = NULL;\r
        else {\r
            res = PyObject_Call(func, args, NULL);\r
            Py_DECREF(args);\r
        }\r
        Py_DECREF(func);\r
        if (res != Py_NotImplemented) {\r
            if (res == NULL)\r
                return -2;\r
            c = PyInt_AsLong(res);\r
            Py_DECREF(res);\r
            if (c == -1 && PyErr_Occurred())\r
                return -2;\r
            return (c < 0) ? -1 : (c > 0) ? 1 : 0;\r
        }\r
        Py_DECREF(res);\r
    }\r
    return 2;\r
}\r
\r
/* This slot is published for the benefit of try_3way_compare in object.c */\r
int\r
_PyObject_SlotCompare(PyObject *self, PyObject *other)\r
{\r
    int c;\r
\r
    if (Py_TYPE(self)->tp_compare == _PyObject_SlotCompare) {\r
        c = half_compare(self, other);\r
        if (c <= 1)\r
            return c;\r
    }\r
    if (Py_TYPE(other)->tp_compare == _PyObject_SlotCompare) {\r
        c = half_compare(other, self);\r
        if (c < -1)\r
            return -2;\r
        if (c <= 1)\r
            return -c;\r
    }\r
    return (void *)self < (void *)other ? -1 :\r
        (void *)self > (void *)other ? 1 : 0;\r
}\r
\r
static PyObject *\r
slot_tp_repr(PyObject *self)\r
{\r
    PyObject *func, *res;\r
    static PyObject *repr_str;\r
\r
    func = lookup_method(self, "__repr__", &repr_str);\r
    if (func != NULL) {\r
        res = PyEval_CallObject(func, NULL);\r
        Py_DECREF(func);\r
        return res;\r
    }\r
    PyErr_Clear();\r
    return PyString_FromFormat("<%s object at %p>",\r
                               Py_TYPE(self)->tp_name, self);\r
}\r
\r
static PyObject *\r
slot_tp_str(PyObject *self)\r
{\r
    PyObject *func, *res;\r
    static PyObject *str_str;\r
\r
    func = lookup_method(self, "__str__", &str_str);\r
    if (func != NULL) {\r
        res = PyEval_CallObject(func, NULL);\r
        Py_DECREF(func);\r
        return res;\r
    }\r
    else {\r
        PyErr_Clear();\r
        return slot_tp_repr(self);\r
    }\r
}\r
\r
static long\r
slot_tp_hash(PyObject *self)\r
{\r
    PyObject *func;\r
    static PyObject *hash_str, *eq_str, *cmp_str;\r
    long h;\r
\r
    func = lookup_method(self, "__hash__", &hash_str);\r
\r
    if (func != NULL && func != Py_None) {\r
        PyObject *res = PyEval_CallObject(func, NULL);\r
        Py_DECREF(func);\r
        if (res == NULL)\r
            return -1;\r
        if (PyLong_Check(res))\r
            h = PyLong_Type.tp_hash(res);\r
        else\r
            h = PyInt_AsLong(res);\r
        Py_DECREF(res);\r
    }\r
    else {\r
        Py_XDECREF(func); /* may be None */\r
        PyErr_Clear();\r
        func = lookup_method(self, "__eq__", &eq_str);\r
        if (func == NULL) {\r
            PyErr_Clear();\r
            func = lookup_method(self, "__cmp__", &cmp_str);\r
        }\r
        if (func != NULL) {\r
            Py_DECREF(func);\r
            return PyObject_HashNotImplemented(self);\r
        }\r
        PyErr_Clear();\r
        h = _Py_HashPointer((void *)self);\r
    }\r
    if (h == -1 && !PyErr_Occurred())\r
        h = -2;\r
    return h;\r
}\r
\r
static PyObject *\r
slot_tp_call(PyObject *self, PyObject *args, PyObject *kwds)\r
{\r
    static PyObject *call_str;\r
    PyObject *meth = lookup_method(self, "__call__", &call_str);\r
    PyObject *res;\r
\r
    if (meth == NULL)\r
        return NULL;\r
\r
    res = PyObject_Call(meth, args, kwds);\r
\r
    Py_DECREF(meth);\r
    return res;\r
}\r
\r
/* There are two slot dispatch functions for tp_getattro.\r
\r
   - slot_tp_getattro() is used when __getattribute__ is overridden\r
     but no __getattr__ hook is present;\r
\r
   - slot_tp_getattr_hook() is used when a __getattr__ hook is present.\r
\r
   The code in update_one_slot() always installs slot_tp_getattr_hook(); this\r
   detects the absence of __getattr__ and then installs the simpler slot if\r
   necessary. */\r
\r
static PyObject *\r
slot_tp_getattro(PyObject *self, PyObject *name)\r
{\r
    static PyObject *getattribute_str = NULL;\r
    return call_method(self, "__getattribute__", &getattribute_str,\r
                       "(O)", name);\r
}\r
\r
static PyObject *\r
call_attribute(PyObject *self, PyObject *attr, PyObject *name)\r
{\r
    PyObject *res, *descr = NULL;\r
    descrgetfunc f = Py_TYPE(attr)->tp_descr_get;\r
\r
    if (f != NULL) {\r
        descr = f(attr, self, (PyObject *)(Py_TYPE(self)));\r
        if (descr == NULL)\r
            return NULL;\r
        else\r
            attr = descr;\r
    }\r
    res = PyObject_CallFunctionObjArgs(attr, name, NULL);\r
    Py_XDECREF(descr);\r
    return res;\r
}\r
\r
static PyObject *\r
slot_tp_getattr_hook(PyObject *self, PyObject *name)\r
{\r
    PyTypeObject *tp = Py_TYPE(self);\r
    PyObject *getattr, *getattribute, *res;\r
    static PyObject *getattribute_str = NULL;\r
    static PyObject *getattr_str = NULL;\r
\r
    if (getattr_str == NULL) {\r
        getattr_str = PyString_InternFromString("__getattr__");\r
        if (getattr_str == NULL)\r
            return NULL;\r
    }\r
    if (getattribute_str == NULL) {\r
        getattribute_str =\r
            PyString_InternFromString("__getattribute__");\r
        if (getattribute_str == NULL)\r
            return NULL;\r
    }\r
    /* speed hack: we could use lookup_maybe, but that would resolve the\r
       method fully for each attribute lookup for classes with\r
       __getattr__, even when the attribute is present. So we use\r
       _PyType_Lookup and create the method only when needed, with\r
       call_attribute. */\r
    getattr = _PyType_Lookup(tp, getattr_str);\r
    if (getattr == NULL) {\r
        /* No __getattr__ hook: use a simpler dispatcher */\r
        tp->tp_getattro = slot_tp_getattro;\r
        return slot_tp_getattro(self, name);\r
    }\r
    Py_INCREF(getattr);\r
    /* speed hack: we could use lookup_maybe, but that would resolve the\r
       method fully for each attribute lookup for classes with\r
       __getattr__, even when self has the default __getattribute__\r
       method. So we use _PyType_Lookup and create the method only when\r
       needed, with call_attribute. */\r
    getattribute = _PyType_Lookup(tp, getattribute_str);\r
    if (getattribute == NULL ||\r
        (Py_TYPE(getattribute) == &PyWrapperDescr_Type &&\r
         ((PyWrapperDescrObject *)getattribute)->d_wrapped ==\r
         (void *)PyObject_GenericGetAttr))\r
        res = PyObject_GenericGetAttr(self, name);\r
    else {\r
        Py_INCREF(getattribute);\r
        res = call_attribute(self, getattribute, name);\r
        Py_DECREF(getattribute);\r
    }\r
    if (res == NULL && PyErr_ExceptionMatches(PyExc_AttributeError)) {\r
        PyErr_Clear();\r
        res = call_attribute(self, getattr, name);\r
    }\r
    Py_DECREF(getattr);\r
    return res;\r
}\r
\r
static int\r
slot_tp_setattro(PyObject *self, PyObject *name, PyObject *value)\r
{\r
    PyObject *res;\r
    static PyObject *delattr_str, *setattr_str;\r
\r
    if (value == NULL)\r
        res = call_method(self, "__delattr__", &delattr_str,\r
                          "(O)", name);\r
    else\r
        res = call_method(self, "__setattr__", &setattr_str,\r
                          "(OO)", name, value);\r
    if (res == NULL)\r
        return -1;\r
    Py_DECREF(res);\r
    return 0;\r
}\r
\r
static char *name_op[] = {\r
    "__lt__",\r
    "__le__",\r
    "__eq__",\r
    "__ne__",\r
    "__gt__",\r
    "__ge__",\r
};\r
\r
static PyObject *\r
half_richcompare(PyObject *self, PyObject *other, int op)\r
{\r
    PyObject *func, *args, *res;\r
    static PyObject *op_str[6];\r
\r
    func = lookup_method(self, name_op[op], &op_str[op]);\r
    if (func == NULL) {\r
        PyErr_Clear();\r
        Py_INCREF(Py_NotImplemented);\r
        return Py_NotImplemented;\r
    }\r
    args = PyTuple_Pack(1, other);\r
    if (args == NULL)\r
        res = NULL;\r
    else {\r
        res = PyObject_Call(func, args, NULL);\r
        Py_DECREF(args);\r
    }\r
    Py_DECREF(func);\r
    return res;\r
}\r
\r
static PyObject *\r
slot_tp_richcompare(PyObject *self, PyObject *other, int op)\r
{\r
    PyObject *res;\r
\r
    if (Py_TYPE(self)->tp_richcompare == slot_tp_richcompare) {\r
        res = half_richcompare(self, other, op);\r
        if (res != Py_NotImplemented)\r
            return res;\r
        Py_DECREF(res);\r
    }\r
    if (Py_TYPE(other)->tp_richcompare == slot_tp_richcompare) {\r
        res = half_richcompare(other, self, _Py_SwappedOp[op]);\r
        if (res != Py_NotImplemented) {\r
            return res;\r
        }\r
        Py_DECREF(res);\r
    }\r
    Py_INCREF(Py_NotImplemented);\r
    return Py_NotImplemented;\r
}\r
\r
static PyObject *\r
slot_tp_iter(PyObject *self)\r
{\r
    PyObject *func, *res;\r
    static PyObject *iter_str, *getitem_str;\r
\r
    func = lookup_method(self, "__iter__", &iter_str);\r
    if (func != NULL) {\r
        PyObject *args;\r
        args = res = PyTuple_New(0);\r
        if (args != NULL) {\r
            res = PyObject_Call(func, args, NULL);\r
            Py_DECREF(args);\r
        }\r
        Py_DECREF(func);\r
        return res;\r
    }\r
    PyErr_Clear();\r
    func = lookup_method(self, "__getitem__", &getitem_str);\r
    if (func == NULL) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "'%.200s' object is not iterable",\r
                     Py_TYPE(self)->tp_name);\r
        return NULL;\r
    }\r
    Py_DECREF(func);\r
    return PySeqIter_New(self);\r
}\r
\r
static PyObject *\r
slot_tp_iternext(PyObject *self)\r
{\r
    static PyObject *next_str;\r
    return call_method(self, "next", &next_str, "()");\r
}\r
\r
static PyObject *\r
slot_tp_descr_get(PyObject *self, PyObject *obj, PyObject *type)\r
{\r
    PyTypeObject *tp = Py_TYPE(self);\r
    PyObject *get;\r
    static PyObject *get_str = NULL;\r
\r
    if (get_str == NULL) {\r
        get_str = PyString_InternFromString("__get__");\r
        if (get_str == NULL)\r
            return NULL;\r
    }\r
    get = _PyType_Lookup(tp, get_str);\r
    if (get == NULL) {\r
        /* Avoid further slowdowns */\r
        if (tp->tp_descr_get == slot_tp_descr_get)\r
            tp->tp_descr_get = NULL;\r
        Py_INCREF(self);\r
        return self;\r
    }\r
    if (obj == NULL)\r
        obj = Py_None;\r
    if (type == NULL)\r
        type = Py_None;\r
    return PyObject_CallFunctionObjArgs(get, self, obj, type, NULL);\r
}\r
\r
static int\r
slot_tp_descr_set(PyObject *self, PyObject *target, PyObject *value)\r
{\r
    PyObject *res;\r
    static PyObject *del_str, *set_str;\r
\r
    if (value == NULL)\r
        res = call_method(self, "__delete__", &del_str,\r
                          "(O)", target);\r
    else\r
        res = call_method(self, "__set__", &set_str,\r
                          "(OO)", target, value);\r
    if (res == NULL)\r
        return -1;\r
    Py_DECREF(res);\r
    return 0;\r
}\r
\r
static int\r
slot_tp_init(PyObject *self, PyObject *args, PyObject *kwds)\r
{\r
    static PyObject *init_str;\r
    PyObject *meth = lookup_method(self, "__init__", &init_str);\r
    PyObject *res;\r
\r
    if (meth == NULL)\r
        return -1;\r
    res = PyObject_Call(meth, args, kwds);\r
    Py_DECREF(meth);\r
    if (res == NULL)\r
        return -1;\r
    if (res != Py_None) {\r
        PyErr_Format(PyExc_TypeError,\r
                     "__init__() should return None, not '%.200s'",\r
                     Py_TYPE(res)->tp_name);\r
        Py_DECREF(res);\r
        return -1;\r
    }\r
    Py_DECREF(res);\r
    return 0;\r
}\r
\r
static PyObject *\r
slot_tp_new(PyTypeObject *type, PyObject *args, PyObject *kwds)\r
{\r
    static PyObject *new_str;\r
    PyObject *func;\r
    PyObject *newargs, *x;\r
    Py_ssize_t i, n;\r
\r
    if (new_str == NULL) {\r
        new_str = PyString_InternFromString("__new__");\r
        if (new_str == NULL)\r
            return NULL;\r
    }\r
    func = PyObject_GetAttr((PyObject *)type, new_str);\r
    if (func == NULL)\r
        return NULL;\r
    assert(PyTuple_Check(args));\r
    n = PyTuple_GET_SIZE(args);\r
    newargs = PyTuple_New(n+1);\r
    if (newargs == NULL)\r
        return NULL;\r
    Py_INCREF(type);\r
    PyTuple_SET_ITEM(newargs, 0, (PyObject *)type);\r
    for (i = 0; i < n; i++) {\r
        x = PyTuple_GET_ITEM(args, i);\r
        Py_INCREF(x);\r
        PyTuple_SET_ITEM(newargs, i+1, x);\r
    }\r
    x = PyObject_Call(func, newargs, kwds);\r
    Py_DECREF(newargs);\r
    Py_DECREF(func);\r
    return x;\r
}\r
\r
static void\r
slot_tp_del(PyObject *self)\r
{\r
    static PyObject *del_str = NULL;\r
    PyObject *del, *res;\r
    PyObject *error_type, *error_value, *error_traceback;\r
\r
    /* Temporarily resurrect the object. */\r
    assert(self->ob_refcnt == 0);\r
    self->ob_refcnt = 1;\r
\r
    /* Save the current exception, if any. */\r
    PyErr_Fetch(&error_type, &error_value, &error_traceback);\r
\r
    /* Execute __del__ method, if any. */\r
    del = lookup_maybe(self, "__del__", &del_str);\r
    if (del != NULL) {\r
        res = PyEval_CallObject(del, NULL);\r
        if (res == NULL)\r
            PyErr_WriteUnraisable(del);\r
        else\r
            Py_DECREF(res);\r
        Py_DECREF(del);\r
    }\r
\r
    /* Restore the saved exception. */\r
    PyErr_Restore(error_type, error_value, error_traceback);\r
\r
    /* Undo the temporary resurrection; can't use DECREF here, it would\r
     * cause a recursive call.\r
     */\r
    assert(self->ob_refcnt > 0);\r
    if (--self->ob_refcnt == 0)\r
        return;         /* this is the normal path out */\r
\r
    /* __del__ resurrected it!  Make it look like the original Py_DECREF\r
     * never happened.\r
     */\r
    {\r
        Py_ssize_t refcnt = self->ob_refcnt;\r
        _Py_NewReference(self);\r
        self->ob_refcnt = refcnt;\r
    }\r
    assert(!PyType_IS_GC(Py_TYPE(self)) ||\r
           _Py_AS_GC(self)->gc.gc_refs != _PyGC_REFS_UNTRACKED);\r
    /* If Py_REF_DEBUG, _Py_NewReference bumped _Py_RefTotal, so\r
     * we need to undo that. */\r
    _Py_DEC_REFTOTAL;\r
    /* If Py_TRACE_REFS, _Py_NewReference re-added self to the object\r
     * chain, so no more to do there.\r
     * If COUNT_ALLOCS, the original decref bumped tp_frees, and\r
     * _Py_NewReference bumped tp_allocs:  both of those need to be\r
     * undone.\r
     */\r
#ifdef COUNT_ALLOCS\r
    --Py_TYPE(self)->tp_frees;\r
    --Py_TYPE(self)->tp_allocs;\r
#endif\r
}\r
\r
\r
/*\r
Table mapping __foo__ names to tp_foo offsets and slot_tp_foo wrapper functions.\r
\r
The table is ordered by offsets relative to the 'PyHeapTypeObject' structure,\r
which incorporates the additional structures used for numbers, sequences and\r
mappings.  Note that multiple names may map to the same slot (e.g. __eq__,\r
__ne__ etc. all map to tp_richcompare) and one name may map to multiple slots\r
(e.g. __str__ affects tp_str as well as tp_repr). The table is terminated with\r
an all-zero entry.  (This table is further initialized in init_slotdefs().)\r
*/\r
\r
typedef struct wrapperbase slotdef;\r
\r
#undef TPSLOT\r
#undef FLSLOT\r
#undef ETSLOT\r
#undef SQSLOT\r
#undef MPSLOT\r
#undef NBSLOT\r
#undef UNSLOT\r
#undef IBSLOT\r
#undef BINSLOT\r
#undef RBINSLOT\r
\r
#define TPSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC) \\r
    {NAME, offsetof(PyTypeObject, SLOT), (void *)(FUNCTION), WRAPPER, \\r
     PyDoc_STR(DOC)}\r
#define FLSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC, FLAGS) \\r
    {NAME, offsetof(PyTypeObject, SLOT), (void *)(FUNCTION), WRAPPER, \\r
     PyDoc_STR(DOC), FLAGS}\r
#define ETSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC) \\r
    {NAME, offsetof(PyHeapTypeObject, SLOT), (void *)(FUNCTION), WRAPPER, \\r
     PyDoc_STR(DOC)}\r
#define SQSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC) \\r
    ETSLOT(NAME, as_sequence.SLOT, FUNCTION, WRAPPER, DOC)\r
#define MPSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC) \\r
    ETSLOT(NAME, as_mapping.SLOT, FUNCTION, WRAPPER, DOC)\r
#define NBSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC) \\r
    ETSLOT(NAME, as_number.SLOT, FUNCTION, WRAPPER, DOC)\r
#define UNSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC) \\r
    ETSLOT(NAME, as_number.SLOT, FUNCTION, WRAPPER, \\r
           "x." NAME "() <==> " DOC)\r
#define IBSLOT(NAME, SLOT, FUNCTION, WRAPPER, DOC) \\r
    ETSLOT(NAME, as_number.SLOT, FUNCTION, WRAPPER, \\r
           "x." NAME "(y) <==> x" DOC "y")\r
#define BINSLOT(NAME, SLOT, FUNCTION, DOC) \\r
    ETSLOT(NAME, as_number.SLOT, FUNCTION, wrap_binaryfunc_l, \\r
           "x." NAME "(y) <==> x" DOC "y")\r
#define RBINSLOT(NAME, SLOT, FUNCTION, DOC) \\r
    ETSLOT(NAME, as_number.SLOT, FUNCTION, wrap_binaryfunc_r, \\r
           "x." NAME "(y) <==> y" DOC "x")\r
#define BINSLOTNOTINFIX(NAME, SLOT, FUNCTION, DOC) \\r
    ETSLOT(NAME, as_number.SLOT, FUNCTION, wrap_binaryfunc_l, \\r
           "x." NAME "(y) <==> " DOC)\r
#define RBINSLOTNOTINFIX(NAME, SLOT, FUNCTION, DOC) \\r
    ETSLOT(NAME, as_number.SLOT, FUNCTION, wrap_binaryfunc_r, \\r
           "x." NAME "(y) <==> " DOC)\r
\r
static slotdef slotdefs[] = {\r
    TPSLOT("__str__", tp_print, NULL, NULL, ""),\r
    TPSLOT("__repr__", tp_print, NULL, NULL, ""),\r
    TPSLOT("__getattribute__", tp_getattr, NULL, NULL, ""),\r
    TPSLOT("__getattr__", tp_getattr, NULL, NULL, ""),\r
    TPSLOT("__setattr__", tp_setattr, NULL, NULL, ""),\r
    TPSLOT("__delattr__", tp_setattr, NULL, NULL, ""),\r
    TPSLOT("__cmp__", tp_compare, _PyObject_SlotCompare, wrap_cmpfunc,\r
           "x.__cmp__(y) <==> cmp(x,y)"),\r
    TPSLOT("__repr__", tp_repr, slot_tp_repr, wrap_unaryfunc,\r
           "x.__repr__() <==> repr(x)"),\r
    TPSLOT("__hash__", tp_hash, slot_tp_hash, wrap_hashfunc,\r
           "x.__hash__() <==> hash(x)"),\r
    FLSLOT("__call__", tp_call, slot_tp_call, (wrapperfunc)wrap_call,\r
           "x.__call__(...) <==> x(...)", PyWrapperFlag_KEYWORDS),\r
    TPSLOT("__str__", tp_str, slot_tp_str, wrap_unaryfunc,\r
           "x.__str__() <==> str(x)"),\r
    TPSLOT("__getattribute__", tp_getattro, slot_tp_getattr_hook,\r
           wrap_binaryfunc, "x.__getattribute__('name') <==> x.name"),\r
    TPSLOT("__getattr__", tp_getattro, slot_tp_getattr_hook, NULL, ""),\r
    TPSLOT("__setattr__", tp_setattro, slot_tp_setattro, wrap_setattr,\r
           "x.__setattr__('name', value) <==> x.name = value"),\r
    TPSLOT("__delattr__", tp_setattro, slot_tp_setattro, wrap_delattr,\r
           "x.__delattr__('name') <==> del x.name"),\r
    TPSLOT("__lt__", tp_richcompare, slot_tp_richcompare, richcmp_lt,\r
           "x.__lt__(y) <==> x<y"),\r
    TPSLOT("__le__", tp_richcompare, slot_tp_richcompare, richcmp_le,\r
           "x.__le__(y) <==> x<=y"),\r
    TPSLOT("__eq__", tp_richcompare, slot_tp_richcompare, richcmp_eq,\r
           "x.__eq__(y) <==> x==y"),\r
    TPSLOT("__ne__", tp_richcompare, slot_tp_richcompare, richcmp_ne,\r
           "x.__ne__(y) <==> x!=y"),\r
    TPSLOT("__gt__", tp_richcompare, slot_tp_richcompare, richcmp_gt,\r
           "x.__gt__(y) <==> x>y"),\r
    TPSLOT("__ge__", tp_richcompare, slot_tp_richcompare, richcmp_ge,\r
           "x.__ge__(y) <==> x>=y"),\r
    TPSLOT("__iter__", tp_iter, slot_tp_iter, wrap_unaryfunc,\r
           "x.__iter__() <==> iter(x)"),\r
    TPSLOT("next", tp_iternext, slot_tp_iternext, wrap_next,\r
           "x.next() -> the next value, or raise StopIteration"),\r
    TPSLOT("__get__", tp_descr_get, slot_tp_descr_get, wrap_descr_get,\r
           "descr.__get__(obj[, type]) -> value"),\r
    TPSLOT("__set__", tp_descr_set, slot_tp_descr_set, wrap_descr_set,\r
           "descr.__set__(obj, value)"),\r
    TPSLOT("__delete__", tp_descr_set, slot_tp_descr_set,\r
           wrap_descr_delete, "descr.__delete__(obj)"),\r
    FLSLOT("__init__", tp_init, slot_tp_init, (wrapperfunc)wrap_init,\r
           "x.__init__(...) initializes x; "\r
           "see help(type(x)) for signature",\r
           PyWrapperFlag_KEYWORDS),\r
    TPSLOT("__new__", tp_new, slot_tp_new, NULL, ""),\r
    TPSLOT("__del__", tp_del, slot_tp_del, NULL, ""),\r
    BINSLOT("__add__", nb_add, slot_nb_add,\r
        "+"),\r
    RBINSLOT("__radd__", nb_add, slot_nb_add,\r
             "+"),\r
    BINSLOT("__sub__", nb_subtract, slot_nb_subtract,\r
        "-"),\r
    RBINSLOT("__rsub__", nb_subtract, slot_nb_subtract,\r
             "-"),\r
    BINSLOT("__mul__", nb_multiply, slot_nb_multiply,\r
        "*"),\r
    RBINSLOT("__rmul__", nb_multiply, slot_nb_multiply,\r
             "*"),\r
    BINSLOT("__div__", nb_divide, slot_nb_divide,\r
        "/"),\r
    RBINSLOT("__rdiv__", nb_divide, slot_nb_divide,\r
             "/"),\r
    BINSLOT("__mod__", nb_remainder, slot_nb_remainder,\r
        "%"),\r
    RBINSLOT("__rmod__", nb_remainder, slot_nb_remainder,\r
             "%"),\r
    BINSLOTNOTINFIX("__divmod__", nb_divmod, slot_nb_divmod,\r
        "divmod(x, y)"),\r
    RBINSLOTNOTINFIX("__rdivmod__", nb_divmod, slot_nb_divmod,\r
             "divmod(y, x)"),\r
    NBSLOT("__pow__", nb_power, slot_nb_power, wrap_ternaryfunc,\r
           "x.__pow__(y[, z]) <==> pow(x, y[, z])"),\r
    NBSLOT("__rpow__", nb_power, slot_nb_power, wrap_ternaryfunc_r,\r
           "y.__rpow__(x[, z]) <==> pow(x, y[, z])"),\r
    UNSLOT("__neg__", nb_negative, slot_nb_negative, wrap_unaryfunc, "-x"),\r
    UNSLOT("__pos__", nb_positive, slot_nb_positive, wrap_unaryfunc, "+x"),\r
    UNSLOT("__abs__", nb_absolute, slot_nb_absolute, wrap_unaryfunc,\r
           "abs(x)"),\r
    UNSLOT("__nonzero__", nb_nonzero, slot_nb_nonzero, wrap_inquirypred,\r
           "x != 0"),\r
    UNSLOT("__invert__", nb_invert, slot_nb_invert, wrap_unaryfunc, "~x"),\r
    BINSLOT("__lshift__", nb_lshift, slot_nb_lshift, "<<"),\r
    RBINSLOT("__rlshift__", nb_lshift, slot_nb_lshift, "<<"),\r
    BINSLOT("__rshift__", nb_rshift, slot_nb_rshift, ">>"),\r
    RBINSLOT("__rrshift__", nb_rshift, slot_nb_rshift, ">>"),\r
    BINSLOT("__and__", nb_and, slot_nb_and, "&"),\r
    RBINSLOT("__rand__", nb_and, slot_nb_and, "&"),\r
    BINSLOT("__xor__", nb_xor, slot_nb_xor, "^"),\r
    RBINSLOT("__rxor__", nb_xor, slot_nb_xor, "^"),\r
    BINSLOT("__or__", nb_or, slot_nb_or, "|"),\r
    RBINSLOT("__ror__", nb_or, slot_nb_or, "|"),\r
    NBSLOT("__coerce__", nb_coerce, slot_nb_coerce, wrap_coercefunc,\r
           "x.__coerce__(y) <==> coerce(x, y)"),\r
    UNSLOT("__int__", nb_int, slot_nb_int, wrap_unaryfunc,\r
           "int(x)"),\r
    UNSLOT("__long__", nb_long, slot_nb_long, wrap_unaryfunc,\r
           "long(x)"),\r
    UNSLOT("__float__", nb_float, slot_nb_float, wrap_unaryfunc,\r
           "float(x)"),\r
    UNSLOT("__oct__", nb_oct, slot_nb_oct, wrap_unaryfunc,\r
           "oct(x)"),\r
    UNSLOT("__hex__", nb_hex, slot_nb_hex, wrap_unaryfunc,\r
           "hex(x)"),\r
    IBSLOT("__iadd__", nb_inplace_add, slot_nb_inplace_add,\r
           wrap_binaryfunc, "+="),\r
    IBSLOT("__isub__", nb_inplace_subtract, slot_nb_inplace_subtract,\r
           wrap_binaryfunc, "-="),\r
    IBSLOT("__imul__", nb_inplace_multiply, slot_nb_inplace_multiply,\r
           wrap_binaryfunc, "*="),\r
    IBSLOT("__idiv__", nb_inplace_divide, slot_nb_inplace_divide,\r
           wrap_binaryfunc, "/="),\r
    IBSLOT("__imod__", nb_inplace_remainder, slot_nb_inplace_remainder,\r
           wrap_binaryfunc, "%="),\r
    IBSLOT("__ipow__", nb_inplace_power, slot_nb_inplace_power,\r
           wrap_binaryfunc, "**="),\r
    IBSLOT("__ilshift__", nb_inplace_lshift, slot_nb_inplace_lshift,\r
           wrap_binaryfunc, "<<="),\r
    IBSLOT("__irshift__", nb_inplace_rshift, slot_nb_inplace_rshift,\r
           wrap_binaryfunc, ">>="),\r
    IBSLOT("__iand__", nb_inplace_and, slot_nb_inplace_and,\r
           wrap_binaryfunc, "&="),\r
    IBSLOT("__ixor__", nb_inplace_xor, slot_nb_inplace_xor,\r
           wrap_binaryfunc, "^="),\r
    IBSLOT("__ior__", nb_inplace_or, slot_nb_inplace_or,\r
           wrap_binaryfunc, "|="),\r
    BINSLOT("__floordiv__", nb_floor_divide, slot_nb_floor_divide, "//"),\r
    RBINSLOT("__rfloordiv__", nb_floor_divide, slot_nb_floor_divide, "//"),\r
    BINSLOT("__truediv__", nb_true_divide, slot_nb_true_divide, "/"),\r
    RBINSLOT("__rtruediv__", nb_true_divide, slot_nb_true_divide, "/"),\r
    IBSLOT("__ifloordiv__", nb_inplace_floor_divide,\r
           slot_nb_inplace_floor_divide, wrap_binaryfunc, "//="),\r
    IBSLOT("__itruediv__", nb_inplace_true_divide,\r
           slot_nb_inplace_true_divide, wrap_binaryfunc, "/="),\r
    NBSLOT("__index__", nb_index, slot_nb_index, wrap_unaryfunc,\r
           "x[y:z] <==> x[y.__index__():z.__index__()]"),\r
    MPSLOT("__len__", mp_length, slot_mp_length, wrap_lenfunc,\r
           "x.__len__() <==> len(x)"),\r
    MPSLOT("__getitem__", mp_subscript, slot_mp_subscript,\r
           wrap_binaryfunc,\r
           "x.__getitem__(y) <==> x[y]"),\r
    MPSLOT("__setitem__", mp_ass_subscript, slot_mp_ass_subscript,\r
           wrap_objobjargproc,\r
           "x.__setitem__(i, y) <==> x[i]=y"),\r
    MPSLOT("__delitem__", mp_ass_subscript, slot_mp_ass_subscript,\r
           wrap_delitem,\r
           "x.__delitem__(y) <==> del x[y]"),\r
    SQSLOT("__len__", sq_length, slot_sq_length, wrap_lenfunc,\r
           "x.__len__() <==> len(x)"),\r
    /* Heap types defining __add__/__mul__ have sq_concat/sq_repeat == NULL.\r
       The logic in abstract.c always falls back to nb_add/nb_multiply in\r
       this case.  Defining both the nb_* and the sq_* slots to call the\r
       user-defined methods has unexpected side-effects, as shown by\r
       test_descr.notimplemented() */\r
    SQSLOT("__add__", sq_concat, NULL, wrap_binaryfunc,\r
      "x.__add__(y) <==> x+y"),\r
    SQSLOT("__mul__", sq_repeat, NULL, wrap_indexargfunc,\r
      "x.__mul__(n) <==> x*n"),\r
    SQSLOT("__rmul__", sq_repeat, NULL, wrap_indexargfunc,\r
      "x.__rmul__(n) <==> n*x"),\r
    SQSLOT("__getitem__", sq_item, slot_sq_item, wrap_sq_item,\r
           "x.__getitem__(y) <==> x[y]"),\r
    SQSLOT("__getslice__", sq_slice, slot_sq_slice, wrap_ssizessizeargfunc,\r
           "x.__getslice__(i, j) <==> x[i:j]\n\\r
           \n\\r
           Use of negative indices is not supported."),\r
    SQSLOT("__setitem__", sq_ass_item, slot_sq_ass_item, wrap_sq_setitem,\r
           "x.__setitem__(i, y) <==> x[i]=y"),\r
    SQSLOT("__delitem__", sq_ass_item, slot_sq_ass_item, wrap_sq_delitem,\r
           "x.__delitem__(y) <==> del x[y]"),\r
    SQSLOT("__setslice__", sq_ass_slice, slot_sq_ass_slice,\r
           wrap_ssizessizeobjargproc,\r
           "x.__setslice__(i, j, y) <==> x[i:j]=y\n\\r
           \n\\r
           Use  of negative indices is not supported."),\r
    SQSLOT("__delslice__", sq_ass_slice, slot_sq_ass_slice, wrap_delslice,\r
           "x.__delslice__(i, j) <==> del x[i:j]\n\\r
           \n\\r
           Use of negative indices is not supported."),\r
    SQSLOT("__contains__", sq_contains, slot_sq_contains, wrap_objobjproc,\r
           "x.__contains__(y) <==> y in x"),\r
    SQSLOT("__iadd__", sq_inplace_concat, NULL,\r
      wrap_binaryfunc, "x.__iadd__(y) <==> x+=y"),\r
    SQSLOT("__imul__", sq_inplace_repeat, NULL,\r
      wrap_indexargfunc, "x.__imul__(y) <==> x*=y"),\r
    {NULL}\r
};\r
\r
/* Given a type pointer and an offset gotten from a slotdef entry, return a\r
   pointer to the actual slot.  This is not quite the same as simply adding\r
   the offset to the type pointer, since it takes care to indirect through the\r
   proper indirection pointer (as_buffer, etc.); it returns NULL if the\r
   indirection pointer is NULL. */\r
static void **\r
slotptr(PyTypeObject *type, int ioffset)\r
{\r
    char *ptr;\r
    long offset = ioffset;\r
\r
    /* Note: this depends on the order of the members of PyHeapTypeObject! */\r
    assert(offset >= 0);\r
    assert((size_t)offset < offsetof(PyHeapTypeObject, as_buffer));\r
    if ((size_t)offset >= offsetof(PyHeapTypeObject, as_sequence)) {\r
        ptr = (char *)type->tp_as_sequence;\r
        offset -= offsetof(PyHeapTypeObject, as_sequence);\r
    }\r
    else if ((size_t)offset >= offsetof(PyHeapTypeObject, as_mapping)) {\r
        ptr = (char *)type->tp_as_mapping;\r
        offset -= offsetof(PyHeapTypeObject, as_mapping);\r
    }\r
    else if ((size_t)offset >= offsetof(PyHeapTypeObject, as_number)) {\r
        ptr = (char *)type->tp_as_number;\r
        offset -= offsetof(PyHeapTypeObject, as_number);\r
    }\r
    else {\r
        ptr = (char *)type;\r
    }\r
    if (ptr != NULL)\r
        ptr += offset;\r
    return (void **)ptr;\r
}\r
\r
/* Length of array of slotdef pointers used to store slots with the\r
   same __name__.  There should be at most MAX_EQUIV-1 slotdef entries with\r
   the same __name__, for any __name__. Since that's a static property, it is\r
   appropriate to declare fixed-size arrays for this. */\r
#define MAX_EQUIV 10\r
\r
/* Return a slot pointer for a given name, but ONLY if the attribute has\r
   exactly one slot function.  The name must be an interned string. */\r
static void **\r
resolve_slotdups(PyTypeObject *type, PyObject *name)\r
{\r
    /* XXX Maybe this could be optimized more -- but is it worth it? */\r
\r
    /* pname and ptrs act as a little cache */\r
    static PyObject *pname;\r
    static slotdef *ptrs[MAX_EQUIV];\r
    slotdef *p, **pp;\r
    void **res, **ptr;\r
\r
    if (pname != name) {\r
        /* Collect all slotdefs that match name into ptrs. */\r
        pname = name;\r
        pp = ptrs;\r
        for (p = slotdefs; p->name_strobj; p++) {\r
            if (p->name_strobj == name)\r
                *pp++ = p;\r
        }\r
        *pp = NULL;\r
    }\r
\r
    /* Look in all matching slots of the type; if exactly one of these has\r
       a filled-in slot, return its value.      Otherwise return NULL. */\r
    res = NULL;\r
    for (pp = ptrs; *pp; pp++) {\r
        ptr = slotptr(type, (*pp)->offset);\r
        if (ptr == NULL || *ptr == NULL)\r
            continue;\r
        if (res != NULL)\r
            return NULL;\r
        res = ptr;\r
    }\r
    return res;\r
}\r
\r
/* Common code for update_slots_callback() and fixup_slot_dispatchers().  This\r
   does some incredibly complex thinking and then sticks something into the\r
   slot.  (It sees if the adjacent slotdefs for the same slot have conflicting\r
   interests, and then stores a generic wrapper or a specific function into\r
   the slot.)  Return a pointer to the next slotdef with a different offset,\r
   because that's convenient  for fixup_slot_dispatchers(). */\r
static slotdef *\r
update_one_slot(PyTypeObject *type, slotdef *p)\r
{\r
    PyObject *descr;\r
    PyWrapperDescrObject *d;\r
    void *generic = NULL, *specific = NULL;\r
    int use_generic = 0;\r
    int offset = p->offset;\r
    void **ptr = slotptr(type, offset);\r
\r
    if (ptr == NULL) {\r
        do {\r
            ++p;\r
        } while (p->offset == offset);\r
        return p;\r
    }\r
    do {\r
        descr = _PyType_Lookup(type, p->name_strobj);\r
        if (descr == NULL) {\r
            if (ptr == (void**)&type->tp_iternext) {\r
                specific = _PyObject_NextNotImplemented;\r
            }\r
            continue;\r
        }\r
        if (Py_TYPE(descr) == &PyWrapperDescr_Type &&\r
            ((PyWrapperDescrObject *)descr)->d_base->name_strobj == p->name_strobj) {\r
            void **tptr = resolve_slotdups(type, p->name_strobj);\r
            if (tptr == NULL || tptr == ptr)\r
                generic = p->function;\r
            d = (PyWrapperDescrObject *)descr;\r
            if (d->d_base->wrapper == p->wrapper &&\r
                PyType_IsSubtype(type, d->d_type))\r
            {\r
                if (specific == NULL ||\r
                    specific == d->d_wrapped)\r
                    specific = d->d_wrapped;\r
                else\r
                    use_generic = 1;\r
            }\r
        }\r
        else if (Py_TYPE(descr) == &PyCFunction_Type &&\r
                 PyCFunction_GET_FUNCTION(descr) ==\r
                 (PyCFunction)tp_new_wrapper &&\r
                 ptr == (void**)&type->tp_new)\r
        {\r
            /* The __new__ wrapper is not a wrapper descriptor,\r
               so must be special-cased differently.\r
               If we don't do this, creating an instance will\r
               always use slot_tp_new which will look up\r
               __new__ in the MRO which will call tp_new_wrapper\r
               which will look through the base classes looking\r
               for a static base and call its tp_new (usually\r
               PyType_GenericNew), after performing various\r
               sanity checks and constructing a new argument\r
               list.  Cut all that nonsense short -- this speeds\r
               up instance creation tremendously. */\r
            specific = (void *)type->tp_new;\r
            /* XXX I'm not 100% sure that there isn't a hole\r
               in this reasoning that requires additional\r
               sanity checks.  I'll buy the first person to\r
               point out a bug in this reasoning a beer. */\r
        }\r
        else if (descr == Py_None &&\r
                 ptr == (void**)&type->tp_hash) {\r
            /* We specifically allow __hash__ to be set to None\r
               to prevent inheritance of the default\r
               implementation from object.__hash__ */\r
            specific = PyObject_HashNotImplemented;\r
        }\r
        else {\r
            use_generic = 1;\r
            generic = p->function;\r
        }\r
    } while ((++p)->offset == offset);\r
    if (specific && !use_generic)\r
        *ptr = specific;\r
    else\r
        *ptr = generic;\r
    return p;\r
}\r
\r
/* In the type, update the slots whose slotdefs are gathered in the pp array.\r
   This is a callback for update_subclasses(). */\r
static int\r
update_slots_callback(PyTypeObject *type, void *data)\r
{\r
    slotdef **pp = (slotdef **)data;\r
\r
    for (; *pp; pp++)\r
        update_one_slot(type, *pp);\r
    return 0;\r
}\r
\r
/* Initialize the slotdefs table by adding interned string objects for the\r
   names and sorting the entries. */\r
static void\r
init_slotdefs(void)\r
{\r
    slotdef *p;\r
    static int initialized = 0;\r
\r
    if (initialized)\r
        return;\r
    for (p = slotdefs; p->name; p++) {\r
        /* Slots must be ordered by their offset in the PyHeapTypeObject. */\r
        assert(!p[1].name || p->offset <= p[1].offset);\r
        p->name_strobj = PyString_InternFromString(p->name);\r
        if (!p->name_strobj)\r
            Py_FatalError("Out of memory interning slotdef names");\r
    }\r
    initialized = 1;\r
}\r
\r
/* Update the slots after assignment to a class (type) attribute. */\r
static int\r
update_slot(PyTypeObject *type, PyObject *name)\r
{\r
    slotdef *ptrs[MAX_EQUIV];\r
    slotdef *p;\r
    slotdef **pp;\r
    int offset;\r
\r
    /* Clear the VALID_VERSION flag of 'type' and all its\r
       subclasses.  This could possibly be unified with the\r
       update_subclasses() recursion below, but carefully:\r
       they each have their own conditions on which to stop\r
       recursing into subclasses. */\r
    PyType_Modified(type);\r
\r
    init_slotdefs();\r
    pp = ptrs;\r
    for (p = slotdefs; p->name; p++) {\r
        /* XXX assume name is interned! */\r
        if (p->name_strobj == name)\r
            *pp++ = p;\r
    }\r
    *pp = NULL;\r
    for (pp = ptrs; *pp; pp++) {\r
        p = *pp;\r
        offset = p->offset;\r
        while (p > slotdefs && (p-1)->offset == offset)\r
            --p;\r
        *pp = p;\r
    }\r
    if (ptrs[0] == NULL)\r
        return 0; /* Not an attribute that affects any slots */\r
    return update_subclasses(type, name,\r
                             update_slots_callback, (void *)ptrs);\r
}\r
\r
/* Store the proper functions in the slot dispatches at class (type)\r
   definition time, based upon which operations the class overrides in its\r
   dict. */\r
static void\r
fixup_slot_dispatchers(PyTypeObject *type)\r
{\r
    slotdef *p;\r
\r
    init_slotdefs();\r
    for (p = slotdefs; p->name; )\r
        p = update_one_slot(type, p);\r
}\r
\r
static void\r
update_all_slots(PyTypeObject* type)\r
{\r
    slotdef *p;\r
\r
    init_slotdefs();\r
    for (p = slotdefs; p->name; p++) {\r
        /* update_slot returns int but can't actually fail */\r
        update_slot(type, p->name_strobj);\r
    }\r
}\r
\r
/* recurse_down_subclasses() and update_subclasses() are mutually\r
   recursive functions to call a callback for all subclasses,\r
   but refraining from recursing into subclasses that define 'name'. */\r
\r
static int\r
update_subclasses(PyTypeObject *type, PyObject *name,\r
                  update_callback callback, void *data)\r
{\r
    if (callback(type, data) < 0)\r
        return -1;\r
    return recurse_down_subclasses(type, name, callback, data);\r
}\r
\r
static int\r
recurse_down_subclasses(PyTypeObject *type, PyObject *name,\r
                        update_callback callback, void *data)\r
{\r
    PyTypeObject *subclass;\r
    PyObject *ref, *subclasses, *dict;\r
    Py_ssize_t i, n;\r
\r
    subclasses = type->tp_subclasses;\r
    if (subclasses == NULL)\r
        return 0;\r
    assert(PyList_Check(subclasses));\r
    n = PyList_GET_SIZE(subclasses);\r
    for (i = 0; i < n; i++) {\r
        ref = PyList_GET_ITEM(subclasses, i);\r
        assert(PyWeakref_CheckRef(ref));\r
        subclass = (PyTypeObject *)PyWeakref_GET_OBJECT(ref);\r
        assert(subclass != NULL);\r
        if ((PyObject *)subclass == Py_None)\r
            continue;\r
        assert(PyType_Check(subclass));\r
        /* Avoid recursing down into unaffected classes */\r
        dict = subclass->tp_dict;\r
        if (dict != NULL && PyDict_Check(dict) &&\r
            PyDict_GetItem(dict, name) != NULL)\r
            continue;\r
        if (update_subclasses(subclass, name, callback, data) < 0)\r
            return -1;\r
    }\r
    return 0;\r
}\r
\r
/* This function is called by PyType_Ready() to populate the type's\r
   dictionary with method descriptors for function slots.  For each\r
   function slot (like tp_repr) that's defined in the type, one or more\r
   corresponding descriptors are added in the type's tp_dict dictionary\r
   under the appropriate name (like __repr__).  Some function slots\r
   cause more than one descriptor to be added (for example, the nb_add\r
   slot adds both __add__ and __radd__ descriptors) and some function\r
   slots compete for the same descriptor (for example both sq_item and\r
   mp_subscript generate a __getitem__ descriptor).\r
\r
   In the latter case, the first slotdef entry encountered wins.  Since\r
   slotdef entries are sorted by the offset of the slot in the\r
   PyHeapTypeObject, this gives us some control over disambiguating\r
   between competing slots: the members of PyHeapTypeObject are listed\r
   from most general to least general, so the most general slot is\r
   preferred.  In particular, because as_mapping comes before as_sequence,\r
   for a type that defines both mp_subscript and sq_item, mp_subscript\r
   wins.\r
\r
   This only adds new descriptors and doesn't overwrite entries in\r
   tp_dict that were previously defined.  The descriptors contain a\r
   reference to the C function they must call, so that it's safe if they\r
   are copied into a subtype's __dict__ and the subtype has a different\r
   C function in its slot -- calling the method defined by the\r
   descriptor will call the C function that was used to create it,\r
   rather than the C function present in the slot when it is called.\r
   (This is important because a subtype may have a C function in the\r
   slot that calls the method from the dictionary, and we want to avoid\r
   infinite recursion here.) */\r
\r
static int\r
add_operators(PyTypeObject *type)\r
{\r
    PyObject *dict = type->tp_dict;\r
    slotdef *p;\r
    PyObject *descr;\r
    void **ptr;\r
\r
    init_slotdefs();\r
    for (p = slotdefs; p->name; p++) {\r
        if (p->wrapper == NULL)\r
            continue;\r
        ptr = slotptr(type, p->offset);\r
        if (!ptr || !*ptr)\r
            continue;\r
        if (PyDict_GetItem(dict, p->name_strobj))\r
            continue;\r
        if (*ptr == PyObject_HashNotImplemented) {\r
            /* Classes may prevent the inheritance of the tp_hash\r
               slot by storing PyObject_HashNotImplemented in it. Make it\r
               visible as a None value for the __hash__ attribute. */\r
            if (PyDict_SetItem(dict, p->name_strobj, Py_None) < 0)\r
                return -1;\r
        }\r
        else {\r
            descr = PyDescr_NewWrapper(type, p, *ptr);\r
            if (descr == NULL)\r
                return -1;\r
            if (PyDict_SetItem(dict, p->name_strobj, descr) < 0)\r
                return -1;\r
            Py_DECREF(descr);\r
        }\r
    }\r
    if (type->tp_new != NULL) {\r
        if (add_tp_new_wrapper(type) < 0)\r
            return -1;\r
    }\r
    return 0;\r
}\r
\r
\r
/* Cooperative 'super' */\r
\r
typedef struct {\r
    PyObject_HEAD\r
    PyTypeObject *type;\r
    PyObject *obj;\r
    PyTypeObject *obj_type;\r
} superobject;\r
\r
static PyMemberDef super_members[] = {\r
    {"__thisclass__", T_OBJECT, offsetof(superobject, type), READONLY,\r
     "the class invoking super()"},\r
    {"__self__",  T_OBJECT, offsetof(superobject, obj), READONLY,\r
     "the instance invoking super(); may be None"},\r
    {"__self_class__", T_OBJECT, offsetof(superobject, obj_type), READONLY,\r
     "the type of the instance invoking super(); may be None"},\r
    {0}\r
};\r
\r
static void\r
super_dealloc(PyObject *self)\r
{\r
    superobject *su = (superobject *)self;\r
\r
    _PyObject_GC_UNTRACK(self);\r
    Py_XDECREF(su->obj);\r
    Py_XDECREF(su->type);\r
    Py_XDECREF(su->obj_type);\r
    Py_TYPE(self)->tp_free(self);\r
}\r
\r
static PyObject *\r
super_repr(PyObject *self)\r
{\r
    superobject *su = (superobject *)self;\r
\r
    if (su->obj_type)\r
        return PyString_FromFormat(\r
            "<super: <class '%s'>, <%s object>>",\r
            su->type ? su->type->tp_name : "NULL",\r
            su->obj_type->tp_name);\r
    else\r
        return PyString_FromFormat(\r
            "<super: <class '%s'>, NULL>",\r
            su->type ? su->type->tp_name : "NULL");\r
}\r
\r
static PyObject *\r
super_getattro(PyObject *self, PyObject *name)\r
{\r
    superobject *su = (superobject *)self;\r
    int skip = su->obj_type == NULL;\r
\r
    if (!skip) {\r
        /* We want __class__ to return the class of the super object\r
           (i.e. super, or a subclass), not the class of su->obj. */\r
        skip = (PyString_Check(name) &&\r
            PyString_GET_SIZE(name) == 9 &&\r
            strcmp(PyString_AS_STRING(name), "__class__") == 0);\r
    }\r
\r
    if (!skip) {\r
        PyObject *mro, *res, *tmp, *dict;\r
        PyTypeObject *starttype;\r
        descrgetfunc f;\r
        Py_ssize_t i, n;\r
\r
        starttype = su->obj_type;\r
        mro = starttype->tp_mro;\r
\r
        if (mro == NULL)\r
            n = 0;\r
        else {\r
            assert(PyTuple_Check(mro));\r
            n = PyTuple_GET_SIZE(mro);\r
        }\r
        for (i = 0; i < n; i++) {\r
            if ((PyObject *)(su->type) == PyTuple_GET_ITEM(mro, i))\r
                break;\r
        }\r
        i++;\r
        res = NULL;\r
        for (; i < n; i++) {\r
            tmp = PyTuple_GET_ITEM(mro, i);\r
            if (PyType_Check(tmp))\r
                dict = ((PyTypeObject *)tmp)->tp_dict;\r
            else if (PyClass_Check(tmp))\r
                dict = ((PyClassObject *)tmp)->cl_dict;\r
            else\r
                continue;\r
            res = PyDict_GetItem(dict, name);\r
            if (res != NULL) {\r
                Py_INCREF(res);\r
                f = Py_TYPE(res)->tp_descr_get;\r
                if (f != NULL) {\r
                    tmp = f(res,\r
                        /* Only pass 'obj' param if\r
                           this is instance-mode super\r
                           (See SF ID #743627)\r
                        */\r
                        (su->obj == (PyObject *)\r
                                    su->obj_type\r
                            ? (PyObject *)NULL\r
                            : su->obj),\r
                        (PyObject *)starttype);\r
                    Py_DECREF(res);\r
                    res = tmp;\r
                }\r
                return res;\r
            }\r
        }\r
    }\r
    return PyObject_GenericGetAttr(self, name);\r
}\r
\r
static PyTypeObject *\r
supercheck(PyTypeObject *type, PyObject *obj)\r
{\r
    /* Check that a super() call makes sense.  Return a type object.\r
\r
       obj can be a new-style class, or an instance of one:\r
\r
       - If it is a class, it must be a subclass of 'type'.      This case is\r
         used for class methods; the return value is obj.\r
\r
       - If it is an instance, it must be an instance of 'type'.  This is\r
         the normal case; the return value is obj.__class__.\r
\r
       But... when obj is an instance, we want to allow for the case where\r
       Py_TYPE(obj) is not a subclass of type, but obj.__class__ is!\r
       This will allow using super() with a proxy for obj.\r
    */\r
\r
    /* Check for first bullet above (special case) */\r
    if (PyType_Check(obj) && PyType_IsSubtype((PyTypeObject *)obj, type)) {\r
        Py_INCREF(obj);\r
        return (PyTypeObject *)obj;\r
    }\r
\r
    /* Normal case */\r
    if (PyType_IsSubtype(Py_TYPE(obj), type)) {\r
        Py_INCREF(Py_TYPE(obj));\r
        return Py_TYPE(obj);\r
    }\r
    else {\r
        /* Try the slow way */\r
        static PyObject *class_str = NULL;\r
        PyObject *class_attr;\r
\r
        if (class_str == NULL) {\r
            class_str = PyString_FromString("__class__");\r
            if (class_str == NULL)\r
                return NULL;\r
        }\r
\r
        class_attr = PyObject_GetAttr(obj, class_str);\r
\r
        if (class_attr != NULL &&\r
            PyType_Check(class_attr) &&\r
            (PyTypeObject *)class_attr != Py_TYPE(obj))\r
        {\r
            int ok = PyType_IsSubtype(\r
                (PyTypeObject *)class_attr, type);\r
            if (ok)\r
                return (PyTypeObject *)class_attr;\r
        }\r
\r
        if (class_attr == NULL)\r
            PyErr_Clear();\r
        else\r
            Py_DECREF(class_attr);\r
    }\r
\r
    PyErr_SetString(PyExc_TypeError,\r
                    "super(type, obj): "\r
                    "obj must be an instance or subtype of type");\r
    return NULL;\r
}\r
\r
static PyObject *\r
super_descr_get(PyObject *self, PyObject *obj, PyObject *type)\r
{\r
    superobject *su = (superobject *)self;\r
    superobject *newobj;\r
\r
    if (obj == NULL || obj == Py_None || su->obj != NULL) {\r
        /* Not binding to an object, or already bound */\r
        Py_INCREF(self);\r
        return self;\r
    }\r
    if (Py_TYPE(su) != &PySuper_Type)\r
        /* If su is an instance of a (strict) subclass of super,\r
           call its type */\r
        return PyObject_CallFunctionObjArgs((PyObject *)Py_TYPE(su),\r
                                            su->type, obj, NULL);\r
    else {\r
        /* Inline the common case */\r
        PyTypeObject *obj_type = supercheck(su->type, obj);\r
        if (obj_type == NULL)\r
            return NULL;\r
        newobj = (superobject *)PySuper_Type.tp_new(&PySuper_Type,\r
                                                 NULL, NULL);\r
        if (newobj == NULL)\r
            return NULL;\r
        Py_INCREF(su->type);\r
        Py_INCREF(obj);\r
        newobj->type = su->type;\r
        newobj->obj = obj;\r
        newobj->obj_type = obj_type;\r
        return (PyObject *)newobj;\r
    }\r
}\r
\r
static int\r
super_init(PyObject *self, PyObject *args, PyObject *kwds)\r
{\r
    superobject *su = (superobject *)self;\r
    PyTypeObject *type;\r
    PyObject *obj = NULL;\r
    PyTypeObject *obj_type = NULL;\r
\r
    if (!_PyArg_NoKeywords("super", kwds))\r
        return -1;\r
    if (!PyArg_ParseTuple(args, "O!|O:super", &PyType_Type, &type, &obj))\r
        return -1;\r
    if (obj == Py_None)\r
        obj = NULL;\r
    if (obj != NULL) {\r
        obj_type = supercheck(type, obj);\r
        if (obj_type == NULL)\r
            return -1;\r
        Py_INCREF(obj);\r
    }\r
    Py_INCREF(type);\r
    su->type = type;\r
    su->obj = obj;\r
    su->obj_type = obj_type;\r
    return 0;\r
}\r
\r
PyDoc_STRVAR(super_doc,\r
"super(type, obj) -> bound super object; requires isinstance(obj, type)\n"\r
"super(type) -> unbound super object\n"\r
"super(type, type2) -> bound super object; requires issubclass(type2, type)\n"\r
"Typical use to call a cooperative superclass method:\n"\r
"class C(B):\n"\r
"    def meth(self, arg):\n"\r
"        super(C, self).meth(arg)");\r
\r
static int\r
super_traverse(PyObject *self, visitproc visit, void *arg)\r
{\r
    superobject *su = (superobject *)self;\r
\r
    Py_VISIT(su->obj);\r
    Py_VISIT(su->type);\r
    Py_VISIT(su->obj_type);\r
\r
    return 0;\r
}\r
\r
PyTypeObject PySuper_Type = {\r
    PyVarObject_HEAD_INIT(&PyType_Type, 0)\r
    "super",                                    /* tp_name */\r
    sizeof(superobject),                        /* tp_basicsize */\r
    0,                                          /* tp_itemsize */\r
    /* methods */\r
    super_dealloc,                              /* tp_dealloc */\r
    0,                                          /* tp_print */\r
    0,                                          /* tp_getattr */\r
    0,                                          /* tp_setattr */\r
    0,                                          /* tp_compare */\r
    super_repr,                                 /* tp_repr */\r
    0,                                          /* tp_as_number */\r
    0,                                          /* tp_as_sequence */\r
    0,                                          /* tp_as_mapping */\r
    0,                                          /* tp_hash */\r
    0,                                          /* tp_call */\r
    0,                                          /* tp_str */\r
    super_getattro,                             /* tp_getattro */\r
    0,                                          /* tp_setattro */\r
    0,                                          /* tp_as_buffer */\r
    Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC |\r
        Py_TPFLAGS_BASETYPE,                    /* tp_flags */\r
    super_doc,                                  /* tp_doc */\r
    super_traverse,                             /* tp_traverse */\r
    0,                                          /* tp_clear */\r
    0,                                          /* tp_richcompare */\r
    0,                                          /* tp_weaklistoffset */\r
    0,                                          /* tp_iter */\r
    0,                                          /* tp_iternext */\r
    0,                                          /* tp_methods */\r
    super_members,                              /* tp_members */\r
    0,                                          /* tp_getset */\r
    0,                                          /* tp_base */\r
    0,                                          /* tp_dict */\r
    super_descr_get,                            /* tp_descr_get */\r
    0,                                          /* tp_descr_set */\r
    0,                                          /* tp_dictoffset */\r
    super_init,                                 /* tp_init */\r
    PyType_GenericAlloc,                        /* tp_alloc */\r
    PyType_GenericNew,                          /* tp_new */\r
    PyObject_GC_Del,                            /* tp_free */\r
};\r