2008-12-13 05:57:37 -05:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-09-27 00:14:57 -04:00
|
|
|
USING: calendar alien.c-types alien.syntax ;
|
2008-12-13 05:57:37 -05:00
|
|
|
IN: core-foundation.time
|
|
|
|
|
|
|
|
|
|
TYPEDEF: double CFTimeInterval
|
|
|
|
|
TYPEDEF: double CFAbsoluteTime
|
|
|
|
|
|
|
|
|
|
: >CFTimeInterval ( duration -- interval )
|
|
|
|
|
duration>seconds ; inline
|
|
|
|
|
|
|
|
|
|
: >CFAbsoluteTime ( timestamp -- time )
|
|
|
|
|
T{ timestamp { year 2001 } { month 1 } { day 1 } } time-
|
|
|
|
|
duration>seconds ; inline
|
