move basis/structs to calendar.unix
parent
9f6a7bfd87
commit
f949f6ee1a
|
@ -1,7 +1,27 @@
|
|||
USING: alien alien.c-types arrays calendar kernel structs
|
||||
math unix.time namespaces system ;
|
||||
USING: alien alien.c-types alien.syntax arrays calendar
|
||||
kernel structs math unix.time namespaces system ;
|
||||
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 )
|
||||
f time <uint> localtime ;
|
||||
|
||||
|
|
|
@ -1 +0,0 @@
|
|||
Doug Coleman
|
|
@ -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 ;
|
|
@ -1 +0,0 @@
|
|||
Cross-platform C structs
|
Loading…
Reference in New Issue