home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 143_01 / rename.c < prev    next >
Text File  |  1985-11-14  |  2KB  |  79 lines
  1. /*
  2. %CC1 $1.C -X 
  3. %CLINK $1 -N
  4. %DELETE    $1.CRL 
  5. */
  6. /*********************************************************************
  7. *                RENAME                     *
  8. **********************************************************************
  9. *           COPYRIGHT 1983 EUGENE H. MALLORY             *
  10. *********************************************************************/
  11. #include "BDSCIO.h"
  12. main(argc,argv)
  13.  
  14. char **argv;
  15. int argc;
  16.  
  17.   BEGIN
  18.     char *n,string[MAXLINE];
  19.     FILE fcb;
  20.     if (argc ==    3)
  21.       THEN
  22.     if (strcmp(argv[1],argv[2]) == 0)
  23.         {
  24.         printf("RENAME: Duplicate file names,%s and    %s\n"
  25.         ,argv[1],argv[2]);
  26.         printf("RENAME: Exiting.");
  27.         exit(0);
  28.         }
  29.     testname(argv[1]);
  30.     testnotname(argv[2]);
  31.     if (rename(argv[1],argv[2]) == ERROR)
  32.         {
  33.         printf("RENAME: Unable to rename file %s to    %s\n"
  34.         ,argv[1],argv[2]);
  35.         }
  36.     else
  37.         {
  38.         printf("RENAME: File %s to %s complete\n"
  39.         ,argv[1],argv[2]);
  40.         }
  41.       ENDIF
  42.     else
  43.     {
  44.     printf("RENAME:    Usage: RENAME fromfid tofid\n");
  45.     exit(0);
  46.     }
  47.   END
  48.  
  49. testname(name)
  50. char *name;
  51.   BEGIN
  52.     int    fd;
  53.     if ((fd=open(name,READ)) ==    ERROR)
  54.       THEN
  55.     printf("RENAME:    File %s    does not exist.\n",name);
  56.         printf("RENAME: Exiting.");
  57.         exit(0);
  58.       ENDIF
  59.     fabort(fd);
  60.   END
  61.  
  62.  
  63. testnotname(name)
  64. char *name;
  65.   BEGIN
  66.     int    fd;
  67.     if ((fd=open(name,READ)) !=    ERROR)
  68.       THEN
  69.     printf("RENAME:    File %s    already    exists.    Return to continue.\n",name);
  70.     if (getchar() != '\n')
  71.       THEN
  72.         printf("RENAME: Exiting.");
  73.         exit(0);
  74.       ENDIF
  75.       ENDIF
  76.     fabort(fd);
  77.     unlink(name);
  78.   END
  79.