mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Define `O_NOFOLLOW' and various other flags when supported.

Browse source 
* 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>
This commit is contained in:
Maxime Devos 2021-03-02 18:03:22 +01:00 • committed by Ludovic Courtès
parent a242d2d2b2
commit 553c82cee9
1 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
libguile/filesys.c
View file

@ -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));