#include "Python.h"

#include "structmember.h" /* Why is this not included in Python.h? */

static void

descr_dealloc(PyDescrObject *descr)

{

_PyObject_GC_UNTRACK(descr);

Py_XDECREF(descr->d_type);

Py_XDECREF(descr->d_name);

PyObject_GC_Del(descr);

}

static char *

descr_name(PyDescrObject *descr)

{

if (descr->d_name != NULL && PyString_Check(descr->d_name))

return PyString_AS_STRING(descr->d_name);

else

return "?";

}

static PyObject *

descr_repr(PyDescrObject *descr, char *format)

{

return PyString_FromFormat(format, descr_name(descr),

descr->d_type->tp_name);

}

static PyObject *

method_repr(PyMethodDescrObject *descr)

{

return descr_repr((PyDescrObject *)descr,

"<method '%s' of '%s' objects>");

}

static PyObject *

member_repr(PyMemberDescrObject *descr)

{

return descr_repr((PyDescrObject *)descr,

"<member '%s' of '%s' objects>");

}

static PyObject *

getset_repr(PyGetSetDescrObject *descr)

{

return descr_repr((PyDescrObject *)descr,

"<attribute '%s' of '%s' objects>");

}

static PyObject *

wrapperdescr_repr(PyWrapperDescrObject *descr)

{

return descr_repr((PyDescrObject *)descr,

"<slot wrapper '%s' of '%s' objects>");

}

static int

descr_check(PyDescrObject *descr, PyObject *obj, PyObject **pres)

{

if (obj == NULL) {

Py_INCREF(descr);

*pres = (PyObject *)descr;

return 1;

}

if (!PyObject_TypeCheck(obj, descr->d_type)) {

PyErr_Format(PyExc_TypeError,

"descriptor '%s' for '%s' objects "

"doesn't apply to '%s' object",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name,

obj->ob_type->tp_name);

*pres = NULL;

return 1;

}

return 0;

}

static PyObject *

classmethod_get(PyMethodDescrObject *descr, PyObject *obj, PyObject *type)

{

/* Ensure a valid type. Class methods ignore obj. */

if (type == NULL) {

if (obj != NULL)

type = (PyObject *)obj->ob_type;

else {

/* Wot - no type?! */

PyErr_Format(PyExc_TypeError,

"descriptor '%s' for type '%s' "

"needs either an object or a type",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name);

return NULL;

}

}

if (!PyType_Check(type)) {

PyErr_Format(PyExc_TypeError,

"descriptor '%s' for type '%s' "

"needs a type, not a '%s' as arg 2",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name,

type->ob_type->tp_name);

return NULL;

}

if (!PyType_IsSubtype((PyTypeObject *)type, descr->d_type)) {

PyErr_Format(PyExc_TypeError,

"descriptor '%s' for type '%s' "

"doesn't apply to type '%s'",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name,

((PyTypeObject *)type)->tp_name);

return NULL;

}

return PyCFunction_New(descr->d_method, type);

}

static PyObject *

method_get(PyMethodDescrObject *descr, PyObject *obj, PyObject *type)

{

PyObject *res;

if (descr_check((PyDescrObject *)descr, obj, &res))

return res;

return PyCFunction_New(descr->d_method, obj);

}

static PyObject *

member_get(PyMemberDescrObject *descr, PyObject *obj, PyObject *type)

{

PyObject *res;

if (descr_check((PyDescrObject *)descr, obj, &res))

return res;

return PyMember_GetOne((char *)obj, descr->d_member);

}

static PyObject *

getset_get(PyGetSetDescrObject *descr, PyObject *obj, PyObject *type)

{

PyObject *res;

if (descr_check((PyDescrObject *)descr, obj, &res))

return res;

if (descr->d_getset->get != NULL)

return descr->d_getset->get(obj, descr->d_getset->closure);

PyErr_Format(PyExc_AttributeError,

"attribute '%.300s' of '%.100s' objects is not readable",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name);

return NULL;

}

