# plagiarised from default perl typemap

unmapped 	T_PTR

INPUT

T_PTR
	$var = INT2PTR($type,SvIV($arg))

OUTPUT
T_PTR
	sv_setiv($arg, PTR2IV($var));