Adding upstream version 5.4.4.upstream/5.4.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 230 insertions, 0 deletions

diff --git a/dirs.c b/dirs.c
new file mode 100644
index 0000000..c5d18e9
--- /dev/null
+++ b/dirs.c
@@ -0,0 +1,230 @@
+/*  This file is part of "reprepro"
+ *  Copyright (C) 2003 Bernhard R. Link
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License version 2 as
+ *  published by the Free Software Foundation.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02111-1301  USA
+ */
+#include <config.h>
+
+#include <errno.h>
+#include <assert.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <stdio.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <string.h>
+#include "error.h"
+#include "strlist.h"
+#include "dirs.h"
+#include "names.h"
+
+/* create directory dirname. */
+retvalue dirs_create(const char *dirname) {
+	int ret, e;
+
+	ret = mkdir(dirname, 0775);
+	if (ret == 0) {
+		if (verbose > 1)
+			printf("Created directory \"%s\"\n", dirname);
+		return RET_OK;
+	} else if (ret < 0 && (e = errno) != EEXIST) {
+		fprintf(stderr, "Error %d creating directory \"%s\": %s\n",
+				e, dirname, strerror(e));
+		return RET_ERROR;
+	}
+	return RET_NOTHING;
+}
+
+/* create recursively all parent directories before the last '/' */
+retvalue dirs_make_parent(const char *filename) {
+	const char *p;
+	char *h;
+	int i;
+	retvalue r;
+
+	for (p = filename+1, i = 1 ; *p != '\0' ; p++, i++) {
+		if (*p == '/') {
+			h = strndup(filename, i);
+			if (FAILEDTOALLOC(h))
+				return RET_ERROR_OOM;
+			r = dirs_create(h);
+			if (RET_WAS_ERROR(r)) {
+				free(h);
+				return r;
+			}
+			free(h);
+		}
+	}
+	return RET_OK;
+}
+
+/* create dirname and any '/'-separated part of it */
+retvalue dirs_make_recursive(const char *directory) {
+	retvalue r, result;
+
+	if (interrupted()) {
+		return RET_ERROR_INTERRUPTED;
+	}
+	r = dirs_make_parent(directory);
+	result = dirs_create(directory);
+	RET_UPDATE(result, r);
+	return result;
+}
+
+/* create directory and return the number of created directoried */
+retvalue dir_create_needed(const char *directory, int *createddepth) {
+	retvalue r;
+	int ret;
+	size_t len = strlen(directory);
+	int check, depth = 0;
+	char *this;
+	int e;
+
+	if (interrupted()) {
+		return RET_ERROR_INTERRUPTED;
+	}
+	while (len > 0 && directory[len-1] == '/')
+		len--;
+	while (len > 0) {
+		this = strndup(directory, len);
+		if (FAILEDTOALLOC(this))
+			return RET_ERROR_OOM;
+		ret = mkdir(this, 0777);
+		e = errno;
+		if (ret == 0) {
+			if (verbose > 1)
+				printf("Created directory \"%s\"\n", this);
+		} else if (e == EEXIST) {
+			free(this);
+			break;
+		/* normally ENOENT should be the only problem,
+		 * but check the others to be nice to annoying filesystems */
+		} else if (e != ENOENT && e != EACCES && e != EPERM) {
+			fprintf(stderr,
+"Cannot create directory \"%s\": %s(%d)\n",
+					this, strerror(e), e);
+			free(this);
+			return RET_ERRNO(e);
+		}
+		free(this);
+		depth++;
+		while (len > 0 && directory[len-1] != '/')
+			len--;
+		while (len > 0 && directory[len-1] == '/')
+			len--;
+	}
+	check = depth;
+	while (directory[len] == '/')
+		len++;
+	while (directory[len] != '\0') {
+		while (directory[len] != '\0' && directory[len] != '/')
+			len++;
+		this = strndup(directory, len);
+		if (FAILEDTOALLOC(this))
+			return RET_ERROR_OOM;
+		r = dirs_create(this);
+		free(this);
+		if (RET_WAS_ERROR(r))
+			return r;
+		// TODO: if we get RET_NOTHING here, reduce depth?
+		check--;
+		while (directory[len] == '/')
+			len++;
+	}
+	assert(check == 0);
+	*createddepth = depth;
+	return RET_OK;
+}
+
+void dir_remove_new(const char *directory, int created) {
+	size_t len = strlen(directory);
+	char *this;
+	int ret;
+
+	while (len > 0 && directory[len-1] == '/')
+		len--;
+	while (created > 0 && len > 0) {
+		this = strndup(directory, len);
+		if (FAILEDTOALLOC(this))
+			return;
+		ret = rmdir(this);
+		if (ret == 0) {
+			if (verbose > 1)
+				printf(
+"Removed empty directory \"%s\"\n",
+					this);
+		} else {
+			int e = errno;
+			if (e != ENOTEMPTY) {
+				fprintf(stderr,
+"Error removing directory \"%s\": %s(%d)\n",
+						this, strerror(e), e);
+			}
+			free(this);
+			return;
+		}
+		free(this);
+		created--;
+		while (len > 0 && directory[len-1] != '/')
+			len--;
+		while (len > 0 && directory[len-1] == '/')
+			len--;
+	}
+	return;
+}
+
+retvalue dirs_getdirectory(const char *filename, char **directory) {
+	size_t len;
+
+	assert (filename != NULL && *filename != '\0');
+
+	len = strlen(filename);
+	while (len > 1 && filename[len-1] == '/') {
+		len--;
+	}
+	while (len > 0 && filename[len-1] != '/') {
+		len--;
+	}
+	if (len == 0) {
+		*directory = strdup(".");
+	} else {
+		if (len == 1)
+			*directory = strdup("/");
+		else
+			*directory = strndup(filename, len-1);
+	}
+	if (FAILEDTOALLOC(*directory))
+		return RET_ERROR_OOM;
+	else
+		return RET_OK;
+
+}
+const char *dirs_basename(const char *filename) {
+	const char *bn;
+
+	bn = strrchr(filename, '/');
+	if (bn == NULL)
+		return filename;
+	// not really suited for the basename of directories,
+	// things like /bla/blub/ will give empty string...
+	return bn+1;
+}
+
+bool isdir(const char *fullfilename) {
+	struct stat s;
+	int i;
+
+	assert(fullfilename != NULL);
+	i = stat(fullfilename, &s);
+	return i == 0 && S_ISDIR(s.st_mode);
+}