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 math.parser sequences ;

IN: id3.private

: extract-v1-tags ( id3 seq -- id3 )
    {
        [ 30 head-slice decode-text filter-text-data >>title ]
        [
            [ 30 60 ] dip subseq
            decode-text filter-text-data >>artist
        ]
        [
            [ 60 90 ] dip subseq
            decode-text filter-text-data >>album
        ]
        [
            [ 90 94 ] dip subseq
            decode-text filter-text-data >>year
        ]
        [
            [ 94 124 ] dip subseq
            decode-text filter-text-data >>comment
        ]
        [ [ 124 ] dip nth number>string >>genre ]
    } cleave ;