Import Upstream version 20180207
[hcoop/debian/mlton.git] / runtime / basis / Posix / FileSys / Utimbuf.c
1 #include "platform.h"
2
3 static struct utimbuf Posix_FileSys_Utimbuf_utimbuf;
4
5 void Posix_FileSys_Utimbuf_setAcTime (C_Time_t t) {
6 Posix_FileSys_Utimbuf_utimbuf.actime = t;
7 }
8
9 void Posix_FileSys_Utimbuf_setModTime (C_Time_t t) {
10 Posix_FileSys_Utimbuf_utimbuf.modtime = t;
11 }
12
13 C_Errno_t(C_Int_t) Posix_FileSys_Utimbuf_utime (NullString8_t s) {
14 return utime((const char *)s, &Posix_FileSys_Utimbuf_utimbuf);
15 }