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

last using patch, i think i got it

db4
Doug Coleman 2008-10-06 21:41:06 -05:00
parent ff64bafae2
commit 0e81d4c82c
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,18 +4,6 @@ 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
: make-timeval ( ms -- timeval )
1000 /mod 1000 *
"timeval" <c-object>
[ set-timeval-usec ] keep
[ set-timeval-sec ] keep ;
: make-timespec ( ms -- timespec )
1000 /mod 1000000 *
"timespec" <c-object>
[ set-timespec-nsec ] keep
[ set-timespec-sec ] keep ;
: timeval>unix-time ( timeval -- timestamp ) : timeval>unix-time ( timeval -- timestamp )
[ timeval-sec seconds ] [ timeval-usec microseconds ] bi [ timeval-sec seconds ] [ timeval-usec microseconds ] bi
time+ since-1970 ; time+ since-1970 ;

12
basis/unix/time/time.factor
View File

@ -11,6 +11,18 @@ C-STRUCT: timespec
{ "time_t" "sec" } { "time_t" "sec" }
{ "long" "nsec" } ; { "long" "nsec" } ;
: make-timeval ( ms -- timeval )
1000 /mod 1000 *
"timeval" <c-object>
[ set-timeval-usec ] keep
[ set-timeval-sec ] keep ;
: make-timespec ( ms -- timespec )
1000 /mod 1000000 *
"timespec" <c-object>
[ set-timespec-nsec ] keep
[ set-timespec-sec ] keep ;
C-STRUCT: tm C-STRUCT: tm
{ "int" "sec" } ! Seconds: 0-59 (K&R says 0-61?) { "int" "sec" } ! Seconds: 0-59 (K&R says 0-61?)
{ "int" "min" } ! Minutes: 0-59 { "int" "min" } ! Minutes: 0-59