1 files changed, 55 insertions, 0 deletions
diff --git a/pyscm.h b/pyscm.h
new file mode 100644
index 0000000..baccc25
--- /dev/null
+++ b/pyscm.h
@@ -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