<bitcask> ( path -- bitcask )

Vocabulary

bitcask

Inputs

path

an object

Outputs

bitcask

an object

Definition

USING: bitcask.private io.directories io.encodings.binary
io.files kernel sequences ;

IN: bitcask

:: <bitcask> ( path -- bitcask )
    path dup touch-file path ".idx" append dup touch-file binary
    [ read-index ] with-file-reader path binary
    [ recover-index ] with-file-reader bitcask boa ;