verify-aiff ( chunk -- )

Vocabulary

audio.aiff

Inputs

chunk

an object

Outputs

None

Definition

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

IN: audio.aiff

: verify-aiff ( chunk -- )
    {
        [ FORM-MAGIC id= ]
        [
            form-chunk memory>struct
            form-type>> 4 memory>byte-array AIFF-MAGIC id=
        ]
    } 1&& [ invalid-audio-file ] unless ;