37 lines
897 B
Factor
37 lines
897 B
Factor
|
IN: calendar
|
||
|
|
USING: alien arrays compiler errors kernel math ;
|
||
|
|
|
||
|
|
TYPEDEF: uint time_t
|
||
|
|
|
||
|
|
BEGIN-STRUCT: tm
|
||
|
|
FIELD: int sec ! Seconds: 0-59 (K&R says 0-61?)
|
||
|
|
FIELD: int min ! Minutes: 0-59
|
||
|
|
FIELD: int hour ! Hours since midnight: 0-23
|
||
|
|
FIELD: int mday ! Day of the month: 1-31
|
||
|
|
FIELD: int mon ! Months *since* january: 0-11
|
||
|
|
FIELD: int year ! Years since 1900
|
||
|
|
FIELD: int wday ! Days since Sunday (0-6)
|
||
|
|
FIELD: int yday ! Days since Jan. 1: 0-365
|
||
|
|
FIELD: int isdst ! +1 Daylight Savings Time, 0 No DST,
|
||
|
|
FIELD: long gmtoff
|
||
|
|
FIELD: char* zone
|
||
|
|
END-STRUCT
|
||
|
|
|
||
|
|
FUNCTION: time_t time ( time_t* t ) ;
|
||
|
|
FUNCTION: tm* localtime ( time_t* clock ) ;
|
||
|
|
|
||
|
|
BEGIN-STRUCT: t
|
||
|
|
FIELD: long tv_sec
|
||
|
|
FIELD: long tv_usec
|
||
|
|
END-STRUCT
|
||
|
|
|
||
|
|
: get-time
|
||
|
|
f time <uint> localtime ;
|
||
|
|
|
||
|
|
: timezone-name
|
||
|
|
get-time tm-zone ;
|
||
|
|
|
||
|
|
: gmt-offset
|
||
|
|
get-time tm-gmtoff 3600 / ;
|
||
|
|
|