diff options
author | Omer Zak <w1@zak.co.il> | 2016-05-22 11:03:43 +0300 |
---|---|---|
committer | Omer Zak <w1@zak.co.il> | 2016-05-22 11:03:43 +0300 |
commit | c26aec892f26ee21067a0beb9dd79a8c834e6dba (patch) | |
tree | e06cc2a5e207b089fa324faaf9114267edaa0e3a /pyscm.h | |
parent | 7abc0d1d0b05198e10f5207aa17f1c14e37c0fa7 (diff) | |
download | pyguile-c26aec892f26ee21067a0beb9dd79a8c834e6dba.tar pyguile-c26aec892f26ee21067a0beb9dd79a8c834e6dba.tar.gz |
Added all old files of interest to version control.
Diffstat (limited to 'pyscm.h')
-rw-r--r-- | pyscm.h | 55 |
1 files changed, 55 insertions, 0 deletions
@@ -0,0 +1,55 @@ +// pyscm header file +// Python data type for wrapping Guile SCM objects +//////////////////////////////////////////////////////////////////////// + +#ifndef PYSCM_H +#define PYSCM_H + +//////////////////////////////////////////////////////////////////////// +// +// Copyright (C) 2008 Omer Zak. +// This library is free software; you can redistribute it and/or +// modify it under the terms of the GNU Lesser General Public +// License as published by the Free Software Foundation; either +// version 2.1 of the License, or (at your option) any later version. +// +// This library 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 +// Lesser General Public License for more details. +// +// You should have received a copy of the GNU Lesser General Public License +// along with this library, in a file named COPYING; if not, write to the +// Free Software Foundation, Inc., 59 Temple Place, Suite 330, +// Boston, MA 02111-1307 USA +// +// For licensing issues, contact <w1@zak.co.il>. +// +//////////////////////////////////////////////////////////////////////// + +#include <Python.h> // Must be first header file +#include <libguile.h> + +//////////////////////////////////////////////////////////////////////// +// pyscm.PySCM +//////////////////////////////////////////////////////////////////////// + +PyObject *wrap_scm(SCM sobj,SCM stemplate); + +// Return 0 if pobj is not of this type and/or does not wrap a SCM. +// Otherwise, return a nonzero value. +int PySCMObject_Check(PyObject *pobj); + +// Unwrap a pyscm_PySCMObject instance and get from it the original +// SCM object. If the object is not a pyscm_PySCMObject or does not +// wrap a SCM object, raise an error. +SCM unwrap_pyscm_object(PyObject *pobj); + +void initpyscm(void); + +//////////////////////////////////////////////////////////////////////// + +#endif /* PYSCM_H */ + +//////////////////////////////////////////////////////////////////////// +// End of pyscm.h |