inflate-loop ( bitstream -- array )


Vocabulary
compression.inflate.private

Inputs
bitstreaman object


Outputs
arrayan object


Definition
USING: bitstreams combinators kernel sequences ;

IN: compression.inflate.private

:: inflate-loop ( bitstream -- array )
[ 1 bitstream read 0 = ] [
bitstream 2 bitstream read {
{ 0 [ inflate-raw ] }
{ 1 [ inflate-static ] }
{ 2 [ inflate-dynamic ] }
{ 3 [ bad-zlib-data f ] }
} case
] [ produce ] keep call suffix concat ;