################################################################################ # # typemap -- XS type mappings not present in early perls # ################################################################################ # # Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz. # Version 2.x, Copyright (C) 2001, Paul Marquess. # Version 1.x, Copyright (C) 1999, Kenneth Albanowski. # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # ################################################################################ UV T_UV NV T_NV HV * T_HVREF STRLEN T_UV INPUT T_UV $var = ($type)SvUV($arg) T_NV $var = ($type)SvNV($arg) T_HVREF if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVHV) $var = (HV*)SvRV($arg); else Perl_croak(aTHX_ \"$var is not a hash reference\") OUTPUT T_UV sv_setuv($arg, (UV)$var); T_NV sv_setnv($arg, (NV)$var);