16 lines
441 B
Factor
16 lines
441 B
Factor
|
! Copyright (C) 2010 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: alien.data calendar calendar.unix classes.struct
|
||
|
|
io.files.info.unix.private kernel system time unix unix.time ;
|
||
|
|
IN: time.macosx
|
||
|
|
|
||
|
|
M: macosx adjust-time-monotonic
|
||
|
|
timestamp>timeval
|
||
|
|
\ timeval <struct>
|
||
|
|
[ adjtime io-error ] keep dup binary-zero? [
|
||
|
|
drop instant
|
||
|
|
] [
|
||
|
|
timeval>duration since-1970 now time-
|
||
|
|
] if ;
|
||
|
|
|