Extract typemap-related code from ExtUtils::ParseXS
[perl.git] / dist / ExtUtils-ParseXS / t / data / other.typemap
1 TYPEMAP
2 double T_NV
3
4 INPUT
5 T_NV
6         $var = ($type)SvNV($arg);
7
8 OUTPUT
9 T_NV
10         sv_setnv($arg, (NV)$var);