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

Perl added to the Unified typemap library, cleaner way to use the library, and 'normalized' macro names

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7707 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-10-24 14:59:05 +00:00
commit 3c65cea431
112 changed files with 3262 additions and 3375 deletions
Download patch file Download diff file Expand all files Collapse all files

77
Lib/perl5/std_string.i
View file

@ -1,75 +1,2 @@
//
// SWIG typemaps for std::string
// Roy M. LeCates
// October 23, 2002
//
// Perl implementation
// ------------------------------------------------------------------------
// std::string is typemapped by value
// This can prevent exporting methods which return a string
// in order for the user to modify it.
// However, I think I'll wait until someone asks for it...
// ------------------------------------------------------------------------
%include exception.i
%{
#include <string>
%}
namespace std {
class string;
/* Overloading check */
%typemap(typecheck) string = char *;
%typemap(typecheck) const string & = char *;
%typemap(in) string {
STRLEN len;
const char *ptr = SvPV($input, len);
if (!ptr) {
SWIG_croak("Undefined variable in argument $argnum of $symname.");
} else {
$1 = std::string(ptr, len);
}
}
%typemap(in) string *INPUT(std::string temp),
const string & (std::string temp) {
STRLEN len;
const char *ptr = SvPV($input, len);
if (!ptr) {
SWIG_croak("Undefined variable in argument $argnum of $symname.");
} else {
temp.assign(ptr, len);
$1 = &temp;
}
}
%typemap(out) string {
if (argvi >= items) EXTEND(sp, 1); // bump stack ptr, if needed
char *data = const_cast<char*>($1.data());
sv_setpvn($result = sv_newmortal(), data, $1.size());
++argvi;
}
%typemap(out) const string & {
if (argvi >= items) EXTEND(sp, 1); // bump stack ptr, if needed
char *data = const_cast<char*>($1->data());
sv_setpvn($result = sv_newmortal(), data, $1->size());
++argvi;
}
%typemap(throws) const string & {
SWIG_croak($1.c_str());
}
%typemap(throws) string {
SWIG_croak($1.c_str());
}
}
%include <perlstrings.swg>
%include <typemaps/std_string.swg>