write-bits ( value n writer -- )

Vocabulary

compression.deflate.private

Inputs

value	an object
n	an object
writer	an object

Outputs

None

Definition

USING: accessors kernel math sequences ;

IN: compression.deflate.private

:: write-bits ( value n writer -- )
    writer buffer>> value writer used>> shift bitor
    writer buffer<< writer used>> n + writer used<<
    [ writer used>> 8 >= ] [
        writer buffer>> 255 bitand writer bytes>> push writer
        [ -8 shift ] change-buffer [ 8 - ] change-used drop
    ] while ;