/* _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 */