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

things in the wrong place still, probably will have some using errors now..

Doug Coleman 2008-10-06 18:03:56 -05:00
parent 0ba6d93626
commit 4734b62dd8
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/calendar/calendar.factor
View File

@ -404,14 +404,6 @@ PRIVATE>
: since-1970 ( time -- timestamp ) : since-1970 ( time -- timestamp )
unix-1970 time+ >local-time ; unix-1970 time+ >local-time ;
: timeval>unix-time ( timeval -- timestamp )
[ timeval-sec seconds ] [ timeval-usec microseconds ] bi
time+ since-1970 ;
: timespec>unix-time ( timeval -- timestamp )
[ timespec-sec seconds ] [ timespec-nsec nanoseconds ] bi
time+ since-1970 ;
M: timestamp sleep-until timestamp>millis sleep-until ; M: timestamp sleep-until timestamp>millis sleep-until ;
M: duration sleep hence sleep-until ; M: duration sleep hence sleep-until ;

8
basis/calendar/unix/unix.factor
View File

@ -14,6 +14,14 @@ IN: calendar.unix
[ set-timespec-nsec ] keep [ set-timespec-nsec ] keep
[ set-timespec-sec ] keep ; [ set-timespec-sec ] keep ;
: timeval>unix-time ( timeval -- timestamp )
[ timeval-sec seconds ] [ timeval-usec microseconds ] bi
time+ since-1970 ;
: timespec>unix-time ( timeval -- timestamp )
[ timespec-sec seconds ] [ timespec-nsec nanoseconds ] bi
time+ since-1970 ;
: get-time ( -- alien ) : get-time ( -- alien )
f time <uint> localtime ; f time <uint> localtime ;