| 1 | #include <Python.h> | 
|---|
| 2 |  | 
|---|
| 3 | typedef struct { | 
|---|
| 4 | PyListObject list; | 
|---|
| 5 | int state; | 
|---|
| 6 | } Shoddy; | 
|---|
| 7 |  | 
|---|
| 8 |  | 
|---|
| 9 | static PyObject * | 
|---|
| 10 | Shoddy_increment(Shoddy *self, PyObject *unused) | 
|---|
| 11 | { | 
|---|
| 12 | self->state++; | 
|---|
| 13 | return PyInt_FromLong(self->state); | 
|---|
| 14 | } | 
|---|
| 15 |  | 
|---|
| 16 |  | 
|---|
| 17 | static PyMethodDef Shoddy_methods[] = { | 
|---|
| 18 | {"increment", (PyCFunction)Shoddy_increment, METH_NOARGS, | 
|---|
| 19 | PyDoc_STR("increment state counter")}, | 
|---|
| 20 | {NULL,      NULL}, | 
|---|
| 21 | }; | 
|---|
| 22 |  | 
|---|
| 23 | static int | 
|---|
| 24 | Shoddy_init(Shoddy *self, PyObject *args, PyObject *kwds) | 
|---|
| 25 | { | 
|---|
| 26 | if (PyList_Type.tp_init((PyObject *)self, args, kwds) < 0) | 
|---|
| 27 | return -1; | 
|---|
| 28 | self->state = 0; | 
|---|
| 29 | return 0; | 
|---|
| 30 | } | 
|---|
| 31 |  | 
|---|
| 32 |  | 
|---|
| 33 | static PyTypeObject ShoddyType = { | 
|---|
| 34 | PyObject_HEAD_INIT(NULL) | 
|---|
| 35 | 0,                       /* ob_size */ | 
|---|
| 36 | "shoddy.Shoddy",         /* tp_name */ | 
|---|
| 37 | sizeof(Shoddy),          /* tp_basicsize */ | 
|---|
| 38 | 0,                       /* tp_itemsize */ | 
|---|
| 39 | 0,                       /* tp_dealloc */ | 
|---|
| 40 | 0,                       /* tp_print */ | 
|---|
| 41 | 0,                       /* tp_getattr */ | 
|---|
| 42 | 0,                       /* tp_setattr */ | 
|---|
| 43 | 0,                       /* tp_compare */ | 
|---|
| 44 | 0,                       /* tp_repr */ | 
|---|
| 45 | 0,                       /* tp_as_number */ | 
|---|
| 46 | 0,                       /* tp_as_sequence */ | 
|---|
| 47 | 0,                       /* tp_as_mapping */ | 
|---|
| 48 | 0,                       /* tp_hash */ | 
|---|
| 49 | 0,                       /* tp_call */ | 
|---|
| 50 | 0,                       /* tp_str */ | 
|---|
| 51 | 0,                       /* tp_getattro */ | 
|---|
| 52 | 0,                       /* tp_setattro */ | 
|---|
| 53 | 0,                       /* tp_as_buffer */ | 
|---|
| 54 | Py_TPFLAGS_DEFAULT | | 
|---|
| 55 | Py_TPFLAGS_BASETYPE,   /* tp_flags */ | 
|---|
| 56 | 0,                       /* tp_doc */ | 
|---|
| 57 | 0,                       /* tp_traverse */ | 
|---|
| 58 | 0,                       /* tp_clear */ | 
|---|
| 59 | 0,                       /* tp_richcompare */ | 
|---|
| 60 | 0,                       /* tp_weaklistoffset */ | 
|---|
| 61 | 0,                       /* tp_iter */ | 
|---|
| 62 | 0,                       /* tp_iternext */ | 
|---|
| 63 | Shoddy_methods,          /* tp_methods */ | 
|---|
| 64 | 0,                       /* tp_members */ | 
|---|
| 65 | 0,                       /* tp_getset */ | 
|---|
| 66 | 0,                       /* tp_base */ | 
|---|
| 67 | 0,                       /* tp_dict */ | 
|---|
| 68 | 0,                       /* tp_descr_get */ | 
|---|
| 69 | 0,                       /* tp_descr_set */ | 
|---|
| 70 | 0,                       /* tp_dictoffset */ | 
|---|
| 71 | (initproc)Shoddy_init,   /* tp_init */ | 
|---|
| 72 | 0,                       /* tp_alloc */ | 
|---|
| 73 | 0,                       /* tp_new */ | 
|---|
| 74 | }; | 
|---|
| 75 |  | 
|---|
| 76 | PyMODINIT_FUNC | 
|---|
| 77 | initshoddy(void) | 
|---|
| 78 | { | 
|---|
| 79 | PyObject *m; | 
|---|
| 80 |  | 
|---|
| 81 | ShoddyType.tp_base = &PyList_Type; | 
|---|
| 82 | if (PyType_Ready(&ShoddyType) < 0) | 
|---|
| 83 | return; | 
|---|
| 84 |  | 
|---|
| 85 | m = Py_InitModule3("shoddy", NULL, "Shoddy module"); | 
|---|
| 86 | if (m == NULL) | 
|---|
| 87 | return; | 
|---|
| 88 |  | 
|---|
| 89 | Py_INCREF(&ShoddyType); | 
|---|
| 90 | PyModule_AddObject(m, "Shoddy", (PyObject *) &ShoddyType); | 
|---|
| 91 | } | 
|---|