exp2l: Work around a NetBSD 10.0/i386 bug.
[gnulib.git] / lib / euidaccess.c
blobad392dba19cd9adc7de4a180aeaa55de63a389f4
1 /* euidaccess -- check if effective user id can access file
3 Copyright (C) 1990-1991, 1995, 1998, 2000, 2003-2006, 2008-2024 Free
4 Software Foundation, Inc.
6 This file is part of the GNU C Library.
8 This file is free software: you can redistribute it and/or modify
9 it under the terms of the GNU Lesser General Public License as
10 published by the Free Software Foundation; either version 2.1 of the
11 License, or (at your option) any later version.
13 This file is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU Lesser General Public License for more details.
18 You should have received a copy of the GNU Lesser General Public License
19 along with this program. If not, see <https://www.gnu.org/licenses/>. */
21 /* Written by David MacKenzie and Torbjorn Granlund.
22 Adapted for GNU C library by Roland McGrath. */
24 #ifndef _LIBC
25 # include <config.h>
26 #endif
28 #include <fcntl.h>
29 #include <sys/types.h>
30 #include <sys/stat.h>
31 #include <unistd.h>
32 #if defined _WIN32 && ! defined __CYGWIN__
33 # include <io.h>
34 #else
35 # include "root-uid.h"
36 #endif
38 #if HAVE_LIBGEN_H
39 # include <libgen.h>
40 #endif
42 #include <errno.h>
43 #ifndef __set_errno
44 # define __set_errno(val) errno = (val)
45 #endif
47 #if defined EACCES && !defined EACCESS
48 # define EACCESS EACCES
49 #endif
51 #ifndef F_OK
52 # define F_OK 0
53 # define X_OK 1
54 # define W_OK 2
55 # define R_OK 4
56 #endif
59 #ifdef _LIBC
61 # define access __access
62 # define getuid __getuid
63 # define getgid __getgid
64 # define geteuid __geteuid
65 # define getegid __getegid
66 # define group_member __group_member
67 # define euidaccess __euidaccess
68 # undef stat
69 # define stat stat64
71 #endif
73 /* Return 0 if the user has permission of type MODE on FILE;
74 otherwise, return -1 and set 'errno'.
75 Like access, except that it uses the effective user and group
76 id's instead of the real ones, and it does not always check for read-only
77 file system, text busy, etc. */
79 int
80 euidaccess (const char *file, int mode)
82 #if HAVE_FACCESSAT /* glibc, AIX 7, Solaris 11, Cygwin 1.7 */
83 return faccessat (AT_FDCWD, file, mode, AT_EACCESS);
84 #elif defined EFF_ONLY_OK /* IRIX, OSF/1, Interix */
85 return access (file, mode | EFF_ONLY_OK);
86 #elif defined ACC_SELF /* AIX */
87 return accessx (file, mode, ACC_SELF);
88 #elif HAVE_EACCESS /* FreeBSD */
89 return eaccess (file, mode);
90 #elif defined _WIN32 && ! defined __CYGWIN__ /* mingw */
91 return _access (file, mode);
92 #else /* Mac OS X, NetBSD, OpenBSD, HP-UX, Solaris, Cygwin, BeOS */
94 uid_t uid = getuid ();
95 gid_t gid = getgid ();
96 uid_t euid = geteuid ();
97 gid_t egid = getegid ();
98 struct stat stats;
100 # if HAVE_DECL_SETREGID && PREFER_NONREENTRANT_EUIDACCESS
102 /* Define PREFER_NONREENTRANT_EUIDACCESS if you prefer euidaccess to
103 return the correct result even if this would make it
104 nonreentrant. Define this only if your entire application is
105 safe even if the uid or gid might temporarily change. If your
106 application uses signal handlers or threads it is probably not
107 safe. */
109 if (mode == F_OK)
111 int result = stat (file, &stats);
112 return result != 0 && errno == EOVERFLOW ? 0 : result;
114 else
116 int result;
117 int saved_errno;
119 if (uid != euid)
120 setreuid (euid, uid);
121 if (gid != egid)
122 setregid (egid, gid);
124 result = access (file, mode);
125 saved_errno = errno;
127 /* Restore them. */
128 if (uid != euid)
129 setreuid (uid, euid);
130 if (gid != egid)
131 setregid (gid, egid);
133 errno = saved_errno;
134 return result;
137 # else
139 /* The following code assumes the traditional Unix model, and is not
140 correct on systems that have ACLs or the like. However, it's
141 better than nothing, and it is reentrant. */
143 unsigned int granted;
144 if (uid == euid && gid == egid)
145 /* If we are not set-uid or set-gid, access does the same. */
146 return access (file, mode);
148 if (stat (file, &stats) == -1)
149 return mode == F_OK && errno == EOVERFLOW ? 0 : -1;
151 /* The super-user can read and write any file, and execute any file
152 that anyone can execute. */
153 if (euid == ROOT_UID
154 && ((mode & X_OK) == 0
155 || (stats.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))))
156 return 0;
158 /* Convert the mode to traditional form, clearing any bogus bits. */
159 if (R_OK == 4 && W_OK == 2 && X_OK == 1 && F_OK == 0)
160 mode &= 7;
161 else
162 mode = ((mode & R_OK ? 4 : 0)
163 + (mode & W_OK ? 2 : 0)
164 + (mode & X_OK ? 1 : 0));
166 if (mode == 0)
167 return 0; /* The file exists. */
169 /* Convert the file's permission bits to traditional form. */
170 if (S_IRUSR == (4 << 6) && S_IWUSR == (2 << 6) && S_IXUSR == (1 << 6)
171 && S_IRGRP == (4 << 3) && S_IWGRP == (2 << 3) && S_IXGRP == (1 << 3)
172 && S_IROTH == (4 << 0) && S_IWOTH == (2 << 0) && S_IXOTH == (1 << 0))
173 granted = stats.st_mode;
174 else
175 granted = ((stats.st_mode & S_IRUSR ? 4 << 6 : 0)
176 + (stats.st_mode & S_IWUSR ? 2 << 6 : 0)
177 + (stats.st_mode & S_IXUSR ? 1 << 6 : 0)
178 + (stats.st_mode & S_IRGRP ? 4 << 3 : 0)
179 + (stats.st_mode & S_IWGRP ? 2 << 3 : 0)
180 + (stats.st_mode & S_IXGRP ? 1 << 3 : 0)
181 + (stats.st_mode & S_IROTH ? 4 << 0 : 0)
182 + (stats.st_mode & S_IWOTH ? 2 << 0 : 0)
183 + (stats.st_mode & S_IXOTH ? 1 << 0 : 0));
185 if (euid == stats.st_uid)
186 granted >>= 6;
187 else if (egid == stats.st_gid || group_member (stats.st_gid))
188 granted >>= 3;
190 if ((mode & ~granted) == 0)
191 return 0;
192 __set_errno (EACCESS);
193 return -1;
195 # endif
196 #endif
198 #undef euidaccess
199 #ifdef weak_alias
200 weak_alias (__euidaccess, euidaccess)
201 #endif
203 #ifdef TEST
204 # include <error.h>
205 # include <stdio.h>
206 # include <stdlib.h>
209 main (int argc, char **argv)
211 char *file;
212 int mode;
213 int err;
215 if (argc < 3)
216 abort ();
217 file = argv[1];
218 mode = atoi (argv[2]);
220 err = euidaccess (file, mode);
221 printf ("%d\n", err);
222 if (err != 0)
223 error (0, errno, "%s", file);
224 exit (0);
226 #endif