basis/structs/structs.factor

   1 USING: alien.c-types alien.syntax kernel math ;
   2 IN: structs
   3
   4 C-STRUCT: timeval
   5     { "long" "sec" }
   6     { "long" "usec" } ;
   7
   8 : make-timeval ( ms -- timeval )
   9     1000 /mod 1000 *
  10     "timeval" <c-object>
  11     [ set-timeval-usec ] keep
  12     [ set-timeval-sec ] keep ;