annotate liboctave/rename.c @ 5100:5a92c3177fc6 before-gnuplot-split

[project @ 2004-12-27 17:20:38 by jwe]
author jwe
date Mon, 27 Dec 2004 17:20:38 +0000
parents f7e4a95916f2
children 4c8a2e4e0717
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
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
7 any later version.
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
3284
f7e4a95916f2 [project @ 1999-10-13 21:37:04 by jwe]
jwe
parents: 2443
diff changeset
16 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
17
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
18 #ifdef HAVE_CONFIG_H
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
19 #include <config.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
20 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
21
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
22 #ifndef HAVE_RENAME
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
23
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
24 #ifdef HAVE_SYS_TYPES_H
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
25 #include <sys/types.h>
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
26 #endif
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
27 #include <sys/stat.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
28 #include <errno.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
29 #ifndef errno
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
30 extern int errno;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
31 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
32
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
33 #ifdef STAT_MACROS_BROKEN
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
34 #undef S_ISDIR
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
35 #endif /* STAT_MACROS_BROKEN. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
36
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
37 #if !defined(S_ISDIR) && defined(S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
38 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
39 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
40
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
41 #include "safe-stat.h"
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
42
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
43 /* Rename file FROM to file TO.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
44 Return 0 if successful, -1 if not. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
45
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
46 int
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
47 rename (from, to)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
48 char *from;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
49 char *to;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
50 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
51 struct stat from_stats, to_stats;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
52 int pid, status;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
53
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
54 if (SAFE_STAT (from, &from_stats))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
55 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
56
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
57 /* 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
58 (on filesystems that silently truncate filenames after 14 characters)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
59 if `from' and `to' share the significant characters. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
60 if (SAFE_STAT (to, &to_stats))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
61 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
62 if (errno != ENOENT)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
63 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
64 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
65 else
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
66 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
67 if ((from_stats.st_dev == to_stats.st_dev)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
68 && (from_stats.st_ino == to_stats.st_dev))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
69 /* `from' and `to' designate the same file on that filesystem. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
70 return 0;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
71
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
72 if (unlink (to) && errno != ENOENT)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
73 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
74 }
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 if (S_ISDIR (from_stats.st_mode))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
77 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
78 /* Need a setuid root process to link and unlink directories. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
79 pid = fork ();
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
80 switch (pid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
81 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
82 case -1: /* Error. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
83 error (1, errno, "cannot fork");
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
84
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
85 case 0: /* Child. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
86 execl (MVDIR, "mvdir", from, to, (char *) 0);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
87 error (255, errno, "cannot run `%s'", MVDIR);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
88
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
89 default: /* Parent. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
90 while (wait (&status) != pid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
91 /* Do nothing. */ ;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
92
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
93 errno = 0; /* mvdir printed the system error message. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
94 if (status)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
95 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
96 }
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 else
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
99 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
100 if (link (from, to))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
101 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
102 if (unlink (from) && errno != ENOENT)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
103 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
104 unlink (to);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
105 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
106 }
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 return 0;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
109 }
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 #endif