Commit | Line | Data |
adfe19db |
1 | ################################################################################ |
2 | # |
3 | # typemap -- XS type mappings not present in early perls |
4 | # |
5 | ################################################################################ |
6 | # |
0d0f8426 |
7 | # $Revision: 5 $ |
adfe19db |
8 | # $Author: mhx $ |
0d0f8426 |
9 | # $Date: 2006/01/14 18:07:55 +0100 $ |
adfe19db |
10 | # |
11 | ################################################################################ |
12 | # |
0d0f8426 |
13 | # Version 3.x, Copyright (C) 2004-2006, Marcus Holland-Moritz. |
adfe19db |
14 | # Version 2.x, Copyright (C) 2001, Paul Marquess. |
15 | # Version 1.x, Copyright (C) 1999, Kenneth Albanowski. |
16 | # |
17 | # This program is free software; you can redistribute it and/or |
18 | # modify it under the same terms as Perl itself. |
19 | # |
20 | ################################################################################ |
21 | |
22 | UV T_UV |
23 | NV T_NV |
24 | |
25 | INPUT |
26 | T_UV |
27 | $var = ($type)SvUV($arg) |
28 | T_NV |
29 | $var = ($type)SvNV($arg) |
30 | |
31 | OUTPUT |
32 | T_UV |
33 | sv_setuv($arg, (UV)$var); |
34 | T_NV |
35 | sv_setnv($arg, (NV)$var); |