13 lines
312 B
Factor
13 lines
312 B
Factor
USING: alien alien.c-types arrays calendar 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 ;
|