X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fdiskimage_utils.mli;h=0a46197862e2892a931fcca2461d46fa204130fc;hb=4cb1be48118971ebe749c4030f871aa25d26c520;hp=07ad0794475b78420ef6dc401958ea64139455e0;hpb=3844c0e3ba0eb0e07b7ecabe7794def7dd622c2b;p=virt-df.git

diff --git a/lib/diskimage_utils.mli b/lib/diskimage_utils.mli
index 07ad079..0a46197 100644
--- a/lib/diskimage_utils.mli
+++ b/lib/diskimage_utils.mli
@@ -26,27 +26,31 @@ class virtual device :
   object
     method virtual name : string
     method virtual size : int64
-    method close : unit -> unit
-    method virtual read : int64 -> int -> string
+    method read : int64 -> int -> string
     method read_bitstring : int64 -> int -> Bitmatch.bitstring
+    method virtual blocksize : int
+    method virtual mapblock : int64 -> (device * int64) list
   end
 
-class block_device : string ->
+class block_device : string -> int ->
   object
     method name : string
     method size : int64
-    method close : unit -> unit
     method read : int64 -> int -> string
     method read_bitstring : int64 -> int -> Bitmatch.bitstring
+    method blocksize : int
+    method mapblock : int64 -> (device * int64) list
+    method close : unit -> unit
   end
 
-class offset_device : string -> int64 -> int64 -> device ->
+class offset_device : string -> int64 -> int64 -> int -> device ->
   object
     method name : string
     method size : int64
-    method close : unit -> unit
     method read : int64 -> int -> string
     method read_bitstring : int64 -> int -> Bitmatch.bitstring
+    method blocksize : int
+    method mapblock : int64 -> (device * int64) list
   end
 
 val null_device : device
@@ -60,7 +64,7 @@ type machine = {
 
 and disk = {
   d_name : string;
-  d_dev : device;
+  d_dev : block_device;
   d_content : disk_content;
 }