[perl5.git] / ext / POSIX / typemap

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));
Commit	Line	Data
a0d0e21e	1	Mode_t T_NV
86200d5c	2	pid_t T_NV
a0d0e21e LW	3	Uid_t T_NV
	4	Time_t T_NV
	5	Gid_t T_NV
a043a685	6	Uid_t T_NV
a0d0e21e	7	Off_t T_NV
14a3f258	8	Dev_t T_NV
e1ca407b	9	NV T_NV
a0d0e21e LW	10	fd T_IV
	11	speed_t T_IV
	12	tcflag_t T_IV
	13	cc_t T_IV
92b39396	14	POSIX::SigSet T_OPAQUEPTROBJ
11a39fe4	15	POSIX::Termios T_OPAQUEPTROBJ
a0d0e21e	16	POSIX::SigAction T_HVREF
11a39fe4 NC	17
	18	INPUT
	19	T_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
	28	OUTPUT
	29	T_OPAQUEPTROBJ
	30	sv_setref_pvn($arg, \"${ntype}\", (const char)$var, sizeof($var));