val64		T_VAL64
uint64		T_VAL64

const object *	T_OBJECT
object *	T_OBJECT
partylist *	T_PARTY
archetype *	T_ARCH
mapstruct *	T_MAP
region *	T_REGION
player *	T_PLAYER
living *	T_LIVING

object_ornull *		T_OBJECT_ORNULL
mapstruct_ornull *	T_MAP_ORNULL

INPUT

T_VAL64
	$var = ($type)SvVAL64 ($arg);

T_OBJECT
	$var = (object *)SvPTR ($arg, \"cf::object\");
T_PARTY
	$var = (partylist *)SvPTR ($arg, \"cf::party\");
T_ARCH
	$var = (archetype *)SvPTR ($arg, \"cf::arch\");
T_MAP
	$var = (mapstruct *)SvPTR ($arg, \"cf::map\");
T_REGION
	$var = (region *)SvPTR ($arg, \"cf::region\");
T_PLAYER
	$var = (player *)SvPTR ($arg, \"cf::player\");
T_LIVING
	$var = (living *)SvPTR ($arg, \"cf::living\");

T_OBJECT_ORNULL
	$var = (object *)SvPTR_ornull ($arg, \"cf::object\");
T_MAP_ORNULL
	$var = (mapstruct *)SvPTR_ornull ($arg, \"cf::map\");

OUTPUT

T_VAL64
	$arg = newSVval64 ($var);

T_OBJECT
	$arg = newSVdt (DT_OBJECT, $var);
T_MAP
	$arg = newSVdt (DT_MAP, $var);
T_ARCH
	$arg = newSVdt (DT_ARCH, $var);
T_PARTY
	$arg = newSVdt (DT_PARTY, $var);
T_REGION
	$arg = newSVdt (DT_REGION, $var);
T_PLAYER
	$arg = newSVdt (DT_PLAYER, $var);
T_LIVING
	$arg = newSVptr ($var, \"cf::living\");