Mercurial > hg > octave-nkf > gnulib-hg
annotate lib/same.c @ 6912:314715e0260d
Merge from coreutils.
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Mon, 03 Jul 2006 08:32:46 +0000 (2006-07-03) |
parents | fd0ccce602e4 |
children | 8a1a9361108c |
rev | line source |
---|---|
2092
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
1 /* Determine whether two file names refer to the same file. |
5135
46d5c1c09035
(same_name): Return bool, not int.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4910
diff
changeset
|
2 |
6912 | 3 Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, 2005, 2006 Free |
5135
46d5c1c09035
(same_name): Return bool, not int.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4910
diff
changeset
|
4 Software Foundation, Inc. |
2092
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
5 |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
6 This program is free software; you can redistribute it and/or modify |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
7 it under the terms of the GNU General Public License as published by |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
9 any later version. |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
10 |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
11 This program is distributed in the hope that it will be useful, |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
14 GNU General Public License for more details. |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
15 |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
16 You should have received a copy of the GNU General Public License |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
17 along with this program; if not, write to the Free Software Foundation, |
5848
a48fb0e98c8c
*** empty log message ***
Paul Eggert <eggert@cs.ucla.edu>
parents:
5491
diff
changeset
|
18 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ |
2092
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
19 |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
20 /* written by Jim Meyering */ |
0cf0dc1ce656
add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents:
1857
diff
changeset
|
21 |
6259
96c32553b4c6
Use a consistent style for including <config.h>.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5907
diff
changeset
|
22 #ifdef HAVE_CONFIG_H |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
23 # include <config.h> |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
24 #endif |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
25 |
4910 | 26 #include <stdbool.h> |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
27 #include <stdio.h> |
6275 | 28 #include <unistd.h> |
4674 | 29 #include <stdlib.h> |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
30 #include <sys/types.h> |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
31 #include <sys/stat.h> |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
32 #include <ctype.h> |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
33 #include <errno.h> |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
34 |
4674 | 35 #include <string.h> |
2671
db2d95fa362f
Include <string.h> or <strings.h>, as appropriate, for declaration of strcmp.
Jim Meyering <jim@meyering.net>
parents:
2293
diff
changeset
|
36 |
4910 | 37 #include <limits.h> |
38 #ifndef _POSIX_NAME_MAX | |
39 # define _POSIX_NAME_MAX 14 | |
40 #endif | |
41 | |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
42 #include "same.h" |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
43 #include "dirname.h" |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
44 #include "error.h" |
6912 | 45 #include "same-inode.h" |
2809
53d24b96c7f1
(same_name): Invoke xalloc_die instead of printing our own message.
Jim Meyering <jim@meyering.net>
parents:
2671
diff
changeset
|
46 #include "xalloc.h" |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
47 |
5491
b3d5c90efc81
Merge from coreutils for getcwd and HP-UX 11.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5135
diff
changeset
|
48 #ifndef MIN |
b3d5c90efc81
Merge from coreutils for getcwd and HP-UX 11.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5135
diff
changeset
|
49 # define MIN(a, b) ((a) < (b) ? (a) : (b)) |
b3d5c90efc81
Merge from coreutils for getcwd and HP-UX 11.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5135
diff
changeset
|
50 #endif |
4910 | 51 |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
52 /* Return nonzero if SOURCE and DEST point to the same name in the same |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
53 directory. */ |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
54 |
5135
46d5c1c09035
(same_name): Return bool, not int.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4910
diff
changeset
|
55 bool |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
56 same_name (const char *source, const char *dest) |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
57 { |
4367 | 58 /* Compare the basenames. */ |
6912 | 59 char const *source_basename = last_component (source); |
60 char const *dest_basename = last_component (dest); | |
4367 | 61 size_t source_baselen = base_len (source_basename); |
62 size_t dest_baselen = base_len (dest_basename); | |
4910 | 63 bool identical_basenames = |
64 (source_baselen == dest_baselen | |
65 && memcmp (source_basename, dest_basename, dest_baselen) == 0); | |
66 bool compare_dirs = identical_basenames; | |
67 bool same = false; | |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
68 |
4910 | 69 #if ! _POSIX_NO_TRUNC && HAVE_PATHCONF && defined _PC_NAME_MAX |
5907 | 70 /* This implementation silently truncates components of file names. If |
4910 | 71 the base names might be truncated, check whether the truncated |
72 base names are the same, while checking the directories. */ | |
73 size_t slen_max = HAVE_LONG_FILE_NAMES ? 255 : _POSIX_NAME_MAX; | |
74 size_t min_baselen = MIN (source_baselen, dest_baselen); | |
75 if (slen_max <= min_baselen | |
76 && memcmp (source_basename, dest_basename, slen_max) == 0) | |
77 compare_dirs = true; | |
78 #endif | |
79 | |
80 if (compare_dirs) | |
4179
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
81 { |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
82 struct stat source_dir_stats; |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
83 struct stat dest_dir_stats; |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
84 char *source_dirname, *dest_dirname; |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
85 |
4181 | 86 /* Compare the parent directories (via the device and inode numbers). */ |
4179
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
87 source_dirname = dir_name (source); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
88 dest_dirname = dir_name (dest); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
89 |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
90 if (stat (source_dirname, &source_dir_stats)) |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
91 { |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
92 /* Shouldn't happen. */ |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
93 error (1, errno, "%s", source_dirname); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
94 } |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
95 |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
96 if (stat (dest_dirname, &dest_dir_stats)) |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
97 { |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
98 /* Shouldn't happen. */ |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
99 error (1, errno, "%s", dest_dirname); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
100 } |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
101 |
4910 | 102 same = SAME_INODE (source_dir_stats, dest_dir_stats); |
103 | |
104 #if ! _POSIX_NO_TRUNC && HAVE_PATHCONF && defined _PC_NAME_MAX | |
105 if (same && ! identical_basenames) | |
106 { | |
107 long name_max = (errno = 0, pathconf (dest_dirname, _PC_NAME_MAX)); | |
108 if (name_max < 0) | |
109 { | |
110 if (errno) | |
111 { | |
112 /* Shouldn't happen. */ | |
113 error (1, errno, "%s", dest_dirname); | |
114 } | |
115 same = false; | |
116 } | |
117 else | |
118 same = (name_max <= min_baselen | |
119 && memcmp (source_basename, dest_basename, name_max) == 0); | |
120 } | |
121 #endif | |
122 | |
4179
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
123 free (source_dirname); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
124 free (dest_dirname); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
125 } |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
126 |
4910 | 127 return same; |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
128 } |