[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/03: Define `O_NOFOLLOW' and various other flags when
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 02/03: Define `O_NOFOLLOW' and various other flags when supported. |
Date: |
Sat, 8 May 2021 06:04:45 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guile.
commit 553c82cee924f0bada27f8209c3bcb28be407953
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Mar 2 18:03:22 2021 +0100
Define `O_NOFOLLOW' and various other flags when supported.
* libguile/filesys.c (scm_init_filesys): Define ‘O_IGNORE_CTTY’,
‘O_NOLINK’, ‘O_NOFOLLOW’, ‘O_PATH’, ‘O_TMPFILE’, ‘O_SHLOCK’,
‘O_EXLOCK’, ‘O_ASYNC’, ‘O_NOATIME’, ‘O_DIRECTORY’, ‘O_CLOEXEC’
and ‘O_DIRECT’ when available.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
libguile/filesys.c | 36 ++++++++++++++++++++++++++++++++++++
1 file changed, 36 insertions(+)
diff --git a/libguile/filesys.c b/libguile/filesys.c
index 7ca46c8..6247734 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -1992,9 +1992,45 @@ scm_init_filesys ()
#ifdef O_LARGEFILE
scm_c_define ("O_LARGEFILE", scm_from_int (O_LARGEFILE));
#endif
+#ifdef O_IGNORE_CTTY
+ scm_c_define ("O_IGNORE_CTTY", scm_from_int (O_IGNORE_CTTY));
+#endif
+#ifdef O_NOLINK
+ scm_c_define ("O_NOLINK", scm_from_int (O_NOLINK));
+#endif
#ifdef O_NOTRANS
scm_c_define ("O_NOTRANS", scm_from_int (O_NOTRANS));
#endif
+#ifdef O_NOFOLLOW
+ scm_c_define ("O_NOFOLLOW", scm_from_int (O_NOFOLLOW));
+#endif
+#ifdef O_PATH
+ scm_c_define ("O_PATH", scm_from_int (O_PATH));
+#endif
+#ifdef O_TMPFILE
+ scm_c_define ("O_TMPFILE", scm_from_int (O_TMPFILE));
+#endif
+#ifdef O_SHLOCK
+ scm_c_define ("O_SHLOCK", scm_from_int (O_SHLOCK));
+#endif
+#ifdef O_EXLOCK
+ scm_c_define ("O_EXLOCK", scm_from_int (O_EXLOCK));
+#endif
+#ifdef O_ASYNC
+ scm_c_define ("O_ASYNC", scm_from_int (O_ASYNC));
+#endif
+#ifdef O_NOATIME
+ scm_c_define ("O_NOATIME", scm_from_int (O_NOATIME));
+#endif
+#ifdef O_DIRECTORY
+ scm_c_define ("O_DIRECTORY", scm_from_int (O_DIRECTORY));
+#endif
+#ifdef O_CLOEXEC
+ scm_c_define ("O_CLOEXEC", scm_from_int (O_CLOEXEC));
+#endif
+#ifdef O_DIRECT
+ scm_c_define ("O_DIRECT", scm_from_int (O_DIRECT));
+#endif
#ifdef F_DUPFD
scm_c_define ("F_DUPFD", scm_from_int (F_DUPFD));