diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2003-03-06 23:28:01 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2003-03-06 23:28:01 +0000 |
commit | af3ec605e9cf66bf4d87f5620032a9de58a4c962 (patch) | |
tree | 6d4d3ca919dc5aebcb289dfe85ff91eb75708306 /Lib/perl5/perl5.swg | |
parent | 0baec2d437620a6ac73f1b1c86911b114bb86f80 (diff) | |
download | swig-af3ec605e9cf66bf4d87f5620032a9de58a4c962.tar.gz |
long long typemap mods for use with %apply
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4443 626c5289-ae23-0410-ae9c-e8d60b6d4f22
Diffstat (limited to 'Lib/perl5/perl5.swg')
-rw-r--r-- | Lib/perl5/perl5.swg | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/Lib/perl5/perl5.swg b/Lib/perl5/perl5.swg index 2293b6312..c749ecad4 100644 --- a/Lib/perl5/perl5.swg +++ b/Lib/perl5/perl5.swg @@ -22,8 +22,8 @@ %typemap(in) float, double "$1 = ($1_ltype) SvNV($input);\n"; -%typemap(in) long long "$1 = (long long) strtoll(SvPV($input, PL_na), 0, 0);"; -%typemap(in) unsigned long long "$1 = (unsigned long long) strtoull(SvPV($input, PL_na), 0, 0);"; +%typemap(in) long long "$1 = ($1_ltype) strtoll(SvPV($input, PL_na), 0, 0);"; +%typemap(in) unsigned long long "$1 = ($1_ltype) strtoull(SvPV($input, PL_na), 0, 0);"; %typemap(in) char * "if (!SvOK((SV*) $input)) $1 = 0; @@ -76,12 +76,12 @@ "temp = ($*1_ltype) SvNV($input); $1 = &temp;"; -%typemap(in) const long long & (long long temp) - "temp = (long long) strtoll(SvPV($input,PL_na),0,0); +%typemap(in) const long long & ($*1_ltype temp) + "temp = ($*1_ltype) strtoll(SvPV($input,PL_na),0,0); $1 = &temp;"; -%typemap(in) const unsigned long long & (unsigned long long temp) - "temp = (unsigned long long) strtoull(SvPV($input, PL_na),0,0); +%typemap(in) const unsigned long long & ($*1_ltype temp) + "temp = ($*1_ltype) strtoull(SvPV($input, PL_na),0,0); $1 = &temp;"; %typemap(in) const char &(char temp) { @@ -223,8 +223,8 @@ %typemap(varin) float, double "$1 = ($1_ltype) SvNV($input);\n"; -%typemap(varin) long long "$1 = (long long) strtoll(SvPV($input, PL_na), 0, 0);"; -%typemap(varin) unsigned long long "$1 = (unsigned long long) strtoull(SvPV($input, PL_na), 0, 0);"; +%typemap(varin) long long "$1 = ($1_ltype) strtoll(SvPV($input, PL_na), 0, 0);"; +%typemap(varin) unsigned long long "$1 = ($1_ltype) strtoull(SvPV($input, PL_na), 0, 0);"; %typemap(varin) SWIGTYPE *, SWIGTYPE [] { if (SWIG_ConvertPtr($input, (void **) &$1, $1_descriptor,0) < 0) { @@ -277,12 +277,12 @@ "temp = ($*1_ltype) SvNV($input); $1 = &temp;"; -%typemap(varin) const long long & (long long temp) - "temp = (long long) strtoll(SvPV($input,PL_na),0,0); +%typemap(varin) const long long & ($*1_ltype temp) + "temp = ($1_ltype) strtoll(SvPV($input,PL_na),0,0); $1 = &temp;"; -%typemap(varin) const unsigned long long & (unsigned long long temp) - "temp = (unsigned long long) strtoull(SvPV($input, PL_na),0,0); +%typemap(varin) const unsigned long long & ($*1_ltype temp) + "temp = ($1_ltype) strtoull(SvPV($input, PL_na),0,0); $1 = &temp;"; %typemap(varin) const char &(char temp) { |