read-v2-header ( seq -- header )

Vocabulary

id3.private

Inputs

seq

an object

Outputs

header

an object

Definition

USING: accessors arrays combinators kernel sequences ;

IN: id3.private

: read-v2-header ( seq -- header )
    [ <header> ] dip {
        [ [ 3 5 ] dip <slice> >array >>version ]
        [ [ 5 ] dip nth >>flags ]
        [ [ 6 10 ] dip <slice> sequence>synchsafe >>size ]
    } cleave ;