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

const enum SWIGTYPE & typemaps added

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6783 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2004-11-28 19:16:24 +00:00
commit 9402fa3b00
11 changed files with 239 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

22
SWIG/Lib/perl5/perl5.swg
View file

@ -69,7 +69,8 @@
const short & (short temp),
const long & (long temp),
const signed char & (signed char temp),
const bool & (bool temp)
const bool & (bool temp),
const enum SWIGTYPE & ($*1_ltype temp)
"temp = ($*1_ltype) SvIV($input);
$1 = &temp;";
@ -98,7 +99,6 @@
$1 = &temp;
}
/* Typemap for output values */
%typemap(out) int, short, long, signed char, bool, enum SWIGTYPE
@ -191,7 +191,8 @@
const short &,
const long &,
const signed char &,
const bool &
const bool &,
const enum SWIGTYPE &
"ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) *($1));";
@ -303,7 +304,8 @@
const short & (short temp),
const long & (long temp),
const signed char & (signed char temp),
const bool & (bool temp)
const bool & (bool temp),
const enum SWIGTYPE & ($*1_ltype temp)
"temp = ($*1_ltype) SvIV($input);
$1 = &temp;";
@ -473,14 +475,14 @@
* ------------------------------------------------------------ */
%typecheck(SWIG_TYPECHECK_INTEGER)
int, short, long,
unsigned int, unsigned short, unsigned long,
signed char, unsigned char,
long long, unsigned long long,
const int &, const short &, const long &,
int, short, long,
unsigned int, unsigned short, unsigned long,
signed char, unsigned char,
long long, unsigned long long,
const int &, const short &, const long &,
const unsigned int &, const unsigned short &, const unsigned long &,
const long long &, const unsigned long long &,
enum SWIGTYPE,
enum SWIGTYPE, const enum SWIGTYPE &,
bool, const bool &
{
$1 = SvIOK($input) ? 1 : 0;