read-chunk ( -- chunk )

Vocabulary

midi.private

Inputs

None

Outputs

chunk

an object

Definition

USING: combinators endian io kernel midi ;

IN: midi.private

: read-chunk ( -- chunk )
    4 read 4 read be> read swap {
        { B{ 77 84 104 100 } [ <midi-header> ] }
        { B{ 77 84 114 107 } [ <midi-track> ] }
        [ swap <midi-chunk> ]
    } case ;