diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2008-01-18 19:32:54 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2008-01-18 19:32:54 +0000 |
commit | aee5f1b6aa2b80873a34de67727c40ad43cccca7 (patch) | |
tree | ef3e9f9a52b90ef00b2b24dad49ea0b8db00b3b0 /libvirt/libvirt_c_oneoffs.c | |
parent | 43b894e0ef93f380dcd8b1b20a3cd6626a8f3b7d (diff) | |
download | virt-top-aee5f1b6aa2b80873a34de67727c40ad43cccca7.tar.gz virt-top-aee5f1b6aa2b80873a34de67727c40ad43cccca7.tar.xz virt-top-aee5f1b6aa2b80873a34de67727c40ad43cccca7.zip |
More bindings autogenerated, more coverage of storage API.
Diffstat (limited to 'libvirt/libvirt_c_oneoffs.c')
-rw-r--r-- | libvirt/libvirt_c_oneoffs.c | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c index 6387b52..a9ed5b7 100644 --- a/libvirt/libvirt_c_oneoffs.c +++ b/libvirt/libvirt_c_oneoffs.c @@ -293,38 +293,6 @@ ocaml_libvirt_domain_lookup_by_uuid (value connv, value uuidv) } CAMLprim value -ocaml_libvirt_domain_lookup_by_uuid_string (value connv, value uuidv) -{ - CAMLparam2 (connv, uuidv); - CAMLlocal1 (rv); - virConnectPtr conn = Connect_val (connv); - char *uuid = String_val (uuidv); - virDomainPtr r; - - NONBLOCKING (r = virDomainLookupByUUIDString (conn, uuid)); - CHECK_ERROR (!r, conn, "virDomainLookupByUUIDString"); - - rv = Val_domain (r, connv); - CAMLreturn (rv); -} - -CAMLprim value -ocaml_libvirt_domain_lookup_by_name (value connv, value namev) -{ - CAMLparam2 (connv, namev); - CAMLlocal1 (rv); - virConnectPtr conn = Connect_val (connv); - char *name = String_val (namev); - virDomainPtr r; - - NONBLOCKING (r = virDomainLookupByName (conn, name)); - CHECK_ERROR (!r, conn, "virDomainLookupByName"); - - rv = Val_domain (r, connv); - CAMLreturn (rv); -} - -CAMLprim value ocaml_libvirt_domain_destroy (value domv) { CAMLparam1 (domv); @@ -936,22 +904,6 @@ ocaml_libvirt_domain_interface_stats (value domv, value pathv) } CAMLprim value -ocaml_libvirt_network_lookup_by_name (value connv, value namev) -{ - CAMLparam2 (connv, namev); - CAMLlocal1 (rv); - virConnectPtr conn = Connect_val (connv); - char *name = String_val (namev); - virNetworkPtr r; - - NONBLOCKING (r = virNetworkLookupByName (conn, name)); - CHECK_ERROR (!r, conn, "virNetworkLookupByName"); - - rv = Val_network (r, connv); - CAMLreturn (rv); -} - -CAMLprim value ocaml_libvirt_network_lookup_by_uuid (value connv, value uuidv) { CAMLparam2 (connv, uuidv); @@ -968,22 +920,6 @@ ocaml_libvirt_network_lookup_by_uuid (value connv, value uuidv) } CAMLprim value -ocaml_libvirt_network_lookup_by_uuid_string (value connv, value uuidv) -{ - CAMLparam2 (connv, uuidv); - CAMLlocal1 (rv); - virConnectPtr conn = Connect_val (connv); - char *uuid = String_val (uuidv); - virNetworkPtr r; - - NONBLOCKING (r = virNetworkLookupByUUIDString (conn, uuid)); - CHECK_ERROR (!r, conn, "virNetworkLookupByUUIDString"); - - rv = Val_network (r, connv); - CAMLreturn (rv); -} - -CAMLprim value ocaml_libvirt_network_create_xml (value connv, value xmlv) { CAMLparam2 (connv, xmlv); |