TYPEMAP
unsigned *      T_PTROBJ
unsigned char **        T_PTROBJ
acapsieve_list_cb_t *   T_PTROBJ

Sieveobj        T_PTROBJ_SPECIAL

INPUT
T_PTROBJ_SPECIAL
                IV tmp = SvIV((SV*)SvRV($arg));
                $var = ($type) tmp;


OUTPUT
T_PTROBJ_SPECIAL
        sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\", (void *) $var);
