/trunk/Lib/guile/std_common.i
# · Swig · 24 lines · 14 code · 5 blank · 5 comment · 0 complexity · 175e992d52bccb21d22995c3fc845e9f MD5 · raw file
- /* -----------------------------------------------------------------------------
- * 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;
- }
- %}