ext/B/typemap

   1 TYPEMAP
   2
   3 B::OP           T_OP_OBJ
   4 B::UNOP         T_OP_OBJ
   5 B::BINOP        T_OP_OBJ
   6 B::LOGOP        T_OP_OBJ
   7 B::CONDOP       T_OP_OBJ
   8 B::LISTOP       T_OP_OBJ
   9 B::PMOP         T_OP_OBJ
  10 B::SVOP         T_OP_OBJ
  11 B::GVOP         T_OP_OBJ
  12 B::PVOP         T_OP_OBJ
  13 B::CVOP         T_OP_OBJ
  14 B::LOOP         T_OP_OBJ
  15 B::COP          T_OP_OBJ
  16
  17 B::SV           T_SV_OBJ
  18 B::PV           T_SV_OBJ
  19 B::IV           T_SV_OBJ
  20 B::NV           T_SV_OBJ
  21 B::PVMG         T_SV_OBJ
  22 B::PVLV         T_SV_OBJ
  23 B::BM           T_SV_OBJ
  24 B::RV           T_SV_OBJ
  25 B::GV           T_SV_OBJ
  26 B::CV           T_SV_OBJ
  27 B::HV           T_SV_OBJ
  28 B::AV           T_SV_OBJ
  29 B::IO           T_SV_OBJ
  30
  31 B::MAGIC        T_MG_OBJ
  32 SSize_t         T_IV
  33 STRLEN          T_IV
  34
  35 INPUT
  36 T_OP_OBJ
  37         if (SvROK($arg)) {
  38             IV tmp = SvIV((SV*)SvRV($arg));
  39             $var = ($type) tmp;
  40         }
  41         else
  42             croak(\"$var is not a reference\")
  43
  44 T_SV_OBJ
  45         if (SvROK($arg)) {
  46             IV tmp = SvIV((SV*)SvRV($arg));
  47             $var = ($type) tmp;
  48         }
  49         else
  50             croak(\"$var is not a reference\")
  51
  52 T_MG_OBJ
  53         if (SvROK($arg)) {
  54             IV tmp = SvIV((SV*)SvRV($arg));
  55             $var = ($type) tmp;
  56         }
  57         else
  58             croak(\"$var is not a reference\")
  59
  60 OUTPUT
  61 T_OP_OBJ
  62         sv_setiv(newSVrv($arg, cc_opclassname((OP*)$var)), (IV)$var);
  63
  64 T_SV_OBJ
  65         make_sv_object(($arg), (SV*)($var));
  66
  67
  68 T_MG_OBJ
  69         sv_setiv(newSVrv($arg, "B::MAGIC"), (IV)$var);