X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=libvirt%2Flibvirt.mli;fp=libvirt%2Flibvirt.mli;h=ff8d4ca49b891aeb15e583e77a884be7faceb738;hb=8e2a0e31bd1cf6af2d8eab0fa7582c52a3b2d9ab;hp=77e110e6dfc1c37bc1676b66ea5a5a0ac6111e2c;hpb=2c958f377633ec534d485c261e2380182b05adb9;p=ocaml-libvirt.git

diff --git a/libvirt/libvirt.mli b/libvirt/libvirt.mli
index 77e110e..ff8d4ca 100644
--- a/libvirt/libvirt.mli
+++ b/libvirt/libvirt.mli
@@ -534,6 +534,12 @@ sig
     params : typed_param array;
   }
 
+  type xml_desc_flag =
+    | XmlSecure			(* dump security sensitive information too *)
+    | XmlInactive		(* dump inactive domain information *)
+    | XmlUpdateCPU		(* update guest CPU requirements according to host CPU *)
+    | XmlMigratable		(* dump XML suitable for migration *)
+
   val max_peek : [>`R] t -> int
     (** Maximum size supported by the {!block_peek} and {!memory_peek}
 	functions.  If you want to peek more than this then you must
@@ -598,6 +604,9 @@ sig
     (** Get information about a domain. *)
   val get_xml_desc : [>`R] t -> xml
     (** Get the XML description of a domain. *)
+  val get_xml_desc_flags : [>`W] t -> xml_desc_flag list -> xml
+    (** Get the XML description of a domain, with the possibility
+	to specify flags. *)
   val get_scheduler_type : [>`R] t -> string * int
     (** Get the scheduler type. *)
   val get_scheduler_parameters : [>`R] t -> int -> sched_param array