read-tzfile ( -- tzfile )

Vocabulary

tzinfo.private

Inputs

None

Outputs

tzfile

an object

Definition

USING: accessors arrays classes.struct combinators io kernel
sequences ;

IN: tzinfo.private

: read-tzfile ( -- tzfile )
    check-magic tzhead read-struct dup {
        [ tzh_timecnt>> [ read-be32 ] replicate ]
        [ tzh_timecnt>> [ read1 ] replicate ]
        [ tzh_typecnt>> [ ttinfo read-struct ] replicate ]
        [ tzh_charcnt>> read ]
        [
            tzh_leapcnt>>
            [ read-be32 read-be32 2array ] replicate
        ]
        [ tzh_ttisstdcnt>> read ]
        [ tzh_ttisgmtcnt>> read ]
    } cleave <tzfile> ;