package octez-l2-libs
This module contains functions in the Lwt
monad.
val find :
deref:('ptr -> ('content, 'ptr) cell option Lwt.t) ->
cell_ptr:'ptr ->
target_index:Z.t ->
('content, 'ptr) cell option Lwt.t
find ~deref ~cell_ptr ~target_index
returns Some cell
where cell
is the cell at position target_index
. This is done by dereferencing the last pointer of the path returned by back_path
.
val back_path :
deref:('ptr -> ('content, 'ptr) cell option Lwt.t) ->
cell_ptr:'ptr ->
target_index:Z.t ->
'ptr list option Lwt.t
back_path ~deref ~cell_ptr ~target_index
returns Some path
where path
is a sequence of back pointers to traverse to go from cell_ptr
to the cell at position target_index
in the sequence denoted by (deref, cell_ptr)
.
val valid_back_path :
equal_ptr:('ptr -> 'ptr -> bool) ->
deref:('ptr -> ('content, 'ptr) cell option Lwt.t) ->
cell_ptr:'ptr ->
target_ptr:'ptr ->
'ptr list ->
bool Lwt.t
valid_back_path ~equal_ptr ~deref ~cell_ptr ~target_ptr path
returns true
iff path
is a valid and minimal path from cell_ptr
to target_ptr
in the skip list denoted by (deref, cell_ptr)
.
val search :
deref:('ptr -> ('content, 'ptr) cell option Lwt.t) ->
compare:('content -> int) ->
cell:('content, 'ptr) cell ->
('content, 'ptr) search_result Lwt.t
search ~deref ~compare ~cell
allows to find a cell of the skip list according to its content. This function assumes that the content of the cells is in increasing order according to the ordering defined by the function compare
. In other words, this function assumes that compare
is a function that returns a negative integer for cells before the target and a positive integer for cells after the target. The value returned by this function is {rev_path; last_cell}
such that.
rev_path = []
if and only ifcompare (content cell) > 0
- For all the cases below, if there is a path from cell
A
to cellB
,rev_path
contains the list of cells to go fromB
toA
. Consequently, the first element ofrev_path
isB
. Except forNearest_lower
, this path is a minimal path.
last_pointer = Deref_returned_none
ifderef
fails to associate a cell to a pointer during the search. In that case,rev_path
is a path fromcell
tocandidate
wherecandidate
is the last cell for which candidate did not fail and such thatcompare (content (candidate)) > 0
.
last_pointer = No_exact_or_lower_ptr
if for all cell of the skip list,compare (content cell) > 0
. In that case,rev_path
is a path fromcell
to the genesis cell.
last_pointer = Found target
if there is a celltarget
such thatcompare (content target) = 0
and a path fromcell
totarget
. In that case,rev_path
is the minimal path fromcell
totarget
.
last_pointer = Nearest_lower {lower;upper}
if there is no cell in the skip list such thatcompare (content cell) = 0
. In that caselower
is the unique cell such thatcompare (content lower) < 0
and for all other cellscandidate
such thatcompare (content candidate) < 0
then there is a path fromlower
tocandidate
.upper
, if it exists is the successor cell tolower
, i.e.deref ((back_pointer upper) 0) = Some lower
. In that case,rev_path
is a path fromcell
tolower
. This path is *NOT* minimal but almost. The path is minimal fromcell
toupper=Some up
. By minimality, the path is logarithmic. Consequently, since there is a direct pointer fromup
tolower
, the passe tolower
is also logarithmic.