Add VDI.export_changed_blocks call

Signed-off-by: Gabor Igloi <gabor.igloi@citrix.com>
xapi-project · Aug 1, 2017 · 074a571 · 074a571
1 parent 07266c3
commit 074a571
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/storage/storage_interface.ml b/storage/storage_interface.ml
@@ -413,6 +413,9 @@ module VDI = struct
   (** [data_destroy dbg sr vdi] deletes the data of the snapshot [vdi] without deleting its changed block tracking metadata *)
   external data_destroy: dbg:debug_info -> sr:sr -> vdi:vdi -> unit = ""
 
+  (** [export_changed_blocks dbg sr vdi_from vdi_to] returns the blocks that have changed between [vdi_from] and [vdi_to] as a base64-encoded bitmap string *)
+  external export_changed_blocks: dbg:debug_info -> sr:sr -> vdi_from:vdi -> vdi_to:vdi -> string = ""
+
 end
 
 (** [get_by_name task name] returns a vdi with [name] (which may be in any SR) *)

diff --git a/storage/storage_skeleton.ml b/storage/storage_skeleton.ml
@@ -79,6 +79,7 @@ module VDI = struct
   let enable_cbt ctx ~dbg ~sr ~vdi = u "VDI.enable_cbt"
   let disable_cbt ctx ~dbg ~sr ~vdi = u "VDI.disable_cbt"
   let data_destroy ctx ~dbg ~sr ~vdi = u "VDI.data_destroy"
+  let export_changed_blocks ctx ~dbg ~sr ~vdi_from ~vdi_to = u "VDI.export_changed_blocks"
 end
 
 let get_by_name ctx ~dbg ~name = u "get_by_name"