extract-v1+-tags ( id3 seq -- id3 )

Vocabulary

id3.private

Inputs

id3	an object
seq	an object

Outputs

id3

an object

Definition

USING: accessors combinators kernel sequences ;

IN: id3.private

: extract-v1+-tags ( id3 seq -- id3 )
    {
        [
            60 head-slice decode-text filter-text-data
            [ append ] change-title
        ]
        [
            [ 60 120 ] dip subseq decode-text filter-text-data
            [ append ] change-artist
        ]
        [
            [ 120 180 ] dip subseq decode-text filter-text-data
            [ append ] change-album
        ]
        [ [ 180 ] dip nth >>speed ]
        [ [ 181 211 ] dip subseq decode-text >>genre-name ]
        [ [ 211 217 ] dip subseq decode-text >>start-time ]
        [ [ 217 223 ] dip subseq decode-text >>end-time ]
    } cleave ;