This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
APItest: Add U8* typemap, and use it
[perl5.git] / ext / XS-APItest / typemap
1 XS::APItest::PtrTable           T_PTROBJ
2
3 const WCHAR *                   WPV
4 U8 *                            T_PV
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)));