const enum SWIGTYPE & typemaps added

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@6783 626c5289-ae23-0410-ae9c-e8d60b6d4f22

1 files changed, 12 insertions, 10 deletions

diff --git a/Lib/perl5/perl5.swg b/Lib/perl5/perl5.swg
index 2a9077c83..24d6b1b59 100644
--- a/Lib/perl5/perl5.swg
+++ b/Lib/perl5/perl5.swg
@@ -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;