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 / BDSC / BDSC-3 / RMF.CQ / RMF.C
Text File  |  2000-06-30  |  1KB  |  55 lines
  1. /*
  2.     RMF.C
  3.     Written by Leor Zolman, 2/82
  4.  
  5.     Given a filename and a set of extensions, remove all files that match.
  6.     Usage: rmf <filename> <ext1> <ext2> <ext3> ...
  7. */
  8.  
  9. #include "bdscio.h"
  10.  
  11. main(argc,argv)
  12. char **argv;
  13. {
  14.     int i;
  15.     char fnambuf[20];
  16.     char nambuf[30];
  17.     if (argc < 3) {
  18.         puts("Usage:\nrmf <filename> <ext1> [<ext2> <ext3> ...]\n");
  19.         puts("(Any extension may have a filename on it also)\n");
  20.         exit();
  21.     }
  22.  
  23.     strcpy(fnambuf,argv[1]);
  24.  
  25.     for (i = 2; i < argc; i++)
  26.     {
  27.         if (hasdot(argv[i])) unlink2(argv[i]);
  28.         else
  29.         {
  30.             strcpy(nambuf,fnambuf);
  31.             strcat(nambuf,".");
  32.             strcat(nambuf,argv[i]);
  33.             unlink2(nambuf);
  34.         }
  35.     }
  36. }
  37.  
  38. int hasdot(str)
  39. char *str;
  40. {
  41.     while (*str) if (*str++ == '.') return 1;
  42.     return 0;
  43. }
  44.  
  45. unlink2(filename)
  46. char *filename;
  47. {
  48.     puts("Unlinking "); puts(filename); puts("...\n");    
  49.     if (unlink(filename) < 0)
  50.     {
  51.         puts(filename);
  52.         puts(" \7 doesn't exist\n");
  53.     }
  54. }
  55.