1 ################################################################################
3 # typemap -- XS type mappings not present in early perls
5 ################################################################################
9 # $Date: 2005/01/31 08:10:55 +0100 $
11 ################################################################################
13 # Version 3.x, Copyright (C) 2004-2005, Marcus Holland-Moritz.
14 # Version 2.x, Copyright (C) 2001, Paul Marquess.
15 # Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
17 # This program is free software; you can redistribute it and/or
18 # modify it under the same terms as Perl itself.
20 ################################################################################
27 $var = ($type)SvUV($arg)
29 $var = ($type)SvNV($arg)
33 sv_setuv($arg, (UV)$var);
35 sv_setnv($arg, (NV)$var);