1HEADmaster

1 files changed, 27 insertions, 0 deletions

diff --git a/devtools/swigwin-1.3.34/Lib/guile/std_common.i b/devtools/swigwin-1.3.34/Lib/guile/std_common.i
new file mode 100644
index 0000000..ace5d65
--- /dev/null
+++ b/devtools/swigwin-1.3.34/Lib/guile/std_common.i
@@ -0,0 +1,27 @@
+/* -----------------------------------------------------------------------------
+ * See the LICENSE file for information on copyright, usage and redistribution
+ * of SWIG, and the README file for authors - http://www.swig.org/release.html.
+ *
+ * std_common.i
+ *
+ * SWIG typemaps for STL - common utilities
+ * ----------------------------------------------------------------------------- */
+
+%include <std/std_except.i>
+
+%apply size_t { std::size_t };
+
+#define SWIG_bool2scm(b) gh_bool2scm(b ? 1 : 0)
+#define SWIG_string2scm(s) gh_str02scm(s.c_str())
+
+%{
+#include <string>
+
+inline std::string SWIG_scm2string(SCM x) {
+    char* temp;
+    temp = SWIG_scm2str(x);
+    std::string s(temp);
+    if (temp) SWIG_free(temp);
+    return s;
+}
+%}