static PyObject *

wrapperdescr_get(PyWrapperDescrObject *descr, PyObject *obj, PyObject *type)

{

PyObject *res;

if (descr_check((PyDescrObject *)descr, obj, &res))

return res;

return PyWrapper_New((PyObject *)descr, obj);

}

static int

descr_setcheck(PyDescrObject *descr, PyObject *obj, PyObject *value,

int *pres)

{

assert(obj != NULL);

if (!PyObject_TypeCheck(obj, descr->d_type)) {

PyErr_Format(PyExc_TypeError,

"descriptor '%.200s' for '%.100s' objects "

"doesn't apply to '%.100s' object",

descr_name(descr),

descr->d_type->tp_name,

obj->ob_type->tp_name);

*pres = -1;

return 1;

}

return 0;

}

static int

member_set(PyMemberDescrObject *descr, PyObject *obj, PyObject *value)

{

int res;

if (descr_setcheck((PyDescrObject *)descr, obj, value, &res))

return res;

return PyMember_SetOne((char *)obj, descr->d_member, value);

}

static int

getset_set(PyGetSetDescrObject *descr, PyObject *obj, PyObject *value)

{

int res;

if (descr_setcheck((PyDescrObject *)descr, obj, value, &res))

return res;

if (descr->d_getset->set != NULL)

return descr->d_getset->set(obj, value,

descr->d_getset->closure);

PyErr_Format(PyExc_AttributeError,

"attribute '%.300s' of '%.100s' objects is not writable",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name);

return -1;

}

static PyObject *

methoddescr_call(PyMethodDescrObject *descr, PyObject *args, PyObject *kwds)

{

Py_ssize_t argc;

PyObject *self, *func, *result;

/* Make sure that the first argument is acceptable as 'self' */

assert(PyTuple_Check(args));

argc = PyTuple_GET_SIZE(args);

if (argc < 1) {

PyErr_Format(PyExc_TypeError,

"descriptor '%.300s' of '%.100s' "

"object needs an argument",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name);

return NULL;

}

self = PyTuple_GET_ITEM(args, 0);

if (!_PyObject_RealIsSubclass((PyObject *)Py_TYPE(self),

(PyObject *)(descr->d_type))) {

PyErr_Format(PyExc_TypeError,

"descriptor '%.200s' "

"requires a '%.100s' object "

"but received a '%.100s'",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name,

self->ob_type->tp_name);

return NULL;

}

func = PyCFunction_New(descr->d_method, self);

if (func == NULL)

return NULL;

args = PyTuple_GetSlice(args, 1, argc);

if (args == NULL) {

Py_DECREF(func);

return NULL;

}

result = PyEval_CallObjectWithKeywords(func, args, kwds);

Py_DECREF(args);

Py_DECREF(func);

return result;

}

static PyObject *

classmethoddescr_call(PyMethodDescrObject *descr, PyObject *args,

PyObject *kwds)

{

Py_ssize_t argc;

PyObject *self, *func, *result;

/* Make sure that the first argument is acceptable as 'self' */

assert(PyTuple_Check(args));

argc = PyTuple_GET_SIZE(args);

if (argc < 1) {

PyErr_Format(PyExc_TypeError,

"descriptor '%s' of '%.100s' "

"object needs an argument",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name);

return NULL;

}

self = PyTuple_GET_ITEM(args, 0);

if (!PyType_Check(self)) {

PyErr_Format(PyExc_TypeError,

"descriptor '%s' requires a type "

"but received a '%.100s'",

descr_name((PyDescrObject *)descr),

self->ob_type->tp_name);

return NULL;

}

if (!PyType_IsSubtype((PyTypeObject *)self, descr->d_type)) {

PyErr_Format(PyExc_TypeError,

"descriptor '%s' "

"requires a subtype of '%.100s' "

"but received '%.100s",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name,

self->ob_type->tp_name);

return NULL;

}

func = PyCFunction_New(descr->d_method, self);

if (func == NULL)

return NULL;

args = PyTuple_GetSlice(args, 1, argc);

if (args == NULL) {

Py_DECREF(func);

return NULL;

}

result = PyEval_CallObjectWithKeywords(func, args, kwds);

Py_DECREF(func);

Py_DECREF(args);

return result;

}

