steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core-foundation.time: change epoch to constant.

db4
John Benediktsson 2014-05-23 13:26:49 -07:00
parent 3a3f28a91b
commit 848420a377
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/core-foundation/time/time.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: calendar math alien.c-types alien.syntax memoize system ;
USING: alien.c-types alien.syntax calendar literals math ;
IN: core-foundation.time
TYPEDEF: double CFTimeInterval
@ -8,8 +8,10 @@ TYPEDEF: double CFAbsoluteTime
ALIAS: >CFTimeInterval duration>seconds
MEMO: epoch ( -- micros )
T{ timestamp { year 2001 } { month 1 } { day 1 } } timestamp>micros ;
CONSTANT: epoch $[
T{ timestamp { year 2001 } { month 1 } { day 1 } }
timestamp>micros
]
: >CFAbsoluteTime ( micros -- time )
epoch - 1,000,000 /f ; inline