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

//
// SWIG typemaps for STL - common utilities
// Luigi Ballabio
// May 16, 2003
//
// Perl implementation

%include <std/std_except.i>

%apply size_t { std::size_t };

%{
#include <string>

double SwigSvToNumber(SV* sv) {
    return SvIOK(sv) ? double(SvIVX(sv)) : SvNVX(sv);
}
std::string SwigSvToString(SV* sv) {
    STRLEN len;
    return SvPV(sv,len);
}
void SwigSvFromString(SV* sv, const std::string& s) {
    sv_setpv(sv,s.c_str());
}
%}
Commit	Line	Data
920dae64 AT	1	//
	2	// SWIG typemaps for STL - common utilities
	3	// Luigi Ballabio
	4	// May 16, 2003
	5	//
	6	// Perl implementation
	7
	8	%include <std/std_except.i>
	9
	10	%apply size_t { std::size_t };
	11
	12	%{
	13	#include <string>
	14
	15	double SwigSvToNumber(SV* sv) {
	16	return SvIOK(sv) ? double(SvIVX(sv)) : SvNVX(sv);
	17	}
	18	std::string SwigSvToString(SV* sv) {
	19	STRLEN len;
	20	return SvPV(sv,len);
	21	}
	22	void SwigSvFromString(SV* sv, const std::string& s) {
	23	sv_setpv(sv,s.c_str());
	24	}
	25	%}
	26