parse-zoneinfo-line ( prev/f seq -- tuple )

Vocabulary

zoneinfo

Inputs

prev/f	an object
seq	an object

Outputs

tuple

an object

Definition

USING: ascii combinators kernel sequences ;

IN: zoneinfo

: parse-zoneinfo-line ( prev/f seq -- tuple )
    dup first >lower {
        { "rule" [ nip parse-rule ] }
        { "link" [ nip parse-link ] }
        { "leap" [ nip parse-leap ] }
        { "zone" [ nip parse-zone ] }
        [ drop harvest parse-rest-of-zone ]
    } case ;