summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-09-23 16:39:42 +0200
committerAndy Wingo <wingo@pobox.com>2019-05-23 15:43:28 +0200
commit827e88b4b798b11013e8a9ef4e0f6ad111966321 (patch)
treea71bc86ba7e7dec3c7e36d22e126985cf1dbbf77 /libguile/posix.c
parent176bfd0bce4220b0565d192a93bd9e2f81a1f1fe (diff)
downloadguile-827e88b4b798b11013e8a9ef4e0f6ad111966321.tar.gz
Define AT_SYMLINK_NOFOLLOW et al.
* libguile/posix.c (scm_init_posix): Define AT_SYMLINK_NOFOLLOW, AT_SYMLINK_FOLLOW, AT_NO_AUTOMOUNT, and AT_EMPTY_PATH when available. (scm_utime): Mention AT_SYMLINK_NOFOLLOW. * doc/ref/posix.texi (File System): Update accordingly. * test-suite/tests/posix.test ("utime")["AT_SYMLINK_NOFOLLOW"]: New test.
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c20
1 files changed, 18 insertions, 2 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index 2ad6c89bb..43e353eb6 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1,4 +1,4 @@
-/* Copyright 1995-2014,2016-2018
+/* Copyright 1995-2014,2016-2019
Free Software Foundation, Inc.
This file is part of Guile.
@@ -1626,7 +1626,10 @@ SCM_DEFINE (scm_utime, "utime", 1, 5, 0,
"(utime \"foo\" (- (current-time) 3600))\n"
"@end lisp\n"
"will set the access time to one hour in the past and the\n"
- "modification time to the current time.")
+ "modification time to the current time.\n\n"
+ "Last, @var{flags} may be either @code{0} or the\n"
+ "@code{AT_SYMLINK_NOFOLLOW} constant, to set the time of\n"
+ "@var{pathname} even if it is a symbolic link.\n")
#define FUNC_NAME s_scm_utime
{
int rv;
@@ -2435,6 +2438,19 @@ scm_init_posix ()
scm_c_define ("LOCK_NB", scm_from_int (LOCK_NB));
#endif
+#ifdef AT_SYMLINK_NOFOLLOW
+ scm_c_define ("AT_SYMLINK_NOFOLLOW", scm_from_int (AT_SYMLINK_NOFOLLOW));
+#endif
+#ifdef AT_SYMLINK_FOLLOW
+ scm_c_define ("AT_SYMLINK_FOLLOW", scm_from_int (AT_SYMLINK_FOLLOW));
+#endif
+#ifdef AT_NO_AUTOMOUNT
+ scm_c_define ("AT_NO_AUTOMOUNT", scm_from_int (AT_NO_AUTOMOUNT));
+#endif
+#ifdef AT_EMPTY_PATH
+ scm_c_define ("AT_EMPTY_PATH", scm_from_int (AT_EMPTY_PATH));
+#endif
+
#include "cpp-SIG.c"
#include "posix.x"