(read-frame) ( seq -- frame )

Vocabulary

id3.private

Inputs

seq

an object

Outputs

frame

an object

Definition

USING: accessors byte-arrays combinators kernel sequences ;

IN: id3.private

: (read-frame) ( seq -- frame )
    [ <frame> ] dip {
        [ 4 head-slice decode-text >>tag ]
        [ [ 4 8 ] dip subseq sequence>synchsafe >>size ]
        [ [ 8 10 ] dip subseq >byte-array >>flags ]
        [ read-frame-data decode-text >>data ]
    } cleave ;