This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove redundant PERL_EXPORT_C and PERL_XS_EXPORT_C macros
[perl5.git] / ext / POSIX / typemap
CommitLineData
a0d0e21e 1Mode_t T_NV
86200d5c 2pid_t T_NV
a0d0e21e
LW
3Uid_t T_NV
4Time_t T_NV
5Gid_t T_NV
a043a685 6Uid_t T_NV
a0d0e21e 7Off_t T_NV
14a3f258 8Dev_t T_NV
e1ca407b 9NV T_NV
a0d0e21e
LW
10fd T_IV
11speed_t T_IV
12tcflag_t T_IV
13cc_t T_IV
92b39396 14POSIX::SigSet T_OPAQUEPTROBJ
11a39fe4 15POSIX::Termios T_OPAQUEPTROBJ
a0d0e21e 16POSIX::SigAction T_HVREF
11a39fe4
NC
17
18INPUT
19T_OPAQUEPTROBJ
20 if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
21 $var = ($type)SvPV_nolen(SvRV($arg));
22 }
23 else
24 Perl_croak(aTHX_ \"%s: %s is not of type %s\",
25 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
26 \"$var\", \"$ntype\")
27
28OUTPUT
29T_OPAQUEPTROBJ
30 sv_setref_pvn($arg, \"${ntype}\", (const char*)$var, sizeof(*$var));