wrap-gzip ( bytes compressed -- gzip )

Vocabulary

compression.gzip.private

Inputs

bytes	an object
compressed	an object

Outputs

gzip

an object

Definition

USING: checksums checksums.crc32 endian math sequences ;

IN: compression.gzip.private

:: wrap-gzip ( bytes compressed -- gzip )
    gzip-header compressed bytes crc32 checksum-bytes
    reverse bytes length 4294967295 bitand 4 >le append 3append
    ;