interpret-flag ( flg data -- )

Vocabulary

compression.inflate.private

Inputs

flg	an object
data	an object

Outputs

None

Definition

USING: bitstreams kernel sequences ;

IN: compression.inflate.private

:: interpret-flag ( flg data -- )
    27 data seek flg first 1 = [ 8 data read data seek ] when
    flg second 1 = [ data read-until-terminated drop ] when
    flg fourth 1 = [ data read-until-terminated drop ] when
    flg second 1 = [ 1 data read drop ] when ;