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