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

   1 /* -*-c-*-
   2  *
   3  * Atom stuff
   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 ATOM_H
  28 #define ATOM_H
  29
  30 #ifdef __cplusplus
  31   extern "C" {
  32 #endif
  33
  34 /*----- Header files ------------------------------------------------------*/
  35
  36 #include <Python.h>
  37
  38 #include <mLib/atom.h>
  39 #include <mLib/assoc.h>
  40
  41 /*----- Data structures ---------------------------------------------------*/
  42
  43 typedef struct atom_pyobj {
  44   PyObject_HEAD
  45   atom *a;
  46 } atom_pyobj;
  47 #define ATOM_PYCHECK(obj) PyObject_TypeCheck(obj, &atom_pytype)
  48 #define ATOM_A(obj) (((atom_pyobj *)(obj))->a)
  49
  50 extern PyTypeObject atom_pytype;
  51
  52 /*----- Functions provided ------------------------------------------------*/
  53
  54 extern PyObject *atom_pywrap(atom *);
  55 extern PyObject *atom_pyintern(PyObject *);
  56 extern void atom_pysetup(void);
  57
  58 /*----- That's all, folks -------------------------------------------------*/
  59
  60 #ifdef __cplusplus
  61   }
  62 #endif
  63
  64 #endif