extra/time/time.factor

   1 ! Copyright (C) 2010 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: combinators system vocabs ;
   4 IN: time
   5
   6 HOOK: set-system-time os ( timestamp -- )
   7 HOOK: adjust-time-monotonic os ( timestamp -- seconds )
   8
   9 {
  10     { [ os windows? ] [ "time.windows" ] }
  11     { [ os macosx? ] [ "time.macosx" ] }
  12     { [ os unix? ] [ "time.unix" ] }
  13 } cond require