jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Enable Perl automatic stringification (see 2004/05/13 post from J.Slade)

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5909 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Luigi Ballabio 2004-05-17 12:49:42 +00:00
commit f6a474cafa
1 changed files with 9 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Lib/perl5/std_string.i
View file

@ -28,24 +28,22 @@ namespace std {
%typemap(typecheck) const string & = char *; %typemap(typecheck) const string & = char *;
%typemap(in) string { %typemap(in) string {
if (!SvPOK((SV*) $input)) { STRLEN len;
SWIG_croak("Type error in argument $argnum of $symname. " const char *ptr = SvPV($input, len);
"Expected a string"); if (!ptr) {
SWIG_croak("Undefined variable in argument $argnum of $symname.");
} else { } else {
STRLEN len;
const char *ptr = SvPV($input, len);
$1.assign(ptr, len); $1.assign(ptr, len);
} }
} }
%typemap(in) string *INPUT(std::string temp), %typemap(in) string *INPUT(std::string temp),
const string & (std::string temp) { const string & (std::string temp) {
if (!SvPOK((SV*) $input)) { STRLEN len;
SWIG_croak("Type error in argument $argnum of $symname. " const char *ptr = SvPV($input, len);
"Expected a string"); if (!ptr) {
SWIG_croak("Undefined variable in argument $argnum of $symname.");
} else { } else {
STRLEN len;
const char *ptr = SvPV($input, len);
temp.assign(ptr, len); temp.assign(ptr, len);
$1 = &temp; $1 = &temp;
} }