[OS] Add a module type in OS.Types, just defining BLKIF for now. This…

… may not be the right place for it, but it'll do for now. Also define a similar module type for a readonly filesystem in block/direct
mirage · Aug 31, 2011 · cb49ca4 · cb49ca4
1 parent df35c76
commit cb49ca4
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 1 deletion.
diff --git a/lib/block/direct/block.smlpack b/lib/block/direct/block.smlpack
@@ -1,2 +1,3 @@
 Manager
-RO
+Types
+Simple
diff --git a/lib/block/direct/types.ml b/lib/block/direct/types.ml
@@ -0,0 +1,9 @@
+module type RO = sig
+  type t
+  exception Error
+  val create : Manager.interface -> t Lwt.t
+  val iter_s : t -> (string -> unit Lwt.t) -> unit Lwt.t
+
+  val size : t -> string -> int64 Lwt.t
+  val read : t -> string -> Bitstring.t Lwt_stream.t Lwt.t
+end
diff --git a/lib/os/unix/oS.smlpack b/lib/os/unix/oS.smlpack
@@ -6,3 +6,4 @@ Console
 Netif
 Main
 Blkif
+Types
diff --git a/lib/os/unix/types.ml b/lib/os/unix/types.ml
@@ -0,0 +1,9 @@
+module type BLKIF = sig
+  type t
+  type id = string
+
+  val create : (id -> t -> unit Lwt.t) -> unit Lwt.t
+  val destroy : t -> unit Lwt.t
+  val read_page : t -> int64 -> Bitstring.t Lwt.t
+  val sector_size: t -> int
+end