/* _ml_P_FileSys_utime : (string * Int32.int * Int32.int) -> unit
* name actime modtime
*
* Sets file access and modification times. If
* actime = -1, then set both to current time.
*/
ml_val_t _ml_P_FileSys_utime (ml_state_t *msp, ml_val_t arg)
{
ml_val_t path = REC_SEL(arg, 0);
time_t actime = REC_SELINT32(arg, 1);
time_t modtime = REC_SELINT32(arg, 2);
int sts;
if (actime == -1) {
sts = utime (STR_MLtoC(path), NIL(struct utimbuf *));
}
/* _lib7_OS_poll : (List (Int, Unt), Null_Or(int32.Int, Int)) -> List (Int, Unt)
*/
lib7_val_t _lib7_OS_poll (lib7_state_t *lib7_state, lib7_val_t arg)
{
lib7_val_t poll_list = REC_SEL(arg, 0);
lib7_val_t timeout = REC_SEL(arg, 1);
struct timeval tv, *tvp;
if (timeout == OPTION_NONE)
tvp = NULL;
else {
timeout = OPTION_get(timeout);
tv.tv_sec = REC_SELINT32(timeout, 0);
tv.tv_usec = REC_SELINT(timeout, 1);
tvp = &tv;
}
return LIB7_Poll (lib7_state, poll_list, tvp);
} /* end of _lib7_OS_poll */
