parse-iana ( file -- synonym-set )

Vocabulary

io.encodings.iana.private

Inputs

file

an object

Outputs

synonym-set

an object

Definition

USING: assocs io.encodings.utf8 io.files sequences sets
splitting ;

IN: io.encodings.iana.private

: parse-iana ( file -- synonym-set )
    utf8 file-lines { "" } split [
        [ split-words ] map
        [ first { "Name:" "Alias:" } member? ] filter values
        { "None" } diff
    ] map harvest ;