typemap   [plain text]

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);