Mercurial > hg > octave-lojdl > gnulib-hg
annotate lib/lchown.c @ 5159:a535859efd14
Merge from coreutils.
| author | Paul Eggert <eggert@cs.ucla.edu> |
|---|---|
| date | Sat, 07 Aug 2004 00:09:38 +0000 |
| parents | 146129232fe0 |
| children | a48fb0e98c8c |
| rev | line source |
|---|---|
| 1365 | 1 /* Provide a stub lchown function for systems that lack it. |
|
5078
146129232fe0
Merge from coreutils CVS.
Paul Eggert <eggert@cs.ucla.edu>
parents:
3868
diff
changeset
|
2 Copyright (C) 1998, 1999, 2002, 2004 Free Software Foundation, Inc. |
| 1365 | 3 |
| 4 This program is free software; you can redistribute it and/or modify | |
| 5 it under the terms of the GNU General Public License as published by | |
| 6 the Free Software Foundation; either version 2, or (at your option) | |
| 7 any later version. | |
| 8 | |
| 9 This program is distributed in the hope that it will be useful, | |
| 10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 GNU General Public License for more details. | |
| 13 | |
| 14 You should have received a copy of the GNU General Public License | |
| 15 along with this program; if not, write to the Free Software Foundation, | |
| 16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ | |
| 17 | |
| 18 /* written by Jim Meyering */ | |
| 19 | |
| 20 #include <config.h> | |
| 21 | |
| 22 #include <sys/types.h> | |
| 23 #include <sys/stat.h> | |
| 24 #include <errno.h> | |
| 5159 | 25 |
| 1434 | 26 #include "lchown.h" |
| 5159 | 27 #include "stat-macros.h" |
|
1949
03bd8fe085db
[STAT_MACROS_BROKEN] (S_ISLNK): Undefine.
Jim Meyering <jim@meyering.net>
parents:
1690
diff
changeset
|
28 |
| 1690 | 29 /* Declare chown to avoid a warning. Don't include unistd.h, |
| 30 because it may have a conflicting prototype for lchown. */ | |
| 31 int chown (); | |
| 32 | |
| 1365 | 33 /* Work just like chown, except when FILE is a symbolic link. |
| 5159 | 34 In that case, set errno to EOPNOTSUPP and return -1. |
|
5078
146129232fe0
Merge from coreutils CVS.
Paul Eggert <eggert@cs.ucla.edu>
parents:
3868
diff
changeset
|
35 But if autoconf tests determined that chown modifies |
|
146129232fe0
Merge from coreutils CVS.
Paul Eggert <eggert@cs.ucla.edu>
parents:
3868
diff
changeset
|
36 symlinks, then just call chown. */ |
| 1365 | 37 |
| 38 int | |
| 1377 | 39 lchown (const char *file, uid_t uid, gid_t gid) |
| 1365 | 40 { |
| 5159 | 41 #if ! CHOWN_MODIFIES_SYMLINK |
| 1365 | 42 struct stat stats; |
| 43 | |
|
1378
5b37c6d8cd35
Fix braino: check S_ISLNK only if lstat succeeds.
Jim Meyering <jim@meyering.net>
parents:
1377
diff
changeset
|
44 if (lstat (file, &stats) == 0 && S_ISLNK (stats.st_mode)) |
| 1365 | 45 { |
| 5159 | 46 errno = EOPNOTSUPP; |
| 1365 | 47 return -1; |
| 48 } | |
| 5159 | 49 #endif |
| 1365 | 50 |
| 51 return chown (file, uid, gid); | |
| 52 } |