cleanup-bitstream ( bytes -- bytes' )

Vocabulary

images.jpeg.private

Inputs

bytes

an object

Outputs

bytes'

an object

Definition

USING: io io.encodings.binary io.streams.byte-array kernel
sequences ;

IN: images.jpeg.private

: cleanup-bitstream ( bytes -- bytes' )
    binary [
        [ { 255 } read-until read1 [ 0 = and ] 1check ] [ drop ]
        produce swap >marker { EOI } assert= swap suffix
        { 255 } join
    ] with-byte-reader ;