load-gif ( stream -- loading-gif )

Vocabulary

images.gif

Inputs

stream

an object

Outputs

loading-gif

an object

Definition

USING: accessors combinators io kernel ;

IN: images.gif

: load-gif ( stream -- loading-gif )
    [
        <loading-gif> read-gif-header dup magic>> {
            { "GIF87a" [ read-GIF87a ] }
            { "GIF89a" [ read-GIF89a ] }
            [ unsupported-gif-format ]
        } case
    ] with-input-stream ;