1 /* `rm' file deletion utility for GNU.
2 Copyright (C) 88, 90, 91, 94, 95, 1996 Free Software Foundation, Inc.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software Foundation,
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
18 /* Written by Paul Rubin, David MacKenzie, and Richard Stallman. */
23 #include <sys/types.h>
28 #ifdef D_INO_IN_DIRENT
29 # define D_INO(dp) ((dp)->d_ino)
31 /* Some systems don't have inodes, so fake them to avoid lots of ifdefs. */
35 /* An element in a stack of pointers into `pathname'.
36 `pathp' points to where in `pathname' the terminating '\0' goes
37 for this level's directory name. */
40 struct pathstack *next;
51 void strip_trailing_slashes ();
53 static int clear_directory __P ((struct stat *statp));
54 static int duplicate_entry __P ((struct pathstack *stack, ino_t inum));
55 static int remove_dir __P ((struct stat *statp));
56 static int remove_file __P ((struct stat *statp));
57 static int rm __P ((void));
58 static void usage __P ((int status));
60 /* Name this program was run with. */
63 /* Linked list of pathnames of directories in progress in recursive rm.
64 The entries actually contain pointers into `pathname'.
65 `pathstack' is the current deepest level. */
66 static struct pathstack *pathstack = NULL;
68 /* Path of file now being processed; extended as necessary. */
69 static char *pathname;
71 /* Number of bytes currently allocated for `pathname';
72 made larger when necessary, but never smaller. */
75 /* If nonzero, display the name of each file removed. */
78 /* If nonzero, ignore nonexistant files. */
79 static int ignore_missing_files;
81 /* If nonzero, recursively remove directories. */
84 /* If nonzero, query the user about whether to remove each file. */
85 static int interactive;
87 /* If nonzero, remove directories with unlink instead of rmdir, and don't
88 require a directory to be empty before trying to unlink it.
89 Only works for the super-user. */
90 static int unlink_dirs;
92 /* If nonzero, stdin is a tty. */
95 /* If nonzero, display usage information and exit. */
98 /* If nonzero, print the version on standard output and exit. */
99 static int show_version;
101 static struct option const long_opts[] =
103 {"directory", no_argument, &unlink_dirs, 1},
104 {"force", no_argument, NULL, 'f'},
105 {"interactive", no_argument, NULL, 'i'},
106 {"recursive", no_argument, &recursive, 1},
107 {"verbose", no_argument, &verbose, 1},
108 {"help", no_argument, &show_help, 1},
109 {"version", no_argument, &show_version, 1},
114 main (int argc, char **argv)
119 program_name = argv[0];
120 setlocale (LC_ALL, "");
121 bindtextdomain (PACKAGE, LOCALEDIR);
122 textdomain (PACKAGE);
124 verbose = ignore_missing_files = recursive = interactive
127 pathname = xmalloc (pnsize);
129 while ((c = getopt_long (argc, argv, "dfirvR", long_opts, NULL)) != -1)
133 case 0: /* Long option. */
140 ignore_missing_files = 1;
144 ignore_missing_files = 0;
160 printf ("rm (%s) %s\n", GNU_PACKAGE, VERSION);
169 if (ignore_missing_files)
173 error (0, 0, _("too few arguments"));
178 stdin_tty = isatty (STDIN_FILENO);
180 for (; optind < argc; optind++)
184 /* Stripping slashes is harmless for rmdir;
185 if the arg is not a directory, it will fail with ENOTDIR. */
186 strip_trailing_slashes (argv[optind]);
187 len = strlen (argv[optind]);
188 if (len + 1 > pnsize)
191 pnsize = 2 * (len + 1);
192 pathname = xmalloc (pnsize);
194 strcpy (pathname, argv[optind]);
201 /* Remove file or directory `pathname' after checking appropriate things.
202 Return 0 if `pathname' is removed, 1 if not. */
207 struct stat path_stats;
208 char *base = basename (pathname);
210 if (base[0] == '.' && (base[1] == '\0'
211 || (base[1] == '.' && base[2] == '\0')))
213 error (0, 0, _("cannot remove `.' or `..'"));
217 if (lstat (pathname, &path_stats)
218 /* The following or-clause is solely for systems like SunOS 4.1.3
219 with (broken) lstat that interpret a zero-length file name
220 argument as something meaningful. For such systems, manually
221 set errno to ENOENT. */
222 || (pathname[0] == '\0' && (errno = ENOENT)))
224 if (errno == ENOENT && ignore_missing_files)
226 error (0, errno, "%s", pathname);
230 if (S_ISDIR (path_stats.st_mode) && !unlink_dirs)
231 return remove_dir (&path_stats);
233 return remove_file (&path_stats);
236 /* Query the user if appropriate, and if ok try to remove the
237 non-directory `pathname', which STATP contains info about.
238 Return 0 if `pathname' is removed, 1 if not. */
241 remove_file (struct stat *statp)
243 if (!ignore_missing_files && (interactive || stdin_tty)
244 && euidaccess (pathname, W_OK)
246 && !S_ISLNK (statp->st_mode)
250 fprintf (stderr, _("%s: remove %s`%s', overriding mode %04o? "),
252 S_ISDIR (statp->st_mode) ? _("directory ") : "",
254 (unsigned int) (statp->st_mode & 07777));
258 else if (interactive)
260 fprintf (stderr, _("%s: remove %s`%s'? "), program_name,
261 S_ISDIR (statp->st_mode) ? _("directory ") : "",
268 printf ("%s\n", pathname);
270 if (unlink (pathname) && (errno != ENOENT || !ignore_missing_files))
272 error (0, errno, "%s", pathname);
278 /* If not in recursive mode, print an error message and return 1.
279 Otherwise, query the user if appropriate, then try to recursively
280 remove directory `pathname', which STATP contains info about.
281 Return 0 if `pathname' is removed, 1 if not. */
284 remove_dir (struct stat *statp)
290 error (0, 0, _("%s: is a directory"), pathname);
294 if (!ignore_missing_files && (interactive || stdin_tty)
295 && euidaccess (pathname, W_OK))
298 _("%s: descend directory `%s', overriding mode %04o? "),
299 program_name, pathname,
300 (unsigned int) (statp->st_mode & 07777));
304 else if (interactive)
306 fprintf (stderr, _("%s: descend directory `%s'? "),
307 program_name, pathname);
313 printf ("%s\n", pathname);
315 err = clear_directory (statp);
320 fprintf (stderr, _("%s: remove directory `%s' (might be nonempty)? "),
321 program_name, pathname);
323 fprintf (stderr, _("%s: remove directory `%s'? "),
324 program_name, pathname);
329 if (rmdir (pathname) && (errno != ENOENT || !ignore_missing_files))
331 error (0, errno, "%s", pathname);
337 /* Read directory `pathname' and remove all of its entries,
338 avoiding use of chdir.
339 On entry, STATP points to the results of stat on `pathname'.
340 Return 0 for success, error count for failure.
341 Upon return, `pathname' will have the same contents as before,
342 but its address might be different; in that case, `pnsize' will
343 be larger, as well. */
346 clear_directory (struct stat *statp)
350 char *name_space; /* Copy of directory's filenames. */
351 char *namep; /* Current entry in `name_space'. */
352 unsigned name_size; /* Bytes allocated for `name_space'. */
353 int name_length; /* Length of filename in `namep' plus '\0'. */
354 int pathname_length; /* Length of `pathname'. */
355 ino_t *inode_space; /* Copy of directory's inodes. */
356 ino_t *inodep; /* Current entry in `inode_space'. */
357 unsigned n_inodes_allocated; /* There is space for this many inodes
359 int err = 0; /* Return status. */
360 struct pathstack pathframe; /* New top of stack. */
361 struct pathstack *pp; /* Temporary. */
363 name_size = statp->st_size;
364 name_space = (char *) xmalloc (name_size);
366 n_inodes_allocated = (statp->st_size + sizeof (ino_t) - 1) / sizeof (ino_t);
367 inode_space = (ino_t *) xmalloc (n_inodes_allocated * sizeof (ino_t));
372 inodep = inode_space;
375 dirp = opendir (pathname);
378 if (errno != ENOENT || !ignore_missing_files)
380 error (0, errno, "%s", pathname);
388 while ((dp = readdir (dirp)) != NULL)
390 /* Skip "." and "..". */
391 if (dp->d_name[0] != '.'
392 || (dp->d_name[1] != '\0'
393 && (dp->d_name[1] != '.' || dp->d_name[2] != '\0')))
395 unsigned size_needed = (namep - name_space) + NLENGTH (dp) + 2;
397 if (size_needed > name_size)
399 char *new_name_space;
401 while (size_needed > name_size)
404 new_name_space = xrealloc (name_space, name_size);
405 namep += new_name_space - name_space;
406 name_space = new_name_space;
408 namep = stpcpy (namep, dp->d_name) + 1;
410 if (inodep == inode_space + n_inodes_allocated)
412 ino_t *new_inode_space;
414 n_inodes_allocated += 1024;
415 new_inode_space = (ino_t *) xrealloc (inode_space,
416 n_inodes_allocated * sizeof (ino_t));
417 inodep += new_inode_space - inode_space;
418 inode_space = new_inode_space;
420 *inodep++ = D_INO (dp);
426 error (0, errno, "%s", pathname);
430 pathname_length = strlen (pathname);
432 for (namep = name_space, inodep = inode_space; *namep != '\0';
433 namep += name_length, inodep++)
435 name_length = strlen (namep) + 1;
437 /* Handle arbitrarily long filenames. */
438 if (pathname_length + 1 + name_length > pnsize)
442 pnsize = (pathname_length + 1 + name_length) * 2;
443 new_pathname = xrealloc (pathname, pnsize);
444 /* Update all pointers in the stack to use the new area. */
445 for (pp = pathstack; pp != NULL; pp = pp->next)
446 pp->pathp += new_pathname - pathname;
447 pathname = new_pathname;
450 /* Add a new frame to the top of the path stack. */
451 pathframe.pathp = pathname + pathname_length;
452 pathframe.inum = *inodep;
453 pathframe.next = pathstack;
454 pathstack = &pathframe;
456 /* Append '/' and the filename to current pathname, take care of
457 the file (which could result in recursive calls), and take
458 the filename back off. */
460 *pathstack->pathp = '/';
461 strcpy (pathstack->pathp + 1, namep);
463 /* If the i-number has already appeared, there's an error. */
464 if (duplicate_entry (pathstack->next, pathstack->inum))
469 *pathstack->pathp = '\0';
470 pathstack = pathstack->next; /* Pop the stack. */
473 /* Keep trying while there are still files to remove. */
474 while (namep > name_space && err == 0);
481 /* If STACK does not already have an entry with the same i-number as INUM,
482 return 0. Otherwise, ask the user whether to continue;
483 if yes, return 1, and if no, exit.
484 This assumes that no one tries to remove filesystem mount points;
485 doing so could cause duplication of i-numbers that would not indicate
486 a corrupted file system. */
489 duplicate_entry (struct pathstack *stack, ino_t inum)
491 #ifdef D_INO_IN_DIRENT
494 for (p = stack; p != NULL; p = p->next)
498 fprintf (stderr, _("\
499 %s: WARNING: Circular directory structure.\n\
500 This almost certainly means that you have a corrupted file system.\n\
501 NOTIFY YOUR SYSTEM MANAGER.\n\
504 is the same file as\n"), program_name, pathname);
505 *p->pathp = '\0'; /* Truncate pathname. */
506 fprintf (stderr, "%s\n", pathname);
507 *p->pathp = '/'; /* Put it back. */
510 fprintf (stderr, _("%s: continue? "), program_name);
519 #endif /* D_INO_IN_DIRENT */
527 fprintf (stderr, _("Try `%s --help' for more information.\n"),
531 printf (_("Usage: %s [OPTION]... FILE...\n"), program_name);
533 Remove (unlink) the FILE(s).\n\
535 -d, --directory unlink directory, even if non-empty (super-user only)\n\
536 -f, --force ignore nonexistent files, never prompt\n\
537 -i, --interactive prompt before any removal\n\
538 -r, -R, --recursive remove the contents of directories recursively\n\
539 -v, --verbose explain what is being done\n\
540 --help display this help and exit\n\
541 --version output version information and exit\n\
543 puts (_("\nReport bugs to <fileutils-bugs@gnu.ai.mit.edu>."));