stored-deflate ( bytes -- compressed )

Vocabulary

compression.deflate.private

Inputs

bytes

an object

Outputs

compressed

an object

Definition

USING: accessors kernel math math.order sequences ;

IN: compression.deflate.private

:: stored-deflate ( bytes -- compressed )
    <deflate-writer> :> writer 0 :> i! f :> done!
    [ done not ] [
        bytes length i - 65535 min :> n i n + bytes length =
        done! done [ 1 ] [ 0 ] if 8 writer write-bits
        n 16 writer write-bits n 65535 bitxor
        16 writer write-bits i i n + bytes <slice>
        writer bytes>> push-all i n + i!
    ] while writer finish-bits ;