Added all old files of interest to version control.

1 files changed, 79 insertions, 0 deletions

diff --git a/g2p2g_smob.h b/g2p2g_smob.h
new file mode 100644
index 0000000..4c7fa1e
--- /dev/null
+++ b/g2p2g_smob.h
@@ -0,0 +1,79 @@
+// g2p2g_smob header file
+//
+////////////////////////////////////////////////////////////////////////
+
+#ifndef G2P2G_SMOB_H
+#define G2P2G_SMOB_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>.
+//
+////////////////////////////////////////////////////////////////////////
+//
+// Declares the G2P2G_SMOB type, which encapsulates g2p and p2g conversion
+// routines, for use in defining templates for converting arguments and
+// results of Python functions.
+
+#include <Python.h>   // Must be first header file
+#include <libguile.h>
+
+
+// The following are the ones to be used in validating conversion
+// templates.
+extern int IS_G2P_SMOBP(SCM sobj);
+extern int IS_P2G_SMOBP(SCM sobj);
+
+typedef PyObject *(*g2p_func_ptr)(SCM,SCM);
+extern g2p_func_ptr get_g2p_function(SCM smob);
+
+// The name must start with 'g' which is used as part of the
+// real name (which by convention always starts with 'g2p_').
+// The function does NOT take over ownership of the name, so the
+// caller must ensure it continues to exist.
+//
+// This function creates a g2p2g_smob pointing at the g2p function,
+// and also defines (in the current environment) a symbol
+// whose value is the g2p2g_smob.
+extern SCM bind_g2p_function(g2p_func_ptr, const char* name);
+
+typedef SCM (*p2g_func_ptr)(PyObject *,SCM);
+extern p2g_func_ptr get_p2g_function(SCM smob);
+
+// The name must start with 'p' which is used as part of the
+// real name (which by convention always starts with 'p2g_').
+// The function does NOT take over ownership of the name, so the
+// caller must ensure it continues to exist.
+//
+// This function creates a g2p2g_smob pointing at the p2g function,
+// and also defines (in the current environment) a symbol
+// whose value is the g2p2g_smob.
+extern SCM bind_p2g_function(p2g_func_ptr, const char* name);
+
+extern void init_g2p2g_smob_type(void);
+
+////////////////////////////////////////////////////////////////////////
+// The following functions are defined in autogenerated *.inc files.
+
+extern void bind_g2p_functions(void);
+extern void bind_p2g_functions(void);
+
+#endif /* G2P2G_SMOB_H */
+////////////////////////////////////////////////////////////////////////
+// End of g2p2g_smob.h