decode-audio ( vorbis-stream offset -- offset' )

Vocabulary

audio.vorbis.private

Inputs

vorbis-stream	an object
offset	an object

Outputs

offset'

an object

Definition

USING: accessors combinators kernel sequences ;

IN: audio.vorbis.private

: decode-audio ( vorbis-stream offset -- offset' )
    2dup (decode-audio) {
        {
            [ 3dup [ buffer>> length ] [ drop ] [ ] tri* = ]
            [ 2nip ]
        }
        {
            [ 2dup = ]
            [ drop over sync-pages [ decode-audio ] [ nip ] if ]
        }
        [ nip decode-audio ]
    } cond ;