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