# Extra type mappings for PDL::IO::HDF
# basic C types
int *			T_PVI
long int *		T_PVI
size_t *		T_PVI
PDLint *		T_PDL
PDLlong *		T_PDL
PDLvoid *               T_PDL

#############################################################################
INPUT

T_PVI
	$var = ($type)SvPV($arg,PL_na)

#############################################################################
OUTPUT

T_PVI	
        sv_setiv((SV*)$arg, (IV)*$var);