parse-remaining-vorbis-headers ( vorbis-stream -- )

Vocabulary

audio.vorbis.private

Inputs

vorbis-stream

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: audio.vorbis.private

: parse-remaining-vorbis-headers ( vorbis-stream -- )
    dup have-required-vorbis-headers? not [
        dup get-remaining-vorbis-header-packet [
            [ decode-remaining-vorbis-header-packet ]
            [ [ 1 + ] change-#vorbis-headers drop ]
            [ parse-remaining-vorbis-headers ] tri
        ] [ drop ] if
    ] [ drop ] if ;