13 lines
265 B
Factor
13 lines
265 B
Factor
|
USING: alien.c-types alien.syntax kernel math ;
|
||
|
|
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 ;
|