[perl5.git] / ext / XS-APItest / typemap

XS::APItest::PtrTable		T_PTROBJ

const WCHAR *			WPV
U8 *		                T_PV

INPUT

WPV
        $var = ($type)SvPV_nolen($arg);

OUTPUT

WPV
        sv_setpvn($arg, (const char *)($var), sizeof(WCHAR) * (1+wcslen($var)));
Commit	Line	Data
36c2b1d0	1	XS::APItest::PtrTable T_PTROBJ
52236464 TC	2
52236464 TC	3	const WCHAR * WPV
8cfe356d	4	U8 * T_PV
52236464 TC	5
	6	INPUT
	7
	8	WPV
	9	$var = ($type)SvPV_nolen($arg);
	10
	11	OUTPUT
	12
	13	WPV
	14	sv_setpvn($arg, (const char )($var), sizeof(WCHAR) (1+wcslen($var)));