sbase/libutil/cp.c

151 lines
3.1 KiB
C
Raw Normal View History

2012-01-30 22:41:33 +00:00
/* See LICENSE file for copyright and license details. */
#include <dirent.h>
#include <errno.h>
#include <fcntl.h>
#include <limits.h>
2012-01-30 22:41:33 +00:00
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
2014-07-09 21:28:43 +00:00
#include <sys/types.h>
#include <unistd.h>
2014-07-09 21:28:43 +00:00
#include <utime.h>
2012-01-30 22:41:33 +00:00
#include "../fs.h"
#include "../text.h"
#include "../util.h"
int cp_aflag = 0;
int cp_fflag = 0;
int cp_pflag = 0;
int cp_rflag = 0;
int cp_vflag = 0;
2014-10-02 22:46:04 +00:00
int cp_status = 0;
int cp_HLPflag = 'L';
2012-01-30 22:41:33 +00:00
int
cp(const char *s1, const char *s2, int depth)
2012-01-30 22:41:33 +00:00
{
FILE *f1, *f2;
char ns1[PATH_MAX], ns2[PATH_MAX];
2012-01-30 22:41:33 +00:00
struct dirent *d;
struct stat st;
2014-07-09 21:28:43 +00:00
struct utimbuf ut;
char buf[PATH_MAX];
2012-01-30 22:41:33 +00:00
DIR *dp;
int r;
2012-01-30 22:41:33 +00:00
if (cp_vflag)
printf("'%s' -> '%s'\n", s1, s2);
r = (cp_HLPflag == 'P' || (cp_HLPflag == 'H' && depth > 0)) ?
lstat(s1, &st) : stat(s1, &st);
if (r < 0) {
weprintf("%s %s:", (cp_HLPflag == 'P' ||
(cp_HLPflag == 'H' && depth > 0)) ? "lstat" : "stat", s1);
cp_status = 1;
return 0;
}
if (S_ISLNK(st.st_mode)) {
if (readlink(s1, buf, sizeof(buf) - 1) >= 0) {
if (cp_fflag)
unlink(s2);
if (symlink(buf, s2) != 0) {
weprintf("%s: can't create '%s'\n", argv0, s2);
cp_status = 1;
return 0;
2014-07-09 21:28:43 +00:00
}
}
goto preserve;
}
if (S_ISDIR(st.st_mode)) {
if (!cp_rflag)
eprintf("%s: is a directory\n", s1);
if (!(dp = opendir(s1)))
eprintf("opendir %s:", s1);
2014-07-09 21:28:43 +00:00
2014-11-19 19:59:37 +00:00
if (mkdir(s2, st.st_mode) < 0 && errno != EEXIST)
eprintf("mkdir %s:", s2);
2014-07-09 21:28:43 +00:00
while ((d = readdir(dp))) {
if (strcmp(d->d_name, ".") && strcmp(d->d_name, "..")) {
r = snprintf(ns1, sizeof(ns1), "%s/%s", s1, d->d_name);
if (r >= sizeof(ns1) || r < 0) {
eprintf("%s/%s: filename too long\n",
s1, d->d_name);
}
r = snprintf(ns2, sizeof(ns2), "%s/%s", s2, d->d_name);
if (r >= sizeof(ns2) || r < 0) {
eprintf("%s/%s: filename too long\n",
s2, d->d_name);
}
fnck(ns1, ns2, cp, depth + 1);
}
2014-07-09 21:28:43 +00:00
}
closedir(dp);
goto preserve;
2012-01-30 22:41:33 +00:00
}
if (cp_aflag) {
if (S_ISBLK(st.st_mode) || S_ISCHR(st.st_mode) ||
S_ISSOCK(st.st_mode) || S_ISFIFO(st.st_mode)) {
unlink(s2);
if (mknod(s2, st.st_mode, st.st_rdev) < 0) {
weprintf("%s: can't create '%s':", argv0, s2);
2014-10-02 22:46:04 +00:00
cp_status = 1;
return 0;
}
goto preserve;
}
}
if (!(f1 = fopen(s1, "r"))) {
2014-08-02 14:40:04 +00:00
weprintf("fopen %s:", s1);
2014-10-02 22:46:04 +00:00
cp_status = 1;
2014-08-02 14:40:04 +00:00
return 0;
}
if (!(f2 = fopen(s2, "w"))) {
if (cp_fflag) {
2014-05-05 13:58:14 +00:00
unlink(s2);
if (!(f2 = fopen(s2, "w"))) {
2014-08-02 14:40:04 +00:00
weprintf("fopen %s:", s2);
2014-10-02 22:46:04 +00:00
cp_status = 1;
2014-08-02 14:40:04 +00:00
return 0;
}
} else {
2014-08-02 14:40:04 +00:00
weprintf("fopen %s:", s2);
2014-10-02 22:46:04 +00:00
cp_status = 1;
2014-08-02 14:40:04 +00:00
return 0;
}
2014-05-05 13:58:14 +00:00
}
2012-01-30 22:41:33 +00:00
concat(f1, s1, f2, s2);
/* preserve permissions by default */
fchmod(fileno(f2), st.st_mode);
2012-01-30 22:41:33 +00:00
fclose(f2);
fclose(f1);
2014-07-09 21:28:43 +00:00
preserve:
if (cp_aflag || cp_pflag) {
if (!(S_ISLNK(st.st_mode))) {
/* timestamp */
ut.actime = st.st_atime;
ut.modtime = st.st_mtime;
utime(s2, &ut);
}
2014-07-09 21:28:43 +00:00
/* preserve owner ? */
if (S_ISLNK(st.st_mode))
r = lchown(s2, st.st_uid, st.st_gid);
else
r = chown(s2, st.st_uid, st.st_gid);
2014-11-19 19:59:37 +00:00
if (r < 0) {
2014-07-09 21:28:43 +00:00
weprintf("cp: can't preserve ownership of '%s':", s2);
2014-10-02 22:46:04 +00:00
cp_status = 1;
}
2014-07-09 21:28:43 +00:00
}
2012-01-30 22:41:33 +00:00
return 0;
}