unikernel/duniverse/mirage/lib/devices/block.mli

@@ -0,0 +1,37 @@
+open Functoria.DSL
+
+type block
+
+val block : block typ
+
+val generic_block :
+  ?group:string ->
+  ?key:[ `BlockFile | `Ramdisk | `XenstoreId ] value ->
+  string ->
+  block impl
+
+val tar_kv_ro : block impl -> Kv.ro impl
+val fat_ro : block impl -> Kv.ro impl
+val ramdisk : string -> block impl
+val block_of_xenstore_id : string -> block impl
+val block_of_file : string -> block impl
+val block_conf : string -> block device
+
+val docteur :
+  ?mode:[ `Fast | `Light ] ->
+  ?name:string key ->
+  ?output:string key ->
+  ?analyze:bool runtime_arg ->
+  ?branch:string ->
+  ?extra_deps:string list ->
+  string ->
+  Kv.ro impl
+
+type block_t = { filename : string; number : int }
+
+val all_blocks : (string, block_t) Hashtbl.t
+val chamelon : program_block_size:int runtime_arg -> (block -> Kv.rw) impl
+val tar_kv_rw : block impl -> Kv.rw impl
+
+val ccm_block :
+  ?nonce_len:int -> string option runtime_arg -> (block -> block) impl