mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-10 05:29:30 -06:00
97 lines
2.6 KiB
C
97 lines
2.6 KiB
C
#include <Python.h>
|
|
#include "HsFFI.h"
|
|
|
|
#ifdef __GLASGOW_HASKELL__
|
|
#include "PyGF_stub.h"
|
|
|
|
extern void __stginit_PyGF ( void );
|
|
#endif
|
|
|
|
static inline void gf_init(int *argc, char ***argv)
|
|
{
|
|
hs_init(argc, argv);
|
|
#ifdef __GLASGOW_HASKELL__
|
|
hs_add_root(__stginit_PyGF);
|
|
#endif
|
|
}
|
|
|
|
static inline void gf_exit(void)
|
|
{
|
|
hs_exit();
|
|
}
|
|
|
|
typedef HsStablePtr GF_PGF;
|
|
typedef HsStablePtr GF_CId;
|
|
typedef HsStablePtr GF_Language;
|
|
typedef HsStablePtr GF_Type;
|
|
typedef HsStablePtr GF_Tree;
|
|
typedef HsStablePtr GF_Expr;
|
|
typedef struct {
|
|
PyObject_HEAD;
|
|
HsStablePtr sp;
|
|
} PyGF;
|
|
|
|
|
|
#define NEWOBJECT(OBJ, GFTYPE) typedef struct {\
|
|
PyObject_HEAD \
|
|
GFTYPE obj; \
|
|
} OBJ;
|
|
|
|
#define PYTYPE(OBJ) OBJ ## Type
|
|
#define NEWCONSTRUCTOR(OBJ) inline OBJ* new ## OBJ () {\
|
|
return (OBJ*)PYTYPE(OBJ).tp_new(&PYTYPE(OBJ),NULL,NULL); }
|
|
|
|
#define NEWTYPE(TYPE,NAME,OBJECT,DOC) static PyTypeObject TYPE = {\
|
|
PyObject_HEAD_INIT(NULL)\
|
|
0, /*ob_size*/\
|
|
NAME, /*tp_name*/\
|
|
sizeof(OBJECT), /*tp_basicsize*/\
|
|
0, /*tp_itemsize*/\
|
|
0, /*tp_dealloc*/\
|
|
0, /*tp_print*/\
|
|
0, /*tp_getattr*/\
|
|
0, /*tp_setattr*/\
|
|
0, /*tp_compare*/\
|
|
0, /*tp_repr*/\
|
|
0, /*tp_as_number*/\
|
|
0, /*tp_as_sequence*/\
|
|
0, /*tp_as_mapping*/\
|
|
0, /*tp_hash */\
|
|
0, /*tp_call*/\
|
|
0, /*tp_str*/\
|
|
0, /*tp_getattro*/\
|
|
0, /*tp_setattro*/\
|
|
0, /*tp_as_buffer*/\
|
|
Py_TPFLAGS_DEFAULT, /*tp_flags*/\
|
|
DOC, /* tp_doc */\
|
|
};
|
|
#define NEWGF(OBJ,GFTYPE,TYPE,NAME,DOC) NEWOBJECT(OBJ,GFTYPE) \
|
|
NEWTYPE(TYPE,NAME,OBJ,DOC)\
|
|
NEWCONSTRUCTOR(OBJ)
|
|
|
|
|
|
// NEWOBJECT(CID, GF_CId)
|
|
|
|
#ifdef DEBUG
|
|
#define DEALLOCFN(delname,t,cb,cbname) static void \
|
|
delname(t *self){ cb(self);\
|
|
printf("gf_%s has been called for stable pointer 0x%x\n", cbname, self->obj);\
|
|
self->ob_type->tp_free((PyObject*)self); }
|
|
#else
|
|
#define DEALLOCFN(delname,t,cb,cbname) static void \
|
|
delname(t *self){ cb(self);\
|
|
self->ob_type->tp_free((PyObject*)self); }
|
|
#endif
|
|
|
|
#ifdef DEBUG
|
|
#define REPRCB(cbid,t,gfcb) static PyObject* \
|
|
cbid(t *self) { \
|
|
const char *str = gfcb(self); \
|
|
return PyString_FromFormat("0x%x: %s", self->obj, str); }
|
|
#else
|
|
#define REPRCB(cbid,t,gfcb) static PyObject* \
|
|
cbid(t *self) { \
|
|
const char *str = gfcb(self); \
|
|
return PyString_FromString(str); }
|
|
#endif
|