This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Storable: Own ASSERT or no, we want to assert(prev).
[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
42c07143
DD
20 {
21 SV * sv = $arg;
22 if (SvROK(sv) && sv_derived_from(sv, \"${ntype}\"))
23 $var = ($type)SvPV_nolen(SvRV(sv));
24 else
25 croak(\"%s: %s is not of type %s\",
26 ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
27 \"$var\", \"$ntype\");
11a39fe4 28 }
11a39fe4
NC
29
30OUTPUT
31T_OPAQUEPTROBJ
32 sv_setref_pvn($arg, \"${ntype}\", (const char*)$var, sizeof(*$var));