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

timeval>seconds

db4
Doug Coleman 2008-10-21 04:19:50 -05:00
parent 1423577d89
commit 003000b7cf
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,13 +4,19 @@ USING: alien alien.c-types alien.syntax arrays calendar
kernel math unix unix.time namespaces system ; kernel math unix unix.time namespaces system ;
IN: calendar.unix IN: calendar.unix
: timeval>unix-time ( timeval -- timestamp ) : timeval>seconds ( timeval -- seconds )
[ timeval-sec seconds ] [ timeval-usec microseconds ] bi [ timeval-sec seconds ] [ timeval-usec microseconds ] bi
time+ since-1970 ; time+ ;
: timespec>unix-time ( timeval -- timestamp ) : timeval>unix-time ( timeval -- timestamp )
timeval>seconds since-1970 ;
: timespec>seconds ( timespec -- seconds )
[ timespec-sec seconds ] [ timespec-nsec nanoseconds ] bi [ timespec-sec seconds ] [ timespec-nsec nanoseconds ] bi
time+ since-1970 ; time+ ;
: timespec>unix-time ( timespec -- timestamp )
timespec>seconds since-1970 ;
: get-time ( -- alien ) : get-time ( -- alien )
f time <uint> localtime ; f time <uint> localtime ;