Merge pull request #162 from gaborigloi/feature/CBT_merge

Merge first part of CBT feature branch into master

Author: robhoes

storage/storage_interface.ml

@@ -404,6 +404,12 @@ module VDI = struct
 	(** [remove_from_sm_config dbg sr vdi key] remove [key] from [vdi] sm-config *)
 	external remove_from_sm_config: dbg:debug_info -> sr:sr -> vdi:vdi -> key:string -> unit = ""
 
+  (** [enable_cbt dbg sr vdi] enables changed block tracking for [vdi] *)
+  external enable_cbt: dbg:debug_info -> sr:sr -> vdi:vdi -> unit = ""
+
+  (** [disable_cbt dbg sr vdi] disables changed block tracking for [vdi] *)
+  external disable_cbt: dbg:debug_info -> sr:sr -> vdi:vdi -> unit = ""
+
 end
 
 (** [get_by_name task name] returns a vdi with [name] (which may be in any SR) *)

storage/storage_skeleton.ml

@@ -76,6 +76,8 @@ module VDI = struct
   let compose ctx ~dbg ~sr ~vdi1 ~vdi2 = u "VDI.compose"
   let add_to_sm_config ctx ~dbg ~sr ~vdi ~key ~value = u "VDI.add_to_sm_config"
   let remove_from_sm_config ctx ~dbg ~sr ~vdi ~key = u "VDI.remove_from_sm_config"
+  let enable_cbt ctx ~dbg ~sr ~vdi = u "VDI.enable_cbt"
+  let disable_cbt ctx ~dbg ~sr ~vdi = u "VDI.disable_cbt"
 end
 
 let get_by_name ctx ~dbg ~name = u "get_by_name"