static PyObject *

wrapperdescr_call(PyWrapperDescrObject *descr, PyObject *args, PyObject *kwds)

{

Py_ssize_t argc;

PyObject *self, *func, *result;

/* Make sure that the first argument is acceptable as 'self' */

assert(PyTuple_Check(args));

argc = PyTuple_GET_SIZE(args);

if (argc < 1) {

PyErr_Format(PyExc_TypeError,

"descriptor '%.300s' of '%.100s' "

"object needs an argument",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name);

return NULL;

}

self = PyTuple_GET_ITEM(args, 0);

if (!_PyObject_RealIsSubclass((PyObject *)Py_TYPE(self),

(PyObject *)(descr->d_type))) {

PyErr_Format(PyExc_TypeError,

"descriptor '%.200s' "

"requires a '%.100s' object "

"but received a '%.100s'",

descr_name((PyDescrObject *)descr),

descr->d_type->tp_name,

self->ob_type->tp_name);

return NULL;

}

func = PyWrapper_New((PyObject *)descr, self);

if (func == NULL)

return NULL;

args = PyTuple_GetSlice(args, 1, argc);

if (args == NULL) {

Py_DECREF(func);

return NULL;

}

result = PyEval_CallObjectWithKeywords(func, args, kwds);

Py_DECREF(args);

Py_DECREF(func);

return result;

}

static PyObject *

method_get_doc(PyMethodDescrObject *descr, void *closure)

{

if (descr->d_method->ml_doc == NULL) {

Py_INCREF(Py_None);

return Py_None;

}

return PyString_FromString(descr->d_method->ml_doc);

}

static PyMemberDef descr_members[] = {

{"__objclass__", T_OBJECT, offsetof(PyDescrObject, d_type), READONLY},

{"__name__", T_OBJECT, offsetof(PyDescrObject, d_name), READONLY},

{0}

};

static PyGetSetDef method_getset[] = {

{"__doc__", (getter)method_get_doc},

{0}

};

static PyObject *

member_get_doc(PyMemberDescrObject *descr, void *closure)

{

if (descr->d_member->doc == NULL) {

Py_INCREF(Py_None);

return Py_None;

}

return PyString_FromString(descr->d_member->doc);

}

static PyGetSetDef member_getset[] = {

{"__doc__", (getter)member_get_doc},

{0}

};

static PyObject *

getset_get_doc(PyGetSetDescrObject *descr, void *closure)

{

if (descr->d_getset->doc == NULL) {

Py_INCREF(Py_None);

return Py_None;

}

return PyString_FromString(descr->d_getset->doc);

}

static PyGetSetDef getset_getset[] = {

{"__doc__", (getter)getset_get_doc},

{0}

};

static PyObject *

wrapperdescr_get_doc(PyWrapperDescrObject *descr, void *closure)

{

if (descr->d_base->doc == NULL) {

Py_INCREF(Py_None);

return Py_None;

}

return PyString_FromString(descr->d_base->doc);

}

static PyGetSetDef wrapperdescr_getset[] = {

{"__doc__", (getter)wrapperdescr_get_doc},

{0}

};

static int

descr_traverse(PyObject *self, visitproc visit, void *arg)

{

PyDescrObject *descr = (PyDescrObject *)self;

Py_VISIT(descr->d_type);

return 0;

}

