Mercurial > hg > octave-kai > gnulib-hg
annotate lib/same.c @ 6836:e2c19cb657e7
Tweak for FreeBSD.
author | Bruno Haible <bruno@clisp.org> |
---|---|
date | Sat, 17 Jun 2006 20:02:16 +0000 (2006-06-17) |
parents | fd0ccce602e4 |
children | 314715e0260d |
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 |
5907 | 3 Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, 2005 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" |
2809
53d24b96c7f1
(same_name): Invoke xalloc_die instead of printing our own message.
Jim Meyering <jim@meyering.net>
parents:
2671
diff
changeset
|
45 #include "xalloc.h" |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
46 |
5491
b3d5c90efc81
Merge from coreutils for getcwd and HP-UX 11.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5135
diff
changeset
|
47 #ifndef MIN |
b3d5c90efc81
Merge from coreutils for getcwd and HP-UX 11.
Paul Eggert <eggert@cs.ucla.edu>
parents:
5135
diff
changeset
|
48 # 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
|
49 #endif |
4910 | 50 |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
51 #define SAME_INODE(Stat_buf_1, Stat_buf_2) \ |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
52 ((Stat_buf_1).st_ino == (Stat_buf_2).st_ino \ |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
53 && (Stat_buf_1).st_dev == (Stat_buf_2).st_dev) |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
54 |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
55 /* 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
|
56 directory. */ |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
57 |
5135
46d5c1c09035
(same_name): Return bool, not int.
Paul Eggert <eggert@cs.ucla.edu>
parents:
4910
diff
changeset
|
58 bool |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
59 same_name (const char *source, const char *dest) |
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
60 { |
4367 | 61 /* Compare the basenames. */ |
62 char const *source_basename = base_name (source); | |
63 char const *dest_basename = base_name (dest); | |
64 size_t source_baselen = base_len (source_basename); | |
65 size_t dest_baselen = base_len (dest_basename); | |
4910 | 66 bool identical_basenames = |
67 (source_baselen == dest_baselen | |
68 && memcmp (source_basename, dest_basename, dest_baselen) == 0); | |
69 bool compare_dirs = identical_basenames; | |
70 bool same = false; | |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
71 |
4910 | 72 #if ! _POSIX_NO_TRUNC && HAVE_PATHCONF && defined _PC_NAME_MAX |
5907 | 73 /* This implementation silently truncates components of file names. If |
4910 | 74 the base names might be truncated, check whether the truncated |
75 base names are the same, while checking the directories. */ | |
76 size_t slen_max = HAVE_LONG_FILE_NAMES ? 255 : _POSIX_NAME_MAX; | |
77 size_t min_baselen = MIN (source_baselen, dest_baselen); | |
78 if (slen_max <= min_baselen | |
79 && memcmp (source_basename, dest_basename, slen_max) == 0) | |
80 compare_dirs = true; | |
81 #endif | |
82 | |
83 if (compare_dirs) | |
4179
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
84 { |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
85 struct stat source_dir_stats; |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
86 struct stat dest_dir_stats; |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
87 char *source_dirname, *dest_dirname; |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
88 |
4181 | 89 /* 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
|
90 source_dirname = dir_name (source); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
91 dest_dirname = dir_name (dest); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
92 |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
93 if (stat (source_dirname, &source_dir_stats)) |
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 /* Shouldn't happen. */ |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
96 error (1, errno, "%s", source_dirname); |
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 |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
99 if (stat (dest_dirname, &dest_dir_stats)) |
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 /* Shouldn't happen. */ |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
102 error (1, errno, "%s", dest_dirname); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
103 } |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
104 |
4910 | 105 same = SAME_INODE (source_dir_stats, dest_dir_stats); |
106 | |
107 #if ! _POSIX_NO_TRUNC && HAVE_PATHCONF && defined _PC_NAME_MAX | |
108 if (same && ! identical_basenames) | |
109 { | |
110 long name_max = (errno = 0, pathconf (dest_dirname, _PC_NAME_MAX)); | |
111 if (name_max < 0) | |
112 { | |
113 if (errno) | |
114 { | |
115 /* Shouldn't happen. */ | |
116 error (1, errno, "%s", dest_dirname); | |
117 } | |
118 same = false; | |
119 } | |
120 else | |
121 same = (name_max <= min_baselen | |
122 && memcmp (source_basename, dest_basename, name_max) == 0); | |
123 } | |
124 #endif | |
125 | |
4179
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
126 free (source_dirname); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
127 free (dest_dirname); |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
128 } |
7dd6887fa0db
Optimization: Avoid unnecessary stat() calls.
Bruno Haible <bruno@clisp.org>
parents:
3966
diff
changeset
|
129 |
4910 | 130 return same; |
1857
f47e2d0bff02
New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff
changeset
|
131 } |