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