read-cluster ( -- offsets blobs )

Vocabulary

zim

Inputs

None

Outputs

offsets	an object
blobs	an object

Definition

USING: combinators io kernel math math.bitwise ;

IN: zim

: read-cluster ( -- offsets blobs )
    read1 [ 5 bit? f assert= ] [ 4 bits ] bi {
        { 1 [ read-cluster-none ] }
        { 2 [ "zlib not supported" throw ] }
        { 3 [ "bzip2 not supported" throw ] }
        { 4 [ "lzma not supported" throw ] }
        { 5 [ read-cluster-zstd ] }
    } case ;