1#
2##### XML::Parser::Expat typemap
3#
4
5XML_Parser				T_PTR
6Encinfo *				T_ENCOBJ
7
8################################################################
9INPUT
10T_ENCOBJ
11	if (sv_derived_from($arg, \"XML::Parser::Encinfo\")) {
12	    IV tmp = SvIV((SV*)SvRV($arg));
13	    $var = ($type) tmp;
14	}
15	else
16	    croak(\"$var is not of type XML::Parser::Encinfo\")
17################################################################
18OUTPUT
19T_ENCOBJ
20	if ($var) {
21	    sv_setref_pv($arg, \"XML::Parser::Encinfo\", (void*)$var);
22	}
23	else
24	    $arg = &PL_sv_undef;
25