[Swig-cvs] SWIG/Lib/perl5 perl5.swg,1.18,1.19

[William F. <wsf...@us...>]

Update of /cvsroot/swig/SWIG/Lib/perl5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5825

Modified Files:
	perl5.swg 
Log Message:
varin enum SWIGTYPE mods to handle unnamed enums

Index: perl5.swg
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/perl5/perl5.swg,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** perl5.swg	24 Aug 2004 21:44:15 -0000	1.18
--- perl5.swg	25 Aug 2004 21:32:27 -0000	1.19
***************
*** 226,230 ****
  /* Variable input */
  
! %typemap(varin)  int, short, long, signed char, bool, enum SWIGTYPE
         "$1 = ($1_ltype) SvIV($input);";
  
--- 226,230 ----
  /* Variable input */
  
! %typemap(varin)  int, short, long, signed char, bool
         "$1 = ($1_ltype) SvIV($input);";
  
***************
*** 362,367 ****
       { croak("Variable $symname is read-only."); }
  
! %typemap(varin) enum SWIGTYPE
!      "$1 = ($1_type) SvIV($input);";
  
  /* --- Typemaps for variable output --- */
--- 362,371 ----
       { croak("Variable $symname is read-only."); }
  
! %typemap(varin)  enum SWIGTYPE {
!   if (sizeof(int) != sizeof($1)) {
!     croak("enum variable '$name' can not be set.");
!   }
!   *(int *)(void *)&($1) = SvIV($input);
! }
  
  /* --- Typemaps for variable output --- */