IsFastCGI

[catagits/fcgi2.git] / perl / typemap

TYPEMAP
FCGI		T_FCGIOBJNOMUNGE
FCGI::Stream	T_FCGISTREAM
GLOBREF		T_GLOBREF
HASHREF		T_HASHREF

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}\")
T_GLOBREF
    if (SvROK($arg) && isGV(SvRV($arg))) {
	$var = (GV*)SvRV($arg);
    } else
	croak(\"$var is not a GLOB reference\");
T_HASHREF
    if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) {
	$var = (HV*)SvRV($arg);
    } else
	croak(\"$var is not a reference to a hash\");