inflate-raw ( bitstream -- bytes )

Vocabulary

compression.inflate.private

Inputs

bitstream

an object

Outputs

bytes

an object

Definition

USING: accessors bitstreams kernel math math.bitwise sequences ;

IN: compression.inflate.private

:: inflate-raw ( bitstream -- bytes )
    8 bitstream align 16 bitstream read :> len 16 bitstream read
    :> nlen len nlen + 16 >signed -1 assert=
    bitstream byte-pos>> bitstream byte-pos>> len +
    bitstream bytes>> <slice> len 8 * bitstream seek ;