[pyke] / catacomb-python.h

/* -*-c-*-
 *
 * Definitions for Catacomb bindings
 *
 * (c) 2004 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------*
 *
 * This file is part of the Python interface to Catacomb.
 *
 * Catacomb/Python is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * Catacomb/Python is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with Catacomb/Python; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

#ifndef CATACOMB_PYTHON_H
#define CATACOMB_PYTHON_H

#ifdef __cplusplus
  extern "C" {
#endif

/*----- Header files ------------------------------------------------------*/

#define PY_SSIZE_T_CLEAN

#include <Python.h>
#include <longintrepr.h>
#include <structmember.h>

#include <mLib/darray.h>
#include <mLib/dstr.h>
#include <mLib/macros.h>
#include <mLib/quis.h>
#include <mLib/unihash.h>

#include <catacomb/buf.h>
#include <catacomb/ct.h>

#include <catacomb/grand.h>
#include <catacomb/rand.h>
#include <catacomb/noise.h>
#include <catacomb/bbs.h>
#include <catacomb/mprand.h>
#include <catacomb/lcrand.h>
#include <catacomb/fibrand.h>
#include <catacomb/dsarand.h>
#include <catacomb/sslprf.h>
#include <catacomb/tlsprf.h>
#include <catacomb/blkc.h>

#include <catacomb/gcipher.h>
#include <catacomb/gaead.h>
#include <catacomb/ghash.h>
#include <catacomb/gmac.h>
#include <catacomb/md5.h>
#include <catacomb/md5-hmac.h>
#include <catacomb/poly1305.h>
#include <catacomb/sha.h>
#include <catacomb/sha-mgf.h>
#include <catacomb/sha-hmac.h>
#include <catacomb/keccak1600.h>
#include <catacomb/sha3.h>

#include <catacomb/mp.h>
#include <catacomb/mpint.h>
#include <catacomb/mpmul.h>
#include <catacomb/mpcrt.h>
#include <catacomb/mpmont.h>
#include <catacomb/mpbarrett.h>
#include <catacomb/mpreduce.h>
#include <catacomb/mp-fibonacci.h>

#include <catacomb/pgen.h>
#include <catacomb/pfilt.h>
#include <catacomb/strongprime.h>
#include <catacomb/limlee.h>
#include <catacomb/dh.h>
#include <catacomb/ptab.h>
#include <catacomb/bintab.h>
#include <catacomb/dsa.h>
#include <catacomb/x25519.h>
#include <catacomb/x448.h>
#include <catacomb/ed25519.h>
#include <catacomb/ed448.h>

#include <catacomb/gf.h>
#include <catacomb/gfreduce.h>
#include <catacomb/gfn.h>

#include <catacomb/field.h>
#include <catacomb/field-guts.h>

#include <catacomb/ec.h>
#include <catacomb/ec-raw.h>
#include <catacomb/ectab.h>

#include <catacomb/group.h>
#include <catacomb/group-guts.h>

#include <catacomb/gdsa.h>
#include <catacomb/gkcdsa.h>
#include <catacomb/rsa.h>

#include <catacomb/key.h>
#include <catacomb/passphrase.h>
#include <catacomb/pixie.h>

#include <catacomb/share.h>
#include <catacomb/gfshare.h>

/*----- Other preliminaries -----------------------------------------------*/

#define GOBBLE_SEMI extern int notexist
#if defined(__GNUC__) && defined(__ELF__)
#  define PRIVATE_SYMBOLS _Pragma("GCC visibility push(hidden)") GOBBLE_SEMI
#  define PUBLIC_SYMBOLS _Pragma("GCC visibility pop") GOBBLE_SEMI
#  define EXPORT __attribute__((__visibility__("default")))
#else
#  define PRIVATE_SYMBOLS GOBBLE_SEMI
#  define PUBLIC_SYMBOLS GOBBLE_SEMI
#  define EXPORT
#endif

PRIVATE_SYMBOLS;

/*----- Utility macros ----------------------------------------------------*/

#define RETURN_OBJ(obj) do { Py_INCREF(obj); return (obj); } while (0)
#define RETURN_NONE RETURN_OBJ(Py_None)
#define RETURN_NOTIMPL RETURN_OBJ(Py_NotImplemented)
#define RETURN_TRUE RETURN_OBJ(Py_True)
#define RETURN_FALSE RETURN_OBJ(Py_False)
#define RETURN_ME RETURN_OBJ(me)

#define EXCERR(exc, str) do {						\
  PyErr_SetString(exc, str);						\
  goto end;								\
} while (0)
#define VALERR(str) EXCERR(PyExc_ValueError, str)
#define OVFERR(str) EXCERR(PyExc_OverflowError, str)
#define TYERR(str) EXCERR(PyExc_TypeError, str)
#define IXERR(str) EXCERR(PyExc_IndexError, str)
#define ZDIVERR(str) EXCERR(PyExc_ZeroDivisionError, str)
#define SYSERR(str) EXCERR(PyExc_SystemError, str)
#define NIERR(str) EXCERR(PyExc_NotImplementedError, str)
#define INDEXERR(idx) do {						\
  PyErr_SetObject(PyExc_KeyError, idx);					\
  goto end;								\
} while (0)
#define OSERR(name) do {						\
  PyErr_SetFromErrnoWithFilename(PyExc_OSError, name);			\
  goto end;								\
} while (0)
#define PGENERR(exc) do { pgenerr(exc); goto end; } while (0)

