on>value ( n -- n' )

Vocabulary

zoneinfo

Inputs

n

an object

Outputs

n'

an object

Definition

USING: arrays calendar.english combinators kernel math.parser
sequences ;

IN: zoneinfo

: on>value ( n -- n' )
    {
        {
            [ dup 3 swap ?nth 62 = ]
            [
                3 cut 2 tail
                [ day-abbreviation3-predicate ]
                [ string>number ] bi* 2array
            ]
        }
        {
            [ dup "last" head? ]
            [ 4 tail day-abbreviation3-index ]
        }
        [ string>number ]
    } cond ;