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

calendar.unix: inline some things.

db4
John Benediktsson 2012-08-15 08:29:00 -07:00
parent 47b4ebc80d
commit 511ad6d9f3
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,23 +7,26 @@ IN: calendar.unix
: timeval>seconds ( timeval -- seconds ) : timeval>seconds ( timeval -- seconds )
[ sec>> ] [ usec>> 1,000,000 / ] bi + ; inline [ sec>> ] [ usec>> 1,000,000 / ] bi + ; inline
: timeval>micros ( timeval -- micros )
[ sec>> 1,000,000 * ] [ usec>> ] bi + ; inline
: timeval>duration ( timeval -- duration ) : timeval>duration ( timeval -- duration )
timeval>seconds seconds ; timeval>seconds seconds ; inline
: timeval>unix-time ( timeval -- timestamp ) : timeval>unix-time ( timeval -- timestamp )
[ unix-1970 ] dip timeval>seconds +second ; [ unix-1970 ] dip timeval>seconds +second ; inline
: timespec>seconds ( timespec -- seconds ) : timespec>seconds ( timespec -- seconds )
[ sec>> ] [ nsec>> 1,000,000,000 / ] bi + ; inline [ sec>> ] [ nsec>> 1,000,000,000 / ] bi + ; inline
: timespec>duration ( timespec -- duration ) : timespec>duration ( timespec -- duration )
timespec>seconds seconds ; timespec>seconds seconds ; inline
: timespec>unix-time ( timespec -- timestamp ) : timespec>unix-time ( timespec -- timestamp )
[ unix-1970 ] dip timespec>seconds +second ; [ unix-1970 ] dip timespec>seconds +second ; inline
: get-time ( -- alien ) : get-time ( -- alien )
f time time_t <ref> localtime ; f time time_t <ref> localtime ; inline
: timezone-name ( -- string ) : timezone-name ( -- string )
get-time zone>> ; get-time zone>> ;
@ -32,11 +35,10 @@ M: unix gmt-offset ( -- hours minutes seconds )
get-time gmtoff>> 3600 /mod 60 /mod ; get-time gmtoff>> 3600 /mod 60 /mod ;
: current-timeval ( -- timeval ) : current-timeval ( -- timeval )
timeval <struct> f [ gettimeofday io-error ] 2keep drop ; timeval <struct> f [ gettimeofday io-error ] 2keep drop ; inline
: system-micros ( -- n ) : system-micros ( -- n )
current-timeval current-timeval timeval>micros ;
[ sec>> 1,000,000 * ] [ usec>> ] bi + ;
M: unix gmt M: unix gmt
current-timeval timeval>unix-time ; current-timeval timeval>unix-time ;