2010-06-13 19:30:05 -04:00
|
|
|
! Copyright (C) 2010 Doug Coleman.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2011-11-02 14:23:41 -04:00
|
|
|
USING: combinators kernel system vocabs ;
|
2010-06-13 19:30:05 -04:00
|
|
|
IN: time
|
|
|
|
|
|
|
|
HOOK: set-time os ( timestamp -- )
|
|
|
|
HOOK: adjust-time-monotonic os ( timestamp -- seconds )
|
2010-06-16 18:42:15 -04:00
|
|
|
|
|
|
|
os {
|
|
|
|
{ [ dup macosx? ] [ drop "time.macosx" require ] }
|
|
|
|
{ [ dup windows? ] [ drop "time.windows" require ] }
|
|
|
|
{ [ dup unix? ] [ drop "time.unix" require ] }
|
|
|
|
[ drop ]
|
|
|
|
} cond
|