read-data ( loading-gif -- loading-gif )

Vocabulary

images.gif

Inputs

loading-gif

an object

Outputs

loading-gif

an object

Definition

USING: accessors combinators io kernel sequences ;

IN: images.gif

: read-data ( loading-gif -- loading-gif )
    read1 {
        { EXTENSION-IDENTIFIER [ read-extension ] }
        {
            GRAPHICS-CONTROL-EXTENSION
            [
                read-graphic-control-extension over
                graphic-control-extensions>> push
            ]
        }
        { IMAGE-DESCRIPTOR [ read-table-based-image ] }
        { TRAILER [ f >>loading? ] }
        [ unhandled-data ]
    } case ;