perl/typemap

   1 TYPEMAP
   2 char *          T_PV
   3 const char *    T_PV
   4 guestfs_h *     O_OBJECT_guestfs_h
   5
   6 INPUT
   7 O_OBJECT_guestfs_h
   8     if (sv_isobject ($arg) && SvTYPE (SvRV ($arg)) == SVt_PVMG)
   9         $var = ($type) SvIV ((SV *) SvRV ($arg));
  10     else {
  11         warn (\"${Package}::$func_name(): $var is not a blessed SV reference\");
  12         XSRETURN_UNDEF;
  13     }
  14
  15 OUTPUT
  16 O_OBJECT_guestfs_h
  17     sv_setref_pv ($arg, "Sys::Guestfs", (void *) $var);