62741dd03e
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5004 626c5289-ae23-0410-ae9c-e8d60b6d4f22
19 lines
364 B
OpenEdge ABL
19 lines
364 B
OpenEdge ABL
//
|
|
// SWIG typemaps for STL - common utilities
|
|
// Luigi Ballabio
|
|
// Aug 3, 2002
|
|
//
|
|
// MzScheme implementation
|
|
|
|
%apply size_t { std::size_t };
|
|
|
|
%{
|
|
#include <string>
|
|
|
|
std::string swig_scm_to_string(Scheme_Object* x) {
|
|
return std::string(SCHEME_STR_VAL(x));
|
|
}
|
|
Scheme_Object* swig_make_string(const std::string& s) {
|
|
return scheme_make_string(s.c_str());
|
|
}
|
|
%}
|