perl/typemap

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