name>rules ( name -- rules )

Vocabulary

zoneinfo

Inputs

name

an object

Outputs

rules

an object

Definition

USING: accessors arrays assocs calendar kernel math sequences ;

IN: zoneinfo

: name>rules ( name -- rules )
    raw-rule-map at [
        [
            [
                rule>timestamps [
                    dup fp-infinity?
                    [ timestamp>unix-time ] unless
                ] bi@ 2array
            ]
            [ [ save>> hms>duration ] [ letters>> ] bi 2array ]
            bi 2array
        ] map
    ] keep zip ;