ccae4e1142
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8926 626c5289-ae23-0410-ae9c-e8d60b6d4f22
26 lines
456 B
OpenEdge ABL
26 lines
456 B
OpenEdge ABL
//
|
|
// 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_setpvn(sv,s.data(),s.size());
|
|
}
|
|
%}
|
|
|