sig
exception Inactive
class type blockmap_t =
object
method active : bool
method commit : < > -> unit
method dump : string
method fill_blockmap : int64 -> string -> unit
method free : int64 list -> < > -> unit
method get_changes : < > -> (int64 * string) list
method has_free_blocks : bool
method id : int
method identity : string
method inactivate : unit -> unit
method keep : int64 list -> < > -> unit
method n_free : int64
method n_trans : int64
method n_used : int64
method reserve : int -> < > -> int64 list
method rollback : < > -> unit
method size : int64
end
class blockmap : id:int -> identity:string -> size:int64 -> blockmap_t
val blockmap_from_db_e :
id:int ->
identity:string ->
size:int64 ->
Pfs_db.ro_async_connection ->
Unixqueue.event_system -> Nn_blockmap.blockmap_t Uq_engines.engine
end
