dougm 02/05/23 15:19:34 Modified: xs typemap Log: add T_UVOBJ typemap Revision Changes Path 1.7 +15 -0 modperl-2.0/xs/typemap Index: typemap =================================================================== RCS file: /home/cvs/modperl-2.0/xs/typemap,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- typemap 9 Apr 2002 20:19:25 -0000 1.6 +++ typemap 23 May 2002 22:19:34 -0000 1.7 @@ -17,12 +17,27 @@ T_APR_TIME sv_setnv($arg, (NV)($var / APR_USEC_PER_SEC)); +T_UVOBJ + sv_setref_uv($arg, \"${ntype}\", (UV)$var); + ###################################################################### INPUT T_PTROBJ if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); + } + else { + Perl_croak(aTHX_ SvROK($arg) ? + \"$var is not of type ${ntype}\" : + \"$var is not a blessed reference\"); + } + +INPUT +T_UVOBJ + if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { + UV tmp = SvUV((SV*)SvRV($arg)); + $var = ($type)tmp; } else { Perl_croak(aTHX_ SvROK($arg) ?