#define CONVFUNC(ty, cty, ext)						\
  int conv##ty(PyObject *o, void *p)					\
  {									\
    if (!PyObject_TypeCheck(o, ty##_pytype))				\
      TYERR("wanted a " #ty);						\
    *(cty *)p = ext(o);							\
    return (1);								\
  end:									\
    return (0);								\
  }

#if PY_VERSION_HEX < 0x02050000		/* Compatibility hack */
#  define ht_name name
#  define ht_type type
#endif

#define root_pytype 0
#define type_pytype &PyType_Type
#define INITTYPE_META(ty, base, meta) do {				\
  ty##_pytype_skel.tp_base = base##_pytype;				\
  ty##_pytype = inittype(&ty##_pytype_skel, meta##_pytype);		\
} while (0)
#define INITTYPE(ty, base) INITTYPE_META(ty, base, type)

extern PyObject *home_module;

#define INSERT(name, ob) do {	\
  PyObject *_o = (PyObject *)(ob);					\
  Py_INCREF(_o);							\
  PyModule_AddObject(mod, name, _o);					\
} while (0)

#define INSEXC(name, var, base, meth)					\
  INSERT(name, var = mkexc(mod, base, name, meth))

#define METH(func, doc)							\
  { #func, METHNAME(func), METH_VARARGS, doc },
#define KWMETH(func, doc)						\
  { #func, (PyCFunction)METHNAME(func),					\
    METH_VARARGS | METH_KEYWORDS, doc },

#define GET(func, doc)							\
  { #func, GETSETNAME(get, func), 0, doc },
#define GETSET(func, doc)						\
  { #func, GETSETNAME(get, func), GETSETNAME(set, func), doc },

#define MEMBER(name, ty, f, doc)					\
  { #name, ty, offsetof(MEMBERSTRUCT, name), f, doc },

#define MODULES(_)							\
  _(util)								\
  _(bytestring) _(buffer)						\
  _(rand) _(algorithms) _(pubkey) _(pgen)				\
  _(mp) _(field) _(ec) _(group)						\
  _(passphrase) _(share) _(key)
#define DOMODINIT(m) m##_pyinit();
#define DOMODINSERT(m) m##_pyinsert(mod);
#define INIT_MODULES do { MODULES(DOMODINIT) } while (0)
#define INSERT_MODULES do { MODULES(DOMODINSERT) } while (0)

#define DO(m)								\
  extern void m##_pyinit(void);						\
  extern void m##_pyinsert(PyObject *);
MODULES(DO)
#undef DO

#define FREEOBJ(obj)							\
  (((PyObject *)(obj))->ob_type->tp_free((PyObject *)(obj)))

#define GEN(func, base)							\
  static PyObject *func(void)						\
  {									\
    PyObject *d = PyDict_New();						\
    PyObject *o;							\
    int i;								\
									\
    for (i = 0; g##base##tab[i]; i++) {					\
      o = gc##base##_pywrap((/*unconst*/ gc##base *)g##base##tab[i]);	\
      PyDict_SetItemString(d,						\
			   (/*unconst*/ char *)g##base##tab[i]->name,	\
			   o);						\
      Py_DECREF(o);							\
    }									\
    return (d);								\
  }

#define KWLIST (/*unconst*/ char **)kwlist

struct nameval { const char *name; unsigned f; unsigned long value; };
#define CF_SIGNED 1u
extern void setconstants(PyObject *, const struct nameval *);

extern PyObject *mexp_common(PyObject *, PyObject *, size_t,
			     PyObject *(*id)(PyObject *),
			     int (*fill)(void *, PyObject *,
					 PyObject *, PyObject *),
			     PyObject *(*exp)(PyObject *, void *, int),
			     void (*drop)(void *));

extern int convulong(PyObject *, void *);
#define DECL_CONVU_(n) extern int convu##n(PyObject *, void *);
DOUINTSZ(DECL_CONVU_)
extern int convmpw(PyObject *, void *);
extern int convuint(PyObject *, void *);
extern int convk64(PyObject *, void *);
extern int convszt(PyObject *, void *);
extern int convbool(PyObject *, void *);
extern PyObject *abstract_pynew(PyTypeObject *, PyObject *, PyObject *);
extern PyObject *getbool(int);
extern PyObject *getulong(unsigned long);
extern PyObject *getk64(kludge64);
extern void *newtype(PyTypeObject *, const PyTypeObject *, const char *);

struct excinfo { PyObject *ty, *val, *tb; };
#define EXCINFO_INIT { 0, 0, 0 }

extern PyObject *mkexc(PyObject *, PyObject *, const char *, PyMethodDef *);
#define INIT_EXCINFO(exc) do {						\
  struct excinfo *_exc = (exc); _exc->ty = _exc->val = _exc->tb = 0;	\
} while (0)
#define RELEASE_EXCINFO(exc) do {					\
  struct excinfo *_exc = (exc);						\
  Py_XDECREF(_exc->ty);	 _exc->ty  = 0;					\
  Py_XDECREF(_exc->val); _exc->val = 0;					\
  Py_XDECREF(_exc->tb);	 _exc->tb  = 0;					\
} while (0)
#define STASH_EXCINFO(exc) do {						\
  struct excinfo *_exc = (exc);						\
  PyErr_Fetch(&_exc->ty, &_exc->val, &_exc->tb);			\
  PyErr_NormalizeException(&_exc->ty, &_exc->val, &_exc->tb);		\
} while (0)
#define RESTORE_EXCINFO(exc) do {					\
  struct excinfo *_exc = (exc);						\
  PyErr_Restore(_exc->ty, _exc->val, _exc->tb);				\
  _exc->ty = _exc->val = _exc->tb = 0;					\
} while (0)
extern void report_lost_exception(struct excinfo *, const char *, ...);
extern void report_lost_exception_v(struct excinfo *, const char *, va_list);
extern void stash_exception(struct excinfo *, const char *, ...);
extern void restore_exception(struct excinfo *, const char *, ...);

extern void typeready(PyTypeObject *);
extern PyTypeObject *inittype(PyTypeObject *, PyTypeObject *);
extern void addmethods(const PyMethodDef *);
extern PyMethodDef *donemethods(void);

/*----- Mapping methods ---------------------------------------------------*/

#define GMAP_METH(func, doc) { #func, gmapmeth_##func, METH_VARARGS, doc },
#define GMAP_KWMETH(func, doc)						\
  { #func, (PyCFunction)gmapmeth_##func, METH_VARARGS|METH_KEYWORDS, doc },
#define GMAP_METHDECL(func, doc)					\
  extern PyObject *gmapmeth_##func(PyObject *, PyObject *);
#define GMAP_KWMETHDECL(func, doc)					\
  extern PyObject *gmapmeth_##func(PyObject *, PyObject *, PyObject *);

#define GMAP_DOROMETHODS(METH, KWMETH)					\
  METH	(has_key,	"D.has_key(KEY) -> BOOL")			\
  METH	(keys,		"D.keys() -> LIST")				\
  METH	(values,	"D.values() -> LIST")				\
  METH	(items,		"D.items() -> LIST")				\
  METH	(iterkeys,	"D.iterkeys() -> ITER")				\
  METH	(itervalues,	"D.itervalues() -> ITER")			\
  METH	(iteritems,	"D.iteritems() -> ITER")			\
  KWMETH(get,		"D.get(KEY, [default = None]) -> VALUE")	\

#define GMAP_DOMETHODS(METH, KWMETH)					\
  GMAP_DOROMETHODS(METH, KWMETH)					\
  METH	(clear,		"D.clear()")					\
  KWMETH(setdefault,	"D.setdefault(K, [default = None]) -> VALUE")	\
  KWMETH(pop,		"D.pop(KEY, [default = <error>]) -> VALUE")	\
  METH	(popitem,	"D.popitem() -> (KEY, VALUE)")			\
  METH	(update,	"D.update(MAP)")

GMAP_DOMETHODS(GMAP_METHDECL, GMAP_KWMETHDECL)
#define GMAP_ROMETHODS GMAP_DOROMETHODS(GMAP_METH, GMAP_KWMETH)
#define GMAP_METHODS GMAP_DOMETHODS(GMAP_METH, GMAP_KWMETH)
extern Py_ssize_t gmap_pysize(PyObject *);
extern PySequenceMethods gmap_pysequence;
extern PyMethodDef gmap_pymethods[];

/*----- Bytestrings -------------------------------------------------------*/

PyObject *bytestring_pywrap(const void *, size_t);
PyObject *bytestring_pywrapbuf(buf *);

/*----- Multiprecision arithmetic -----------------------------------------*/

typedef struct mp_pyobj {
  PyObject_HEAD
  mp *x;
} mp_pyobj;

extern PyTypeObject *mp_pytype;
extern PyTypeObject *gf_pytype;
#define MP_X(o) (((mp_pyobj *)(o))->x)
#define MP_PYCHECK(o) PyObject_TypeCheck((o), mp_pytype)
#define GF_PYCHECK(o) PyObject_TypeCheck((o), gf_pytype)

extern mp *mp_frompylong(PyObject *);
extern PyObject *mp_topylong(mp *);
extern mp *tomp(PyObject *);
extern mp *getmp(PyObject *);
extern int convmp(PyObject *, void *);
extern mp *getgf(PyObject *);
extern int convgf(PyObject *, void *);
extern PyObject *mp_pywrap(mp *);
extern PyObject *gf_pywrap(mp *);
extern long mphash(mp *);
extern mp *mp_frompyobject(PyObject *, int);
extern PyObject *mp_topystring(mp *, int,
			       const char *, const char *, const char *);
extern int mp_tolong_checked(mp *, long *, int);

/*----- Abstract fields ---------------------------------------------------*/

typedef struct field_pyobj {
  PyHeapTypeObject ty;
  field *f;
} field_pyobj;

extern PyTypeObject *field_pytype;
extern PyTypeObject *primefield_pytype;
extern PyTypeObject *niceprimefield_pytype;
extern PyTypeObject *binfield_pytype;
extern PyTypeObject *binpolyfield_pytype;
extern PyTypeObject *binnormfield_pytype;
#define FIELD_PYCHECK(o) PyObject_TypeCheck((o), field_pytype)
#define FIELD_F(o) (((field_pyobj *)(o))->f)
extern PyObject *field_pywrap(field *);
extern field *field_copy(field *);

typedef struct fe_pyobj {
  PyObject_HEAD
  field *f;
  mp *x;
} fe_pyobj;

extern PyTypeObject *fe_pytype;
#define FE_PYCHECK(o) PyObject_TypeCheck((o), fe_pytype)
#define FE_F(o) (((fe_pyobj *)(o))->f)
#define FE_FOBJ(o) ((PyObject *)(o)->ob_type)
#define FE_X(o) (((fe_pyobj *)(o))->x)
extern PyObject *fe_pywrap(PyObject *, mp *);

/*----- Elliptic curves ---------------------------------------------------*/

typedef struct eccurve_pyobj {
  PyHeapTypeObject ty;
  ec_curve *c;
  PyObject *fobj;
} eccurve_pyobj;

extern PyTypeObject *eccurve_pytype;
extern PyTypeObject *ecprimecurve_pytype;
extern PyTypeObject *ecprimeprojcurve_pytype;
extern PyTypeObject *ecbincurve_pytype;
extern PyTypeObject *ecbinprojcurve_pytype;
#define ECCURVE_PYCHECK(o) PyObject_TypeCheck((o), eccurve_pytype)
#define ECCURVE_C(o) (((eccurve_pyobj *)(o))->c)
#define ECCURVE_FOBJ(o) (((eccurve_pyobj *)(o))->fobj)
extern PyObject *eccurve_pywrap(PyObject *, ec_curve *);
extern ec_curve *eccurve_copy(ec_curve *);

typedef struct ecpt_pyobj {
  PyObject_HEAD
  ec_curve *c;
  ec p;
} ecpt_pyobj;

extern PyTypeObject *ecpt_pytype, *ecptcurve_pytype;
#define ECPT_PYCHECK(o) PyObject_TypeCheck((o), ecpt_pytype)
#define ECPTCURVE_PYCHECK(o) PyObject_TypeCheck((o), ecptcurve_pytype)
#define ECPT_C(o) (((ecpt_pyobj *)(o))->c)
#define ECPT_COBJ(o) ((PyObject *)(o)->ob_type)
#define ECPT_FOBJ(o) ECCURVE_FOBJ(ECPT_COBJ((o)))
#define ECPT_P(o) (&((ecpt_pyobj *)(o))->p)
extern PyObject *ecpt_pywrap(PyObject *, ec *);
extern PyObject *ecpt_pywrapout(void *, ec *);
extern int toecpt(ec_curve *, ec *, PyObject *);
extern int getecpt(ec_curve *, ec *, PyObject *);
extern void getecptout(ec *, PyObject *);
extern int convecpt(PyObject *, void *);

typedef struct ecinfo_pyobj {
  PyObject_HEAD
  ec_info ei;
  PyObject *cobj;
} ecinfo_pyobj;

extern PyTypeObject *ecinfo_pytype;
#define ECINFO_PYCHECK(o) PyObject_TypeCheck((o), ecinfo_pytype)
#define ECINFO_EI(o) (&((ecinfo_pyobj *)(o))->ei)
#define ECINFO_COBJ(o) (((ecinfo_pyobj *)(o))->cobj)
extern void ecinfo_copy(ec_info *, const ec_info *);
extern PyObject *ecinfo_pywrap(ec_info *);

/*----- Cyclic groups -----------------------------------------------------*/

typedef struct ge_pyobj {
  PyObject_HEAD
  ge *x;
  group *g;
} ge_pyobj;

extern PyTypeObject *ge_pytype;
#define GE_PYCHECK(o) PyObject_TypeCheck((o), ge_pytype)
#define GE_X(o) (((ge_pyobj *)(o))->x)
#define GE_G(o) (((ge_pyobj *)(o))->g)
#define GE_GOBJ(o) ((PyObject *)(group_pyobj *)(o)->ob_type)
extern PyObject *ge_pywrap(PyObject *, ge *);

typedef struct group_pyobj {
  PyHeapTypeObject ty;
  group *g;
} group_pyobj;

extern PyTypeObject *group_pytype;
#define GROUP_G(o) (((group_pyobj *)(o))->g)
extern PyObject *group_pywrap(group *);
extern group *group_copy(group *);

/*----- Random number generators ------------------------------------------*/

#define f_freeme 1u

typedef struct grand_pyobj {
  PyObject_HEAD
  unsigned f;
  grand *r;
} grand_pyobj;

extern PyTypeObject *grand_pytype;
extern PyObject *rand_pyobj;
#define GRAND_PYCHECK(o) PyObject_TypeCheck((o), grand_pytype)
#define GRAND_F(o) (((grand_pyobj *)(o))->f)
#define GRAND_R(o) (((grand_pyobj *)(o))->r)
extern PyObject *grand_pywrap(grand *, unsigned);
extern int convgrand(PyObject *, void *);

/*----- Symmetric cryptography --------------------------------------------*/

extern PyObject *keysz_pywrap(const octet *);

extern int convgccipher(PyObject *, void *);
extern PyObject *gccipher_pywrap(gccipher *);

typedef struct gchash_pyobj {
  PyHeapTypeObject ty;
  gchash *ch;
} gchash_pyobj;

extern PyTypeObject *gchash_pytype;
extern PyObject *sha_pyobj, *has160_pyobj;
#define GCHASH_PYCHECK(o) PyObject_TypeCheck((o), gchash_pytype)
#define GCHASH_CH(o) (((gchash_pyobj *)(o))->ch)
extern PyObject *ghash_pywrap(PyObject *, ghash *);
extern int convgchash(PyObject *, void *);
extern int convghash(PyObject *, void *);

extern int convgcmac(PyObject *, void *);

/*----- Key generation ----------------------------------------------------*/

typedef struct pfilt_pyobj {
  PyObject_HEAD
  pfilt f;
  int st;
} pfilt_pyobj;

extern PyTypeObject *pfilt_pytype;
#define PFILT_PYCHECK(o) PyObject_TypeCheck(o, pfilt_pytype)
#define PFILT_F(o) (&((pfilt_pyobj *)(o))->f)
#define PFILT_ST(o) (((pfilt_pyobj *)(o))->st)

typedef struct { pgen_proc *proc; void *ctx; } pgev;
#define PGEV_HEAD PyObject_HEAD pgev pg;

typedef struct pgev_pyobj {
  PGEV_HEAD
} pgev_pyobj;

extern PyTypeObject *pgev_pytype;
#define PGEV_PYCHECK(o) PyObject_TypeCheck(o, pgev_pytype)
#define PGEV_PG(o) (&((pgev_pyobj *)(o))->pg)

typedef struct pypgev {
  pgev ev;
  PyObject *obj;
  struct excinfo *exc;
} pypgev;

extern int convpgev(PyObject *, void *);
extern void droppgev(pypgev *);
extern void pgenerr(struct excinfo *exc);

/*----- That's all, folks -------------------------------------------------*/

#ifdef __cplusplus
  }
#endif

#endif
Commit	Line	Data
b6a86d2e	1	/* --c--
b6a86d2e	2	*
b6a86d2e	3	* Definitions for Catacomb bindings
	4	*
	5	* (c) 2004 Straylight/Edgeware
	6	*/
	7
0b1eafbf	8	/----- Licensing notice --------------------------------------------------
b6a86d2e	9	*
	10	* This file is part of the Python interface to Catacomb.
	11	*
	12	* Catacomb/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.
0b1eafbf	16	*
b6a86d2e	17	* Catacomb/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.
0b1eafbf	21	*
b6a86d2e	22	* You should have received a copy of the GNU General Public License
	23	* along with Catacomb/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 CATACOMB_PYTHON_H
	28	#define CATACOMB_PYTHON_H
	29
	30	#ifdef __cplusplus
	31	extern "C" {
	32	#endif
	33
	34	/----- Header files ------------------------------------------------------/
	35
ad84d8c2 MW	36	#define PY_SSIZE_T_CLEAN
ad84d8c2 MW	37
b6a86d2e	38	#include <Python.h>
	39	#include <longintrepr.h>
	40	#include <structmember.h>
	41
	42	#include <mLib/darray.h>
	43	#include <mLib/dstr.h>
	44	#include <mLib/macros.h>
73a712fa	45	#include <mLib/quis.h>
b06387d2	46	#include <mLib/unihash.h>
b6a86d2e	47
b6a86d2e	48	#include <catacomb/buf.h>
54ecf9dd	49	#include <catacomb/ct.h>
b6a86d2e	50
	51	#include <catacomb/grand.h>
	52	#include <catacomb/rand.h>
	53	#include <catacomb/noise.h>
	54	#include <catacomb/bbs.h>
	55	#include <catacomb/mprand.h>
	56	#include <catacomb/lcrand.h>
	57	#include <catacomb/fibrand.h>
	58	#include <catacomb/dsarand.h>
	59	#include <catacomb/sslprf.h>
	60	#include <catacomb/tlsprf.h>
62058916	61	#include <catacomb/blkc.h>
b6a86d2e	62
b6a86d2e	63	#include <catacomb/gcipher.h>
54ae5879	64	#include <catacomb/gaead.h>
b6a86d2e	65	#include <catacomb/ghash.h>
	66	#include <catacomb/gmac.h>
	67	#include <catacomb/md5.h>
	68	#include <catacomb/md5-hmac.h>
2ad160b1	69	#include <catacomb/poly1305.h>
b6a86d2e	70	#include <catacomb/sha.h>
	71	#include <catacomb/sha-mgf.h>
	72	#include <catacomb/sha-hmac.h>
f85a7079	73	#include <catacomb/keccak1600.h>
b75462e8	74	#include <catacomb/sha3.h>
b6a86d2e	75
	76	#include <catacomb/mp.h>
	77	#include <catacomb/mpint.h>
	78	#include <catacomb/mpmul.h>
	79	#include <catacomb/mpcrt.h>
	80	#include <catacomb/mpmont.h>
	81	#include <catacomb/mpbarrett.h>
	82	#include <catacomb/mpreduce.h>
9c034c56	83	#include <catacomb/mp-fibonacci.h>
b6a86d2e	84
	85	#include <catacomb/pgen.h>
	86	#include <catacomb/pfilt.h>
	87	#include <catacomb/strongprime.h>
	88	#include <catacomb/limlee.h>
	89	#include <catacomb/dh.h>
	90	#include <catacomb/ptab.h>
	91	#include <catacomb/bintab.h>
	92	#include <catacomb/dsa.h>
d223dc6b	93	#include <catacomb/x25519.h>
51f4de84	94	#include <catacomb/x448.h>
70ed69c4	95	#include <catacomb/ed25519.h>
aa53a95f	96	#include <catacomb/ed448.h>
b6a86d2e	97
	98	#include <catacomb/gf.h>
	99	#include <catacomb/gfreduce.h>
	100	#include <catacomb/gfn.h>
	101
	102	#include <catacomb/field.h>
	103	#include <catacomb/field-guts.h>
	104
	105	#include <catacomb/ec.h>
	106	#include <catacomb/ec-raw.h>
	107	#include <catacomb/ectab.h>
	108
	109	#include <catacomb/group.h>
	110	#include <catacomb/group-guts.h>
	111
	112	#include <catacomb/gdsa.h>
	113	#include <catacomb/gkcdsa.h>
	114	#include <catacomb/rsa.h>
	115
	116	#include <catacomb/key.h>
	117	#include <catacomb/passphrase.h>
	118	#include <catacomb/pixie.h>
	119
73a712fa	120	#include <catacomb/share.h>
	121	#include <catacomb/gfshare.h>
	122
26a7f37a MW	123	/----- Other preliminaries -----------------------------------------------/
	124
	125	#define GOBBLE_SEMI extern int notexist
	126	#if defined(__GNUC__) && defined(__ELF__)
	127	# define PRIVATE_SYMBOLS _Pragma("GCC visibility push(hidden)") GOBBLE_SEMI
	128	# define PUBLIC_SYMBOLS _Pragma("GCC visibility pop") GOBBLE_SEMI
	129	# define EXPORT __attribute__((__visibility__("default")))
	130	#else
	131	# define PRIVATE_SYMBOLS GOBBLE_SEMI
	132	# define PUBLIC_SYMBOLS GOBBLE_SEMI
	133	# define EXPORT
	134	#endif
	135
	136	PRIVATE_SYMBOLS;
	137
b6a86d2e	138	/----- Utility macros ----------------------------------------------------/
	139
	140	#define RETURN_OBJ(obj) do { Py_INCREF(obj); return (obj); } while (0)
	141	#define RETURN_NONE RETURN_OBJ(Py_None)
	142	#define RETURN_NOTIMPL RETURN_OBJ(Py_NotImplemented)
	143	#define RETURN_TRUE RETURN_OBJ(Py_True)
	144	#define RETURN_FALSE RETURN_OBJ(Py_False)
	145	#define RETURN_ME RETURN_OBJ(me)
	146
	147	#define EXCERR(exc, str) do { \
	148	PyErr_SetString(exc, str); \
	149	goto end; \
	150	} while (0)
	151	#define VALERR(str) EXCERR(PyExc_ValueError, str)
c6b05f1f	152	#define OVFERR(str) EXCERR(PyExc_OverflowError, str)
b6a86d2e	153	#define TYERR(str) EXCERR(PyExc_TypeError, str)
ca473903	154	#define IXERR(str) EXCERR(PyExc_IndexError, str)
b6a86d2e	155	#define ZDIVERR(str) EXCERR(PyExc_ZeroDivisionError, str)
b6a86d2e	156	#define SYSERR(str) EXCERR(PyExc_SystemError, str)
68ec53f3	157	#define NIERR(str) EXCERR(PyExc_NotImplementedError, str)
73a712fa	158	#define INDEXERR(idx) do { \
	159	PyErr_SetObject(PyExc_KeyError, idx); \
	160	goto end; \
	161	} while (0)
