TYPEMAP
JSPL::Context T_PTROBJ
JSPL::PerlClass T_PTROBJ
JSPL::RawObj T_PTROBJ
JSPL::RawRT T_PTROBJ
JSPL::TrapHandler T_PTROBJ
JSPL::SM::Opcode T_PTROBJ
JSObject* T_PTRREF
jsval T_jsval
INPUT
T_PTROBJ
if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type,tmp);
}
else
Perl_croak(aTHX_ \"%s: %s is not of type %s\",
${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
\"$var\", \"$ntype\")
OUTPUT
T_jsval
if(!PJS_ReflectJS2Perl(aTHX_ cx, $var, &$arg, 1) &&
PJS_report_exception(aTHX_ pcx))
XSRETURN_UNDEF;
sv_2mortal($arg);