[catagits/fcgi2.git] / perl / typemap

TYPEMAP
FCGI		T_PTROBJ
FCGI::Stream	T_PTROBJ
GLOBREF		T_GLOBREF
HASHREF		T_HASHREF

INPUT
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\");
Commit	Line	Data
1b64d24d	1	TYPEMAP
c0c6bbf0	2	FCGI T_PTROBJ
c0c6bbf0	3	FCGI::Stream T_PTROBJ
d8cc97fb	4	GLOBREF T_GLOBREF
d8cc97fb	5	HASHREF T_HASHREF
1b64d24d	6
1b64d24d	7	INPUT
d8cc97fb	8	T_GLOBREF
	9	if (SvROK($arg) && isGV(SvRV($arg))) {
	10	$var = (GV*)SvRV($arg);
	11	} else
	12	croak(\"$var is not a GLOB reference\");
	13	T_HASHREF
	14	if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) {
	15	$var = (HV*)SvRV($arg);
	16	} else
	17	croak(\"$var is not a reference to a hash\");