factor/extra/calendar/unix/unix.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 ;
Udpate calendar to remove some circular dependencies 2008-01-10 14:49:12 -05:00			`USING: alien alien.c-types arrays calendar.backend`
remove calendar-backend and use os 2008-04-02 19:28:55 -04:00			`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 ;`