sig
exception Inactive
type reserve_info = { ri_blocks : Nn_db.allocinfo list; }
val create_reserve_info :
?blocks:Nn_db.allocinfo list -> unit -> Nn_blockmap.reserve_info
type triv_range = int64 * int64
val string_of_trl : Nn_blockmap.triv_range list -> string
class type blockmap_t =
object
method active : bool
method commit : < > -> unit
method dump : string
method fill_blockmap : int64 -> string -> unit
method free : Nn_blockmap.triv_range 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 : Nn_blockmap.triv_range list -> < > -> unit
method n_free : int64
method n_trans : int64
method n_used : int64
method reserve :
int ->
< > -> Nn_blockmap.reserve_info -> Nn_blockmap.triv_range 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