check-gzip-header ( data -- )

Vocabulary

compression.inflate.private

Inputs

data

an object

Outputs

None

Definition

USING: accessors bitstreams kernel ;

IN: compression.inflate.private

:: check-gzip-header ( data -- )
    data byte-pos>> :> start 8 data read 31 assert= 8 data read
    139 assert= 8 data read 8 assert= 8 data read
    start data interpret-flag ;