| 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 | }
|
|---|