check-zlib-header ( data -- )

Vocabulary

compression.inflate.private

Inputs

data

an object

Outputs

None

Definition

USING: bitstreams endian kernel math ;

IN: compression.inflate.private

:: check-zlib-header ( data -- )
    16 data peek 2 >le be> 31 mod 0 assert= 4 data read
    8 assert= 4 data read 7 <= [ bad-zlib-header ] unless
    5 data seek 1 data read 0 assert= 2 data seek ;