blob: 2bcb9c0e0486240551ebcd20bef85c563ab27442 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
%
% (c) The GRASP/AQUA Project, Glasgow University, 1995
%
\subsection[renameFile.lc]{renameFile Runtime Support}
\begin{code}
#include "rtsdefs.h"
#include "stgio.h"
#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif
#ifdef HAVE_SYS_STAT_H
#include <sys/stat.h>
#endif
#ifdef HAVE_FCNTL_H
#include <fcntl.h>
#endif
StgInt
renameFile(opath, npath)
StgByteArray opath;
StgByteArray npath;
{
struct stat sb;
int fd;
int created = 0;
/* Check for a non-directory source */
while (stat(opath, &sb) != 0) {
if (errno != EINTR) {
cvtErrno();
stdErrno();
return -1;
}
}
if (S_ISDIR(sb.st_mode)) {
ghc_errtype = ERR_INAPPROPRIATETYPE;
ghc_errstr = "file is a directory";
return -1;
}
/* Ensure a non-directory destination */
/* First try to open without creating */
while ((fd = open(npath, O_RDONLY | O_NOCTTY, 0)) < 0) {
if (errno == ENOENT) {
/* Now try to create it */
while ((fd = open(npath, O_RDONLY | O_NOCTTY | O_CREAT | O_EXCL, 0)) < 0) {
if (errno == EEXIST) {
/* Race detected; go back and open without creating it */
break;
} else if (errno != EINTR) {
cvtErrno();
switch (ghc_errno) {
default:
stdErrno();
break;
case GHC_ENOENT:
case GHC_ENOTDIR:
ghc_errtype = ERR_NOSUCHTHING;
ghc_errstr = "no path to file";
break;
case GHC_EINVAL:
ghc_errtype = ERR_PERMISSIONDENIED;
ghc_errstr = "unsupported owner or group";
break;
}
return -1;
}
}
if (fd >= 0) {
created = 1;
break;
}
} else if (errno != EINTR) {
cvtErrno();
switch (ghc_errno) {
default:
stdErrno();
break;
case GHC_ENOTDIR:
ghc_errtype = ERR_NOSUCHTHING;
ghc_errstr = "no path to file";
break;
case GHC_EINVAL:
ghc_errtype = ERR_PERMISSIONDENIED;
ghc_errstr = "unsupported owner or group";
break;
}
return -1;
}
}
/* Make sure that we aren't looking at a directory */
while (fstat(fd, &sb) < 0) {
/* highly unlikely */
if (errno != EINTR) {
cvtErrno();
if (created)
(void) unlink(npath);
(void) close(fd);
return -1;
}
}
if (S_ISDIR(sb.st_mode)) {
ghc_errtype = ERR_INAPPROPRIATETYPE;
ghc_errstr = "destination is a directory";
/* We can't have created it in this case. */
(void) close(fd);
return -1;
}
while(rename(opath, npath) != 0) {
if (errno != EINTR) {
cvtErrno();
stdErrno();
if (created)
(void) unlink(npath);
(void) close(fd);
return -1;
}
}
close(fd);
return 0;
}
\end{code}
|
