2010-06-13 19:30:05 -04:00
|
|
|
! Copyright (C) 2010 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2014-04-04 11:03:46 -04:00
|
|
|
USING: accessors calendar classes.struct kernel libc math
|
|
|
|
|
system time unix unix.time ;
|
2010-06-13 19:30:05 -04:00
|
|
|
IN: time.unix
|
|
|
|
|
|
2010-06-22 22:34:38 -04:00
|
|
|
: timestamp>timezone ( timestamp -- timezone )
|
|
|
|
|
gmt-offset>> duration>minutes 1 \ timezone <struct-boa> ; inline
|
|
|
|
|
|
2010-06-13 19:30:05 -04:00
|
|
|
M: unix set-time
|
|
|
|
|
[ unix-1970 time- duration>microseconds >integer make-timeval ]
|
|
|
|
|
[ timestamp>timezone ] bi
|
|
|
|
|
settimeofday io-error ;
|
