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