(compress-dynamic) ( lit-seq -- bit-arr-seq )

Vocabulary

compression.gzip.private

Inputs

lit-seq

an object

Outputs

bit-arr-seq

an object

Definition

USING: arrays kernel math namespaces sequences ;

IN: compression.gzip.private

: (compress-dynamic) ( lit-seq -- bit-arr-seq )
    [
        dup compress-lz77 vec-to-lits { 256 } append lit-vec set
        lit-vec get build-dicts dist-dict set lit-dict set
        lit-code-lens maximum 16 < clen-seq maximum 8 < and [
            drop
            dynamic-headers clen-bits compressed-lens lit-vec
            get vec-to-codes deflate-block boa
        ] [ halves [ (compress-dynamic) ] bi@ 2array ] if
    ] with-scope ;