b6a86d2e	162	#define OSERR(name) do { \
	163	PyErr_SetFromErrnoWithFilename(PyExc_OSError, name); \
	164	goto end; \
	165	} while (0)
87aa2e3c	166	#define PGENERR(exc) do { pgenerr(exc); goto end; } while (0)
b6a86d2e	167
	168	#define CONVFUNC(ty, cty, ext) \
	169	int conv##ty(PyObject o, void p) \
	170	{ \
	171	if (!PyObject_TypeCheck(o, ty##_pytype)) \
	172	TYERR("wanted a " #ty); \
	173	(cty )p = ext(o); \
	174	return (1); \
	175	end: \
	176	return (0); \
	177	}
	178
d4a9e7e7 MW	179	#if PY_VERSION_HEX < 0x02050000 /* Compatibility hack */
	180	# define ht_name name
	181	# define ht_type type
	182	#endif
	183
b6a86d2e	184	#define root_pytype 0
b6a86d2e	185	#define type_pytype &PyType_Type
017d5f65	186	#define INITTYPE_META(ty, base, meta) do { \
b6a86d2e	187	ty##_pytype_skel.tp_base = base##_pytype; \
017d5f65	188	ty##_pytype = inittype(&ty##_pytype_skel, meta##_pytype); \
b6a86d2e	189	} while (0)
017d5f65	190	#define INITTYPE(ty, base) INITTYPE_META(ty, base, type)
b6a86d2e	191
87aa2e3c MW	192	extern PyObject *home_module;
	193
	194	#define INSERT(name, ob) do { \
b6a86d2e	195	PyObject _o = (PyObject )(ob); \
0b1eafbf	196	Py_INCREF(_o); \
b6a86d2e	197	PyModule_AddObject(mod, name, _o); \
	198	} while (0)
	199
73a712fa	200	#define INSEXC(name, var, base, meth) \
	201	INSERT(name, var = mkexc(mod, base, name, meth))
	202
b6a86d2e	203	#define METH(func, doc) \
	204	{ #func, METHNAME(func), METH_VARARGS, doc },
	205	#define KWMETH(func, doc) \
	206	{ #func, (PyCFunction)METHNAME(func), \
	207	METH_VARARGS \| METH_KEYWORDS, doc },
	208
	209	#define GET(func, doc) \
	210	{ #func, GETSETNAME(get, func), 0, doc },
	211	#define GETSET(func, doc) \
	212	{ #func, GETSETNAME(get, func), GETSETNAME(set, func), doc },
	213
	214	#define MEMBER(name, ty, f, doc) \
	215	{ #name, ty, offsetof(MEMBERSTRUCT, name), f, doc },
	216
73a712fa	217	#define MODULES(_) \
dfe0a897	218	_(util) \
73a712fa	219	_(bytestring) _(buffer) \
	220	_(rand) _(algorithms) _(pubkey) _(pgen) \
	221	_(mp) _(field) _(ec) _(group) \
dfe0a897	222	_(passphrase) _(share) _(key)
b6a86d2e	223	#define DOMODINIT(m) m##_pyinit();
	224	#define DOMODINSERT(m) m##_pyinsert(mod);
	225	#define INIT_MODULES do { MODULES(DOMODINIT) } while (0)
	226	#define INSERT_MODULES do { MODULES(DOMODINSERT) } while (0)
	227
	228	#define DO(m) \
	229	extern void m##_pyinit(void); \
	230	extern void m##_pyinsert(PyObject *);
	231	MODULES(DO)
	232	#undef DO
	233
ba45a729	234	#define FREEOBJ(obj) \
	235	(((PyObject )(obj))->ob_type->tp_free((PyObject )(obj)))
	236
68ec53f3 MW	237	#define GEN(func, base) \
	238	static PyObject *func(void) \
	239	{ \
	240	PyObject *d = PyDict_New(); \
	241	PyObject *o; \
	242	int i; \
	243	\
	244	for (i = 0; g##base##tab[i]; i++) { \
	245	o = gc##base##_pywrap((/unconst/ gc##base *)g##base##tab[i]); \
	246	PyDict_SetItemString(d, \
	247	(/unconst/ char *)g##base##tab[i]->name, \
	248	o); \
	249	Py_DECREF(o); \
	250	} \
	251	return (d); \
	252	}
	253
0fed227d MW	254	#define KWLIST (/unconst/ char **)kwlist
0fed227d MW	255
2ec562f1 MW	256	struct nameval { const char *name; unsigned f; unsigned long value; };
2ec562f1 MW	257	#define CF_SIGNED 1u
68ec53f3 MW	258	extern void setconstants(PyObject , const struct nameval );
	259
	260	extern PyObject mexp_common(PyObject , PyObject *, size_t,
	261	PyObject (id)(PyObject *),
	262	int (fill)(void , PyObject *,
	263	PyObject , PyObject ),
	264	PyObject (exp)(PyObject , void , int),
	265	void (drop)(void ));
	266
	267	extern int convulong(PyObject , void );
	268	#define DECL_CONVU_(n) extern int convu##n(PyObject , void );
	269	DOUINTSZ(DECL_CONVU_)
	270	extern int convmpw(PyObject , void );
	271	extern int convuint(PyObject , void );
1b6734b6	272	extern int convk64(PyObject , void );
68ec53f3 MW	273	extern int convszt(PyObject , void );
	274	extern int convbool(PyObject , void );
	275	extern PyObject abstract_pynew(PyTypeObject , PyObject , PyObject );
	276	extern PyObject *getbool(int);
1e082a86	277	extern PyObject *getulong(unsigned long);
1b6734b6	278	extern PyObject *getk64(kludge64);
68ec53f3 MW	279	extern void newtype(PyTypeObject , const PyTypeObject , const char );
68ec53f3 MW	280
87aa2e3c MW	281	struct excinfo { PyObject ty, val, *tb; };
	282	#define EXCINFO_INIT { 0, 0, 0 }
	283
d2421f3c	284	extern PyObject mkexc(PyObject , PyObject , const char , PyMethodDef *);
87aa2e3c MW	285	#define INIT_EXCINFO(exc) do { \
	286	struct excinfo *_exc = (exc); _exc->ty = _exc->val = _exc->tb = 0; \
	287	} while (0)
	288	#define RELEASE_EXCINFO(exc) do { \
	289	struct excinfo *_exc = (exc); \
	290	Py_XDECREF(_exc->ty); _exc->ty = 0; \
	291	Py_XDECREF(_exc->val); _exc->val = 0; \
	292	Py_XDECREF(_exc->tb); _exc->tb = 0; \
	293	} while (0)
	294	#define STASH_EXCINFO(exc) do { \
	295	struct excinfo *_exc = (exc); \
	296	PyErr_Fetch(&_exc->ty, &_exc->val, &_exc->tb); \
	297	PyErr_NormalizeException(&_exc->ty, &_exc->val, &_exc->tb); \
	298	} while (0)
	299	#define RESTORE_EXCINFO(exc) do { \
	300	struct excinfo *_exc = (exc); \
	301	PyErr_Restore(_exc->ty, _exc->val, _exc->tb); \
	302	_exc->ty = _exc->val = _exc->tb = 0; \
	303	} while (0)
	304	extern void report_lost_exception(struct excinfo , const char , ...);
	305	extern void report_lost_exception_v(struct excinfo , const char , va_list);
	306	extern void stash_exception(struct excinfo , const char , ...);
	307	extern void restore_exception(struct excinfo , const char , ...);
	308
0156e402	309	extern void typeready(PyTypeObject *);
017d5f65	310	extern PyTypeObject inittype(PyTypeObject , PyTypeObject *);
68ec53f3 MW	311	extern void addmethods(const PyMethodDef *);
	312	extern PyMethodDef *donemethods(void);
	313
	314	/----- Mapping methods ---------------------------------------------------/
	315
	316	#define GMAP_METH(func, doc) { #func, gmapmeth_##func, METH_VARARGS, doc },
	317	#define GMAP_KWMETH(func, doc) \
	318	{ #func, (PyCFunction)gmapmeth_##func, METH_VARARGS\|METH_KEYWORDS, doc },
	319	#define GMAP_METHDECL(func, doc) \
	320	extern PyObject gmapmeth_##func(PyObject , PyObject *);
	321	#define GMAP_KWMETHDECL(func, doc) \
	322	extern PyObject gmapmeth_##func(PyObject , PyObject , PyObject );
	323
2a509510	324	#define GMAP_DOROMETHODS(METH, KWMETH) \
68ec53f3 MW	325	METH (has_key, "D.has_key(KEY) -> BOOL") \
	326	METH (keys, "D.keys() -> LIST") \
	327	METH (values, "D.values() -> LIST") \
	328	METH (items, "D.items() -> LIST") \
	329	METH (iterkeys, "D.iterkeys() -> ITER") \
	330	METH (itervalues, "D.itervalues() -> ITER") \
0b1eafbf	331	METH (iteritems, "D.iteritems() -> ITER") \
68ec53f3	332	KWMETH(get, "D.get(KEY, [default = None]) -> VALUE") \
2a509510 MW	333
	334	#define GMAP_DOMETHODS(METH, KWMETH) \
	335	GMAP_DOROMETHODS(METH, KWMETH) \
	336	METH (clear, "D.clear()") \
68ec53f3 MW	337	KWMETH(setdefault, "D.setdefault(K, [default = None]) -> VALUE") \
	338	KWMETH(pop, "D.pop(KEY, [default = <error>]) -> VALUE") \
	339	METH (popitem, "D.popitem() -> (KEY, VALUE)") \
	340	METH (update, "D.update(MAP)")
	341
	342	GMAP_DOMETHODS(GMAP_METHDECL, GMAP_KWMETHDECL)
2a509510	343	#define GMAP_ROMETHODS GMAP_DOROMETHODS(GMAP_METH, GMAP_KWMETH)
68ec53f3	344	#define GMAP_METHODS GMAP_DOMETHODS(GMAP_METH, GMAP_KWMETH)
9d73ed80	345	extern Py_ssize_t gmap_pysize(PyObject *);
68ec53f3 MW	346	extern PySequenceMethods gmap_pysequence;
	347	extern PyMethodDef gmap_pymethods[];
	348
b6a86d2e	349	/----- Bytestrings -------------------------------------------------------/
b6a86d2e	350
b6a86d2e	351	PyObject bytestring_pywrap(const void , size_t);
	352	PyObject bytestring_pywrapbuf(buf );
	353
	354	/----- Multiprecision arithmetic -----------------------------------------/
	355
	356	typedef struct mp_pyobj {
	357	PyObject_HEAD
	358	mp *x;
	359	} mp_pyobj;
	360
	361	extern PyTypeObject *mp_pytype;
	362	extern PyTypeObject *gf_pytype;
	363	#define MP_X(o) (((mp_pyobj *)(o))->x)
	364	#define MP_PYCHECK(o) PyObject_TypeCheck((o), mp_pytype)
	365	#define GF_PYCHECK(o) PyObject_TypeCheck((o), gf_pytype)
	366
8d57d6ea MW	367	extern mp mp_frompylong(PyObject );
8d57d6ea MW	368	extern PyObject mp_topylong(mp );
b6a86d2e	369	extern mp tomp(PyObject );
	370	extern mp getmp(PyObject );
	371	extern int convmp(PyObject , void );
	372	extern mp getgf(PyObject );
	373	extern int convgf(PyObject , void );
	374	extern PyObject mp_pywrap(mp );
	375	extern PyObject gf_pywrap(mp );
917dbf4b	376	extern long mphash(mp *);
b6a86d2e	377	extern mp mp_frompyobject(PyObject , int);
	378	extern PyObject mp_topystring(mp , int,
	379	const char , const char , const char *);
41e8ab3d	380	extern int mp_tolong_checked(mp , long , int);
b6a86d2e	381
	382	/----- Abstract fields ---------------------------------------------------/
	383
	384	typedef struct field_pyobj {
f0526039	385	PyHeapTypeObject ty;
b6a86d2e	386	field *f;
	387	} field_pyobj;
	388
b6a86d2e	389	extern PyTypeObject *field_pytype;
	390	extern PyTypeObject *primefield_pytype;
	391	extern PyTypeObject *niceprimefield_pytype;
	392	extern PyTypeObject *binfield_pytype;
	393	extern PyTypeObject *binpolyfield_pytype;
	394	extern PyTypeObject *binnormfield_pytype;
	395	#define FIELD_PYCHECK(o) PyObject_TypeCheck((o), field_pytype)
	396	#define FIELD_F(o) (((field_pyobj *)(o))->f)
	397	extern PyObject field_pywrap(field );
	398	extern field field_copy(field );
	399
8eeb5aee MW	400	typedef struct fe_pyobj {
	401	PyObject_HEAD
	402	field *f;
	403	mp *x;
	404	} fe_pyobj;
	405
	406	extern PyTypeObject *fe_pytype;
	407	#define FE_PYCHECK(o) PyObject_TypeCheck((o), fe_pytype)
	408	#define FE_F(o) (((fe_pyobj *)(o))->f)
	409	#define FE_FOBJ(o) ((PyObject *)(o)->ob_type)
	410	#define FE_X(o) (((fe_pyobj *)(o))->x)
	411	extern PyObject fe_pywrap(PyObject , mp *);
	412
b6a86d2e	413	/----- Elliptic curves ---------------------------------------------------/
b6a86d2e	414
8eeb5aee MW	415	typedef struct eccurve_pyobj {
	416	PyHeapTypeObject ty;
	417	ec_curve *c;
	418	PyObject *fobj;
	419	} eccurve_pyobj;
	420
	421	extern PyTypeObject *eccurve_pytype;
	422	extern PyTypeObject *ecprimecurve_pytype;
	423	extern PyTypeObject *ecprimeprojcurve_pytype;
	424	extern PyTypeObject *ecbincurve_pytype;
	425	extern PyTypeObject *ecbinprojcurve_pytype;
	426	#define ECCURVE_PYCHECK(o) PyObject_TypeCheck((o), eccurve_pytype)
	427	#define ECCURVE_C(o) (((eccurve_pyobj *)(o))->c)
	428	#define ECCURVE_FOBJ(o) (((eccurve_pyobj *)(o))->fobj)
	429	extern PyObject eccurve_pywrap(PyObject , ec_curve *);
	430	extern ec_curve eccurve_copy(ec_curve );
	431
b6a86d2e	432	typedef struct ecpt_pyobj {
	433	PyObject_HEAD
	434	ec_curve *c;
	435	ec p;
	436	} ecpt_pyobj;
	437
	438	extern PyTypeObject ecpt_pytype, ecptcurve_pytype;
	439	#define ECPT_PYCHECK(o) PyObject_TypeCheck((o), ecpt_pytype)
	440	#define ECPTCURVE_PYCHECK(o) PyObject_TypeCheck((o), ecptcurve_pytype)
	441	#define ECPT_C(o) (((ecpt_pyobj *)(o))->c)
	442	#define ECPT_COBJ(o) ((PyObject *)(o)->ob_type)
	443	#define ECPT_FOBJ(o) ECCURVE_FOBJ(ECPT_COBJ((o)))
	444	#define ECPT_P(o) (&((ecpt_pyobj *)(o))->p)
	445	extern PyObject ecpt_pywrap(PyObject , ec *);
	446	extern PyObject ecpt_pywrapout(void , ec *);
	447	extern int toecpt(ec_curve , ec , PyObject *);
	448	extern int getecpt(ec_curve , ec , PyObject *);
	449	extern void getecptout(ec , PyObject );
73a712fa	450	extern int convecpt(PyObject , void );
b6a86d2e	451
b6a86d2e	452	typedef struct ecinfo_pyobj {
	453	PyObject_HEAD
	454	ec_info ei;
	455	PyObject *cobj;
	456	} ecinfo_pyobj;
0b1eafbf	457
b6a86d2e	458	extern PyTypeObject *ecinfo_pytype;
	459	#define ECINFO_PYCHECK(o) PyObject_TypeCheck((o), ecinfo_pytype)
	460	#define ECINFO_EI(o) (&((ecinfo_pyobj *)(o))->ei)
	461	#define ECINFO_COBJ(o) (((ecinfo_pyobj *)(o))->cobj)
	462	extern void ecinfo_copy(ec_info , const ec_info );
	463	extern PyObject ecinfo_pywrap(ec_info );
	464
	465	/----- Cyclic groups -----------------------------------------------------/
	466
b6a86d2e	467	typedef struct ge_pyobj {
	468	PyObject_HEAD
	469	ge *x;
	470	group *g;
	471	} ge_pyobj;
	472
	473	extern PyTypeObject *ge_pytype;
	474	#define GE_PYCHECK(o) PyObject_TypeCheck((o), ge_pytype)
	475	#define GE_X(o) (((ge_pyobj *)(o))->x)
	476	#define GE_G(o) (((ge_pyobj *)(o))->g)
	477	#define GE_GOBJ(o) ((PyObject )(group_pyobj )(o)->ob_type)
	478	extern PyObject ge_pywrap(PyObject , ge *);
	479
	480	typedef struct group_pyobj {
f0526039	481	PyHeapTypeObject ty;
b6a86d2e	482	group *g;
	483	} group_pyobj;
	484
	485	extern PyTypeObject *group_pytype;
b6a86d2e	486	#define GROUP_G(o) (((group_pyobj *)(o))->g)
	487	extern PyObject group_pywrap(group );
	488	extern group group_copy(group );
	489
	490	/----- Random number generators ------------------------------------------/
	491
	492	#define f_freeme 1u
	493
	494	typedef struct grand_pyobj {
	495	PyObject_HEAD
	496	unsigned f;
	497	grand *r;
	498	} grand_pyobj;
	499
8eeb5aee	500	extern PyTypeObject *grand_pytype;
b6a86d2e	501	extern PyObject *rand_pyobj;
	502	#define GRAND_PYCHECK(o) PyObject_TypeCheck((o), grand_pytype)
	503	#define GRAND_F(o) (((grand_pyobj *)(o))->f)
	504	#define GRAND_R(o) (((grand_pyobj *)(o))->r)
	505	extern PyObject grand_pywrap(grand , unsigned);
	506	extern int convgrand(PyObject , void );
	507
b6a86d2e	508	/----- Symmetric cryptography --------------------------------------------/
b6a86d2e	509
8eeb5aee	510	extern PyObject keysz_pywrap(const octet );
b6a86d2e	511
b6a86d2e	512	extern int convgccipher(PyObject , void );
8eeb5aee	513	extern PyObject gccipher_pywrap(gccipher );
54ae5879	514
b6a86d2e	515	typedef struct gchash_pyobj {
f0526039	516	PyHeapTypeObject ty;
b6a86d2e	517	gchash *ch;
	518	} gchash_pyobj;
	519
	520	extern PyTypeObject *gchash_pytype;
8eeb5aee	521	extern PyObject sha_pyobj, has160_pyobj;
b6a86d2e	522	#define GCHASH_PYCHECK(o) PyObject_TypeCheck((o), gchash_pytype)
b6a86d2e	523	#define GCHASH_CH(o) (((gchash_pyobj *)(o))->ch)
5a5e08d9	524	extern PyObject ghash_pywrap(PyObject , ghash *);
8eeb5aee	525	extern int convgchash(PyObject , void );
b6a86d2e	526	extern int convghash(PyObject , void );
b6a86d2e	527
b6a86d2e	528	extern int convgcmac(PyObject , void );
b6a86d2e	529
b6a86d2e	530	/----- Key generation ----------------------------------------------------/
0b1eafbf	531
b6a86d2e	532	typedef struct pfilt_pyobj {
	533	PyObject_HEAD
	534	pfilt f;
	535	int st;
	536	} pfilt_pyobj;
	537
	538	extern PyTypeObject *pfilt_pytype;
	539	#define PFILT_PYCHECK(o) PyObject_TypeCheck(o, pfilt_pytype)
	540	#define PFILT_F(o) (&((pfilt_pyobj *)(o))->f)
	541	#define PFILT_ST(o) (((pfilt_pyobj *)(o))->st)
	542
	543	typedef struct { pgen_proc proc; void ctx; } pgev;
	544	#define PGEV_HEAD PyObject_HEAD pgev pg;
	545
	546	typedef struct pgev_pyobj {
	547	PGEV_HEAD
	548	} pgev_pyobj;
	549
	550	extern PyTypeObject *pgev_pytype;
	551	#define PGEV_PYCHECK(o) PyObject_TypeCheck(o, pgev_pytype)
	552	#define PGEV_PG(o) (&((pgev_pyobj *)(o))->pg)
	553
87aa2e3c MW	554	typedef struct pypgev {
	555	pgev ev;
	556	PyObject *obj;
	557	struct excinfo *exc;
	558	} pypgev;
	559
b6a86d2e	560	extern int convpgev(PyObject , void );
87aa2e3c MW	561	extern void droppgev(pypgev *);
87aa2e3c MW	562	extern void pgenerr(struct excinfo *exc);
b6a86d2e	563
b6a86d2e	564	/----- That's all, folks -------------------------------------------------/
	565
	566	#ifdef __cplusplus
	567	}
	568	#endif
	569
	570	#endif