gnu/usr.bin/perl/ext/XS-APItest/typemap


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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)));