factor/basis/calendar/unix/unix.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 ;
remove calendar.backend 2008-09-01 12:48:22 -04:00			`USING: alien alien.c-types arrays calendar kernel structs`
			`math unix.time namespaces system ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: calendar.unix`

swap append to swap append refactoring path+ to append-path swap path+ to prepend-path calendar gmt-offset to duration 2008-03-19 20:15:32 -04:00			`: get-time ( -- alien )`
Initial import 2007-09-20 18:09:08 -04:00			`f time <uint> localtime ;`

swap append to swap append refactoring path+ to append-path swap path+ to prepend-path calendar gmt-offset to duration 2008-03-19 20:15:32 -04:00			`: timezone-name ( -- string )`
Initial import 2007-09-20 18:09:08 -04:00			`get-time tm-zone ;`

remove calendar-backend and use os 2008-04-02 19:28:55 -04:00			`M: unix gmt-offset ( -- hours minutes seconds )`
swap append to swap append refactoring path+ to append-path swap path+ to prepend-path calendar gmt-offset to duration 2008-03-19 20:15:32 -04:00			`get-time tm-gmtoff 3600 /mod 60 /mod ;`