/trunk/Lib/guile/std_common.i
Swig | 24 lines | 14 code | 5 blank | 5 comment | 0 complexity | 175e992d52bccb21d22995c3fc845e9f MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- /* -----------------------------------------------------------------------------
- * 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;
- }
- %}