rule-year>years ( raw-rule -- from to )

Vocabulary

zoneinfo

Inputs

raw-rule

an object

Outputs

from	an object
to	an object

Definition

USING: accessors combinators kernel ;

IN: zoneinfo

: rule-year>years ( raw-rule -- from to )
    [ from>> ] [ to>> ] bi {
        {
            [ over "min" = ]
            [ [ drop -1/0. ] [ string>year ] bi* ]
        }
        {
            [ dup "max" = ]
            [ [ string>year ] [ drop 1/0. ] bi* ]
        }
        { [ dup "only" = ] [ drop dup [ string>year ] bi@ ] }
        [ [ string>year ] bi@ ]
    } cond ;