static PyTypeObject PyMethodDescr_Type = {

PyVarObject_HEAD_INIT(&PyType_Type, 0)

"method_descriptor",

sizeof(PyMethodDescrObject),

0,

(destructor)descr_dealloc, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

0, /* tp_compare */

(reprfunc)method_repr, /* tp_repr */

0, /* tp_as_number */

0, /* tp_as_sequence */

0, /* tp_as_mapping */

0, /* tp_hash */

(ternaryfunc)methoddescr_call, /* tp_call */

0, /* tp_str */

PyObject_GenericGetAttr, /* tp_getattro */

0, /* tp_setattro */

0, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */

0, /* tp_doc */

descr_traverse, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

0, /* tp_weaklistoffset */

0, /* tp_iter */

0, /* tp_iternext */

0, /* tp_methods */

descr_members, /* tp_members */

method_getset, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

(descrgetfunc)method_get, /* tp_descr_get */

0, /* tp_descr_set */

};

static PyTypeObject PyClassMethodDescr_Type = {

PyVarObject_HEAD_INIT(&PyType_Type, 0)

"classmethod_descriptor",

sizeof(PyMethodDescrObject),

0,

(destructor)descr_dealloc, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

0, /* tp_compare */

(reprfunc)method_repr, /* tp_repr */

0, /* tp_as_number */

0, /* tp_as_sequence */

0, /* tp_as_mapping */

0, /* tp_hash */

(ternaryfunc)classmethoddescr_call, /* tp_call */

0, /* tp_str */

PyObject_GenericGetAttr, /* tp_getattro */

0, /* tp_setattro */

0, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */

0, /* tp_doc */

descr_traverse, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

0, /* tp_weaklistoffset */

0, /* tp_iter */

0, /* tp_iternext */

0, /* tp_methods */

descr_members, /* tp_members */

method_getset, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

(descrgetfunc)classmethod_get, /* tp_descr_get */

0, /* tp_descr_set */

};

PyTypeObject PyMemberDescr_Type = {

PyVarObject_HEAD_INIT(&PyType_Type, 0)

"member_descriptor",

sizeof(PyMemberDescrObject),

0,

(destructor)descr_dealloc, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

0, /* tp_compare */

(reprfunc)member_repr, /* tp_repr */

0, /* tp_as_number */

0, /* tp_as_sequence */

0, /* tp_as_mapping */

0, /* tp_hash */

0, /* tp_call */

0, /* tp_str */

PyObject_GenericGetAttr, /* tp_getattro */

0, /* tp_setattro */

0, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */

0, /* tp_doc */

descr_traverse, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

0, /* tp_weaklistoffset */

0, /* tp_iter */

0, /* tp_iternext */

0, /* tp_methods */

descr_members, /* tp_members */

member_getset, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

(descrgetfunc)member_get, /* tp_descr_get */

(descrsetfunc)member_set, /* tp_descr_set */

};

PyTypeObject PyGetSetDescr_Type = {

PyVarObject_HEAD_INIT(&PyType_Type, 0)

"getset_descriptor",

sizeof(PyGetSetDescrObject),

0,

(destructor)descr_dealloc, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

0, /* tp_compare */

(reprfunc)getset_repr, /* tp_repr */

0, /* tp_as_number */

0, /* tp_as_sequence */

0, /* tp_as_mapping */

0, /* tp_hash */

0, /* tp_call */

0, /* tp_str */

PyObject_GenericGetAttr, /* tp_getattro */

0, /* tp_setattro */

0, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */

0, /* tp_doc */

descr_traverse, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

0, /* tp_weaklistoffset */

0, /* tp_iter */

0, /* tp_iternext */

0, /* tp_methods */

descr_members, /* tp_members */

getset_getset, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

(descrgetfunc)getset_get, /* tp_descr_get */

(descrsetfunc)getset_set, /* tp_descr_set */

};

