X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=libvirt%2Flibvirt_c.c;h=0200b1c8e9723658a4f4c726226347f016bef45d;hb=edd8d7c54997aa397dbe639d137766f140091428;hp=d60052f56b752977e590c4a1808d3b93e5f8e967;hpb=cf1b8052e9bca746a90dc4380bf4d6b09399adf2;p=virt-top.git diff --git a/libvirt/libvirt_c.c b/libvirt/libvirt_c.c index d60052f..0200b1c 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,6 +547,10 @@ 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)); @@ -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,6 +848,10 @@ 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) { @@ -739,6 +869,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,6 +910,10 @@ 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) { @@ -792,6 +930,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 +969,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 +990,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 +1031,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 +1050,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 +1069,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 +1088,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 +1107,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 +1129,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 +1148,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 +1167,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,6 +1207,10 @@ 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) { @@ -1042,6 +1228,10 @@ 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) { @@ -1059,6 +1249,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 +1268,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 +1289,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 +1311,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 +1333,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 +1355,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 +1377,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 +1399,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 +1420,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 +1442,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 +1464,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 +1482,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 +1510,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 +1529,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 +1551,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 +1590,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 +1612,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 +1631,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 +1671,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 +1690,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 +1711,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 +1750,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 +1789,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 +1828,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 +1867,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 +1906,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,6 +1944,10 @@ ocaml_libvirt_storage_pool_get_name (value poolv) #endif } +/* Automatically generated binding for virStoragePoolGetXMLDesc. + * In generator.pl this function has signature "pool, 0 : string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLGETXMLDESC extern char *virStoragePoolGetXMLDesc (virStoragePoolPtr pool, int flags) __attribute__((weak)); @@ -1683,6 +1983,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 +2017,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,6 +2063,10 @@ ocaml_libvirt_storage_pool_get_uuid_string (value poolv) #endif } +/* Automatically generated binding for virStoragePoolCreateXML. + * In generator.pl this function has signature "conn, string : pool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLCREATEXML extern virStoragePoolPtr virStoragePoolCreateXML (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -1788,6 +2102,10 @@ 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 : pool". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLDEFINEXML extern virStoragePoolPtr virStoragePoolDefineXML (virConnectPtr conn, const char *str) __attribute__((weak)); @@ -1823,6 +2141,10 @@ ocaml_libvirt_storage_pool_define_xml (value connv, value strv) #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,6 +2177,10 @@ ocaml_libvirt_storage_pool_undefine (value poolv) #endif } +/* Automatically generated binding for virStoragePoolCreate. + * In generator.pl this function has signature "pool : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLCREATE extern int virStoragePoolCreate (virStoragePoolPtr pool) __attribute__((weak)); @@ -1887,6 +2213,10 @@ ocaml_libvirt_storage_pool_create (value poolv) #endif } +/* Automatically generated binding for virStoragePoolShutdown. + * In generator.pl this function has signature "pool : unit". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEPOOLSHUTDOWN extern int virStoragePoolShutdown (virStoragePoolPtr pool) __attribute__((weak)); @@ -1919,6 +2249,10 @@ ocaml_libvirt_storage_pool_shutdown (value poolv) #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 +2285,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 +2321,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 +2359,10 @@ ocaml_libvirt_storage_pool_set_autostart (value poolv, value bv) #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,6 +2398,10 @@ ocaml_libvirt_storage_vol_free (value volv) #endif } +/* Automatically generated binding for virStorageVolDestroy. + * In generator.pl this function has signature "vol : free". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLDESTROY extern int virStorageVolDestroy (virStorageVolPtr vol) __attribute__((weak)); @@ -2087,6 +2437,51 @@ ocaml_libvirt_storage_vol_destroy (value volv) #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 +2517,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,6 +2556,51 @@ 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, 0 : vol from pool". + */ + +#ifdef HAVE_WEAK_SYMBOLS +#ifdef HAVE_VIRSTORAGEVOLCREATEXML +extern virStorageVolPtr virStorageVolCreateXML (virStoragePoolPtr pool, const char *str, 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, 0 : string". + */ + #ifdef HAVE_WEAK_SYMBOLS #ifdef HAVE_VIRSTORAGEVOLGETXMLDESC extern char *virStorageVolGetXMLDesc (virStorageVolPtr vol, int flags) __attribute__((weak)); @@ -2192,6 +2636,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 +2675,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 +2713,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 +2751,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 +2791,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 +2830,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 +2866,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 +2906,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,22 +2946,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_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"); -} - #include "libvirt_c_epilogue.c" /* EOF */