parse-headers ( -- chunks )

Vocabulary

images.jpeg.private

Inputs

None

Outputs

chunks

an object

Definition

USING: endian io kernel math sequences ;

IN: images.jpeg.private

: parse-headers ( -- chunks )
    [ parse-marker dup { SOS } = not ]
    [ 2 read be> dup 2 - read <jpeg-chunk> ] [ produce ] keep
    dip swap suffix ;