2010-02-28 18:22:18 -05:00
|
|
|
! Copyright (C) 2008, 2010 Slava Pestov.
|
2008-12-13 05:57:37 -05:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2014-05-23 16:26:49 -04:00
|
|
|
USING: alien.c-types alien.syntax calendar literals math ;
|
2008-12-13 05:57:37 -05:00
|
|
|
IN: core-foundation.time
|
|
|
|
|
|
|
|
|
|
TYPEDEF: double CFTimeInterval
|
|
|
|
|
TYPEDEF: double CFAbsoluteTime
|
|
|
|
|
|
2011-10-14 13:14:41 -04:00
|
|
|
ALIAS: >CFTimeInterval duration>seconds
|
2008-12-13 05:57:37 -05:00
|
|
|
|
2014-05-23 16:26:49 -04:00
|
|
|
CONSTANT: epoch $[
|
|
|
|
|
T{ timestamp { year 2001 } { month 1 } { day 1 } }
|
|
|
|
|
timestamp>micros
|
|
|
|
|
]
|
2010-02-28 18:22:18 -05:00
|
|
|
|
|
|
|
|
: >CFAbsoluteTime ( micros -- time )
|
|
|
|
|
epoch - 1,000,000 /f ; inline
|
