/* -*-c,save-*- */
/*
 * era.c - corrent erase command
 * Robert Heller. Created: Sun Apr 13, 1986 16:26:47.36
 * Last Mod: 
 * 
 * (c) Copyright 1986 by Robert Heller
 *     All Rights Reserved
 * 
 * 
 */
#include <stdio.h>

main(argc,argv)
register int argc;
register char **argv;
{
    register int status,i,log,inter;
    static char scratch[32];

    if (argc == 1) usage();
    log = FALSE; inter = FALSE;
    for (i=1;i<argc;i++) {
	if (*argv[i] == '-') {
	    switch (*(argv[i]+1)) {
		case 'i' : inter = TRUE; break;
		case 'l' : log = TRUE; break;
		default: usage();
		}
	    }
	}
    for (i=1;i<argc;i++) {
	if (*argv[i] == '-') continue;
	if (inter) {
	    printf("era: %s: delete? ",argv[i]);
	    gets(scratch);
	    if (scratch[0] != 'y' && scratch[0] != 'Y') continue;
	    }	    
	status = access(argv[i],2);
	if (status != 0) {
	    sprintf(scratch,"era: %s",argv[i]);
	    perror(scratch);
	    }
	else if (unlink(argv[i]) == -1) {
	    sprintf(scratch,"era: %s",argv[i]);
	    perror(scratch);
	    }
	else if (log) printf("era: %s: deleted\n",argv[i]);	    
	}
    }
usage()
{
    fprintf(stderr,"Usage: era [-i] [-l] file [file [file ...]]\n");
    abort(0);
    }