1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
Mode_t T_NV
pid_t T_NV
Uid_t T_NV
Time_t T_NV
Gid_t T_NV
Uid_t T_NV
Off_t T_NV
Dev_t T_NV
NV T_NV
fd T_IV
speed_t T_IV
tcflag_t T_IV
cc_t T_IV
POSIX::SigSet T_OPAQUEPTROBJ
POSIX::Termios T_OPAQUEPTROBJ
POSIX::SigAction T_HVREF
INPUT
T_OPAQUEPTROBJ
if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
$var = ($type)SvPV_nolen(SvRV($arg));
}
else
Perl_croak(aTHX_ \"%s: %s is not of type %s\",
${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
\"$var\", \"$ntype\")
OUTPUT
T_OPAQUEPTROBJ
sv_setref_pvn($arg, \"${ntype}\", (const char*)$var, sizeof(*$var));
|
