PageRenderTime 36ms CodeModel.GetById 12ms RepoModel.GetById 0ms app.codeStats 0ms

/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
  1. /* -----------------------------------------------------------------------------
  2. * std_common.i
  3. *
  4. * SWIG typemaps for STL - common utilities
  5. * ----------------------------------------------------------------------------- */
  6. %include <std/std_except.i>
  7. %apply size_t { std::size_t };
  8. #define SWIG_bool2scm(b) gh_bool2scm(b ? 1 : 0)
  9. #define SWIG_string2scm(s) gh_str02scm(s.c_str())
  10. %{
  11. #include <string>
  12. inline std::string SWIG_scm2string(SCM x) {
  13. char* temp;
  14. temp = SWIG_scm2str(x);
  15. std::string s(temp);
  16. if (temp) SWIG_free(temp);
  17. return s;
  18. }
  19. %}