basis/core-foundation/time/time.factor

   1 ! Copyright (C) 2008, 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: alien.c-types alien.syntax calendar literals math ;
   4 IN: core-foundation.time
   5
   6 TYPEDEF: double CFTimeInterval
   7 TYPEDEF: double CFAbsoluteTime
   8
   9 ALIAS: >CFTimeInterval duration>seconds
  10
  11 CONSTANT: epoch $[
  12     T{ timestamp { year 2001 } { month 1 } { day 1 } }
  13     timestamp>micros
  14 ]
  15
  16 : >CFAbsoluteTime ( micros -- time )
  17     epoch - 1,000,000 /f ; inline