Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

file 24 lines (22 sloc) 0.538 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
#
##### XML::Parser::Expat typemap
#

XML_Parser T_PTR
Encinfo * T_ENCOBJ

################################################################
INPUT
T_ENCOBJ
if (sv_derived_from($arg, \"XML::Parser::Encinfo\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = ($type) tmp;
}
else
croak(\"$var is not of type XML::Parser::Encinfo\")
################################################################
OUTPUT
T_ENCOBJ
if ($var) {
sv_setref_pv($arg, \"XML::Parser::Encinfo\", (void*)$var);
}
else
$arg = &PL_sv_undef;
Something went wrong with that request. Please try again.