13 lines
320 B
Factor
13 lines
320 B
Factor
|
USING: alien alien.c-types arrays calendar.backend
|
||
|
kernel structs math unix.time namespaces system ;
|
||
|
IN: calendar.unix
|
||
|
|
|
||
|
|
: get-time ( -- alien )
|
||
|
|
f time <uint> localtime ;
|
||
|
|
|
||
|
|
: timezone-name ( -- string )
|
||
|
|
get-time tm-zone ;
|
||
|
|
|
||
|
|
M: unix gmt-offset ( -- hours minutes seconds )
|
||
|
|
get-time tm-gmtoff 3600 /mod 60 /mod ;
|