DPIString	T_DPISTR
DPIPacket	T_DPIPKT
DPIPointer	T_PTR

#############################################################################
INPUT
T_DPISTR
	$var.ptr = SvPV($arg, $var.len)
T_DPIPKT
	$var.ptr = SvPV($arg, $var.len)

#############################################################################
OUTPUT
T_DPISTR
	sv_setpvn((SV*)$arg, $var.ptr, $var.len);
T_DPIPKT
	sv_setpvn((SV*)$arg, $var, DPI_PACKET_LEN($var));
