recover-index ( index -- index' )

Vocabulary

bitcask.private

Inputs

index

an object

Outputs

index'

an object

Definition

USING: assocs endian io kernel math sequences serialize ;

IN: bitcask.private

: recover-index ( index -- index' )
    dup values [ maximum seek-absolute seek-input ] unless-empty 
    [
        tell-input 4 read [
            be> 4 read be> [ read bytes>object ] dip
            [ pick delete-at drop ]
            [ [ pick set-at ] [ seek-relative seek-input ] bi* ]
            if-zero t
        ] [ drop f ] if*
    ] loop ;