annotate liboctave/rename.c @ 7016:93c65f2a5668

[project @ 2007-10-12 06:40:56 by jwe]
author jwe
date Fri, 12 Oct 2007 06:41:26 +0000
parents 4c8a2e4e0717
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
1 /* rename.c -- BSD compatible directory function for System V
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
2 Copyright (C) 1988, 1990 Free Software Foundation, Inc.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
3
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
6 the Free Software Foundation; either version 2 of the License, or
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
7 (at your option) any later version.
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
8
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
12 GNU General Public License for more details.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
13
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
15 along with this program; if not, write to the Free Software
5307
4c8a2e4e0717 [project @ 2005-04-26 19:24:27 by jwe]
jwe
parents: 3284
diff changeset
16 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
4c8a2e4e0717 [project @ 2005-04-26 19:24:27 by jwe]
jwe
parents: 3284
diff changeset
17 02110-1301 USA. */
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
18
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
19 #ifdef HAVE_CONFIG_H
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
20 #include <config.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
21 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
22
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
23 #ifndef HAVE_RENAME
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
24
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
25 #ifdef HAVE_SYS_TYPES_H
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
26 #include <sys/types.h>
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
27 #endif
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
28 #include <sys/stat.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
29 #include <errno.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
30 #ifndef errno
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
31 extern int errno;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
32 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
33
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
34 #ifdef STAT_MACROS_BROKEN
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
35 #undef S_ISDIR
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
36 #endif /* STAT_MACROS_BROKEN. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
37
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
38 #if !defined(S_ISDIR) && defined(S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
39 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
40 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
41
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
42 #include "safe-stat.h"
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
43
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
44 /* Rename file FROM to file TO.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
45 Return 0 if successful, -1 if not. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
46
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
47 int
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
48 rename (from, to)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
49 char *from;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
50 char *to;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
51 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
52 struct stat from_stats, to_stats;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
53 int pid, status;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
54
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
55 if (SAFE_STAT (from, &from_stats))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
56 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
57
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
58 /* Be careful not to unlink `from' if it happens to be equal to `to' or
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
59 (on filesystems that silently truncate filenames after 14 characters)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
60 if `from' and `to' share the significant characters. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
61 if (SAFE_STAT (to, &to_stats))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
62 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
63 if (errno != ENOENT)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
64 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
65 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
66 else
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
67 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
68 if ((from_stats.st_dev == to_stats.st_dev)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
69 && (from_stats.st_ino == to_stats.st_dev))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
70 /* `from' and `to' designate the same file on that filesystem. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
71 return 0;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
72
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
73 if (unlink (to) && errno != ENOENT)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
74 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
75 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
76
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
77 if (S_ISDIR (from_stats.st_mode))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
78 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
79 /* Need a setuid root process to link and unlink directories. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
80 pid = fork ();
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
81 switch (pid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
82 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
83 case -1: /* Error. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
84 error (1, errno, "cannot fork");
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
85
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
86 case 0: /* Child. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
87 execl (MVDIR, "mvdir", from, to, (char *) 0);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
88 error (255, errno, "cannot run `%s'", MVDIR);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
89
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
90 default: /* Parent. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
91 while (wait (&status) != pid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
92 /* Do nothing. */ ;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
93
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
94 errno = 0; /* mvdir printed the system error message. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
95 if (status)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
96 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
97 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
98 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
99 else
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
100 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
101 if (link (from, to))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
102 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
103 if (unlink (from) && errno != ENOENT)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
104 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
105 unlink (to);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
106 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
107 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
108 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
109 return 0;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
110 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
111
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
112 #endif