Mercurial > hg > octave-kai > gnulib-hg

annotate lib/same.c @ 2809:53d24b96c7f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(same_name): Invoke xalloc_die instead of printing our own message.
author Jim Meyering <jim@meyering.net>
date Mon, 07 Aug 2000 16:55:57 +0000
parents db2d95fa362f
children ad2f40119c24
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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.
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
2 Copyright (C) 1997-2000 Free Software Foundation, Inc.
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
3
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
4 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
5 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
6 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
7 any later version.
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
8
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
9 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
10 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
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
12 GNU General Public License for more details.
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
13
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
14 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
15 along with this program; if not, write to the Free Software Foundation,
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
17
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
18 /* written by Jim Meyering */
0cf0dc1ce656 add copyright/no-warranty comment
Jim Meyering <jim@meyering.net>
parents: 1857
diff changeset
19
1857
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
20 #if HAVE_CONFIG_H
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21 # include <config.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22 #endif
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
23
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24 #include <stdio.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25 #ifdef HAVE_UNISTD_H
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
26 # include <unistd.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 #endif
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28 #if HAVE_STDLIB_H
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 # include <stdlib.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30 #endif
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31 #include <sys/types.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 #include <sys/stat.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33 #include <ctype.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 #include <errno.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
35 #ifndef errno
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36 extern int errno;
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37 #endif
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38
2671
db2d95fa362f Include <string.h> or <strings.h>, as appropriate, for declaration of strcmp.
Jim Meyering <jim@meyering.net>
parents: 2293
diff changeset
39 #if HAVE_STRING_H
db2d95fa362f Include <string.h> or <strings.h>, as appropriate, for declaration of strcmp.
Jim Meyering <jim@meyering.net>
parents: 2293
diff changeset
40 # include <string.h>
db2d95fa362f Include <string.h> or <strings.h>, as appropriate, for declaration of strcmp.
Jim Meyering <jim@meyering.net>
parents: 2293
diff changeset
41 #else
db2d95fa362f Include <string.h> or <strings.h>, as appropriate, for declaration of strcmp.
Jim Meyering <jim@meyering.net>
parents: 2293
diff changeset
42 # include <strings.h>
db2d95fa362f Include <string.h> or <strings.h>, as appropriate, for declaration of strcmp.
Jim Meyering <jim@meyering.net>
parents: 2293
diff changeset
43 #endif
db2d95fa362f Include <string.h> or <strings.h>, as appropriate, for declaration of strcmp.
Jim Meyering <jim@meyering.net>
parents: 2293
diff changeset
44
1857
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45 #include "same.h"
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
46 #include "dirname.h"
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
47 #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
48 #include "xalloc.h"
1857
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
49
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 #if ENABLE_NLS
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
51 # include <libintl.h>
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 # define _(Text) gettext (Text)
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53 #else
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54 # define _(Text) Text
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
55 #endif
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
56
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
57 #define STREQ(a, b) (strcmp ((a), (b)) == 0)
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
58
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
59 #ifndef HAVE_DECL_FREE
2293
d68da7d92089 use double quotes, not single quotes around syntax-error-evoking string
Jim Meyering <jim@meyering.net>
parents: 2288
diff changeset
60 "this configure-time declaration test was not run"
2288
ae987539432e Use `#if !HAVE_DECL...' instead of `#ifndef HAVE_DECL..'
Jim Meyering <jim@meyering.net>
parents: 2092
diff changeset
61 #endif
ae987539432e Use `#if !HAVE_DECL...' instead of `#ifndef HAVE_DECL..'
Jim Meyering <jim@meyering.net>
parents: 2092
diff changeset
62 #if !HAVE_DECL_FREE
1857
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 void free ();
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64 #endif
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
66 char *base_name PARAMS ((char const *));
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 #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
69 ((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
70 && (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
71
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 /* 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
73 directory. */
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
75 int
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
76 same_name (const char *source, const char *dest)
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
77 {
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
78 struct stat source_dir_stats;
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
79 struct stat dest_dir_stats;
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
80 char *source_dirname, *dest_dirname;
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
81
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
82 source_dirname = dir_name (source);
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
83 dest_dirname = dir_name (dest);
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
84 if (source_dirname == NULL || dest_dirname == NULL)
2809
53d24b96c7f1 (same_name): Invoke xalloc_die instead of printing our own message.
Jim Meyering <jim@meyering.net>
parents: 2671
diff changeset
85 xalloc_die ();
1857
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
86
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
87 if (stat (source_dirname, &source_dir_stats))
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
88 {
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
89 /* Shouldn't happen. */
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
90 error (1, errno, "%s", source_dirname);
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
91 }
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
92
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
93 if (stat (dest_dirname, &dest_dir_stats))
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
94 {
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
95 /* Shouldn't happen. */
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
96 error (1, errno, "%s", dest_dirname);
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
97 }
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
98
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
99 free (source_dirname);
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
100 free (dest_dirname);
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
101
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
102 return (SAME_INODE (source_dir_stats, dest_dir_stats)
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
103 && STREQ (base_name (source), base_name (dest)));
f47e2d0bff02 New file (function extracted from ln.c).
Jim Meyering <jim@meyering.net>
parents:
diff changeset
104 }