check-gzip-header ( data -- )

Vocabulary

compression.inflate.private

Inputs

data

an object

Outputs

None

Definition

USING: arrays bitstreams kernel ;

IN: compression.inflate.private

:: check-gzip-header ( data -- )
    8 data read 31 assert= 8 data read 139 assert= 8 data read
    8 assert= 1 data seek 1 data read 1 data read 1 data read
    1 data read 4array data interpret-flag ;