zoneinfo-lines ( path -- seq )

Vocabulary

zoneinfo

Inputs

path

an object

Outputs

seq

an object

Definition

USING: combinators.short-circuit io.encodings.utf8 io.files
kernel sequences splitting ;

IN: zoneinfo

: zoneinfo-lines ( path -- seq )
    utf8 file-lines
    [ { [ length 0 = ] [ "#" head? ] } 1|| ] reject
    [ "#" split1-last drop ] map ;