1 USING: alien alien.c-types arrays calendar.backend
2 kernel structs math unix.time namespaces system ;
5 : get-time ( -- alien )
6 f time <uint> localtime ;
8 : timezone-name ( -- string )
11 M: unix gmt-offset ( -- hours minutes seconds )
12 get-time tm-gmtoff 3600 /mod 60 /mod ;