[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH v2 11/14] Define a Scheme binding to ‘fchownat’ when it exists.
From: |
Maxime Devos |
Subject: |
[PATCH v2 11/14] Define a Scheme binding to ‘fchownat’ when it exists. |
Date: |
Tue, 16 Nov 2021 11:06:34 +0000 |
* configure.ac: Detect whether ‘fchownat’ is available.
* libguile/filesys.c (scm_chownat): Define a Scheme binding to
‘fchownat’ when available.
* libguile/filesys.h (scm_chownat): Make it part of the API.
* doc/ref/posix.texi (File System): Document it.
---
configure.ac | 4 ++--
doc/ref/posix.texi | 11 +++++++++++
libguile/filesys.c | 35 +++++++++++++++++++++++++++++++++++
libguile/filesys.h | 1 +
4 files changed, 49 insertions(+), 2 deletions(-)
diff --git a/configure.ac b/configure.ac
index e1c090321..dcb6bceb5 100644
--- a/configure.ac
+++ b/configure.ac
@@ -478,14 +478,14 @@ AC_CHECK_HEADERS([assert.h crt_externs.h])
# isblank - available as a GNU extension or in C99
# _NSGetEnviron - Darwin specific
# strcoll_l, newlocale, uselocale, utimensat, futimens, fchmodat,
-# unlinkat - POSIX.1-2008
+# unlinkat, fchownat - POSIX.1-2008
# strtol_l - non-POSIX, found in glibc
# fork - unavailable on Windows
# sched_getaffinity, sched_setaffinity - GNU extensions (glibc)
# sendfile - non-POSIX, found in glibc
#
AC_CHECK_FUNCS([DINFINITY DQNAN cexp chsize clog clog10 ctermid \
- fesetround ftime ftruncate fchown fchmod fchdir readlinkat \
+ fesetround ftime ftruncate fchown fchownat fchmod fchdir readlinkat \
fchmodat symlinkat mkdirat renameat unlinkat getcwd geteuid getsid \
gettimeofday getuid getgid gmtime_r ioctl lstat mkdir mkdtemp mknod \
nice readlink rename rmdir setegid seteuid \
diff --git a/doc/ref/posix.texi b/doc/ref/posix.texi
index ad10585d9..3d06f1c73 100644
--- a/doc/ref/posix.texi
+++ b/doc/ref/posix.texi
@@ -784,6 +784,17 @@ unsupported at present). If @var{owner} or @var{group} is
specified
as @code{-1}, then that ID is not changed.
@end deffn
+@findex fchownat
+@deffn {Scheme Procedure} chownat dir name owner group [flags]
+@deffnx {C Function} scm_chownat (dir, name, owner, group, flags)
+Like @code{chown}, but modify the owner and/or group of
+the file named @var{name} in the directory referred to
+by the file port @var{dir} instead. The optional argument
+@var{flags} is a bitmask. If @code{AT_SYMLINK_NOFOLLOW} is
+present, then @var{name} will not be dereferenced if it is a
+symbolic link.
+@end deffn
+
@findex fchmod
@deffn {Scheme Procedure} chmod object mode
@deffnx {C Function} scm_chmod (object, mode)
diff --git a/libguile/filesys.c b/libguile/filesys.c
index 7e6d89626..c257bb59c 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -193,6 +193,41 @@ SCM_DEFINE (scm_chown, "chown", 3, 0, 0,
#undef FUNC_NAME
#endif /* HAVE_CHOWN */
+#ifdef HAVE_FCHOWNAT
+SCM_DEFINE (scm_chownat, "chown-at", 4, 1, 0,
+ (SCM dir, SCM name, SCM owner, SCM group, SCM flags),
+ "Like @code{chown}, but modify the owner and/or group of\n"
+ "the file named @var{name} in the directory referred to\n"
+ "by the file port @var{dir} instead. The optional argument\n"
+ "@var{flags} is a bitmask. If @code{AT_SYMLINK_NOFOLLOW} is\n"
+ "present, then @var{name} will not be dereferenced if it is a\n"
+ "symbolic link.")
+#define FUNC_NAME s_scm_chownat
+{
+ int rv;
+ int dir_fdes;
+ int c_flags;
+
+ if (SCM_UNBNDP (flags))
+ c_flags = 0;
+ else
+ c_flags = scm_to_int (flags);
+
+ SCM_VALIDATE_OPFPORT (SCM_ARG1, dir);
+ dir_fdes = SCM_FPORT_FDES (dir);
+
+ STRING_SYSCALL (name, c_name,
+ rv = fchownat (dir_fdes, c_name,
+ scm_to_int (owner), scm_to_int (group),
+ c_flags));
+ scm_remember_upto_here_1 (dir);
+ if (rv == -1)
+ SCM_SYSERROR;
+ return SCM_UNSPECIFIED;
+}
+#undef FUNC_NAME
+#endif /* HAVE_FCHOWNAT */
+
SCM_DEFINE (scm_open_fdes, "open-fdes", 2, 1, 0,
diff --git a/libguile/filesys.h b/libguile/filesys.h
index 37d084cd5..7673c8051 100644
--- a/libguile/filesys.h
+++ b/libguile/filesys.h
@@ -39,6 +39,7 @@ SCM_API scm_t_bits scm_tc16_dir;
SCM_API SCM scm_chown (SCM object, SCM owner, SCM group);
+SCM_API SCM scm_chownat (SCM dir, SCM object, SCM owner, SCM group, SCM flags);
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);
--
2.30.2
- [PATCH v2 00/14] Bindings to *at functions, Maxime Devos, 2021/11/16
- [PATCH v2 02/14] Allow file ports in ‘readlink’., Maxime Devos, 2021/11/16
- [PATCH v2 09/14] Define a Scheme binding to ‘fchmodat’ when it exists., Maxime Devos, 2021/11/16
- [PATCH v2 11/14] Define a Scheme binding to ‘fchownat’ when it exists.,
Maxime Devos <=
- [PATCH v2 04/14] Define ‘symlinkat’ wrapper when supported., Maxime Devos, 2021/11/16
- [PATCH v2 10/14] Define a Scheme binding to ‘unlinkat’ when it exists., Maxime Devos, 2021/11/16
- [PATCH v2 06/14] Correct documentation of ‘mkdir’ w.r.t. the umask., Maxime Devos, 2021/11/16
- [PATCH v2 07/14] Define AT_REMOVEDIR and others when available., Maxime Devos, 2021/11/16
- [PATCH v2 05/14] Define bindings to ‘mkdirat’ when the C function exists., Maxime Devos, 2021/11/16
- [PATCH v2 03/14] Allow file ports in ‘utime’., Maxime Devos, 2021/11/16
- [PATCH v2 08/14] Define a Scheme binding to ‘renameat’ when it exists., Maxime Devos, 2021/11/16
- [PATCH v2 14/14] Update NEWS., Maxime Devos, 2021/11/16
- [PATCH v2 13/14] Define Scheme bindings to ‘openat’ when available., Maxime Devos, 2021/11/16