diff options
author | Maxime Devos <maximedevos@telenet.be> | 2021-11-16 11:06:32 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-10-21 17:40:37 +0200 |
commit | 19b48b1c4a0335851a51d1ac69a24b154d401fdd (patch) | |
tree | 41be50b4b85a9305399d2347f1b9efa950eb4790 /libguile/filesys.h | |
parent | 3a0554c60fb12857c67d2eb0bd04cf8c59014f55 (diff) | |
download | guile-19b48b1c4a0335851a51d1ac69a24b154d401fdd.tar.gz |
Define a Scheme binding to ‘fchmodat’ when it exists.
* configure.ac: Detect existence of fchmodat.
* libguile/filesys.c (scm_chmodat): New procedure.
* libguile/filesys.h (scm_chmodat): Make it part of the API.
* test-suite/tests/filesys.test ("chmodat"): Test it.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'libguile/filesys.h')
-rw-r--r-- | libguile/filesys.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/filesys.h b/libguile/filesys.h index 7e17cc585..377a3795e 100644 --- a/libguile/filesys.h +++ b/libguile/filesys.h @@ -40,6 +40,7 @@ SCM_API scm_t_bits scm_tc16_dir; SCM_API SCM scm_chown (SCM object, SCM owner, SCM group); SCM_API SCM scm_chmod (SCM object, SCM mode); +SCM_API SCM scm_chmodat (SCM dir, SCM pathname, SCM mode, SCM flags); SCM_API SCM scm_umask (SCM mode); SCM_API SCM scm_open_fdes (SCM path, SCM flags, SCM mode); SCM_API SCM scm_open (SCM path, SCM flags, SCM mode); |