# vim:noexpandtab

TYPEMAP

unsigned char const *	T_PV
char const *		T_PV
uint64_t		T_UV
int64_t			T_IV

kline_t *		T_SVS_OBJECT
user_t *		T_SVS_OBJECT
server_t *		T_SVS_OBJECT
svsignore_t *		T_SVS_OBJECT


INPUT

T_SVS_OBJECT
	if (sv_isobject ($arg) && (SvTYPE (SvRV ($arg)) == SVt_PVMG))
	  $var = ($type) SvIV ((SV *) SvRV ($arg));
	else
	  {
	    warn (\"${Package}::$func_name() -- $var is not a blessed SV reference\" );
	    XSRETURN_UNDEF;
	  }


OUTPUT

T_SVS_OBJECT
	sv_setref_pv ($arg, klass, (void *) $var);