initial commit
[fcgi] / perl / typemap
1 TYPEMAP
2 FCGI            T_PTROBJ
3 FCGI::Stream    T_PTROBJ
4 GLOBREF         T_GLOBREF
5 HASHREF         T_HASHREF
6
7 INPUT
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\");