}
CAMLprim value
-ocaml_libvirt_domain_lookup_by_uuid_string (value connv, value uuidv)
-{
- CAMLparam2 (connv, uuidv);
- CAMLlocal1 (rv);
- virConnectPtr conn = Connect_val (connv);
- char *uuid = String_val (uuidv);
- virDomainPtr r;
-
- NONBLOCKING (r = virDomainLookupByUUIDString (conn, uuid));
- CHECK_ERROR (!r, conn, "virDomainLookupByUUIDString");
-
- rv = Val_domain (r, connv);
- CAMLreturn (rv);
-}
-
-CAMLprim value
-ocaml_libvirt_domain_lookup_by_name (value connv, value namev)
-{
- CAMLparam2 (connv, namev);
- CAMLlocal1 (rv);
- virConnectPtr conn = Connect_val (connv);
- char *name = String_val (namev);
- virDomainPtr r;
-
- NONBLOCKING (r = virDomainLookupByName (conn, name));
- CHECK_ERROR (!r, conn, "virDomainLookupByName");
-
- rv = Val_domain (r, connv);
- CAMLreturn (rv);
-}
-
-CAMLprim value
ocaml_libvirt_domain_destroy (value domv)
{
CAMLparam1 (domv);
}
CAMLprim value
-ocaml_libvirt_domain_get_autostart (value domv)
-{
- CAMLparam1 (domv);
- virDomainPtr dom = Domain_val (domv);
- virConnectPtr conn = Connect_domv (domv);
- int r, autostart;
-
- NONBLOCKING (r = virDomainGetAutostart (dom, &autostart));
- CHECK_ERROR (r == -1, conn, "virDomainGetAutostart");
-
- CAMLreturn (autostart ? Val_true : Val_false);
-}
-
-CAMLprim value
-ocaml_libvirt_domain_set_autostart (value domv, value autostartv)
-{
- CAMLparam2 (domv, autostartv);
- virDomainPtr dom = Domain_val (domv);
- virConnectPtr conn = Connect_domv (domv);
- int r, autostart = autostartv == Val_true ? 1 : 0;
-
- NONBLOCKING (r = virDomainSetAutostart (dom, autostart));
- CHECK_ERROR (r == -1, conn, "virDomainSetAutostart");
-
- CAMLreturn (Val_unit);
-}
-
-CAMLprim value
ocaml_libvirt_domain_set_vcpus (value domv, value nvcpusv)
{
CAMLparam2 (domv, nvcpusv);
}
CAMLprim value
-ocaml_libvirt_network_lookup_by_name (value connv, value namev)
-{
- CAMLparam2 (connv, namev);
- CAMLlocal1 (rv);
- virConnectPtr conn = Connect_val (connv);
- char *name = String_val (namev);
- virNetworkPtr r;
-
- NONBLOCKING (r = virNetworkLookupByName (conn, name));
- CHECK_ERROR (!r, conn, "virNetworkLookupByName");
-
- rv = Val_network (r, connv);
- CAMLreturn (rv);
-}
-
-CAMLprim value
ocaml_libvirt_network_lookup_by_uuid (value connv, value uuidv)
{
CAMLparam2 (connv, uuidv);
}
CAMLprim value
-ocaml_libvirt_network_lookup_by_uuid_string (value connv, value uuidv)
-{
- CAMLparam2 (connv, uuidv);
- CAMLlocal1 (rv);
- virConnectPtr conn = Connect_val (connv);
- char *uuid = String_val (uuidv);
- virNetworkPtr r;
-
- NONBLOCKING (r = virNetworkLookupByUUIDString (conn, uuid));
- CHECK_ERROR (!r, conn, "virNetworkLookupByUUIDString");
-
- rv = Val_network (r, connv);
- CAMLreturn (rv);
-}
-
-CAMLprim value
ocaml_libvirt_network_create_xml (value connv, value xmlv)
{
CAMLparam2 (connv, xmlv);
CAMLreturn (rv);
}
-CAMLprim value
-ocaml_libvirt_network_get_autostart (value netv)
-{
- CAMLparam1 (netv);
- virNetworkPtr net = Network_val (netv);
- virConnectPtr conn = Connect_netv (netv);
- int r, autostart;
-
- NONBLOCKING (r = virNetworkGetAutostart (net, &autostart));
- CHECK_ERROR (r == -1, conn, "virNetworkGetAutostart");
-
- CAMLreturn (autostart ? Val_true : Val_false);
-}
-
-CAMLprim value
-ocaml_libvirt_network_set_autostart (value netv, value autostartv)
-{
- CAMLparam2 (netv, autostartv);
- virNetworkPtr net = Network_val (netv);
- virConnectPtr conn = Connect_netv (netv);
- int r, autostart = autostartv == Val_true ? 1 : 0;
-
- NONBLOCKING (r = virNetworkSetAutostart (net, autostart));
- CHECK_ERROR (r == -1, conn, "virNetworkSetAutostart");
-
- CAMLreturn (Val_unit);
-}
-
/*----------------------------------------------------------------------*/
CAMLprim value