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