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