2006-09-01 17:45:00 -04:00
|
|
|
IN: calendar
|
2006-09-03 17:38:13 -04:00
|
|
|
USING: alien arrays compiler errors kernel math ;
|
2006-09-01 17:45:00 -04:00
|
|
|
|
|
|
|
|
TYPEDEF: uint time_t
|
2006-09-03 17:38:13 -04:00
|
|
|
BEGIN-STRUCT: t
|
|
|
|
|
FIELD: long tv_sec
|
|
|
|
|
FIELD: long tv_usec
|
|
|
|
|
END-STRUCT
|
|
|
|
|
|
|
|
|
|
FUNCTION: time_t time ( time_t* t ) ;
|
|
|
|
|
FUNCTION: tm* localtime ( time_t* clock ) ;
|
|
|
|
|
|
|
|
|
|
: get-time
|
|
|
|
|
f time <uint> localtime ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
! BEGIN-STRUCT: tz
|
|
|
|
|
! FIELD: int tz_minuteswest
|
|
|
|
|
! FIELD: int tz_dsttime
|
|
|
|
|
! END-STRUCT
|
|
|
|
|
|
|
|
|
|
! FUNCTION: int gettimeofday ( t* timeval, tz* timezone ) ;
|
|
|
|
|
|
|
|
|
|
! : machine-gmt-offset
|
|
|
|
|
! "t" <c-object> "tz" <c-object> 2dup gettimeofday
|
|
|
|
|
! zero? [ nip tz-tz_minuteswest 60 / neg ] [ 2drop 0 ] if ;
|
|
|
|
|
|
