X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=libvirt%2Flibvirt_c.c;h=882f016e03ed24099e897d7285bef64951b48e27;hb=fd001b9b43eeef90ade7c19845baa4a6bb96bf68;hp=347cab7b39304b2818785ca449d766c2a6e102cc;hpb=4bcef5db5222f7a2596aaa1d8664fbcfd7185076;p=virt-top.git diff --git a/libvirt/libvirt_c.c b/libvirt/libvirt_c.c index 347cab7..882f016 100644 --- a/libvirt/libvirt_c.c +++ b/libvirt/libvirt_c.c @@ -47,6 +47,10 @@ #include "libvirt_c_oneoffs.c" +/* Automatically generated binding for virConnectClose. + * In generator.pl this function has signature "conn : free". + */ + CAMLprim value ocaml_libvirt_connect_close (value connv) { @@ -64,6 +68,10 @@ ocaml_libvirt_connect_close (value connv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virConnectGetHostname. + * In generator.pl this function has signature "conn : string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRCONNECTGETHOSTNAME extern char *virConnectGetHostname (virConnectPtr conn) __attribute__((weak)); @@ -98,6 +106,10 @@ ocaml_libvirt_connect_get_hostname (value connv) #endif } +/* Automatically generated binding for virConnectGetURI. + * In generator.pl this function has signature "conn : string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRCONNECTGETURI extern char *virConnectGetURI (virConnectPtr conn) __attribute__((weak)); @@ -132,6 +144,10 @@ ocaml_libvirt_connect_get_uri (value connv) #endif } +/* Automatically generated binding for virConnectGetType. + * In generator.pl this function has signature "conn : static string". + */ + CAMLprim value ocaml_libvirt_connect_get_type (value connv) { @@ -148,6 +164,10 @@ ocaml_libvirt_connect_get_type (value connv) CAMLreturn (rv); } +/* Automatically generated binding for virConnectNumOfDomains. + * In generator.pl this function has signature "conn : int". + */ + CAMLprim value ocaml_libvirt_connect_num_of_domains (value connv) { @@ -162,6 +182,10 @@ ocaml_libvirt_connect_num_of_domains (value connv) CAMLreturn (Val_int (r)); } +/* Automatically generated binding for virConnectListDomains. + * In generator.pl this function has signature "conn, int : int array". + */ + CAMLprim value ocaml_libvirt_connect_list_domains (value connv, value iv) { @@ -182,6 +206,10 @@ ocaml_libvirt_connect_list_domains (value connv, value iv) CAMLreturn (rv); } +/* Automatically generated binding for virConnectNumOfDefinedDomains. + * In generator.pl this function has signature "conn : int". + */ + CAMLprim value ocaml_libvirt_connect_num_of_defined_domains (value connv) { @@ -196,6 +224,10 @@ ocaml_libvirt_connect_num_of_defined_domains (value connv) CAMLreturn (Val_int (r)); } +/* Automatically generated binding for virConnectListDefinedDomains. + * In generator.pl this function has signature "conn, int : string array". + */ + CAMLprim value ocaml_libvirt_connect_list_defined_domains (value connv, value iv) { @@ -220,6 +252,10 @@ ocaml_libvirt_connect_list_defined_domains (value connv, value iv) CAMLreturn (rv); } +/* Automatically generated binding for virConnectNumOfNetworks. + * In generator.pl this function has signature "conn : int". + */ + CAMLprim value ocaml_libvirt_connect_num_of_networks (value connv) { @@ -234,6 +270,10 @@ ocaml_libvirt_connect_num_of_networks (value connv) CAMLreturn (Val_int (r)); } +/* Automatically generated binding for virConnectListNetworks. + * In generator.pl this function has signature "conn, int : string array". + */ + CAMLprim value ocaml_libvirt_connect_list_networks (value connv, value iv) { @@ -258,6 +298,10 @@ ocaml_libvirt_connect_list_networks (value connv, value iv) CAMLreturn (rv); } +/* Automatically generated binding for virConnectNumOfDefinedNetworks. + * In generator.pl this function has signature "conn : int". + */ + CAMLprim value ocaml_libvirt_connect_num_of_defined_networks (value connv) { @@ -272,6 +316,10 @@ ocaml_libvirt_connect_num_of_defined_networks (value connv) CAMLreturn (Val_int (r)); } +/* Automatically generated binding for virConnectListDefinedNetworks. + * In generator.pl this function has signature "conn, int : string array". + */ + CAMLprim value ocaml_libvirt_connect_list_defined_networks (value connv, value iv) { @@ -296,6 +344,10 @@ ocaml_libvirt_connect_list_defined_networks (value connv, value iv) CAMLreturn (rv); } +/* Automatically generated binding for virConnectNumOfStoragePools. + * In generator.pl this function has signature "conn : int". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRCONNECTNUMOFSTORAGEPOOLS extern int virConnectNumOfStoragePools (virConnectPtr conn) __attribute__((weak)); @@ -327,6 +379,10 @@ ocaml_libvirt_connect_num_of_storage_pools (value connv) #endif } +/* Automatically generated binding for virConnectListStoragePools. + * In generator.pl this function has signature "conn, int : string array". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRCONNECTLISTSTORAGEPOOLS extern int virConnectListStoragePools (virConnectPtr conn, char **const names, int maxnames) __attribute__((weak)); @@ -368,6 +424,10 @@ ocaml_libvirt_connect_list_storage_pools (value connv, value iv) #endif } +/* Automatically generated binding for virConnectNumOfDefinedStoragePools. + * In generator.pl this function has signature "conn : int". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRCONNECTNUMOFDEFINEDSTORAGEPOOLS extern int virConnectNumOfDefinedStoragePools (virConnectPtr conn) __attribute__((weak)); @@ -399,6 +459,10 @@ ocaml_libvirt_connect_num_of_defined_storage_pools (value connv) #endif } +/* Automatically generated binding for virConnectListDefinedStoragePools. + * In generator.pl this function has signature "conn, int : string array". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRCONNECTLISTDEFINEDSTORAGEPOOLS extern int virConnectListDefinedStoragePools (virConnectPtr conn, char **const names, int maxnames) __attribute__((weak)); @@ -440,6 +504,10 @@ ocaml_libvirt_connect_list_defined_storage_pools (value connv, value iv) #endif } +/* Automatically generated binding for virConnectGetCapabilities. + * In generator.pl this function has signature "conn : string". + */ + CAMLprim value ocaml_libvirt_connect_get_capabilities (value connv) { @@ -457,6 +525,10 @@ ocaml_libvirt_connect_get_capabilities (value connv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainCreateLinux. + * In generator.pl this function has signature "conn, string, 0U : dom". + */ + CAMLprim value ocaml_libvirt_domain_create_linux (value connv, value strv) { @@ -475,9 +547,13 @@ ocaml_libvirt_domain_create_linux (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainCreateLinuxJob. + * In generator.pl this function has signature "conn, string, 0U : job". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRDOMAINCREATELINUXJOB -extern virJobPtr virDomainCreateLinuxJob (virConnectPtr conn, const char *str, unsigned int flags) __attribute__((weak)); +extern virJobPtr virDomainCreateLinuxJob (virConnectPtr conn, const char *str, unsigned int flags) __attribute__((weak)); #endif #endif @@ -510,6 +586,10 @@ ocaml_libvirt_domain_create_linux_job (value connv, value strv) #endif } +/* Automatically generated binding for virDomainFree. + * In generator.pl this function has signature "dom : free". + */ + CAMLprim value ocaml_libvirt_domain_free (value domv) { @@ -528,6 +608,10 @@ ocaml_libvirt_domain_free (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainDestroy. + * In generator.pl this function has signature "dom : free". + */ + CAMLprim value ocaml_libvirt_domain_destroy (value domv) { @@ -546,6 +630,10 @@ ocaml_libvirt_domain_destroy (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainLookupByName. + * In generator.pl this function has signature "conn, string : dom". + */ + CAMLprim value ocaml_libvirt_domain_lookup_by_name (value connv, value strv) { @@ -564,6 +652,10 @@ ocaml_libvirt_domain_lookup_by_name (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainLookupByID. + * In generator.pl this function has signature "conn, int : dom". + */ + CAMLprim value ocaml_libvirt_domain_lookup_by_id (value connv, value iv) { @@ -582,6 +674,10 @@ ocaml_libvirt_domain_lookup_by_id (value connv, value iv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainLookupByUUID. + * In generator.pl this function has signature "conn, uuid : dom". + */ + CAMLprim value ocaml_libvirt_domain_lookup_by_uuid (value connv, value uuidv) { @@ -600,6 +696,10 @@ ocaml_libvirt_domain_lookup_by_uuid (value connv, value uuidv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainLookupByUUIDString. + * In generator.pl this function has signature "conn, string : dom". + */ + CAMLprim value ocaml_libvirt_domain_lookup_by_uuid_string (value connv, value strv) { @@ -618,6 +718,10 @@ ocaml_libvirt_domain_lookup_by_uuid_string (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainGetName. + * In generator.pl this function has signature "dom : static string". + */ + CAMLprim value ocaml_libvirt_domain_get_name (value domv) { @@ -635,6 +739,10 @@ ocaml_libvirt_domain_get_name (value domv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainGetOSType. + * In generator.pl this function has signature "dom : string". + */ + CAMLprim value ocaml_libvirt_domain_get_os_type (value domv) { @@ -653,6 +761,10 @@ ocaml_libvirt_domain_get_os_type (value domv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainGetXMLDesc. + * In generator.pl this function has signature "dom, 0 : string". + */ + CAMLprim value ocaml_libvirt_domain_get_xml_desc (value domv) { @@ -671,6 +783,10 @@ ocaml_libvirt_domain_get_xml_desc (value domv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainGetUUID. + * In generator.pl this function has signature "dom : uuid". + */ + CAMLprim value ocaml_libvirt_domain_get_uuid (value domv) { @@ -685,10 +801,16 @@ ocaml_libvirt_domain_get_uuid (value domv) NONBLOCKING (r = virDomainGetUUID (dom, uuid)); CHECK_ERROR (r == -1, conn, "virDomainGetUUID"); - rv = caml_copy_string ((char *) uuid); + /* UUIDs are byte arrays with a fixed length. */ + rv = caml_alloc_string (VIR_UUID_BUFLEN); + memcpy (String_val (rv), uuid, VIR_UUID_BUFLEN); CAMLreturn (rv); } +/* Automatically generated binding for virDomainGetUUIDString. + * In generator.pl this function has signature "dom : uuid string". + */ + CAMLprim value ocaml_libvirt_domain_get_uuid_string (value domv) { @@ -707,6 +829,10 @@ ocaml_libvirt_domain_get_uuid_string (value domv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainGetMaxVcpus. + * In generator.pl this function has signature "dom : int". + */ + CAMLprim value ocaml_libvirt_domain_get_max_vcpus (value domv) { @@ -722,12 +848,15 @@ ocaml_libvirt_domain_get_max_vcpus (value domv) CAMLreturn (Val_int (r)); } +/* Automatically generated binding for virDomainSave. + * In generator.pl this function has signature "dom, string : unit". + */ + CAMLprim value ocaml_libvirt_domain_save (value domv, value strv) { CAMLparam2 (domv, strv); - CAMLlocal1 (rv); virDomainPtr dom = Domain_val (domv); virConnectPtr conn = Connect_domv (domv); char *str = String_val (strv); @@ -739,6 +868,10 @@ ocaml_libvirt_domain_save (value domv, value strv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainSaveJob. + * In generator.pl this function has signature "dom, string : job from dom". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRDOMAINSAVEJOB extern virJobPtr virDomainSaveJob (virDomainPtr dom, const char *str) __attribute__((weak)); @@ -776,12 +909,15 @@ ocaml_libvirt_domain_save_job (value domv, value strv) #endif } +/* Automatically generated binding for virDomainRestore. + * In generator.pl this function has signature "conn, string : unit". + */ + CAMLprim value ocaml_libvirt_domain_restore (value connv, value strv) { CAMLparam2 (connv, strv); - CAMLlocal1 (rv); virConnectPtr conn = Connect_val (connv); char *str = String_val (strv); int r; @@ -792,6 +928,10 @@ ocaml_libvirt_domain_restore (value connv, value strv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainRestoreJob. + * In generator.pl this function has signature "conn, string : job". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRDOMAINRESTOREJOB extern virJobPtr virDomainRestoreJob (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -827,6 +967,10 @@ ocaml_libvirt_domain_restore_job (value connv, value strv) #endif } +/* Automatically generated binding for virDomainCoreDump. + * In generator.pl this function has signature "dom, string, 0 : unit". + */ + CAMLprim value ocaml_libvirt_domain_core_dump (value domv, value strv) { @@ -844,6 +988,10 @@ ocaml_libvirt_domain_core_dump (value domv, value strv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainCoreDumpJob. + * In generator.pl this function has signature "dom, string, 0 : job from dom". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRDOMAINCOREDUMPJOB extern virJobPtr virDomainCoreDumpJob (virDomainPtr dom, const char *str, int flags) __attribute__((weak)); @@ -881,6 +1029,10 @@ ocaml_libvirt_domain_core_dump_job (value domv, value strv) #endif } +/* Automatically generated binding for virDomainSuspend. + * In generator.pl this function has signature "dom : unit". + */ + CAMLprim value ocaml_libvirt_domain_suspend (value domv) { @@ -896,6 +1048,10 @@ ocaml_libvirt_domain_suspend (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainResume. + * In generator.pl this function has signature "dom : unit". + */ + CAMLprim value ocaml_libvirt_domain_resume (value domv) { @@ -911,6 +1067,10 @@ ocaml_libvirt_domain_resume (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainShutdown. + * In generator.pl this function has signature "dom : unit". + */ + CAMLprim value ocaml_libvirt_domain_shutdown (value domv) { @@ -926,6 +1086,10 @@ ocaml_libvirt_domain_shutdown (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainReboot. + * In generator.pl this function has signature "dom, 0 : unit". + */ + CAMLprim value ocaml_libvirt_domain_reboot (value domv) { @@ -941,6 +1105,10 @@ ocaml_libvirt_domain_reboot (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainDefineXML. + * In generator.pl this function has signature "conn, string : dom". + */ + CAMLprim value ocaml_libvirt_domain_define_xml (value connv, value strv) { @@ -959,6 +1127,10 @@ ocaml_libvirt_domain_define_xml (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virDomainUndefine. + * In generator.pl this function has signature "dom : unit". + */ + CAMLprim value ocaml_libvirt_domain_undefine (value domv) { @@ -974,6 +1146,10 @@ ocaml_libvirt_domain_undefine (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainCreate. + * In generator.pl this function has signature "dom : unit". + */ + CAMLprim value ocaml_libvirt_domain_create (value domv) { @@ -989,6 +1165,10 @@ ocaml_libvirt_domain_create (value domv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainCreateJob. + * In generator.pl this function has signature "dom, 0U : job from dom". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRDOMAINCREATEJOB extern virJobPtr virDomainCreateJob (virDomainPtr dom, unsigned int flags) __attribute__((weak)); @@ -1025,12 +1205,15 @@ ocaml_libvirt_domain_create_job (value domv) #endif } +/* Automatically generated binding for virDomainAttachDevice. + * In generator.pl this function has signature "dom, string : unit". + */ + CAMLprim value ocaml_libvirt_domain_attach_device (value domv, value strv) { CAMLparam2 (domv, strv); - CAMLlocal1 (rv); virDomainPtr dom = Domain_val (domv); virConnectPtr conn = Connect_domv (domv); char *str = String_val (strv); @@ -1042,12 +1225,15 @@ ocaml_libvirt_domain_attach_device (value domv, value strv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainDetachDevice. + * In generator.pl this function has signature "dom, string : unit". + */ + CAMLprim value ocaml_libvirt_domain_detach_device (value domv, value strv) { CAMLparam2 (domv, strv); - CAMLlocal1 (rv); virDomainPtr dom = Domain_val (domv); virConnectPtr conn = Connect_domv (domv); char *str = String_val (strv); @@ -1059,6 +1245,10 @@ ocaml_libvirt_domain_detach_device (value domv, value strv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virDomainGetAutostart. + * In generator.pl this function has signature "dom : bool". + */ + CAMLprim value ocaml_libvirt_domain_get_autostart (value domv) { @@ -1074,6 +1264,10 @@ ocaml_libvirt_domain_get_autostart (value domv) CAMLreturn (b ? Val_true : Val_false); } +/* Automatically generated binding for virDomainSetAutostart. + * In generator.pl this function has signature "dom, bool : unit". + */ + CAMLprim value ocaml_libvirt_domain_set_autostart (value domv, value bv) { @@ -1091,6 +1285,10 @@ ocaml_libvirt_domain_set_autostart (value domv, value bv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virNetworkFree. + * In generator.pl this function has signature "net : free". + */ + CAMLprim value ocaml_libvirt_network_free (value netv) { @@ -1109,6 +1307,10 @@ ocaml_libvirt_network_free (value netv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virNetworkDestroy. + * In generator.pl this function has signature "net : free". + */ + CAMLprim value ocaml_libvirt_network_destroy (value netv) { @@ -1127,6 +1329,10 @@ ocaml_libvirt_network_destroy (value netv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virNetworkLookupByName. + * In generator.pl this function has signature "conn, string : net". + */ + CAMLprim value ocaml_libvirt_network_lookup_by_name (value connv, value strv) { @@ -1145,6 +1351,10 @@ ocaml_libvirt_network_lookup_by_name (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkLookupByUUID. + * In generator.pl this function has signature "conn, uuid : net". + */ + CAMLprim value ocaml_libvirt_network_lookup_by_uuid (value connv, value uuidv) { @@ -1163,6 +1373,10 @@ ocaml_libvirt_network_lookup_by_uuid (value connv, value uuidv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkLookupByUUIDString. + * In generator.pl this function has signature "conn, string : net". + */ + CAMLprim value ocaml_libvirt_network_lookup_by_uuid_string (value connv, value strv) { @@ -1181,6 +1395,10 @@ ocaml_libvirt_network_lookup_by_uuid_string (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkGetName. + * In generator.pl this function has signature "net : static string". + */ + CAMLprim value ocaml_libvirt_network_get_name (value netv) { @@ -1198,6 +1416,10 @@ ocaml_libvirt_network_get_name (value netv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkGetXMLDesc. + * In generator.pl this function has signature "net, 0 : string". + */ + CAMLprim value ocaml_libvirt_network_get_xml_desc (value netv) { @@ -1216,6 +1438,10 @@ ocaml_libvirt_network_get_xml_desc (value netv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkGetBridgeName. + * In generator.pl this function has signature "net : string". + */ + CAMLprim value ocaml_libvirt_network_get_bridge_name (value netv) { @@ -1234,6 +1460,10 @@ ocaml_libvirt_network_get_bridge_name (value netv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkGetUUID. + * In generator.pl this function has signature "net : uuid". + */ + CAMLprim value ocaml_libvirt_network_get_uuid (value netv) { @@ -1248,10 +1478,16 @@ ocaml_libvirt_network_get_uuid (value netv) NONBLOCKING (r = virNetworkGetUUID (net, uuid)); CHECK_ERROR (r == -1, conn, "virNetworkGetUUID"); - rv = caml_copy_string ((char *) uuid); + /* UUIDs are byte arrays with a fixed length. */ + rv = caml_alloc_string (VIR_UUID_BUFLEN); + memcpy (String_val (rv), uuid, VIR_UUID_BUFLEN); CAMLreturn (rv); } +/* Automatically generated binding for virNetworkGetUUIDString. + * In generator.pl this function has signature "net : uuid string". + */ + CAMLprim value ocaml_libvirt_network_get_uuid_string (value netv) { @@ -1270,6 +1506,10 @@ ocaml_libvirt_network_get_uuid_string (value netv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkUndefine. + * In generator.pl this function has signature "net : unit". + */ + CAMLprim value ocaml_libvirt_network_undefine (value netv) { @@ -1285,6 +1525,10 @@ ocaml_libvirt_network_undefine (value netv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virNetworkCreateXML. + * In generator.pl this function has signature "conn, string : net". + */ + CAMLprim value ocaml_libvirt_network_create_xml (value connv, value strv) { @@ -1303,6 +1547,10 @@ ocaml_libvirt_network_create_xml (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkCreateXMLJob. + * In generator.pl this function has signature "conn, string : job". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRNETWORKCREATEXMLJOB extern virJobPtr virNetworkCreateXMLJob (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -1338,6 +1586,10 @@ ocaml_libvirt_network_create_xml_job (value connv, value strv) #endif } +/* Automatically generated binding for virNetworkDefineXML. + * In generator.pl this function has signature "conn, string : net". + */ + CAMLprim value ocaml_libvirt_network_define_xml (value connv, value strv) { @@ -1356,6 +1608,10 @@ ocaml_libvirt_network_define_xml (value connv, value strv) CAMLreturn (rv); } +/* Automatically generated binding for virNetworkCreate. + * In generator.pl this function has signature "net : unit". + */ + CAMLprim value ocaml_libvirt_network_create (value netv) { @@ -1371,6 +1627,10 @@ ocaml_libvirt_network_create (value netv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virNetworkCreateJob. + * In generator.pl this function has signature "net : job from net". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRNETWORKCREATEJOB extern virJobPtr virNetworkCreateJob (virNetworkPtr net) __attribute__((weak)); @@ -1407,6 +1667,10 @@ ocaml_libvirt_network_create_job (value netv) #endif } +/* Automatically generated binding for virNetworkGetAutostart. + * In generator.pl this function has signature "net : bool". + */ + CAMLprim value ocaml_libvirt_network_get_autostart (value netv) { @@ -1422,6 +1686,10 @@ ocaml_libvirt_network_get_autostart (value netv) CAMLreturn (b ? Val_true : Val_false); } +/* Automatically generated binding for virNetworkSetAutostart. + * In generator.pl this function has signature "net, bool : unit". + */ + CAMLprim value ocaml_libvirt_network_set_autostart (value netv, value bv) { @@ -1439,6 +1707,10 @@ ocaml_libvirt_network_set_autostart (value netv, value bv) CAMLreturn (Val_unit); } +/* Automatically generated binding for virStoragePoolFree. + * In generator.pl this function has signature "pool : free". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLFREE extern int virStoragePoolFree (virStoragePoolPtr pool) __attribute__((weak)); @@ -1474,6 +1746,10 @@ ocaml_libvirt_storage_pool_free (value poolv) #endif } +/* Automatically generated binding for virStoragePoolDestroy. + * In generator.pl this function has signature "pool : free". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLDESTROY extern int virStoragePoolDestroy (virStoragePoolPtr pool) __attribute__((weak)); @@ -1509,6 +1785,10 @@ ocaml_libvirt_storage_pool_destroy (value poolv) #endif } +/* Automatically generated binding for virStoragePoolLookupByName. + * In generator.pl this function has signature "conn, string : pool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLLOOKUPBYNAME extern virStoragePoolPtr virStoragePoolLookupByName (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -1544,6 +1824,10 @@ ocaml_libvirt_storage_pool_lookup_by_name (value connv, value strv) #endif } +/* Automatically generated binding for virStoragePoolLookupByUUID. + * In generator.pl this function has signature "conn, uuid : pool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLLOOKUPBYUUID extern virStoragePoolPtr virStoragePoolLookupByUUID (virConnectPtr conn, const unsigned char *str) __attribute__((weak)); @@ -1579,6 +1863,10 @@ ocaml_libvirt_storage_pool_lookup_by_uuid (value connv, value uuidv) #endif } +/* Automatically generated binding for virStoragePoolLookupByUUIDString. + * In generator.pl this function has signature "conn, string : pool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLLOOKUPBYUUIDSTRING extern virStoragePoolPtr virStoragePoolLookupByUUIDString (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -1614,6 +1902,10 @@ ocaml_libvirt_storage_pool_lookup_by_uuid_string (value connv, value strv) #endif } +/* Automatically generated binding for virStoragePoolGetName. + * In generator.pl this function has signature "pool : static string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLGETNAME extern const char *virStoragePoolGetName (virStoragePoolPtr pool) __attribute__((weak)); @@ -1648,9 +1940,13 @@ ocaml_libvirt_storage_pool_get_name (value poolv) #endif } +/* Automatically generated binding for virStoragePoolGetXMLDesc. + * In generator.pl this function has signature "pool, 0U : string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLGETXMLDESC -extern char *virStoragePoolGetXMLDesc (virStoragePoolPtr pool, int flags) __attribute__((weak)); +extern char *virStoragePoolGetXMLDesc (virStoragePoolPtr pool, unsigned int flags) __attribute__((weak)); #endif #endif @@ -1683,6 +1979,10 @@ ocaml_libvirt_storage_pool_get_xml_desc (value poolv) #endif } +/* Automatically generated binding for virStoragePoolGetUUID. + * In generator.pl this function has signature "pool : uuid". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLGETUUID extern int virStoragePoolGetUUID (virStoragePoolPtr pool, unsigned char *) __attribute__((weak)); @@ -1713,11 +2013,17 @@ ocaml_libvirt_storage_pool_get_uuid (value poolv) NONBLOCKING (r = virStoragePoolGetUUID (pool, uuid)); CHECK_ERROR (r == -1, conn, "virStoragePoolGetUUID"); - rv = caml_copy_string ((char *) uuid); + /* UUIDs are byte arrays with a fixed length. */ + rv = caml_alloc_string (VIR_UUID_BUFLEN); + memcpy (String_val (rv), uuid, VIR_UUID_BUFLEN); CAMLreturn (rv); #endif } +/* Automatically generated binding for virStoragePoolGetUUIDString. + * In generator.pl this function has signature "pool : uuid string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLGETUUIDSTRING extern int virStoragePoolGetUUIDString (virStoragePoolPtr pool, char *) __attribute__((weak)); @@ -1753,9 +2059,13 @@ ocaml_libvirt_storage_pool_get_uuid_string (value poolv) #endif } +/* Automatically generated binding for virStoragePoolCreateXML. + * In generator.pl this function has signature "conn, string, 0U : pool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLCREATEXML -extern virStoragePoolPtr virStoragePoolCreateXML (virConnectPtr conn, const char *str) __attribute__((weak)); +extern virStoragePoolPtr virStoragePoolCreateXML (virConnectPtr conn, const char *str, unsigned int flags) __attribute__((weak)); #endif #endif @@ -1779,7 +2089,7 @@ ocaml_libvirt_storage_pool_create_xml (value connv, value strv) char *str = String_val (strv); virStoragePoolPtr r; - NONBLOCKING (r = virStoragePoolCreateXML (conn, str)); + NONBLOCKING (r = virStoragePoolCreateXML (conn, str, 0)); CHECK_ERROR (!r, conn, "virStoragePoolCreateXML"); rv = Val_pool (r, connv); @@ -1788,9 +2098,13 @@ ocaml_libvirt_storage_pool_create_xml (value connv, value strv) #endif } +/* Automatically generated binding for virStoragePoolDefineXML. + * In generator.pl this function has signature "conn, string, 0U : pool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLDEFINEXML -extern virStoragePoolPtr virStoragePoolDefineXML (virConnectPtr conn, const char *str) __attribute__((weak)); +extern virStoragePoolPtr virStoragePoolDefineXML (virConnectPtr conn, const char *str, unsigned int flags) __attribute__((weak)); #endif #endif @@ -1814,7 +2128,7 @@ ocaml_libvirt_storage_pool_define_xml (value connv, value strv) char *str = String_val (strv); virStoragePoolPtr r; - NONBLOCKING (r = virStoragePoolDefineXML (conn, str)); + NONBLOCKING (r = virStoragePoolDefineXML (conn, str, 0)); CHECK_ERROR (!r, conn, "virStoragePoolDefineXML"); rv = Val_pool (r, connv); @@ -1823,6 +2137,47 @@ ocaml_libvirt_storage_pool_define_xml (value connv, value strv) #endif } +/* Automatically generated binding for virStoragePoolBuild. + * In generator.pl this function has signature "pool, uint : unit". + */ + +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEPOOLBUILD +extern int virStoragePoolBuild (virStoragePoolPtr pool, unsigned int i) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_pool_build (value poolv, value iv) +{ + CAMLparam2 (poolv, iv); +#ifndef HAVE_VIRSTORAGEPOOLBUILD + /* Symbol virStoragePoolBuild not found at compile time. */ + not_supported ("virStoragePoolBuild"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStoragePoolBuild + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStoragePoolBuild); + + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + unsigned int i = Int_val (iv); + int r; + + NONBLOCKING (r = virStoragePoolBuild (pool, i)); + CHECK_ERROR (!r, conn, "virStoragePoolBuild"); + + CAMLreturn (Val_unit); +#endif +} + +/* Automatically generated binding for virStoragePoolUndefine. + * In generator.pl this function has signature "pool : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLUNDEFINE extern int virStoragePoolUndefine (virStoragePoolPtr pool) __attribute__((weak)); @@ -1855,9 +2210,13 @@ ocaml_libvirt_storage_pool_undefine (value poolv) #endif } +/* Automatically generated binding for virStoragePoolCreate. + * In generator.pl this function has signature "pool, 0U : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLCREATE -extern int virStoragePoolCreate (virStoragePoolPtr pool) __attribute__((weak)); +extern int virStoragePoolCreate (virStoragePoolPtr pool, unsigned int flags) __attribute__((weak)); #endif #endif @@ -1880,45 +2239,54 @@ ocaml_libvirt_storage_pool_create (value poolv) virConnectPtr conn = Connect_polv (poolv); int r; - NONBLOCKING (r = virStoragePoolCreate (pool)); + NONBLOCKING (r = virStoragePoolCreate (pool, 0)); CHECK_ERROR (r == -1, conn, "virStoragePoolCreate"); CAMLreturn (Val_unit); #endif } +/* Automatically generated binding for virStoragePoolDelete. + * In generator.pl this function has signature "pool, uint : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS -#ifdef HAVE_VIRSTORAGEPOOLSHUTDOWN -extern int virStoragePoolShutdown (virStoragePoolPtr pool) __attribute__((weak)); +#ifdef HAVE_VIRSTORAGEPOOLDELETE +extern int virStoragePoolDelete (virStoragePoolPtr pool, unsigned int i) __attribute__((weak)); #endif #endif CAMLprim value -ocaml_libvirt_storage_pool_shutdown (value poolv) +ocaml_libvirt_storage_pool_delete (value poolv, value iv) { - CAMLparam1 (poolv); -#ifndef HAVE_VIRSTORAGEPOOLSHUTDOWN - /* Symbol virStoragePoolShutdown not found at compile time. */ - not_supported ("virStoragePoolShutdown"); + CAMLparam2 (poolv, iv); +#ifndef HAVE_VIRSTORAGEPOOLDELETE + /* Symbol virStoragePoolDelete not found at compile time. */ + not_supported ("virStoragePoolDelete"); /* Suppresses a compiler warning. */ (void) caml__frame; #else - /* Check that the symbol virStoragePoolShutdown + /* Check that the symbol virStoragePoolDelete * is in runtime version of libvirt. */ - WEAK_SYMBOL_CHECK (virStoragePoolShutdown); + WEAK_SYMBOL_CHECK (virStoragePoolDelete); virStoragePoolPtr pool = Pool_val (poolv); virConnectPtr conn = Connect_polv (poolv); + unsigned int i = Int_val (iv); int r; - NONBLOCKING (r = virStoragePoolShutdown (pool)); - CHECK_ERROR (r == -1, conn, "virStoragePoolShutdown"); + NONBLOCKING (r = virStoragePoolDelete (pool, i)); + CHECK_ERROR (!r, conn, "virStoragePoolDelete"); CAMLreturn (Val_unit); #endif } +/* Automatically generated binding for virStoragePoolRefresh. + * In generator.pl this function has signature "pool, 0U : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLREFRESH extern int virStoragePoolRefresh (virStoragePoolPtr pool, unsigned int flags) __attribute__((weak)); @@ -1951,6 +2319,10 @@ ocaml_libvirt_storage_pool_refresh (value poolv) #endif } +/* Automatically generated binding for virStoragePoolGetAutostart. + * In generator.pl this function has signature "pool : bool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLGETAUTOSTART extern int virStoragePoolGetAutostart (virStoragePoolPtr pool, int *r) __attribute__((weak)); @@ -1983,6 +2355,10 @@ ocaml_libvirt_storage_pool_get_autostart (value poolv) #endif } +/* Automatically generated binding for virStoragePoolSetAutostart. + * In generator.pl this function has signature "pool, bool : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLSETAUTOSTART extern int virStoragePoolSetAutostart (virStoragePoolPtr pool, int b) __attribute__((weak)); @@ -2017,6 +2393,92 @@ ocaml_libvirt_storage_pool_set_autostart (value poolv, value bv) #endif } +/* Automatically generated binding for virStoragePoolNumOfVolumes. + * In generator.pl this function has signature "pool : int". + */ + +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEPOOLNUMOFVOLUMES +extern int virStoragePoolNumOfVolumes (virStoragePoolPtr pool) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_pool_num_of_volumes (value poolv) +{ + CAMLparam1 (poolv); +#ifndef HAVE_VIRSTORAGEPOOLNUMOFVOLUMES + /* Symbol virStoragePoolNumOfVolumes not found at compile time. */ + not_supported ("virStoragePoolNumOfVolumes"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStoragePoolNumOfVolumes + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStoragePoolNumOfVolumes); + + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + int r; + + NONBLOCKING (r = virStoragePoolNumOfVolumes (pool)); + CHECK_ERROR (r == -1, conn, "virStoragePoolNumOfVolumes"); + + CAMLreturn (Val_int (r)); +#endif +} + +/* Automatically generated binding for virStoragePoolListVolumes. + * In generator.pl this function has signature "pool, int : string array". + */ + +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEPOOLLISTVOLUMES +extern int virStoragePoolListVolumes (virStoragePoolPtr pool, char **const names, int maxnames) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_pool_list_volumes (value poolv, value iv) +{ + CAMLparam2 (poolv, iv); +#ifndef HAVE_VIRSTORAGEPOOLLISTVOLUMES + /* Symbol virStoragePoolListVolumes not found at compile time. */ + not_supported ("virStoragePoolListVolumes"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStoragePoolListVolumes + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStoragePoolListVolumes); + + CAMLlocal2 (rv, strv); + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + int i = Int_val (iv); + char *names[i]; + int r; + + NONBLOCKING (r = virStoragePoolListVolumes (pool, names, i)); + CHECK_ERROR (r == -1, conn, "virStoragePoolListVolumes"); + + rv = caml_alloc (r, 0); + for (i = 0; i < r; ++i) { + strv = caml_copy_string (names[i]); + Store_field (rv, i, strv); + free (names[i]); + } + + CAMLreturn (rv); +#endif +} + +/* Automatically generated binding for virStorageVolFree. + * In generator.pl this function has signature "vol : free". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLFREE extern int virStorageVolFree (virStorageVolPtr vol) __attribute__((weak)); @@ -2052,41 +2514,88 @@ ocaml_libvirt_storage_vol_free (value volv) #endif } +/* Automatically generated binding for virStorageVolDelete. + * In generator.pl this function has signature "vol, uint : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS -#ifdef HAVE_VIRSTORAGEVOLDESTROY -extern int virStorageVolDestroy (virStorageVolPtr vol) __attribute__((weak)); +#ifdef HAVE_VIRSTORAGEVOLDELETE +extern int virStorageVolDelete (virStorageVolPtr vol, unsigned int i) __attribute__((weak)); #endif #endif CAMLprim value -ocaml_libvirt_storage_vol_destroy (value volv) +ocaml_libvirt_storage_vol_delete (value volv, value iv) { - CAMLparam1 (volv); -#ifndef HAVE_VIRSTORAGEVOLDESTROY - /* Symbol virStorageVolDestroy not found at compile time. */ - not_supported ("virStorageVolDestroy"); + CAMLparam2 (volv, iv); +#ifndef HAVE_VIRSTORAGEVOLDELETE + /* Symbol virStorageVolDelete not found at compile time. */ + not_supported ("virStorageVolDelete"); /* Suppresses a compiler warning. */ (void) caml__frame; #else - /* Check that the symbol virStorageVolDestroy + /* Check that the symbol virStorageVolDelete * is in runtime version of libvirt. */ - WEAK_SYMBOL_CHECK (virStorageVolDestroy); + WEAK_SYMBOL_CHECK (virStorageVolDelete); virStorageVolPtr vol = Volume_val (volv); virConnectPtr conn = Connect_volv (volv); + unsigned int i = Int_val (iv); int r; - NONBLOCKING (r = virStorageVolDestroy (vol)); - CHECK_ERROR (r == -1, conn, "virStorageVolDestroy"); - - /* So that we don't double-free in the finalizer: */ - Volume_val (volv) = NULL; + NONBLOCKING (r = virStorageVolDelete (vol, i)); + CHECK_ERROR (!r, conn, "virStorageVolDelete"); CAMLreturn (Val_unit); #endif } +/* Automatically generated binding for virStorageVolLookupByName. + * In generator.pl this function has signature "pool, string : vol from pool". + */ + +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEVOLLOOKUPBYNAME +extern virStorageVolPtr virStorageVolLookupByName (virStoragePoolPtr pool, const char *str) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_vol_lookup_by_name (value poolv, value strv) +{ + CAMLparam2 (poolv, strv); +#ifndef HAVE_VIRSTORAGEVOLLOOKUPBYNAME + /* Symbol virStorageVolLookupByName not found at compile time. */ + not_supported ("virStorageVolLookupByName"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStorageVolLookupByName + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStorageVolLookupByName); + + CAMLlocal2 (rv, connv); + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + char *str = String_val (strv); + virStorageVolPtr r; + + NONBLOCKING (r = virStorageVolLookupByName (pool, str)); + CHECK_ERROR (!r, conn, "virStorageVolLookupByName"); + + connv = Field (poolv, 1); + rv = Val_volume (r, connv); + + CAMLreturn (rv); +#endif +} + +/* Automatically generated binding for virStorageVolLookupByKey. + * In generator.pl this function has signature "conn, string : vol". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLLOOKUPBYKEY extern virStorageVolPtr virStorageVolLookupByKey (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -2122,6 +2631,10 @@ ocaml_libvirt_storage_vol_lookup_by_key (value connv, value strv) #endif } +/* Automatically generated binding for virStorageVolLookupByPath. + * In generator.pl this function has signature "conn, string : vol". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLLOOKUPBYPATH extern virStorageVolPtr virStorageVolLookupByPath (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -2157,9 +2670,54 @@ ocaml_libvirt_storage_vol_lookup_by_path (value connv, value strv) #endif } +/* Automatically generated binding for virStorageVolCreateXML. + * In generator.pl this function has signature "pool, string, 0U : vol from pool". + */ + +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEVOLCREATEXML +extern virStorageVolPtr virStorageVolCreateXML (virStoragePoolPtr pool, const char *str, unsigned int flags) __attribute__((weak)); +#endif +#endif + +CAMLprim value +ocaml_libvirt_storage_vol_create_xml (value poolv, value strv) +{ + CAMLparam2 (poolv, strv); +#ifndef HAVE_VIRSTORAGEVOLCREATEXML + /* Symbol virStorageVolCreateXML not found at compile time. */ + not_supported ("virStorageVolCreateXML"); + /* Suppresses a compiler warning. */ + (void) caml__frame; +#else + /* Check that the symbol virStorageVolCreateXML + * is in runtime version of libvirt. + */ + WEAK_SYMBOL_CHECK (virStorageVolCreateXML); + + CAMLlocal2 (rv, connv); + virStoragePoolPtr pool = Pool_val (poolv); + virConnectPtr conn = Connect_polv (poolv); + char *str = String_val (strv); + virStorageVolPtr r; + + NONBLOCKING (r = virStorageVolCreateXML (pool, str, 0)); + CHECK_ERROR (!r, conn, "virStorageVolCreateXML"); + + connv = Field (poolv, 1); + rv = Val_volume (r, connv); + + CAMLreturn (rv); +#endif +} + +/* Automatically generated binding for virStorageVolGetXMLDesc. + * In generator.pl this function has signature "vol, 0U : string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETXMLDESC -extern char *virStorageVolGetXMLDesc (virStorageVolPtr vol, int flags) __attribute__((weak)); +extern char *virStorageVolGetXMLDesc (virStorageVolPtr vol, unsigned int flags) __attribute__((weak)); #endif #endif @@ -2192,6 +2750,10 @@ ocaml_libvirt_storage_vol_get_xml_desc (value volv) #endif } +/* Automatically generated binding for virStorageVolGetPath. + * In generator.pl this function has signature "vol : string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETPATH extern char *virStorageVolGetPath (virStorageVolPtr vol) __attribute__((weak)); @@ -2227,6 +2789,10 @@ ocaml_libvirt_storage_vol_get_path (value volv) #endif } +/* Automatically generated binding for virStorageVolGetKey. + * In generator.pl this function has signature "vol : static string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETKEY extern const char *virStorageVolGetKey (virStorageVolPtr vol) __attribute__((weak)); @@ -2261,6 +2827,10 @@ ocaml_libvirt_storage_vol_get_key (value volv) #endif } +/* Automatically generated binding for virStorageVolGetName. + * In generator.pl this function has signature "vol : static string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETNAME extern const char *virStorageVolGetName (virStorageVolPtr vol) __attribute__((weak)); @@ -2295,6 +2865,10 @@ ocaml_libvirt_storage_vol_get_name (value volv) #endif } +/* Automatically generated binding for virStoragePoolLookupByVolume. + * In generator.pl this function has signature "vol : pool from vol". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLLOOKUPBYVOLUME extern virStoragePoolPtr virStoragePoolLookupByVolume (virStorageVolPtr vol) __attribute__((weak)); @@ -2331,6 +2905,10 @@ ocaml_libvirt_storage_pool_lookup_by_volume (value volv) #endif } +/* Automatically generated binding for virJobFree. + * In generator.pl this function has signature "job : free". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRJOBFREE extern int virJobFree (virJobPtr job) __attribute__((weak)); @@ -2366,6 +2944,10 @@ ocaml_libvirt_job_free (value jobv) #endif } +/* Automatically generated binding for virJobCancel. + * In generator.pl this function has signature "job : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRJOBCANCEL extern int virJobCancel (virJobPtr job) __attribute__((weak)); @@ -2398,6 +2980,10 @@ ocaml_libvirt_job_cancel (value jobv) #endif } +/* Automatically generated binding for virJobGetNetwork. + * In generator.pl this function has signature "job : net from job". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRJOBGETNETWORK extern virNetworkPtr virJobGetNetwork (virJobPtr job) __attribute__((weak)); @@ -2434,6 +3020,10 @@ ocaml_libvirt_job_get_network (value jobv) #endif } +/* Automatically generated binding for virJobGetDomain. + * In generator.pl this function has signature "job : dom from job". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRJOBGETDOMAIN extern virDomainPtr virJobGetDomain (virJobPtr job) __attribute__((weak)); @@ -2470,40 +3060,6 @@ ocaml_libvirt_job_get_domain (value jobv) #endif } -/* The following functions are unimplemented and always fail. - * See generator.pl '@unimplemented' - */ - -CAMLprim value -ocaml_libvirt_storage_pool_get_info () -{ - failwith ("ocaml_libvirt_storage_pool_get_info is unimplemented"); -} - -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_create_xml () -{ - failwith ("ocaml_libvirt_storage_vol_create_xml is unimplemented"); -} - -CAMLprim value -ocaml_libvirt_storage_vol_get_info () -{ - failwith ("ocaml_libvirt_storage_vol_get_info is unimplemented"); -} - -CAMLprim value -ocaml_libvirt_job_get_info () -{ - failwith ("ocaml_libvirt_job_get_info is unimplemented"); -} - #include "libvirt_c_epilogue.c" /* EOF */