parse-track ( cuesheet str -- cuesheet )

Vocabulary

cuesheet.private

Inputs

cuesheet	an object
str	an object

Outputs

cuesheet

an object

Definition

USING: accessors cuesheet kernel math.parser sequences splitting
;

IN: cuesheet.private

: parse-track ( cuesheet str -- cuesheet )
    [ dup files>> last ]
    [ " " split1 [ string>number ] [ check-datatype ] bi* ] bi*
    <track> [ suffix ] curry change-tracks drop ;