diff options
Diffstat (limited to 'unix/boot/rmbin/rmbin.c')
| -rw-r--r-- | unix/boot/rmbin/rmbin.c | 264 |
1 files changed, 264 insertions, 0 deletions
diff --git a/unix/boot/rmbin/rmbin.c b/unix/boot/rmbin/rmbin.c new file mode 100644 index 00000000..760a1fb3 --- /dev/null +++ b/unix/boot/rmbin/rmbin.c @@ -0,0 +1,264 @@ +/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + */ + +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#define import_spp +#define import_knames +#include <iraf.h> + +#include "../bootProto.h" + + +#define MAXEXTN 128 + +char *only[MAXEXTN]; /* delete files with these extensions */ +char *excl[MAXEXTN]; /* exclude these files */ +int interactive; /* verify if file does not have extn */ +int recurse; /* recursively descend directories */ +int verbose; /* print names of deleted files */ +int execute; /* permission to delete files */ + + +extern int ZZSTRT(void); +extern int ZZSTOP(void); + +static void rmbin (char *dir, int recurse, char *path); +static int verify_delete (char *fname, char *path); +static int exclude_file (char *fname); + + +/* + * RMBIN -- Delete all binary files in a directory tree or trees. + * + * rmbin [-dinrv] [-o extns] [-e extns] dir1 dir2 ... dirN + * + * -d disable recursive descent + * -e exclude files with the following extensions + * -i verify before deleting files without extensions + * -n no execute; do not delete files + * -o delete only files with the following extensions + * -r enable recursive descent + * -v print names of files as they are deleted + * + * Note that flags may be inserted between directory name arguments to change + * switches for different directories. + * + */ +int +main (int argc, char *argv[]) +{ + char path[SZ_PATHNAME+1]; + char *argp; + int argno, i; + + ZZSTRT(); + + if (argc < 2) + goto help_; + + only[0] = NULL; + excl[0] = NULL; + path[0] = EOS; + + interactive = 0; + recurse = 0; + verbose = 0; + execute = 1; + + for (argno=1; (argp = argv[argno]) != NULL; argno++) + if (*argp == '-') { + for (argp++; *argp; argp++) + switch (*argp) { + case 'd': /* disable recursion */ + recurse = 0; + break; + case 'i': /* verify deletions */ + interactive = 1; + break; + case 'r': /* enable recursion */ + recurse = 1; + break; + case 'n': /* no execute */ + execute = 0; + /* fall through */ + case 'v': /* set verbose mode */ + verbose = 1; + break; + + case 'e': /* exclude listed files */ + i = 0; + argno++; + while (argv[argno] != NULL && *(argv[argno]) == '.' && + *(argv[argno]+1) != EOS) + excl[i++] = argv[argno++]; + --argno; + break; + + case 'o': /* only the listed files */ + i = 0; + argno++; + while (argv[argno] != NULL && *(argv[argno]) == '.' && + *(argv[argno]+1) != EOS) + only[i++] = argv[argno++]; + --argno; + break; + + default: + goto help_; + } + } else + rmbin (argp, recurse, path); + + ZZSTOP(); + exit (OSOK); +help_: + fprintf (stderr, "rmbin [-dinrv] [-o extns] [-e extns] dir dir ...\n"); + ZZSTOP(); + exit (OSOK+1); +} + + +/* RMBIN -- Remove all binaries in a directory or in a directory tree. + * We chdir to each directory to minimize path searches. + */ +static void +rmbin ( + char *dir, + int recurse, + char *path /* pathname of current directory */ +) +{ + char newpath[SZ_PATHNAME+1]; + char fname[SZ_PATHNAME+1]; + int dp, ftype; + + if ((dp = os_diropen (dir)) == ERR) { + fprintf (stderr, "cannot open directory `%s'\n", dir); + fflush (stderr); + return; + } + + sprintf (newpath, "%s%s/", path, dir); + + /* Descend into the subdirectory. + */ + if (strcmp (dir, ".") != 0) + if (os_chdir (dir) == ERR) { + os_dirclose (dp); + fprintf (stderr, "cannot change directory to `%s'\n", newpath); + fflush (stderr); + return; + } + + /* Scan through the directory. + */ + while (os_gfdir (dp, fname, SZ_PATHNAME) > 0) { + if (os_symlink (fname, 0, 0)) + continue; + + if ((ftype = os_filetype (fname)) == DIRECTORY_FILE) + rmbin (fname, recurse, newpath); + else { + if (only[0] != NULL) { + if (exclude_file (fname)) + continue; + } else if (ftype != BINARY_FILE || exclude_file (fname)) + continue; + + /* We have a binary file which is not excluded from deletion + * by its extension, so delete it. + */ + if (interactive && (verify_delete (fname, newpath) == NO)) + continue; + + if (verbose) { + printf ("%s%s\n", newpath, fname); + fflush (stdout); + } + + if (execute) + if (os_delete (fname) == ERR) { + fprintf (stderr, "cannot delete `%s'\n", fname); + fflush (stderr); + } + } + } + + /* Return from the subdirectory. + */ + if (strcmp (dir, ".") != 0) + if (os_chdir ("..") == ERR) { + fprintf (stderr, "cannot return from subdirectory `%s'\n", + newpath); + fflush (stderr); + } + + os_dirclose (dp); +} + + +/* EXCLUDE_FILE -- Check the "only" and "exclude" file lists to see if the + * file should be excluded from deletion. + */ +static int +exclude_file (char *fname) +{ + register char *ip, *ep; + register int ch, i; + char *extn; + + extn = NULL; + for (ip=fname; (ch = *ip); ip++) + if (ch == '.') + extn = ip; + + /* If the file has no extension all we have to do is check if there is + * an "only" file list. + */ + if (extn == NULL) + return (only[0] != NULL ? YES : NO); + + /* Check the only and exclude file lists. + */ + ch = *(extn + 1); + if (only[0] != NULL) { + for (i=0; (ep = only[i]); i++) + if (*(ep+1) == ch) + if (strcmp (ep, extn) == 0) + return (NO); + return (YES); + } else if (excl[0] != NULL) { + for (i=0; (ep = excl[i]); i++) + if (*(ep+1) == ch) + if (strcmp (ep, extn) == 0) + return (YES); + return (NO); + } else + return (NO); +} + + +/* VERIFY_DELETE -- Ask the user if they want to delete the named file. + */ +static int +verify_delete ( + char *fname, /* name of file to be deleted */ + char *path /* current directory pathname */ +) +{ + char lbuf[SZ_LINE+1]; + char *ip; + + fprintf (stderr, "delete file %s%s? ", path, fname); + fflush (stderr); + fgets (lbuf, SZ_LINE, stdin); + + for (ip=lbuf; *ip == ' ' || *ip == '\t'; ip++) + ; + if (*ip == 'y' || *ip == 'Y') + return (YES); + else + return (NO); +} |