BOOL			T_IV
LONG			T_IV
HANDLE			T_IV
HWND              T_IV
HKEY			T_IV
SECURITY_INFORMATION	T_UV
DWORD			T_UV
UINT            T_UV
REGSAM			T_UV
char *			T_BUF
WCHAR *			T_BUF
BYTE *			T_BUF
void *			T_BUF
SECURITY_DESCRIPTOR *	T_BUF
SECURITY_ATTRIBUTES *	T_BUF
LONG *			T_IVBUF
DWORD *			T_UVBUF
HKEY *			T_IVBUFP
FILETIME *		T_SBUF

#############################################################################
INPUT
T_BUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    $var= ($type) SvPV( $arg, na )
T_SBUF
	grow_buf( $var,$arg, $type )
T_UV
	$var = ($type)SvUV($arg)
T_UVBUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) _alloca( sizeof(*($var)) ) )= SvUV($arg)
T_IVBUF
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) _alloca( sizeof(*($var)) ) )= SvIV($arg)
T_IVBUFP
	if(  null_arg($arg)  )
	    $var= NULL;
	else
	    *( $var= ($type) _alloca( sizeof(*($var)) ) )= (void *)SvIV($arg)

#############################################################################
OUTPUT
T_BUF
	;
T_SBUF
	trunc_buf( RETVAL, $var,$arg );
T_UV
	sv_setuv($arg, (UV)$var);
T_UVBUF
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setuv( $arg, (UV)*($var) );
T_IVBUF
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setiv( $arg, (IV)*($var) );
T_IVBUFP
	if(  ! null_arg($arg)  &&  ! SvREADONLY($arg)  )
	    sv_setiv( $arg, (IV)*($var) );

