parse-line ( cuesheet line -- cuesheet )

Vocabulary

cuesheet.private

Inputs

cuesheet	an object
line	an object

Outputs

cuesheet

an object

Definition

USING: accessors ascii combinators cuesheet kernel sequences
splitting ;

IN: cuesheet.private

: parse-line ( cuesheet line -- cuesheet )
    trim-comments [ blank? ] trim " " split1 swap {
        { "CATALOG" [ >>catalog ] }
        { "CDTEXTFILE" [ >>cdtextfile ] }
        { "FILE" [ parse-file ] }
        { "FLAGS" [ parse-flags ] }
        { "INDEX" [ parse-index ] }
        { "ISRC" [ parse-isrc ] }
        { "PERFORMER" [ parse-performer ] }
        { "POSTGAP" [ parse-postgap ] }
        { "PREGAP" [ parse-pregap ] }
        { "REM" [ parse-remarks ] }
        { "SONGWRITER" [ parse-songwriter ] }
        { "TITLE" [ parse-title ] }
        { "TRACK" [ parse-track ] }
        { "" [ drop ] }
        [ unknown-syntax ]
    } case ;