tzhead

Vocabulary

tzinfo.private

Definition

USING: alien.c-types alien.endian classes.struct ;

IN: tzinfo.private

STRUCT: tzhead
    { tzh_reserved char[16] } { tzh_ttisgmtcnt be32 initial: 0 }
    { tzh_ttisstdcnt be32 initial: 0 }
    { tzh_leapcnt be32 initial: 0 }
    { tzh_timecnt be32 initial: 0 }
    { tzh_typecnt be32 initial: 0 }
    { tzh_charcnt be32 initial: 0 } ;

Methods

USING: classes.struct classes.struct.private kernel
tzinfo.private ;

M: tzhead clone clone-underlying \ tzhead memory>struct ; inline


USING: accessors classes.struct combinators.smart tzinfo.private
;

M: tzhead struct-slot-values
    {
        [ tzh_reserved>> ]
        [ tzh_ttisgmtcnt>> ]
        [ tzh_ttisstdcnt>> ]
        [ tzh_leapcnt>> ]
        [ tzh_timecnt>> ]
        [ tzh_typecnt>> ]
        [ tzh_charcnt>> ]
    } cleave>array ; inline