[OpenSPARC-T2-SAM] / sam-t2 / devtools / amd64 / share / swig / 1.3.26 / mzscheme / std_common.i

//
// SWIG typemaps for STL - common utilities
// Luigi Ballabio
// Aug 3, 2002
//
// MzScheme implementation

%include <std/std_except.i>

%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());
}
%}
Commit	Line	Data
920dae64 AT	1	//
	2	// SWIG typemaps for STL - common utilities
	3	// Luigi Ballabio
	4	// Aug 3, 2002
	5	//
	6	// MzScheme implementation
	7
	8	%include <std/std_except.i>
	9
	10	%apply size_t { std::size_t };
	11
	12	%{
	13	#include <string>
	14
	15	std::string swig_scm_to_string(Scheme_Object* x) {
	16	return std::string(SCHEME_STR_VAL(x));
	17	}
	18	Scheme_Object* swig_make_string(const std::string& s) {
	19	return scheme_make_string(s.c_str());
	20	}
	21	%}