New functions utimes, lutimes.

* configure: Detect various functions for setting file
timestamps.

* sysif.c (get_fd): Define this function for use by utimes
also.
(timens, do_utimes): New static functions.
(wrap_utimes, wrap_lutimes): New static functions.
(sysif_init): Register utimes and lutimes intrinsics.

* txr.1: Documented.

1 files changed, 108 insertions, 0 deletions

diff --git a/configure b/configure
index 85336937..c3b84a64 100755
--- a/configure
+++ b/configure
@@ -1708,6 +1708,114 @@ int main(void)
 fi
 
 #
+# utime, utimes, utimensat and futimens
+#
+
+printf "Checking for utime ... "
+
+cat > conftest.c <<!
+#include <utime.h>
+
+int main(void)
+{
+  struct utimbuf utb;
+  int res = utime("path", &utb);
+  return 0;
+}
+!
+
+if conftest ; then
+  printf "yes\n"
+  printf "#define HAVE_UTIME 1\n" >> config.h
+else
+  printf "no\n"
+fi
+
+printf "Checking for utimes ... "
+
+cat > conftest.c <<!
+#include <sys/time.h>
+
+int main(void)
+{
+  struct timeval tv[2];
+  int res = utimes("path", tv);
+  return 0;
+}
+!
+
+if conftest ; then
+  printf "yes\n"
+  printf "#define HAVE_UTIMES 1\n" >> config.h
+else
+  printf "no\n"
+fi
+
+printf "Checking for futimes ... "
+
+cat > conftest.c <<!
+#include <sys/time.h>
+
+int main(void)
+{
+  struct timeval tv[2];
+  int res = futimes(42, tv);
+  return 0;
+}
+!
+
+if conftest ; then
+  printf "yes\n"
+  printf "#define HAVE_FUTIMES 1\n" >> config.h
+else
+  printf "no\n"
+fi
+
+printf "Checking for lutimes ... "
+
+cat > conftest.c <<!
+#include <sys/time.h>
+
+int main(void)
+{
+  struct timeval tv[2];
+  int res = lutimes("path", tv);
+  return 0;
+}
+!
+
+if conftest ; then
+  printf "yes\n"
+  printf "#define HAVE_LUTIMES 1\n" >> config.h
+else
+  printf "no\n"
+fi
+
+printf "Checking for utimensat and futimens ... "
+
+cat > conftest.c <<!
+#include <sys/stat.h>
+#include <fcntl.h>
+
+int main(void)
+{
+  struct timespec ts[2];
+  int resu = utimensat(AT_FDCWD, "path", ts, AT_SYMLINK_NOFOLLOW);
+  int resf = futimens(0, ts);
+  return 0;
+}
+!
+
+if conftest ; then
+  printf "yes\n"
+  printf "#define HAVE_FUTIMENS 1\n" >> config.h
+else
+  printf "no\n"
+fi
+
+printf "#define HAVE_FILE_STAMP_CHANGE " >> config.h
+printf "(HAVE_UTIMES || HAVE_FUTIMES || HAVE_FUTIMENS)\n" >> config.h
+#
 # environ
 #