diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2008-01-19 14:03:15 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2008-01-19 14:03:15 +0000 |
commit | 8a8008134e997330d61e0b9736e9067b5689b531 (patch) | |
tree | 0ae876cb669c36a487d3ffc20d6a80d4873fbecd /libvirt/libvirt_c_oneoffs.c | |
parent | 5f54fd1bd538422e500e4a026e73ec3b04abaf2b (diff) | |
download | virt-top-8a8008134e997330d61e0b9736e9067b5689b531.tar.gz virt-top-8a8008134e997330d61e0b9736e9067b5689b531.tar.xz virt-top-8a8008134e997330d61e0b9736e9067b5689b531.zip |
Further work on storage API and autogenerating bindings.
Diffstat (limited to 'libvirt/libvirt_c_oneoffs.c')
-rw-r--r-- | libvirt/libvirt_c_oneoffs.c | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/libvirt/libvirt_c_oneoffs.c b/libvirt/libvirt_c_oneoffs.c index a9ed5b7..ecfdf9d 100644 --- a/libvirt/libvirt_c_oneoffs.c +++ b/libvirt/libvirt_c_oneoffs.c @@ -648,34 +648,6 @@ ocaml_libvirt_domain_define_xml (value connv, value xmlv) } CAMLprim value -ocaml_libvirt_domain_get_autostart (value domv) -{ - CAMLparam1 (domv); - virDomainPtr dom = Domain_val (domv); - virConnectPtr conn = Connect_domv (domv); - int r, autostart; - - NONBLOCKING (r = virDomainGetAutostart (dom, &autostart)); - CHECK_ERROR (r == -1, conn, "virDomainGetAutostart"); - - CAMLreturn (autostart ? Val_true : Val_false); -} - -CAMLprim value -ocaml_libvirt_domain_set_autostart (value domv, value autostartv) -{ - CAMLparam2 (domv, autostartv); - virDomainPtr dom = Domain_val (domv); - virConnectPtr conn = Connect_domv (domv); - int r, autostart = autostartv == Val_true ? 1 : 0; - - NONBLOCKING (r = virDomainSetAutostart (dom, autostart)); - CHECK_ERROR (r == -1, conn, "virDomainSetAutostart"); - - CAMLreturn (Val_unit); -} - -CAMLprim value ocaml_libvirt_domain_set_vcpus (value domv, value nvcpusv) { CAMLparam2 (domv, nvcpusv); @@ -1019,34 +991,6 @@ ocaml_libvirt_network_get_uuid_string (value netv) CAMLreturn (rv); } -CAMLprim value -ocaml_libvirt_network_get_autostart (value netv) -{ - CAMLparam1 (netv); - virNetworkPtr net = Network_val (netv); - virConnectPtr conn = Connect_netv (netv); - int r, autostart; - - NONBLOCKING (r = virNetworkGetAutostart (net, &autostart)); - CHECK_ERROR (r == -1, conn, "virNetworkGetAutostart"); - - CAMLreturn (autostart ? Val_true : Val_false); -} - -CAMLprim value -ocaml_libvirt_network_set_autostart (value netv, value autostartv) -{ - CAMLparam2 (netv, autostartv); - virNetworkPtr net = Network_val (netv); - virConnectPtr conn = Connect_netv (netv); - int r, autostart = autostartv == Val_true ? 1 : 0; - - NONBLOCKING (r = virNetworkSetAutostart (net, autostart)); - CHECK_ERROR (r == -1, conn, "virNetworkSetAutostart"); - - CAMLreturn (Val_unit); -} - /*----------------------------------------------------------------------*/ CAMLprim value |