baseline-parse ( -- )

Vocabulary

images.jpeg.private

Inputs

None

Outputs

None

Definition

USING: accessors combinators kernel sequences ;

IN: images.jpeg.private

: baseline-parse ( -- )
    jpeg> headers>> [ type>> { SOF 0 } = ] any?
    [ not-a-baseline-jpeg-image ] unless jpeg> headers>> {
        [
            [ type>> { SOF 0 } = ] filter
            singleton-first decode-frame
        ]
        [
            [ type>> { DQT } = ] filter
            [ decode-quant-table ] each
        ]
        [
            [ type>> { DHT } = ] filter
            [ decode-huff-table ] each
        ]
        [
            [ type>> { SOS } = ] filter
            singleton-first decode-scan
        ]
    } cleave ;