X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=blobdiff_plain;f=libvirt%2Flibvirt_c.c;h=dc7b3c9bed7da2ca57a60623876ea03fc2ce30af;hp=0bb94421a5d11b0a1ae4a1893a82789154310f9f;hb=b6098f4c7419486227cbe2112904cbc9d58ed787;hpb=aee5f1b6aa2b80873a34de67727c40ad43cccca7 diff --git a/libvirt/libvirt_c.c b/libvirt/libvirt_c.c index 0bb9442..dc7b3c9 100644 --- a/libvirt/libvirt_c.c +++ b/libvirt/libvirt_c.c @@ -1,4 +1,7 @@ -/* WARNING: THIS FILE IS AUTOMATICALLY GENERATED BY 'generator.pl'. +/* !!! WARNING WARNING WARNING WARNING WARNING WARNING WARNING !!! + * + * THIS FILE IS AUTOMATICALLY GENERATED BY 'generator.pl'. + * * Any changes you make to this file may be overwritten. */ @@ -527,6 +530,42 @@ ocaml_libvirt_domain_get_xml_desc (value domv) } 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_suspend (value domv) { CAMLparam1 (domv); @@ -617,6 +656,38 @@ ocaml_libvirt_domain_create (value domv) } CAMLprim value +ocaml_libvirt_domain_get_autostart (value domv) +{ + CAMLparam1 (domv); + + virDomainPtr dom = Domain_val (domv); + virConnectPtr conn = Connect_domv (domv); + int r, b; + + NONBLOCKING (r = virDomainGetAutostart (dom, &b)); + CHECK_ERROR (r == -1, conn, "virDomainGetAutostart"); + + CAMLreturn (b ? Val_true : Val_false); +} + +CAMLprim value +ocaml_libvirt_domain_set_autostart (value domv, value bv) +{ + CAMLparam2 (domv, bv); + + virDomainPtr dom = Domain_val (domv); + virConnectPtr conn = Connect_domv (domv); + int r, b; + + b = bv == Val_true ? 1 : 0; + + NONBLOCKING (r = virDomainSetAutostart (dom, b)); + CHECK_ERROR (r == -1, conn, "virDomainSetAutostart"); + + CAMLreturn (Val_unit); +} + +CAMLprim value ocaml_libvirt_network_lookup_by_name (value connv, value strv) { CAMLparam2 (connv, strv); @@ -706,6 +777,42 @@ ocaml_libvirt_network_get_bridge_name (value netv) } 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 ocaml_libvirt_network_undefine (value netv) { CAMLparam1 (netv); @@ -735,9 +842,41 @@ ocaml_libvirt_network_create (value netv) CAMLreturn (Val_unit); } +CAMLprim value +ocaml_libvirt_network_get_autostart (value netv) +{ + CAMLparam1 (netv); + + virNetworkPtr net = Network_val (netv); + virConnectPtr conn = Connect_netv (netv); + int r, b; + + NONBLOCKING (r = virNetworkGetAutostart (net, &b)); + CHECK_ERROR (r == -1, conn, "virNetworkGetAutostart"); + + CAMLreturn (b ? Val_true : Val_false); +} + +CAMLprim value +ocaml_libvirt_network_set_autostart (value netv, value bv) +{ + CAMLparam2 (netv, bv); + + virNetworkPtr net = Network_val (netv); + virConnectPtr conn = Connect_netv (netv); + int r, b; + + b = bv == Val_true ? 1 : 0; + + NONBLOCKING (r = virNetworkSetAutostart (net, b)); + CHECK_ERROR (r == -1, conn, "virNetworkSetAutostart"); + + CAMLreturn (Val_unit); +} + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLLOOKUPBYNAME -extern virStoragePoolPtr virStoragePoolLookupByName (virConnectPtr conn dom) __attribute__((weak)); +extern virStoragePoolPtr virStoragePoolLookupByName (virConnectPtr conn, const char *str) __attribute__((weak)); #endif #endif @@ -772,7 +911,7 @@ ocaml_libvirt_storage_pool_lookup_by_name (value connv, value strv) #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLLOOKUPBYUUIDSTRING -extern virStoragePoolPtr virStoragePoolLookupByUUIDString (virConnectPtr conn dom) __attribute__((weak)); +extern virStoragePoolPtr virStoragePoolLookupByUUIDString (virConnectPtr conn, const char *str) __attribute__((weak)); #endif #endif @@ -841,7 +980,7 @@ ocaml_libvirt_storage_pool_get_name (value poolv) #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLGETXMLDESC -extern char *virStoragePoolGetXMLDesc (virStoragePoolPtr pool, int flags) __attribute__((weak)); +extern char *virStoragePoolGetXMLDesc (virStoragePoolPtr pool, int flags) __attribute__((weak)); #endif #endif @@ -875,8 +1014,78 @@ ocaml_libvirt_storage_pool_get_xml_desc (value poolv) } #ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEPOOLGETUUID +extern int virStoragePoolGetUUID (virStoragePoolPtr pool, unsigned char *) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_pool_get_uuid (value poolv) +{ + CAMLparam1 (poolv); +#ifndef HAVE_VIRSTORAGEPOOLGETUUID + /* Symbol virStoragePoolGetUUID not found at compile time. */ + not_supported ("virStoragePoolGetUUID"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStoragePoolGetUUID + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStoragePoolGetUUID); + + CAMLlocal1 (rv); + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + unsigned char uuid[VIR_UUID_BUFLEN]; + int r; + + NONBLOCKING (r = virStoragePoolGetUUID (pool, uuid)); + CHECK_ERROR (r == -1, conn, "virStoragePoolGetUUID"); + + rv = caml_copy_string ((char *) uuid); + CAMLreturn (rv); +#endif +} + +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEPOOLGETUUIDSTRING +extern int virStoragePoolGetUUIDString (virStoragePoolPtr pool, char *) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_pool_get_uuid_string (value poolv) +{ + CAMLparam1 (poolv); +#ifndef HAVE_VIRSTORAGEPOOLGETUUIDSTRING + /* Symbol virStoragePoolGetUUIDString not found at compile time. */ + not_supported ("virStoragePoolGetUUIDString"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStoragePoolGetUUIDString + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStoragePoolGetUUIDString); + + CAMLlocal1 (rv); + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + char uuid[VIR_UUID_STRING_BUFLEN]; + int r; + + NONBLOCKING (r = virStoragePoolGetUUIDString (pool, uuid)); + CHECK_ERROR (r == -1, conn, "virStoragePoolGetUUIDString"); + + rv = caml_copy_string (uuid); + CAMLreturn (rv); +#endif +} + +#ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLUNDEFINE -extern char *virStoragePoolUndefine (virStoragePoolPtr pool) __attribute__((weak)); +extern int virStoragePoolUndefine (virStoragePoolPtr pool) __attribute__((weak)); #endif #endif @@ -895,23 +1104,20 @@ ocaml_libvirt_storage_pool_undefine (value poolv) */ WEAK_SYMBOL_CHECK (virStoragePoolUndefine); - CAMLlocal1 (rv); virStoragePoolPtr pool = Pool_val (poolv); virConnectPtr conn = Connect_polv (poolv); - char *r; + int r; NONBLOCKING (r = virStoragePoolUndefine (pool)); - CHECK_ERROR (!r, conn, "virStoragePoolUndefine"); + CHECK_ERROR (r == -1, conn, "virStoragePoolUndefine"); - rv = caml_copy_string (r); - free (r); - CAMLreturn (rv); + CAMLreturn (Val_unit); #endif } #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLCREATE -extern char *virStoragePoolCreate (virStoragePoolPtr pool) __attribute__((weak)); +extern int virStoragePoolCreate (virStoragePoolPtr pool) __attribute__((weak)); #endif #endif @@ -930,23 +1136,20 @@ ocaml_libvirt_storage_pool_create (value poolv) */ WEAK_SYMBOL_CHECK (virStoragePoolCreate); - CAMLlocal1 (rv); virStoragePoolPtr pool = Pool_val (poolv); virConnectPtr conn = Connect_polv (poolv); - char *r; + int r; NONBLOCKING (r = virStoragePoolCreate (pool)); - CHECK_ERROR (!r, conn, "virStoragePoolCreate"); + CHECK_ERROR (r == -1, conn, "virStoragePoolCreate"); - rv = caml_copy_string (r); - free (r); - CAMLreturn (rv); + CAMLreturn (Val_unit); #endif } #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLSHUTDOWN -extern char *virStoragePoolShutdown (virStoragePoolPtr pool) __attribute__((weak)); +extern int virStoragePoolShutdown (virStoragePoolPtr pool) __attribute__((weak)); #endif #endif @@ -965,23 +1168,20 @@ ocaml_libvirt_storage_pool_shutdown (value poolv) */ WEAK_SYMBOL_CHECK (virStoragePoolShutdown); - CAMLlocal1 (rv); virStoragePoolPtr pool = Pool_val (poolv); virConnectPtr conn = Connect_polv (poolv); - char *r; + int r; NONBLOCKING (r = virStoragePoolShutdown (pool)); - CHECK_ERROR (!r, conn, "virStoragePoolShutdown"); + CHECK_ERROR (r == -1, conn, "virStoragePoolShutdown"); - rv = caml_copy_string (r); - free (r); - CAMLreturn (rv); + CAMLreturn (Val_unit); #endif } #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLREFRESH -extern char *virStoragePoolRefresh (virStoragePoolPtr pool, int flags) __attribute__((weak)); +extern int virStoragePoolRefresh (virStoragePoolPtr pool, unsigned int flags) __attribute__((weak)); #endif #endif @@ -1000,58 +1200,86 @@ ocaml_libvirt_storage_pool_refresh (value poolv) */ WEAK_SYMBOL_CHECK (virStoragePoolRefresh); - CAMLlocal1 (rv); virStoragePoolPtr pool = Pool_val (poolv); virConnectPtr conn = Connect_polv (poolv); - char *r; + int r; NONBLOCKING (r = virStoragePoolRefresh (pool, 0)); - CHECK_ERROR (!r, conn, "virStoragePoolRefresh"); + CHECK_ERROR (r == -1, conn, "virStoragePoolRefresh"); - rv = caml_copy_string (r); - free (r); - CAMLreturn (rv); + CAMLreturn (Val_unit); #endif } #ifdef HAVE_WEAK_SYMBOLS -#ifdef HAVE_VIRSTORAGEVOLLOOKUPBYNAME -extern virStorageVolPtr virStorageVolLookupByName (virConnectPtr conn dom) __attribute__((weak)); +#ifdef HAVE_VIRSTORAGEPOOLGETAUTOSTART +extern int virStoragePoolGetAutostart (virStoragePoolPtr pool, int *r) __attribute__((weak)); #endif #endif CAMLprim value -ocaml_libvirt_storage_vol_lookup_by_name (value connv, value strv) +ocaml_libvirt_storage_pool_get_autostart (value poolv) { - CAMLparam2 (connv, strv); -#ifndef HAVE_VIRSTORAGEVOLLOOKUPBYNAME - /* Symbol virStorageVolLookupByName not found at compile time. */ - not_supported ("virStorageVolLookupByName"); + CAMLparam1 (poolv); +#ifndef HAVE_VIRSTORAGEPOOLGETAUTOSTART + /* Symbol virStoragePoolGetAutostart not found at compile time. */ + not_supported ("virStoragePoolGetAutostart"); /* Suppresses a compiler warning. */ (void) caml__frame; #else - /* Check that the symbol virStorageVolLookupByName + /* Check that the symbol virStoragePoolGetAutostart * is in runtime version of libvirt. */ - WEAK_SYMBOL_CHECK (virStorageVolLookupByName); + WEAK_SYMBOL_CHECK (virStoragePoolGetAutostart); - CAMLlocal1 (rv); - virConnectPtr conn = Connect_val (connv); - char *str = String_val (strv); - virStorageVolPtr r; + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + int r, b; - NONBLOCKING (r = virStorageVolLookupByName (conn, str)); - CHECK_ERROR (!r, conn, "virStorageVolLookupByName"); + NONBLOCKING (r = virStoragePoolGetAutostart (pool, &b)); + CHECK_ERROR (r == -1, conn, "virStoragePoolGetAutostart"); - rv = Val_volume (r, connv); + CAMLreturn (b ? Val_true : Val_false); +#endif +} - CAMLreturn (rv); +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEPOOLSETAUTOSTART +extern int virStoragePoolSetAutostart (virStoragePoolPtr pool, int b) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_pool_set_autostart (value poolv, value bv) +{ + CAMLparam2 (poolv, bv); +#ifndef HAVE_VIRSTORAGEPOOLSETAUTOSTART + /* Symbol virStoragePoolSetAutostart not found at compile time. */ + not_supported ("virStoragePoolSetAutostart"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStoragePoolSetAutostart + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStoragePoolSetAutostart); + + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + int r, b; + + b = bv == Val_true ? 1 : 0; + + NONBLOCKING (r = virStoragePoolSetAutostart (pool, b)); + CHECK_ERROR (r == -1, conn, "virStoragePoolSetAutostart"); + + CAMLreturn (Val_unit); #endif } #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLLOOKUPBYKEY -extern virStorageVolPtr virStorageVolLookupByKey (virConnectPtr conn dom) __attribute__((weak)); +extern virStorageVolPtr virStorageVolLookupByKey (virConnectPtr conn, const char *str) __attribute__((weak)); #endif #endif @@ -1086,7 +1314,7 @@ ocaml_libvirt_storage_vol_lookup_by_key (value connv, value strv) #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLLOOKUPBYPATH -extern virStorageVolPtr virStorageVolLookupByPath (virConnectPtr conn dom) __attribute__((weak)); +extern virStorageVolPtr virStorageVolLookupByPath (virConnectPtr conn, const char *str) __attribute__((weak)); #endif #endif @@ -1121,14 +1349,14 @@ ocaml_libvirt_storage_vol_lookup_by_path (value connv, value strv) #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETXMLDESC -extern char *virStorageVolGetXMLDesc (virStoragePoolPtr pool, int flags) __attribute__((weak)); +extern char *virStorageVolGetXMLDesc (virStorageVolPtr vol, int flags) __attribute__((weak)); #endif #endif CAMLprim value -ocaml_libvirt_storage_vol_get_xml_desc (value poolv) +ocaml_libvirt_storage_vol_get_xml_desc (value volv) { - CAMLparam1 (poolv); + CAMLparam1 (volv); #ifndef HAVE_VIRSTORAGEVOLGETXMLDESC /* Symbol virStorageVolGetXMLDesc not found at compile time. */ not_supported ("virStorageVolGetXMLDesc"); @@ -1141,11 +1369,11 @@ ocaml_libvirt_storage_vol_get_xml_desc (value poolv) WEAK_SYMBOL_CHECK (virStorageVolGetXMLDesc); CAMLlocal1 (rv); - virStoragePoolPtr pool = Pool_val (poolv); - virConnectPtr conn = Connect_polv (poolv); + virStorageVolPtr vol = Volume_val (volv); + virConnectPtr conn = Connect_volv (volv); char *r; - NONBLOCKING (r = virStorageVolGetXMLDesc (pool, 0)); + NONBLOCKING (r = virStorageVolGetXMLDesc (vol, 0)); CHECK_ERROR (!r, conn, "virStorageVolGetXMLDesc"); rv = caml_copy_string (r); @@ -1156,14 +1384,14 @@ ocaml_libvirt_storage_vol_get_xml_desc (value poolv) #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETPATH -extern char *virStorageVolGetPath (virStoragePoolPtr pool) __attribute__((weak)); +extern char *virStorageVolGetPath (virStorageVolPtr vol) __attribute__((weak)); #endif #endif CAMLprim value -ocaml_libvirt_storage_vol_get_path (value poolv) +ocaml_libvirt_storage_vol_get_path (value volv) { - CAMLparam1 (poolv); + CAMLparam1 (volv); #ifndef HAVE_VIRSTORAGEVOLGETPATH /* Symbol virStorageVolGetPath not found at compile time. */ not_supported ("virStorageVolGetPath"); @@ -1176,11 +1404,11 @@ ocaml_libvirt_storage_vol_get_path (value poolv) WEAK_SYMBOL_CHECK (virStorageVolGetPath); CAMLlocal1 (rv); - virStoragePoolPtr pool = Pool_val (poolv); - virConnectPtr conn = Connect_polv (poolv); + virStorageVolPtr vol = Volume_val (volv); + virConnectPtr conn = Connect_volv (volv); char *r; - NONBLOCKING (r = virStorageVolGetPath (pool)); + NONBLOCKING (r = virStorageVolGetPath (vol)); CHECK_ERROR (!r, conn, "virStorageVolGetPath"); rv = caml_copy_string (r); @@ -1191,14 +1419,14 @@ ocaml_libvirt_storage_vol_get_path (value poolv) #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETKEY -extern const char *virStorageVolGetKey (virStoragePoolPtr pool) __attribute__((weak)); +extern const char *virStorageVolGetKey (virStorageVolPtr vol) __attribute__((weak)); #endif #endif CAMLprim value -ocaml_libvirt_storage_vol_get_key (value poolv) +ocaml_libvirt_storage_vol_get_key (value volv) { - CAMLparam1 (poolv); + CAMLparam1 (volv); #ifndef HAVE_VIRSTORAGEVOLGETKEY /* Symbol virStorageVolGetKey not found at compile time. */ not_supported ("virStorageVolGetKey"); @@ -1211,11 +1439,11 @@ ocaml_libvirt_storage_vol_get_key (value poolv) WEAK_SYMBOL_CHECK (virStorageVolGetKey); CAMLlocal1 (rv); - virStoragePoolPtr pool = Pool_val (poolv); - virConnectPtr conn = Connect_polv (poolv); + virStorageVolPtr vol = Volume_val (volv); + virConnectPtr conn = Connect_volv (volv); const char *r; - NONBLOCKING (r = virStorageVolGetKey (pool)); + NONBLOCKING (r = virStorageVolGetKey (vol)); CHECK_ERROR (!r, conn, "virStorageVolGetKey"); rv = caml_copy_string (r); @@ -1225,14 +1453,14 @@ ocaml_libvirt_storage_vol_get_key (value poolv) #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETNAME -extern const char *virStorageVolGetName (virStoragePoolPtr pool) __attribute__((weak)); +extern const char *virStorageVolGetName (virStorageVolPtr vol) __attribute__((weak)); #endif #endif CAMLprim value -ocaml_libvirt_storage_vol_get_name (value poolv) +ocaml_libvirt_storage_vol_get_name (value volv) { - CAMLparam1 (poolv); + CAMLparam1 (volv); #ifndef HAVE_VIRSTORAGEVOLGETNAME /* Symbol virStorageVolGetName not found at compile time. */ not_supported ("virStorageVolGetName"); @@ -1245,11 +1473,11 @@ ocaml_libvirt_storage_vol_get_name (value poolv) WEAK_SYMBOL_CHECK (virStorageVolGetName); CAMLlocal1 (rv); - virStoragePoolPtr pool = Pool_val (poolv); - virConnectPtr conn = Connect_polv (poolv); + virStorageVolPtr vol = Volume_val (volv); + virConnectPtr conn = Connect_volv (volv); const char *r; - NONBLOCKING (r = virStorageVolGetName (pool)); + NONBLOCKING (r = virStorageVolGetName (vol)); CHECK_ERROR (!r, conn, "virStorageVolGetName"); rv = caml_copy_string (r); @@ -1300,36 +1528,12 @@ ocaml_libvirt_network_create_xml_job () } CAMLprim value -ocaml_libvirt_storage_pool_set_autostart () -{ - failwith ("ocaml_libvirt_storage_pool_set_autostart is unimplemented"); -} - -CAMLprim value -ocaml_libvirt_storage_pool_get_autostart () -{ - failwith ("ocaml_libvirt_storage_pool_get_autostart is unimplemented"); -} - -CAMLprim value ocaml_libvirt_storage_pool_get_info () { failwith ("ocaml_libvirt_storage_pool_get_info is unimplemented"); } CAMLprim value -ocaml_libvirt_storage_pool_get_uuid_string () -{ - failwith ("ocaml_libvirt_storage_pool_get_uuid_string is unimplemented"); -} - -CAMLprim value -ocaml_libvirt_storage_pool_get_uuid () -{ - failwith ("ocaml_libvirt_storage_pool_get_uuid is unimplemented"); -} - -CAMLprim value ocaml_libvirt_storage_pool_free () { failwith ("ocaml_libvirt_storage_pool_free is unimplemented"); @@ -1360,6 +1564,12 @@ ocaml_libvirt_storage_pool_lookup_by_uuid () } CAMLprim value +ocaml_libvirt_storage_vol_lookup_by_name () +{ + failwith ("ocaml_libvirt_storage_vol_lookup_by_name is unimplemented"); +} + +CAMLprim value ocaml_libvirt_storage_vol_free () { failwith ("ocaml_libvirt_storage_vol_free is unimplemented");