move basis/structs to calendar.unix

Doug Coleman 2008-10-06 17:59:20 -05:00
parent 9f6a7bfd87
commit f949f6ee1a
4 changed files with 22 additions and 26 deletions

View File

@ -1,7 +1,27 @@
USING: alien alien.c-types arrays calendar kernel structs USING: alien alien.c-types alien.syntax arrays calendar
math unix.time namespaces system ; kernel structs math unix.time namespaces system ;
IN: calendar.unix IN: calendar.unix
C-STRUCT: timeval
{ "long" "sec" }
{ "long" "usec" } ;
: make-timeval ( ms -- timeval )
1000 /mod 1000 *
"timeval" <c-object>
[ set-timeval-usec ] keep
[ set-timeval-sec ] keep ;
C-STRUCT: timespec
{ "time_t" "sec" }
{ "long" "nsec" } ;
: make-timespec ( ms -- timespec )
1000 /mod 1000000 *
"timespec" <c-object>
[ set-timespec-nsec ] keep
[ set-timespec-sec ] keep ;
: get-time ( -- alien ) : get-time ( -- alien )
f time <uint> localtime ; f time <uint> localtime ;

View File

@ -1 +0,0 @@
Doug Coleman

View File

@ -1,22 +0,0 @@
USING: alien.c-types alien.syntax kernel math unix.types ;
IN: structs
C-STRUCT: timeval
{ "long" "sec" }
{ "long" "usec" } ;
: make-timeval ( ms -- timeval )
1000 /mod 1000 *
"timeval" <c-object>
[ set-timeval-usec ] keep
[ set-timeval-sec ] keep ;
C-STRUCT: timespec
{ "time_t" "sec" }
{ "long" "nsec" } ;
: make-timespec ( ms -- timespec )
1000 /mod 1000000 *
"timespec" <c-object>
[ set-timespec-nsec ] keep
[ set-timespec-sec ] keep ;

View File

@ -1 +0,0 @@
Cross-platform C structs