![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mv.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / mv|
Return to mv.c CVS log | Up to [Research Unix] / researchv8dc / cmd / mv |
1.1 root 1: /*
2: * mv file1 file2
3: */
4:
5: #include <stdio.h>
6: #include <sys/types.h>
7: #include <sys/stat.h>
8: #include <sys/dir.h>
9: #include <signal.h>
10:
11: #define DOT "."
12: #define DOTDOT ".."
13: #define DELIM '/'
14: #define SDELIM "/"
15: #define MAXN 100
16: #define MODEBITS 07777
17:
18: char *pname();
19: char *sprintf();
20: char *dname();
21: struct stat s1, s2;
22:
23: main(argc, argv)
24: register char *argv[];
25: {
26: register i, r;
27:
28: if (argc < 3)
29: goto usage;
30: if (stat(argv[1], &s1) < 0) {
31: fprintf(stderr, "mv: cannot access %s\n", argv[1]);
32: return(1);
33: }
34: if ((s1.st_mode & S_IFMT) == S_IFDIR) {
35: if (argc != 3)
36: goto usage;
37: return mvdir(argv[1], argv[2]);
38: }
39: setuid(getuid());
40: if (argc > 3)
41: if (stat(argv[argc-1], &s2) < 0 || (s2.st_mode & S_IFMT) != S_IFDIR)
42: goto usage;
43: r = 0;
44: for (i=1; i<argc-1; i++)
45: r |= move(argv[i], argv[argc-1]);
46: return(r);
47: usage:
48: fprintf(stderr, "usage: mv f1 f2; or mv d1 d2; or mv f1 ... fn d1\n");
49: return(1);
50: }
51:
52: move(source, target)
53: char *source, *target;
54: {
55: register c, i;
56: int status;
57: char buf[MAXN];
58:
59: if (stat(source, &s1) < 0) {
60: fprintf(stderr, "mv: cannot access %s\n", source);
61: return(1);
62: }
63: if ((s1.st_mode & S_IFMT) == S_IFDIR) {
64: fprintf(stderr, "mv: directory rename only\n");
65: return(1);
66: }
67: if (stat(target, &s2) >= 0) {
68: if ((s2.st_mode & S_IFMT) == S_IFDIR) {
69: sprintf(buf, "%s/%s", target, dname(source));
70: target = buf;
71: }
72: if (stat(target, &s2) >= 0) {
73: if ((s2.st_mode & S_IFMT) == S_IFDIR) {
74: fprintf(stderr, "mv: %s is a directory\n", target);
75: return(1);
76: }
77: if (s1.st_dev==s2.st_dev && s1.st_ino==s2.st_ino) {
78: fprintf(stderr, "mv: %s and %s are identical\n",
79: source, target);
80: return(1);
81: }
82: if (access(target, 2) < 0 && isatty(fileno(stdin))) {
83: fprintf(stderr, "mv: %s: %o mode ", target,
84: s2.st_mode & MODEBITS);
85: i = c = getchar();
86: while (c != '\n' && c != EOF)
87: c = getchar();
88: if (i != 'y')
89: return(1);
90: }
91: if (unlink(target) < 0) {
92: fprintf(stderr, "mv: cannot unlink %s\n", target);
93: return(1);
94: }
95: }
96: }
97: if (link(source, target) < 0) {
98: i = fork();
99: if (i == -1) {
100: fprintf(stderr, "mv: try again\n");
101: return(1);
102: }
103: if (i == 0) {
104: execl("/bin/cp", "cp", source, target, 0);
105: fprintf(stderr, "mv: cannot exec cp\n");
106: exit(1);
107: }
108: while ((c = wait(&status)) != i && c != -1)
109: ;
110: if (status != 0)
111: return(1);
112: utime(target, &s1.st_atime);
113: }
114: if (unlink(source) < 0) {
115: fprintf(stderr, "mv: cannot unlink %s\n", source);
116: return(1);
117: }
118: return(0);
119: }
120:
121: mvdir(source, target)
122: char *source, *target;
123: {
124: register char *p;
125: register i;
126: char buf[MAXN];
127:
128: if (stat(target, &s2) >= 0) {
129: if ((s2.st_mode&S_IFMT) != S_IFDIR) {
130: fprintf(stderr, "mv: %s exists\n", target);
131: return(1);
132: }
133: if (strlen(target) > MAXN-DIRSIZ-2) {
134: fprintf(stderr, "mv :target name too long\n");
135: return(1);
136: }
137: strcpy(buf, target);
138: target = buf;
139: strcat(buf, SDELIM);
140: strcat(buf, dname(source));
141: if (stat(target, &s2) >= 0) {
142: fprintf(stderr, "mv: %s exists\n", buf);
143: return(1);
144: }
145: }
146: if (strcmp(source, target) == 0) {
147: fprintf(stderr, "mv: ?? source == target, source exists and target doesnt\n");
148: return(1);
149: }
150: p = dname(source);
151: if (!strcmp(p, DOT) || !strcmp(p, DOTDOT) || !strcmp(p, "") || p[strlen(p)-1]=='/') {
152: fprintf(stderr, "mv: cannot rename %s\n", p);
153: return(1);
154: }
155: if (stat(pname(source), &s1) < 0 || stat(pname(target), &s2) < 0) {
156: fprintf(stderr, "mv: cannot locate parent\n");
157: return(1);
158: }
159: if (access(pname(target), 2) < 0) {
160: fprintf(stderr, "mv: no write access to %s\n", pname(target));
161: return(1);
162: }
163: if (access(pname(source), 2) < 0) {
164: fprintf(stderr, "mv: no write access to %s\n", pname(source));
165: return(1);
166: }
167: if (access(source, 2) < 0) {
168: fprintf(stderr, "mv: no write access to %s\n", source);
169: return(1);
170: }
171: if (s1.st_dev != s2.st_dev) {
172: fprintf(stderr, "mv: cannot move directories across devices\n");
173: return(1);
174: }
175: if (s1.st_ino != s2.st_ino) {
176: char dst[MAXN+5];
177:
178: if (chkdot(source) || chkdot(target)) {
179: fprintf(stderr, "mv: Sorry, path names including %s aren't allowed\n", DOTDOT);
180: return(1);
181: }
182: stat(source, &s1);
183: if (check(pname(target), s1.st_ino))
184: return(1);
185: for (i = 1; i <= NSIG; i++)
186: signal(i, SIG_IGN);
187: if (link(source, target) < 0) {
188: fprintf(stderr, "mv: cannot link %s to %s\n", target, source);
189: return(1);
190: }
191: if (unlink(source) < 0) {
192: fprintf(stderr, "mv: %s: cannot unlink\n", source);
193: unlink(target);
194: return(1);
195: }
196: strcpy(dst, target);
197: strcat(dst, "/");
198: strcat(dst, DOTDOT);
199: if (unlink(dst) < 0) {
200: fprintf(stderr, "mv: %s: cannot unlink\n", dst);
201: if (link(target, source) >= 0)
202: unlink(target);
203: return(1);
204: }
205: if (link(pname(target), dst) < 0) {
206: fprintf(stderr, "mv: cannot link %s to %s\n",
207: dst, pname(target));
208: if (link(pname(source), dst) >= 0)
209: if (link(target, source) >= 0)
210: unlink(target);
211: return(1);
212: }
213: return(0);
214: }
215: if (link(source, target) < 0) {
216: fprintf(stderr, "mv: cannot link %s and %s\n",
217: source, target);
218: return(1);
219: }
220: if (unlink(source) < 0) {
221: fprintf(stderr, "mv: ?? cannot unlink %s\n", source);
222: return(1);
223: }
224: return(0);
225: }
226:
227: char *
228: pname(name)
229: register char *name;
230: {
231: register c;
232: register char *p, *q;
233: static char buf[MAXN];
234:
235: p = q = buf;
236: while (c = *p++ = *name++)
237: if (c == DELIM)
238: q = p-1;
239: if (q == buf && *q == DELIM)
240: q++;
241: *q = 0;
242: return buf[0]? buf : DOT;
243: }
244:
245: char *
246: dname(name)
247: register char *name;
248: {
249: register char *p;
250:
251: p = name;
252: while (*p)
253: if (*p++ == DELIM && *p)
254: name = p;
255: return name;
256: }
257:
258: check(spth, dinode)
259: char *spth;
260: ino_t dinode;
261: {
262: char nspth[MAXN];
263: struct stat sbuf;
264:
265: sbuf.st_ino = 0;
266:
267: strcpy(nspth, spth);
268: while (sbuf.st_ino != ROOTINO) {
269: if (stat(nspth, &sbuf) < 0) {
270: fprintf(stderr, "mv: cannot access %s\n", nspth);
271: return(1);
272: }
273: if (sbuf.st_ino == dinode) {
274: fprintf(stderr, "mv: cannot move a directory into itself\n");
275: return(1);
276: }
277: if (strlen(nspth) > MAXN-2-sizeof(DOTDOT)) {
278: fprintf(stderr, "mv: name too long\n");
279: return(1);
280: }
281: strcat(nspth, SDELIM);
282: strcat(nspth, DOTDOT);
283: }
284: return(0);
285: }
286:
287: chkdot(s)
288: register char *s;
289: {
290: do {
291: if (strcmp(dname(s), DOTDOT) == 0)
292: return(1);
293: s = pname(s);
294: } while (strcmp(s, DOT) != 0 && strcmp(s, SDELIM) != 0);
295: return(0);
296: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.