/extra/time/time.factor

http://github.com/abeaumont/factor · Factor · 14 lines · 10 code · 2 blank · 2 comment · 1 complexity · 01da54209f45f57018be5e24b92f6ead MD5 · raw file 

    

  1. ! Copyright (C) 2010 Doug Coleman.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: combinators kernel system vocabs ;
    4. 

  4. IN: time
    5. 

  5. 

  6. HOOK: set-time os ( timestamp -- )
    7. 

  7. HOOK: adjust-time-monotonic os ( timestamp -- seconds )
    8. 

  8. 

  9. os {
    10. 

  10.     { [ dup macosx? ] [ drop "time.macosx" require ] }
    11. 

  11.     { [ dup windows? ] [ drop "time.windows" require ] }
    12. 

  12.     { [ dup unix? ] [ drop "time.unix" require ] }
    13. 

  13.     [ drop ]
    14. 

  14. } cond
    15.