diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2017-01-17 19:58:31 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2017-01-17 20:08:46 +0000 |
commit | d9db3cf6288b609c2fec1f442a218433ae17e4b1 (patch) | |
tree | 194a555d026076ae5d11380e852d3ec72a9e05c9 /Lib/perl5 | |
parent | 6ec243c0937deab59003ffa341c4e00b08f5c117 (diff) | |
download | swig-d9db3cf6288b609c2fec1f442a218433ae17e4b1.tar.gz |
Add some missing SWIGINTERN usage
Diffstat (limited to 'Lib/perl5')
-rw-r--r-- | Lib/perl5/std_common.i | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Lib/perl5/std_common.i b/Lib/perl5/std_common.i index bb280688e..7c1ff2328 100644 --- a/Lib/perl5/std_common.i +++ b/Lib/perl5/std_common.i @@ -10,14 +10,17 @@ %fragment("<string>"); %{ +SWIGINTERN double SwigSvToNumber(SV* sv) { return SvIOK(sv) ? double(SvIVX(sv)) : SvNVX(sv); } +SWIGINTERN std::string SwigSvToString(SV* sv) { STRLEN len; char *ptr = SvPV(sv, len); return std::string(ptr, len); } +SWIGINTERN void SwigSvFromString(SV* sv, const std::string& s) { sv_setpvn(sv,s.data(),s.size()); } |