diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2008-01-19 14:14:02 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2008-01-19 14:14:02 +0000 |
commit | b6098f4c7419486227cbe2112904cbc9d58ed787 (patch) | |
tree | e0baeed5847d2e0b23648042275db41d8ab844df /libvirt/libvirt_c_oneoffs.c | |
parent | 8a8008134e997330d61e0b9736e9067b5689b531 (diff) | |
download | virt-top-b6098f4c7419486227cbe2112904cbc9d58ed787.tar.gz virt-top-b6098f4c7419486227cbe2112904cbc9d58ed787.tar.xz virt-top-b6098f4c7419486227cbe2112904cbc9d58ed787.zip |
Autogenerate all GetUUID and GetUUIDString functions.
Diffstat (limited to 'libvirt/libvirt_c_oneoffs.c')
-rw-r--r-- | libvirt/libvirt_c_oneoffs.c | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c index ecfdf9d..27f917d 100644 --- a/libvirt/libvirt_c_oneoffs.c +++ b/libvirt/libvirt_c_oneoffs.c @@ -371,40 +371,6 @@ ocaml_libvirt_domain_core_dump (value domv, value pathv) } CAMLprim value -ocaml_libvirt_domain_get_uuid (value domv) -{ - CAMLparam1 (domv); - CAMLlocal1 (rv); - virDomainPtr dom = Domain_val (domv); - virConnectPtr conn = Connect_domv (domv); - unsigned char uuid[VIR_UUID_BUFLEN]; - int r; - - NONBLOCKING (r = virDomainGetUUID (dom, uuid)); - CHECK_ERROR (r == -1, conn, "virDomainGetUUID"); - - rv = caml_copy_string ((char *) uuid); - CAMLreturn (rv); -} - -CAMLprim value -ocaml_libvirt_domain_get_uuid_string (value domv) -{ - CAMLparam1 (domv); - CAMLlocal1 (rv); - virDomainPtr dom = Domain_val (domv); - virConnectPtr conn = Connect_domv (domv); - char uuid[VIR_UUID_STRING_BUFLEN]; - int r; - - NONBLOCKING (r = virDomainGetUUIDString (dom, uuid)); - CHECK_ERROR (r == -1, conn, "virDomainGetUUIDString"); - - rv = caml_copy_string (uuid); - CAMLreturn (rv); -} - -CAMLprim value ocaml_libvirt_domain_get_id (value domv) { CAMLparam1 (domv); @@ -957,40 +923,6 @@ ocaml_libvirt_network_free (value netv) CAMLreturn (Val_unit); } -CAMLprim value -ocaml_libvirt_network_get_uuid (value netv) -{ - CAMLparam1 (netv); - CAMLlocal1 (rv); - virNetworkPtr net = Network_val (netv); - virConnectPtr conn = Connect_netv (netv); - unsigned char uuid[VIR_UUID_BUFLEN]; - int r; - - NONBLOCKING (r = virNetworkGetUUID (net, uuid)); - CHECK_ERROR (r == -1, conn, "virNetworkGetUUID"); - - rv = caml_copy_string ((char *) uuid); - CAMLreturn (rv); -} - -CAMLprim value -ocaml_libvirt_network_get_uuid_string (value netv) -{ - CAMLparam1 (netv); - CAMLlocal1 (rv); - virNetworkPtr net = Network_val (netv); - virConnectPtr conn = Connect_netv (netv); - char uuid[VIR_UUID_STRING_BUFLEN]; - int r; - - NONBLOCKING (r = virNetworkGetUUIDString (net, uuid)); - CHECK_ERROR (r == -1, conn, "virNetworkGetUUIDString"); - - rv = caml_copy_string (uuid); - CAMLreturn (rv); -} - /*----------------------------------------------------------------------*/ CAMLprim value |