runtime/basis/MLton/Itimer/set.c

   1 #include "platform.h"
   2
   3 C_Errno_t(C_Int_t)
   4 MLton_Itimer_set (C_Int_t which,
   5             C_Time_t interval_tv_sec,
   6             C_SUSeconds_t interval_tv_usec,
   7             C_Time_t value_tv_sec,
   8             C_SUSeconds_t value_tv_usec) {
   9   struct itimerval v;
  10
  11   v.it_interval.tv_sec = interval_tv_sec;
  12   v.it_interval.tv_usec = interval_tv_usec;
  13   v.it_value.tv_sec = value_tv_sec;
  14   v.it_value.tv_usec = value_tv_usec;
  15   return setitimer (which, &v, (struct itimerval *)NULL);
  16 }