{ name => "virConnectGetCapabilities", sig => "conn : string" },
{ name => "virDomainCreateLinux", sig => "conn, string, 0U : dom" },
- { name => "virDomainCreateLinuxJob", sig => "conn, string, 0U : job" },
+ { name => "virDomainCreateLinuxJob",
+ sig => "conn, string, 0U : job", weak => 1 },
{ name => "virDomainFree", sig => "dom : free" },
{ name => "virDomainDestroy", sig => "dom : free" },
{ name => "virDomainLookupByName", sig => "conn, string : dom" },
{ name => "virDomainGetUUIDString", sig => "dom : uuid string" },
{ name => "virDomainGetMaxVcpus", sig => "dom : int" },
{ name => "virDomainSave", sig => "dom, string : unit" },
- { name => "virDomainSaveJob", sig => "dom, string : job from dom" },
+ { name => "virDomainSaveJob",
+ sig => "dom, string : job from dom", weak => 1 },
{ name => "virDomainRestore", sig => "conn, string : unit" },
- { name => "virDomainRestoreJob", sig => "conn, string : job" },
+ { name => "virDomainRestoreJob",
+ sig => "conn, string : job", weak => 1 },
{ name => "virDomainCoreDump", sig => "dom, string, 0 : unit" },
- { name => "virDomainCoreDumpJob", sig => "dom, string, 0 : job from dom" },
+ { name => "virDomainCoreDumpJob",
+ sig => "dom, string, 0 : job from dom", weak => 1 },
{ name => "virDomainSuspend", sig => "dom : unit" },
{ name => "virDomainResume", sig => "dom : unit" },
{ name => "virDomainShutdown", sig => "dom : unit" },
{ name => "virDomainDefineXML", sig => "conn, string : dom" },
{ name => "virDomainUndefine", sig => "dom : unit" },
{ name => "virDomainCreate", sig => "dom : unit" },
- { name => "virDomainCreateJob", sig => "dom, 0U : job from dom" },
+ { name => "virDomainCreateJob",
+ sig => "dom, 0U : job from dom", weak => 1 },
{ name => "virDomainAttachDevice", sig => "dom, string : unit" },
{ name => "virDomainDetachDevice", sig => "dom, string : unit" },
{ name => "virDomainGetAutostart", sig => "dom : bool" },
{ name => "virNetworkGetUUIDString", sig => "net : uuid string" },
{ name => "virNetworkUndefine", sig => "net : unit" },
{ name => "virNetworkCreateXML", sig => "conn, string : net" },
- { name => "virNetworkCreateXMLJob", sig => "conn, string : job" },
+ { name => "virNetworkCreateXMLJob",
+ sig => "conn, string : job", weak => 1 },
{ name => "virNetworkDefineXML", sig => "conn, string : net" },
{ name => "virNetworkCreate", sig => "net : unit" },
- { name => "virNetworkCreateJob", sig => "net : job from net" },
+ { name => "virNetworkCreateJob",
+ sig => "net : job from net", weak => 1 },
{ name => "virNetworkGetAutostart", sig => "net : bool" },
{ name => "virNetworkSetAutostart", sig => "net, bool : unit" },
{ name => "virStorageVolFree", sig => "vol : free", weak => 1 },
{ name => "virStorageVolDestroy", sig => "vol : free", weak => 1 },
-# { name => "virStorageVolLookupByName", XXX see libvir-list posting
-# sig => "pool, string : vol", weak => 1 },
+ { name => "virStorageVolLookupByName",
+ sig => "pool, string : vol from pool", weak => 1 },
{ name => "virStorageVolLookupByKey",
sig => "conn, string : vol", weak => 1 },
{ name => "virStorageVolLookupByPath",
sig => "conn, string : vol", weak => 1 },
-# { name => "virStorageVolCreateXML",
-# sig => "pool, string : vol", weak => 1 }, XXX
+ { name => "virStorageVolCreateXML",
+ sig => "pool, string, 0 : vol from pool", weak => 1 },
{ name => "virStorageVolGetXMLDesc",
sig => "vol, 0 : string", weak => 1 },
{ name => "virStorageVolGetPath",
# written in 'libvirt_c_oneoffs.c'.
my @unimplemented = (
- "ocaml_libvirt_storage_pool_get_info",
- "ocaml_libvirt_storage_vol_lookup_by_name", # XXX see above
- "ocaml_libvirt_storage_vol_create_xml", # XXX see above
- "ocaml_libvirt_storage_vol_get_info",
- "ocaml_libvirt_job_get_info",
);
#----------------------------------------------------------------------
NONBLOCKING (r = $c_name ($1, uuid));
CHECK_ERROR (r == -1, conn, \"$c_name\");
- 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);
"
} elsif ($sig =~ /^(\w+) : uuid string$/) {
die "cannot convert c_name $c_name to c_external_name"
}
+ print F <<END;
+/* Automatically generated binding for $c_name.
+ * In generator.pl this function has signature "$sig".
+ */
+
+END
+
# Generate a full function prototype if the function is weak.
my $have_name = "HAVE_" . uc ($c_name);
if ($is_weak) {
# Unimplemented functions.
-printf "$0: warning: %d unimplemented functions\n", scalar (@unimplemented);
-
if (@unimplemented) {
+ printf "$0: warning: %d unimplemented functions\n", scalar (@unimplemented);
+
print F <<'END';
/* The following functions are unimplemented and always fail.
* See generator.pl '@unimplemented'