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

   1 /* -*-c-*-
   2  *
   3  * $Id$
   4  *
   5  * Atom stuff
   6  *
   7  * (c) 2005 Straylight/Edgeware
   8  */
   9
  10 /*----- Licensing notice --------------------------------------------------*
  11  *
  12  * This file is part of the Python interface to mLib.
  13  *
  14  * mLib/Python is free software; you can redistribute it and/or modify
  15  * it under the terms of the GNU General Public License as published by
  16  * the Free Software Foundation; either version 2 of the License, or
  17  * (at your option) any later version.
  18  *
  19  * mLib/Python is distributed in the hope that it will be useful,
  20  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  21  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22  * GNU General Public License for more details.
  23  *
  24  * You should have received a copy of the GNU General Public License
  25  * along with mLib/Python; if not, write to the Free Software Foundation,
  26  * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  27  */
  28
  29 #ifndef ATOM_H
  30 #define ATOM_H
  31
  32 #ifdef __cplusplus
  33   extern "C" {
  34 #endif
  35
  36 /*----- Header files ------------------------------------------------------*/
  37
  38 #include <Python.h>
  39
  40 #include <mLib/atom.h>
  41 #include <mLib/assoc.h>
  42
  43 /*----- Data structures ---------------------------------------------------*/
  44
  45 typedef struct atom_pyobj {
  46   PyObject_HEAD
  47   atom *a;
  48 } atom_pyobj;
  49 #define ATOM_PYCHECK(obj) PyObject_TypeCheck(obj, &atom_pytype)
  50 #define ATOM_A(obj) (((atom_pyobj *)(obj))->a)
  51
  52 extern PyTypeObject atom_pytype;
  53
  54 /*----- Functions provided ------------------------------------------------*/
  55
  56 extern PyObject *atom_pywrap(atom *);
  57 extern PyObject *atom_pyintern(PyObject *);
  58 extern void atom_pysetup(void);
  59
  60 /*----- That's all, folks -------------------------------------------------*/
  61
  62 #ifdef __cplusplus
  63   }
  64 #endif
  65
  66 #endif