verify-wav ( chunk -- )

Vocabulary

audio.wav

Inputs

chunk

an object

Outputs

None

Definition

USING: accessors alien.data audio.chunked-file classes.struct
combinators.short-circuit kernel ;

IN: audio.wav

: verify-wav ( chunk -- )
    {
        [ RIFF-MAGIC id= ]
        [
            riff-chunk memory>struct
            format>> 4 memory>byte-array WAVE-MAGIC id=
        ]
    } 1&& [ invalid-audio-file ] unless ;