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

XS::APItest::PtrTable		T_PTROBJ

const WCHAR *			WPV

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
	3	const WCHAR * WPV
	4
	5	INPUT
	6
	7	WPV
	8	$var = ($type)SvPV_nolen($arg);
	9
	10	OUTPUT
	11
	12	WPV
	13	sv_setpvn($arg, (const char )($var), sizeof(WCHAR) (1+wcslen($var)));