parse-metadata ( line -- metadata )

Vocabulary

yenc.private

Inputs

line

an object

Outputs

metadata

an object

Definition

USING: assocs kernel splitting strings ;

IN: yenc.private

: parse-metadata ( line -- metadata )
    >string "\r" ?tail drop " name=" split1 [ parse-fields ] dip
    [ "name" pick set-at ] when* ;