move basis/structs to calendar.unix
parent
9f6a7bfd87
commit
f949f6ee1a
|
@ -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 ;
|
||||||
|
|
||||||
|
|
|
@ -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