1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152
|
TYPEMAP
const char * T_PV
const unsigned char * T_PV
virConnectPtr O_OBJECT_connect
virDomainPtr O_OBJECT_domain
virNetworkPtr O_OBJECT_network
virNWFilterPtr O_OBJECT_nwfilter
virInterfacePtr O_OBJECT_interface
virStoragePoolPtr O_OBJECT_storagepool
virStorageVolPtr O_OBJECT_storagevol
virNodeDevicePtr O_OBJECT_nodedevice
virSecretPtr O_OBJECT_secret
virDomainSnapshotPtr O_OBJECT_domainsnapshot
INPUT
O_OBJECT_connect
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_connect
sv_setref_pv( $arg, "Sys::Virt", (void*)$var );
INPUT
O_OBJECT_domain
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_domain
sv_setref_pv( $arg, "Sys::Virt::Domain", (void*)$var );
INPUT
O_OBJECT_network
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_network
sv_setref_pv( $arg, "Sys::Virt::Network", (void*)$var );
INPUT
O_OBJECT_storagepool
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_storagepool
sv_setref_pv( $arg, "Sys::Virt::StoragePool", (void*)$var );
INPUT
O_OBJECT_storagevol
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_storagevol
sv_setref_pv( $arg, "Sys::Virt::StorageVol", (void*)$var );
INPUT
O_OBJECT_nodedevice
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_nodedevice
sv_setref_pv( $arg, "Sys::Virt::NodeDevice", (void*)$var );
INPUT
O_OBJECT_interface
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_interface
sv_setref_pv( $arg, "Sys::Virt::Interface", (void*)$var );
INPUT
O_OBJECT_secret
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_secret
sv_setref_pv( $arg, "Sys::Virt::Secret", (void*)$var );
INPUT
O_OBJECT_nwfilter
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_nwfilter
sv_setref_pv( $arg, "Sys::Virt::NWFilter", (void*)$var );
INPUT
O_OBJECT_domainsnapshot
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_domainsnapshot
sv_setref_pv( $arg, "Sys::Virt::DomainSnapshot", (void*)$var );
|