[catagits/fcgi2.git] / perl / typemap

TYPEMAP
FCGI	T_FCGIOBJNOMUNGE
FCGI::Stream T_FCGISTREAM

INPUT
T_FCGIOBJNOMUNGE
    if (sv_isa($arg, \"FCGI\")) {
	$var = ($type) SvIV((SV*)SvRV($arg));
    } else
	croak(\"$var is not of type ${ntype}\")
T_FCGISTREAM
    if (sv_isa($arg, \"FCGI::Stream\")) {
	$var = ($type) SvIV((SV*)SvRV($arg));
    } else
	croak(\"$var is not of type ${ntype}\")
Commit	Line	Data
1b64d24d	1	TYPEMAP
1b64d24d	2	FCGI T_FCGIOBJNOMUNGE
eede4b76	3	FCGI::Stream T_FCGISTREAM
1b64d24d	4
	5	INPUT
	6	T_FCGIOBJNOMUNGE
	7	if (sv_isa($arg, \"FCGI\")) {
	8	$var = ($type) SvIV((SV*)SvRV($arg));
	9	} else
	10	croak(\"$var is not of type ${ntype}\")
eede4b76	11	T_FCGISTREAM
eede4b76	12	if (sv_isa($arg, \"FCGI::Stream\")) {
90a18d65	13	$var = ($type) SvIV((SV*)SvRV($arg));
	14	} else
	15	croak(\"$var is not of type ${ntype}\")