This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ed86a374f101ce754dbc6381424721d695c3f2e3
[perl5.git] / ext / XS-APItest / typemap
1 XS::APItest::PtrTable           T_PTROBJ
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)));