read-blob-index ( blob-number cluster-number zim -- blob )

Vocabulary

zim

Inputs

blob-number	an object
cluster-number	an object
zim	an object

Outputs

blob

an object

Definition

USING: accessors assocs io kernel sequences ;

IN: zim

: read-blob-index ( blob-number cluster-number zim -- blob )
    [ cluster-cache>> ] keep [
        clusters>> nth seek-absolute seek-input
        read-cluster zim-cluster boa
    ] curry cache nth ;