TYPEMAP

B::OP T_OP_OBJ

B::UNOP T_OP_OBJ

B::BINOP T_OP_OBJ

B::LOGOP T_OP_OBJ

B::LISTOP T_OP_OBJ

B::PMOP T_OP_OBJ

B::SVOP T_OP_OBJ

B::PADOP T_OP_OBJ

B::PVOP T_OP_OBJ

B::CVOP T_OP_OBJ

B::LOOP T_OP_OBJ

B::COP T_OP_OBJ

B::SV T_SV_OBJ

B::PV T_SV_OBJ

B::IV T_SV_OBJ

B::NV T_SV_OBJ

B::PVMG T_SV_OBJ

B::PVLV T_SV_OBJ

B::BM T_SV_OBJ

B::RV T_SV_OBJ

B::GV T_SV_OBJ

B::CV T_SV_OBJ

B::HV T_SV_OBJ

B::AV T_SV_OBJ

B::IO T_SV_OBJ

B::MAGIC T_MG_OBJ

SSize_t T_IV

STRLEN T_IV

PADOFFSET T_UV

INPUT

T_OP_OBJ

if (SvROK($arg)) {

IV tmp = SvIV((SV*)SvRV($arg));

$var = INT2PTR($type,tmp);

}

else

croak(\"$var is not a reference\")

T_SV_OBJ

if (SvROK($arg)) {

IV tmp = SvIV((SV*)SvRV($arg));

$var = INT2PTR($type,tmp);

}

else

croak(\"$var is not a reference\")

T_MG_OBJ

if (SvROK($arg)) {

IV tmp = SvIV((SV*)SvRV($arg));

$var = INT2PTR($type,tmp);

}

else

croak(\"$var is not a reference\")

OUTPUT

T_OP_OBJ

sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var));

T_SV_OBJ

make_sv_object(aTHX_ ($arg), (SV*)($var));

T_MG_OBJ

sv_setiv(newSVrv($arg, "B::MAGIC"), PTR2IV($var));