PyTypeObject PyWrapperDescr_Type = {

PyVarObject_HEAD_INIT(&PyType_Type, 0)

"wrapper_descriptor",

sizeof(PyWrapperDescrObject),

0,

(destructor)descr_dealloc, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

0, /* tp_compare */

(reprfunc)wrapperdescr_repr, /* tp_repr */

0, /* tp_as_number */

0, /* tp_as_sequence */

0, /* tp_as_mapping */

0, /* tp_hash */

(ternaryfunc)wrapperdescr_call, /* tp_call */

0, /* tp_str */

PyObject_GenericGetAttr, /* tp_getattro */

0, /* tp_setattro */

0, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */

0, /* tp_doc */

descr_traverse, /* tp_traverse */

0, /* tp_clear */

0, /* tp_richcompare */

0, /* tp_weaklistoffset */

0, /* tp_iter */

0, /* tp_iternext */

0, /* tp_methods */

descr_members, /* tp_members */

wrapperdescr_getset, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

(descrgetfunc)wrapperdescr_get, /* tp_descr_get */

0, /* tp_descr_set */

};

static PyDescrObject *

descr_new(PyTypeObject *descrtype, PyTypeObject *type, const char *name)

{

PyDescrObject *descr;

descr = (PyDescrObject *)PyType_GenericAlloc(descrtype, 0);

if (descr != NULL) {

Py_XINCREF(type);

descr->d_type = type;

descr->d_name = PyString_InternFromString(name);

if (descr->d_name == NULL) {

Py_DECREF(descr);

descr = NULL;

}

}

return descr;

}

PyObject *

PyDescr_NewMethod(PyTypeObject *type, PyMethodDef *method)

{

PyMethodDescrObject *descr;

descr = (PyMethodDescrObject *)descr_new(&PyMethodDescr_Type,

type, method->ml_name);

if (descr != NULL)

descr->d_method = method;

return (PyObject *)descr;

}

PyObject *

PyDescr_NewClassMethod(PyTypeObject *type, PyMethodDef *method)

{

PyMethodDescrObject *descr;

descr = (PyMethodDescrObject *)descr_new(&PyClassMethodDescr_Type,

type, method->ml_name);

if (descr != NULL)

descr->d_method = method;

return (PyObject *)descr;

}

PyObject *

PyDescr_NewMember(PyTypeObject *type, PyMemberDef *member)

{

PyMemberDescrObject *descr;

descr = (PyMemberDescrObject *)descr_new(&PyMemberDescr_Type,

type, member->name);

if (descr != NULL)

descr->d_member = member;

return (PyObject *)descr;

}

PyObject *

PyDescr_NewGetSet(PyTypeObject *type, PyGetSetDef *getset)

{

PyGetSetDescrObject *descr;

descr = (PyGetSetDescrObject *)descr_new(&PyGetSetDescr_Type,

type, getset->name);

if (descr != NULL)

descr->d_getset = getset;

return (PyObject *)descr;

}

PyObject *

PyDescr_NewWrapper(PyTypeObject *type, struct wrapperbase *base, void *wrapped)

{

PyWrapperDescrObject *descr;

descr = (PyWrapperDescrObject *)descr_new(&PyWrapperDescr_Type,

type, base->name);

if (descr != NULL) {

descr->d_base = base;

descr->d_wrapped = wrapped;

}

return (PyObject *)descr;

}

typedef struct {

PyObject_HEAD

PyObject *dict;

} proxyobject;

static Py_ssize_t

proxy_len(proxyobject *pp)

{

return PyObject_Size(pp->dict);

}

static PyObject *

proxy_getitem(proxyobject *pp, PyObject *key)

{

return PyObject_GetItem(pp->dict, key);

}

static PyMappingMethods proxy_as_mapping = {

(lenfunc)proxy_len, /* mp_length */

(binaryfunc)proxy_getitem, /* mp_subscript */

0, /* mp_ass_subscript */

};

static int

proxy_contains(proxyobject *pp, PyObject *key)

{

return PyDict_Contains(pp->dict, key);

}

static PySequenceMethods proxy_as_sequence = {

0, /* sq_length */

0, /* sq_concat */

0, /* sq_repeat */

0, /* sq_item */

0, /* sq_slice */

0, /* sq_ass_item */

0, /* sq_ass_slice */

(objobjproc)proxy_contains, /* sq_contains */

0, /* sq_inplace_concat */

0, /* sq_inplace_repeat */

};

