You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
736 B
28 lines
736 B
5 years ago
|
/* -----------------------------------------------------------------------------
|
||
|
|
* 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;
|
||
|
|
}
|
||
|
|
%}
|