until>timestamp ( seq -- unix-time )

Vocabulary

zoneinfo

Inputs

seq

an object

Outputs

unix-time

an object

Definition

USING: calendar combinators kernel math.parser sequences ;

IN: zoneinfo

: until>timestamp ( seq -- unix-time )
    [ 1/0. ] [
        4 f pad-tail first4 {
            [ string>number <year-gmt> ]
            [ [ zone-month ] when* ]
            [ [ zone-day ] when* ]
            [ [ zone-time ] when* ]
        } spread timestamp>unix-time
    ] if-empty ;