static PyObject *

proxy_has_key(proxyobject *pp, PyObject *key)

{

int res = PyDict_Contains(pp->dict, key);

if (res < 0)

return NULL;

return PyBool_FromLong(res);

}

static PyObject *

proxy_get(proxyobject *pp, PyObject *args)

{

PyObject *key, *def = Py_None;

if (!PyArg_UnpackTuple(args, "get", 1, 2, &key, &def))

return NULL;

return PyObject_CallMethod(pp->dict, "get", "(OO)", key, def);

}

static PyObject *

proxy_keys(proxyobject *pp)

{

return PyMapping_Keys(pp->dict);

}

static PyObject *

proxy_values(proxyobject *pp)

{

return PyMapping_Values(pp->dict);

}

static PyObject *

proxy_items(proxyobject *pp)

{

return PyMapping_Items(pp->dict);

}

static PyObject *

proxy_iterkeys(proxyobject *pp)

{

return PyObject_CallMethod(pp->dict, "iterkeys", NULL);

}

static PyObject *

proxy_itervalues(proxyobject *pp)

{

return PyObject_CallMethod(pp->dict, "itervalues", NULL);

}

static PyObject *

proxy_iteritems(proxyobject *pp)

{

return PyObject_CallMethod(pp->dict, "iteritems", NULL);

}

static PyObject *

proxy_copy(proxyobject *pp)

{

return PyObject_CallMethod(pp->dict, "copy", NULL);

}

static PyMethodDef proxy_methods[] = {

{"has_key", (PyCFunction)proxy_has_key, METH_O,

PyDoc_STR("D.has_key(k) -> True if D has a key k, else False")},

{"get", (PyCFunction)proxy_get, METH_VARARGS,

PyDoc_STR("D.get(k[,d]) -> D[k] if D.has_key(k), else d."

" d defaults to None.")},

{"keys", (PyCFunction)proxy_keys, METH_NOARGS,

PyDoc_STR("D.keys() -> list of D's keys")},

{"values", (PyCFunction)proxy_values, METH_NOARGS,

PyDoc_STR("D.values() -> list of D's values")},

{"items", (PyCFunction)proxy_items, METH_NOARGS,

PyDoc_STR("D.items() -> list of D's (key, value) pairs, as 2-tuples")},

{"iterkeys", (PyCFunction)proxy_iterkeys, METH_NOARGS,

PyDoc_STR("D.iterkeys() -> an iterator over the keys of D")},

{"itervalues",(PyCFunction)proxy_itervalues, METH_NOARGS,

PyDoc_STR("D.itervalues() -> an iterator over the values of D")},

{"iteritems", (PyCFunction)proxy_iteritems, METH_NOARGS,

PyDoc_STR("D.iteritems() ->"

" an iterator over the (key, value) items of D")},

{"copy", (PyCFunction)proxy_copy, METH_NOARGS,

PyDoc_STR("D.copy() -> a shallow copy of D")},

{0}

};

static void

proxy_dealloc(proxyobject *pp)

{

_PyObject_GC_UNTRACK(pp);

Py_DECREF(pp->dict);

PyObject_GC_Del(pp);

}

static PyObject *

proxy_getiter(proxyobject *pp)

{

return PyObject_GetIter(pp->dict);

}

static PyObject *

proxy_str(proxyobject *pp)

{

return PyObject_Str(pp->dict);

}

static PyObject *

proxy_repr(proxyobject *pp)

{

PyObject *dictrepr;

PyObject *result;

dictrepr = PyObject_Repr(pp->dict);

if (dictrepr == NULL)

return NULL;

result = PyString_FromFormat("dict_proxy(%s)", PyString_AS_STRING(dictrepr));

Py_DECREF(dictrepr);

return result;

}

static int

proxy_traverse(PyObject *self, visitproc visit, void *arg)

