diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2008-01-19 14:51:26 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2008-01-19 14:51:26 +0000 |
commit | 7a65ae1678144521b42be8856c615cf780a3f85c (patch) | |
tree | 858c9371d175f8ee3fa4f4ca77f16143c49b6abd /libvirt/libvirt_c_oneoffs.c | |
parent | 3a52f5d4f1becb1fc31eecf4a3a93542f2ff89b8 (diff) | |
download | virt-top-7a65ae1678144521b42be8856c615cf780a3f85c.tar.gz virt-top-7a65ae1678144521b42be8856c615cf780a3f85c.tar.xz virt-top-7a65ae1678144521b42be8856c615cf780a3f85c.zip |
Autogenerate *Free and *Destroy functions.
Diffstat (limited to 'libvirt/libvirt_c_oneoffs.c')
-rw-r--r-- | libvirt/libvirt_c_oneoffs.c | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c index 27f917d..0d568d6 100644 --- a/libvirt/libvirt_c_oneoffs.c +++ b/libvirt/libvirt_c_oneoffs.c @@ -127,22 +127,6 @@ ocaml_libvirt_connect_open_readonly (value namev, value unit) } CAMLprim value -ocaml_libvirt_connect_close (value connv) -{ - CAMLparam1 (connv); - virConnectPtr conn = Connect_val (connv); - int r; - - NONBLOCKING (r = virConnectClose (conn)); - CHECK_ERROR (r == -1, conn, "virConnectClose"); - - /* So that we don't double-free in the finalizer: */ - Connect_val (connv) = NULL; - - CAMLreturn (Val_unit); -} - -CAMLprim value ocaml_libvirt_connect_get_version (value connv) { CAMLparam1 (connv); @@ -293,40 +277,6 @@ ocaml_libvirt_domain_lookup_by_uuid (value connv, value uuidv) } CAMLprim value -ocaml_libvirt_domain_destroy (value domv) -{ - CAMLparam1 (domv); - virDomainPtr dom = Domain_val (domv); - virConnectPtr conn = Connect_domv (domv); - int r; - - NONBLOCKING (r = virDomainDestroy (dom)); - CHECK_ERROR (r == -1, conn, "virDomainDestroy"); - - /* So that we don't double-free in the finalizer: */ - Domain_val (domv) = NULL; - - CAMLreturn (Val_unit); -} - -CAMLprim value -ocaml_libvirt_domain_free (value domv) -{ - CAMLparam1 (domv); - virDomainPtr dom = Domain_val (domv); - virConnectPtr conn = Connect_domv (domv); - int r; - - NONBLOCKING (r = virDomainFree (dom)); - CHECK_ERROR (r == -1, conn, "virDomainFree"); - - /* So that we don't double-free in the finalizer: */ - Domain_val (domv) = NULL; - - CAMLreturn (Val_unit); -} - -CAMLprim value ocaml_libvirt_domain_save (value domv, value pathv) { CAMLparam2 (domv, pathv); @@ -889,40 +839,6 @@ ocaml_libvirt_network_define_xml (value connv, value xmlv) CAMLreturn (rv); } -CAMLprim value -ocaml_libvirt_network_destroy (value netv) -{ - CAMLparam1 (netv); - virNetworkPtr net = Network_val (netv); - virConnectPtr conn = Connect_netv (netv); - int r; - - NONBLOCKING (r = virNetworkDestroy (net)); - CHECK_ERROR (r == -1, conn, "virNetworkDestroy"); - - /* So that we don't double-free in the finalizer: */ - Network_val (netv) = NULL; - - CAMLreturn (Val_unit); -} - -CAMLprim value -ocaml_libvirt_network_free (value netv) -{ - CAMLparam1 (netv); - virNetworkPtr net = Network_val (netv); - virConnectPtr conn = Connect_netv (netv); - int r; - - NONBLOCKING (r = virNetworkFree (net)); - CHECK_ERROR (r == -1, conn, "virNetworkFree"); - - /* So that we don't double-free in the finalizer: */ - Network_val (netv) = NULL; - - CAMLreturn (Val_unit); -} - /*----------------------------------------------------------------------*/ CAMLprim value |