BSD 4_1c_2 release

[unix-history] / usr / src / usr.bin / uucp / cpmv.c

static char sccsid[] = "@(#)cpmv.c      4.1     (Berkeley)      9/11/82";

#include "uucp.h"
#include <sys/types.h>
#include <sys/stat.h>

/***
*      xcp(f1, f2)     copy f1 to f2
*      char *f1, *f2;
*
*      return - 0 ok  |  FAIL failed
*/

xcp(f1, f2)
char *f1, *f2;
{
       char buf[BUFSIZ];
       int len;
       FILE *fp1, *fp2;
       char *lastpart();
       char full[100];
       struct stat s;

       if ((fp1 = fopen(f1, "r")) == NULL)
               return(FAIL);
       strcpy(full, f2);
       if (stat(f2, &s) == 0) {
               /* check for directory */
               if ((s.st_mode & S_IFMT) == S_IFDIR) {
                       strcat(full, "/");
                       strcat(full, lastpart(f1));
               }
       }
       DEBUG(4, "full %s\n", full);
       if ((fp2 = fopen(full, "w")) == NULL) {
               fclose(fp1);
               return(FAIL);
       }
       while((len = fread(buf, sizeof (char), BUFSIZ, fp1)) > 0)
               fwrite(buf, sizeof (char), len, fp2);
       fclose(fp1);
       fclose(fp2);
       chmod(f2, 0666);
       return(0);
}


/*
*      xmv(f1, f2)     move f1 to f2
*      char * f1, *f2;
*
*      return  0 ok  |  FAIL failed
*/

xmv(f1, f2)
char *f1, *f2;
{
       int ret;

       if (link(f1, f2) < 0) {
               /*  copy file  */
               ret = xcp(f1, f2);
               if (ret == 0)
                       unlink(f1);
               return(ret);
       }
       unlink(f1);
       return(0);
}