25 lines
538 B
Plaintext
25 lines
538 B
Plaintext
#
|
|
##### 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;
|