home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / CPM68K / SYSHACKS.LBR / ERA.CQ / ERA.C
Text File  |  2000-06-30  |  1KB  |  57 lines
  1. /* -*-c,save-*- */
  2. /*
  3.  * era.c - corrent erase command
  4.  * Robert Heller. Created: Sun Apr 13, 1986 16:26:47.36
  5.  * Last Mod: 
  6.  * 
  7.  * (c) Copyright 1986 by Robert Heller
  8.  *     All Rights Reserved
  9.  * 
  10.  * 
  11.  */
  12. #include <stdio.h>
  13.  
  14. main(argc,argv)
  15. register int argc;
  16. register char **argv;
  17. {
  18.     register int status,i,log,inter;
  19.     static char scratch[32];
  20.  
  21.     if (argc == 1) usage();
  22.     log = FALSE; inter = FALSE;
  23.     for (i=1;i<argc;i++) {
  24.     if (*argv[i] == '-') {
  25.         switch (*(argv[i]+1)) {
  26.         case 'i' : inter = TRUE; break;
  27.         case 'l' : log = TRUE; break;
  28.         default: usage();
  29.         }
  30.         }
  31.     }
  32.     for (i=1;i<argc;i++) {
  33.     if (*argv[i] == '-') continue;
  34.     if (inter) {
  35.         printf("era: %s: delete? ",argv[i]);
  36.         gets(scratch);
  37.         if (scratch[0] != 'y' && scratch[0] != 'Y') continue;
  38.         }        
  39.     status = access(argv[i],2);
  40.     if (status != 0) {
  41.         sprintf(scratch,"era: %s",argv[i]);
  42.         perror(scratch);
  43.         }
  44.     else if (unlink(argv[i]) == -1) {
  45.         sprintf(scratch,"era: %s",argv[i]);
  46.         perror(scratch);
  47.         }
  48.     else if (log) printf("era: %s: deleted\n",argv[i]);        
  49.     }
  50.     }
  51. usage()
  52. {
  53.     fprintf(stderr,"Usage: era [-i] [-l] file [file [file ...]]\n");
  54.     abort(0);
  55.     }
  56.  
  57.