14 lines
449 B
Factor
14 lines
449 B
Factor
! Copyright (C) 2010 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors calendar classes.struct kernel math system time
|
|
unix unix.time ;
|
|
IN: time.unix
|
|
|
|
: timestamp>timezone ( timestamp -- timezone )
|
|
gmt-offset>> duration>minutes 1 \ timezone <struct-boa> ; inline
|
|
|
|
M: unix set-time
|
|
[ unix-1970 time- duration>microseconds >integer make-timeval ]
|
|
[ timestamp>timezone ] bi
|
|
settimeofday io-error ;
|