Revision 2 (by moose, 2009/01/23 06:53:45) svnimport step2 
TYPEMAP
CSE_Proto      T_PTROBJ_SPECIAL
CSE_Proto_Item T_PTROBJ_SPECIAL
cseproto_wiretype_t           T_UV
uint32_t             T_UV
uint64_t             T_NV
uint8_t *               T_PV
uint8_t **              T_PTR

INPUT
T_PTROBJ_SPECIAL
   if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")) {
      IV tmp = SvIV((SV*)SvRV($arg));
      $var = INT2PTR($type, tmp);
   }
   else
      croak(\"$var is not of type ${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")
   
OUTPUT
T_PTROBJ_SPECIAL
   sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\",
                 (void*)$var);