Add VDI.export_changed_blocks SMAPIv2 function

And add the call to Storage_impl_test with an "assert false" stub, as we
don't have tests for this call in Storage_impl_test at the moment, so it
shouldn't get called.

Signed-off-by: Gabor Igloi <[email protected]>

Author: gaborigloi

ocaml/xapi/storage_access.ml

@@ -847,6 +847,22 @@ module SMAPIv1 = struct
     let data_destroy context =
       call_cbt_function context ~f:Sm.vdi_data_destroy ~f_name:"VDI.data_destroy"
 
+    let export_changed_blocks context ~dbg ~sr ~vdi_from ~vdi_to =
+      try
+        Server_helpers.exec_with_new_task "VDI.export_changed_blocks" ~subtask_of:(Ref.of_string dbg)
+          (fun __context ->
+             let vdi_from = find_vdi ~__context sr vdi_from |> fst in
+             for_vdi ~dbg ~sr ~vdi:vdi_to "VDI.export_changed_blocks"
+               (fun device_config _type sr vdi_to ->
+                  Sm.vdi_export_changed_blocks device_config _type sr ~vdi_from ~vdi_to
+               ))
+      with
+      | Smint.Not_implemented_in_backend ->
+        raise (Unimplemented "VDI.export_changed_blocks")
+      | Api_errors.Server_error(code, params) ->
+        raise (Backend_error(code, params))
+      | Sm.MasterOnly -> redirect sr
+
   end
 
   let get_by_name context ~dbg ~name = assert false

ocaml/xapi/storage_impl.ml

@@ -592,6 +592,10 @@ module Wrapper = functor(Impl: Server_impl) -> struct
            Impl.VDI.disable_cbt context ~dbg ~sr ~vdi
         )
 
+    let export_changed_blocks context ~dbg ~sr ~vdi_from ~vdi_to =
+      info "VDI.export_changed_blocks dbg:%s sr:%s vdi_from:%s vdi_to:%s" dbg sr vdi_from vdi_to;
+      Impl.VDI.export_changed_blocks context ~dbg ~sr ~vdi_from ~vdi_to
+
   end
 
   let get_by_name context ~dbg ~name =

ocaml/xapi/storage_impl_test.ml

@@ -169,6 +169,7 @@ module Debug_print_impl = struct
     let enable_cbt context ~dbg ~sr ~vdi = assert false
     let disable_cbt context ~dbg ~sr ~vdi = assert false
     let data_destroy context ~dbg ~sr ~vdi = assert false
+    let export_changed_blocks context ~dbg ~sr ~vdi_from ~vdi_to = assert false
 
 
   end

ocaml/xapi/storage_mux.ml

@@ -264,6 +264,9 @@ module Mux = struct
     let data_destroy context ~dbg ~sr ~vdi =
       let module C = Client(struct let rpc = of_sr sr end) in
       C.VDI.data_destroy ~dbg ~sr ~vdi
+    let export_changed_blocks context ~dbg ~sr ~vdi_from ~vdi_to =
+      let module C = Client(struct let rpc = of_sr sr end) in
+      C.VDI.export_changed_blocks ~dbg ~sr ~vdi_from ~vdi_to
 
   end