#
# int_tbm = "integer to be modified"
#            The 'status' variable is a good example of this

TYPEMAP
cmp *            T_COMPLEXP
dblcmp *         T_DBLCOMPLEXP
fitsfile *       T_PTR
logical *        T_LOGICALP
byte *           T_BYTEP
unsigned short * T_USHORTP
unsigned int *   T_UINTP
unsigned long *  T_ULONGP
short *          T_SHORTP
int *            T_INTP
long *           T_LONGP
float *          T_FLOATP
double *         T_DOUBLEP
char **          T_STRINGP
char *           T_STRING
byte             T_BYTE
logical          T_LOGICAL
float            T_FLOAT

INPUT
T_STRINGP
	$var = ($type)packND($arg,TSTRING)
T_COMPLEXP
	$var = ($type)packND($arg,TCOMPLEX)
T_DBLCOMPLEXP
	$var = ($type)packND($arg,TDBLCOMPLEX)
T_LOGICALP
	$var = ($type)packND($arg,TLOGICAL)
T_BYTEP
	$var = ($type)packND($arg,TBYTE)
T_USHORTP
	$var = ($type)packND($arg,TUSHORT)
T_SHORTP
	$var = ($type)packND($arg,TSHORT)
T_UINTP
	$var = ($type)packND($arg,TUINT)
T_ULONGP
	$var = ($type)packND($arg,TULONG)
T_INTP
	$var = ($type)packND($arg,TINT)
T_LONGP
	$var = ($type)packND($arg,TLONG)
T_FLOATP
	$var = ($type)packND($arg,TFLOAT)
T_DOUBLEP
	$var = ($type)packND($arg,TDOUBLE)
T_BYTE
	$var = ($type)SvIV($arg)
T_LOGICAL
	$var = ($type)SvIV($arg)
T_FLOAT
	$var = ($type)SvNV($arg)
T_STRING
	{
		if ($arg == &sv_undef)
			$var = ($type)NULL;
		else
			$var = ($type)SvPV($arg,na);
	}

OUTPUT
T_BYTE
	sv_setiv($arg, (IV) $var);
T_LOGICAL
	sv_setiv($arg, (IV) $var);
T_FLOAT
	sv_setnv($arg, (double) $var);
T_STRING
	if ($var != NULL)
		sv_setpv((SV *)$arg, $var);