chiark - git - mdw - mLib-python/blob - grim.h

   1 /* -*-c-*-
   2  *
   3  * Grim hacks to support the Pyrex code
   4  *
   5  * (c) 2005 Straylight/Edgeware
   6  */
   7
   8 /*----- Licensing notice --------------------------------------------------*
   9  *
  10  * This file is part of the Python interface to mLib.
  11  *
  12  * mLib/Python is free software; you can redistribute it and/or modify
  13  * it under the terms of the GNU General Public License as published by
  14  * the Free Software Foundation; either version 2 of the License, or
  15  * (at your option) any later version.
  16  *
  17  * mLib/Python is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20  * GNU General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU General Public License
  23  * along with mLib/Python; if not, write to the Free Software Foundation,
  24  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  25  */
  26
  27 #ifndef GRIM_H
  28 #define GRIM_H
  29
  30 #ifdef __cplusplus
  31   extern "C" {
  32 #endif
  33
  34 /*----- Header files ------------------------------------------------------*/
  35
  36 #include <Python.h>
  37
  38 /*----- Utilities ---------------------------------------------------------*/
  39
  40 #define PSIZEOF(x) sizeof(*x)
  41 typedef const void *cvp;
  42
  43 #define RETURN_OBJ(obj) do { Py_INCREF(obj); return (obj); } while (0)
  44 #define RETURN_ME RETURN_OBJ(me)
  45 #define RETURN_NONE RETURN_OBJ(Py_None)
  46 #define RETURN_NOTIMPL RETURN_OBJ(Py_NotImplemented)
  47
  48 #define METH(func, doc)                                                 \
  49   { #func, METHNAME(func), METH_VARARGS, doc },
  50 #define KWMETH(func, doc)                                               \
  51   { #func, (PyCFunction)METHNAME(func),                                 \
  52     METH_VARARGS | METH_KEYWORDS, doc },
  53
  54 #define GET(func, doc)                                                  \
  55   { #func, GETSETNAME(get, func), 0, doc },
  56 #define GETSET(func, doc)                                               \
  57   { #func, GETSETNAME(get, func), GETSETNAME(set, func), doc },
  58
  59 #ifndef PySequence_Fast_ITEMS
  60 #  define PySequence_Fast_ITEMS(o)                                      \
  61   (PyList_Check(o) ? &PyList_GET_ITEM(o, 0) : &PyTuple_GET_ITEM(o, 0))
  62 #endif
  63
  64 #define FREEOBJ(obj)                                                    \
  65   (((PyObject *)(obj))->ob_type->tp_free((PyObject *)(obj)))
  66
  67 /*----- That's all, folks -------------------------------------------------*/
  68
  69 #ifdef __cplusplus
  70   }
  71 #endif
  72
  73 #endif