compress-dynamic ( byte-array -- byte-array' )

byte-array

Outputs

byte-array'

Word description
Compresses bytes into a gzip member using dynamic Huffman codes. The result includes the gzip header, checksum, and uncompressed size.

Definition

USING: accessors compression.gzip.private kernel sequences
sequences.deep ;

IN: compression.gzip

: compress-dynamic ( byte-array -- byte-array' )
dup empty?
[ compress-fixed ] [
dup (compress-dynamic) [ deflate-block? ] deep-filter
flatten-blocks underlying>> wrap-gzip
] if ;