{

proxyobject *pp = (proxyobject *)self;

Py_VISIT(pp->dict);

return 0;

}

static int

proxy_compare(proxyobject *v, PyObject *w)

{

return PyObject_Compare(v->dict, w);

}

static PyObject *

proxy_richcompare(proxyobject *v, PyObject *w, int op)

{

return PyObject_RichCompare(v->dict, w, op);

}

PyTypeObject PyDictProxy_Type = {

PyVarObject_HEAD_INIT(&PyType_Type, 0)

"dictproxy", /* tp_name */

sizeof(proxyobject), /* tp_basicsize */

0, /* tp_itemsize */

/* methods */

(destructor)proxy_dealloc, /* tp_dealloc */

0, /* tp_print */

0, /* tp_getattr */

0, /* tp_setattr */

(cmpfunc)proxy_compare, /* tp_compare */

(reprfunc)proxy_repr, /* tp_repr */

0, /* tp_as_number */

&proxy_as_sequence, /* tp_as_sequence */

&proxy_as_mapping, /* tp_as_mapping */

0, /* tp_hash */

0, /* tp_call */

(reprfunc)proxy_str, /* tp_str */

PyObject_GenericGetAttr, /* tp_getattro */

0, /* tp_setattro */

0, /* tp_as_buffer */

Py_TPFLAGS_DEFAULT | Py_TPFLAGS_HAVE_GC, /* tp_flags */

0, /* tp_doc */

proxy_traverse, /* tp_traverse */

0, /* tp_clear */

(richcmpfunc)proxy_richcompare, /* tp_richcompare */

0, /* tp_weaklistoffset */

(getiterfunc)proxy_getiter, /* tp_iter */

0, /* tp_iternext */

proxy_methods, /* tp_methods */

0, /* tp_members */

0, /* tp_getset */

0, /* tp_base */

0, /* tp_dict */

0, /* tp_descr_get */

0, /* tp_descr_set */

};

PyObject *

PyDictProxy_New(PyObject *dict)

{

proxyobject *pp;

pp = PyObject_GC_New(proxyobject, &PyDictProxy_Type);

if (pp != NULL) {

Py_INCREF(dict);

pp->dict = dict;

_PyObject_GC_TRACK(pp);

}

return (PyObject *)pp;

}

typedef struct {

PyObject_HEAD

PyWrapperDescrObject *descr;

PyObject *self;

} wrapperobject;

static void

wrapper_dealloc(wrapperobject *wp)

{

PyObject_GC_UnTrack(wp);

Py_TRASHCAN_SAFE_BEGIN(wp)

Py_XDECREF(wp->descr);

Py_XDECREF(wp->self);

PyObject_GC_Del(wp);

Py_TRASHCAN_SAFE_END(wp)

}

static int

wrapper_compare(wrapperobject *a, wrapperobject *b)

{

if (a->descr == b->descr)

return PyObject_Compare(a->self, b->self);

else

return (a->descr < b->descr) ? -1 : 1;

}

static long

wrapper_hash(wrapperobject *wp)

{

int x, y;

x = _Py_HashPointer(wp->descr);

if (x == -1)

return -1;

y = PyObject_Hash(wp->self);

if (y == -1)

return -1;

x = x ^ y;

if (x == -1)

x = -2;

return x;

}

static PyObject *

wrapper_repr(wrapperobject *wp)

{

return PyString_FromFormat("<method-wrapper '%s' of %s object at %p>",

wp->descr->d_base->name,

wp->self->ob_type->tp_name,

wp->self);

}

static PyMemberDef wrapper_members[] = {

{"__self__", T_OBJECT, offsetof(wrapperobject, self), READONLY},

{0}

};

static PyObject *

wrapper_objclass(wrapperobject *wp)

{

PyObject *c = (PyObject *)wp->descr->d_type;

Py_INCREF(c);

return c;

}

static PyObject *

wrapper_name(wrapperobject *wp)

{