[thirdparty/git.git] / builtin-tar-tree.c

/*
 * Copyright (c) 2005, 2006 Rene Scharfe
 */
#include <time.h>
#include "cache.h"
#include "tree-walk.h"
#include "commit.h"
#include "strbuf.h"
#include "tar.h"
#include "builtin.h"
#include "pkt-line.h"

#define RECORDSIZE	(512)
#define BLOCKSIZE	(RECORDSIZE * 20)

static const char tar_tree_usage[] =
"git-tar-tree [--remote=<repo>] <ent> [basedir]";

static char block[BLOCKSIZE];
static unsigned long offset;

static time_t archive_time;

/* tries hard to write, either succeeds or dies in the attempt */
static void reliable_write(void *buf, unsigned long size)
{
	while (size > 0) {
		long ret = xwrite(1, buf, size);
		if (ret < 0) {
			if (errno == EPIPE)
				exit(0);
			die("git-tar-tree: %s", strerror(errno));
		} else if (!ret) {
			die("git-tar-tree: disk full?");
		}
		size -= ret;
		buf += ret;
	}
}

/* writes out the whole block, but only if it is full */
static void write_if_needed(void)
{
	if (offset == BLOCKSIZE) {
		reliable_write(block, BLOCKSIZE);
		offset = 0;
	}
}

/* acquire the next record from the buffer; user must call write_if_needed() */
static char *get_record(void)
{
	char *p = block + offset;
	memset(p, 0, RECORDSIZE);
	offset += RECORDSIZE;
	return p;
}

/*
 * The end of tar archives is marked by 1024 nul bytes and after that
 * follows the rest of the block (if any).
 */
static void write_trailer(void)
{
	get_record();
	write_if_needed();
	get_record();
	write_if_needed();
	while (offset) {
		get_record();
		write_if_needed();
	}
}

/*
 * queues up writes, so that all our write(2) calls write exactly one
 * full block; pads writes to RECORDSIZE
 */
static void write_blocked(void *buf, unsigned long size)
{
	unsigned long tail;

	if (offset) {
		unsigned long chunk = BLOCKSIZE - offset;
		if (size < chunk)
			chunk = size;
		memcpy(block + offset, buf, chunk);
		size -= chunk;
		offset += chunk;
		buf += chunk;
		write_if_needed();
	}
	while (size >= BLOCKSIZE) {
		reliable_write(buf, BLOCKSIZE);
		size -= BLOCKSIZE;
		buf += BLOCKSIZE;
	}
	if (size) {
		memcpy(block + offset, buf, size);
		offset += size;
	}
	tail = offset % RECORDSIZE;
	if (tail)  {
		memset(block + offset, 0, RECORDSIZE - tail);
		offset += RECORDSIZE - tail;
	}
	write_if_needed();
}

static void strbuf_append_string(struct strbuf *sb, const char *s)
{
	int slen = strlen(s);
	int total = sb->len + slen;
	if (total > sb->alloc) {
		sb->buf = xrealloc(sb->buf, total);
		sb->alloc = total;
	}
	memcpy(sb->buf + sb->len, s, slen);
	sb->len = total;
}

/*
 * pax extended header records have the format "%u %s=%s\n".  %u contains
 * the size of the whole string (including the %u), the first %s is the
 * keyword, the second one is the value.  This function constructs such a
 * string and appends it to a struct strbuf.
 */
static void strbuf_append_ext_header(struct strbuf *sb, const char *keyword,
                                     const char *value, unsigned int valuelen)
{
	char *p;
	int len, total, tmp;

	/* "%u %s=%s\n" */
	len = 1 + 1 + strlen(keyword) + 1 + valuelen + 1;
	for (tmp = len; tmp > 9; tmp /= 10)
		len++;

	total = sb->len + len;
	if (total > sb->alloc) {
		sb->buf = xrealloc(sb->buf, total);
		sb->alloc = total;
	}

	p = sb->buf;
	p += sprintf(p, "%u %s=", len, keyword);
	memcpy(p, value, valuelen);
	p += valuelen;
	*p = '\n';
	sb->len = total;
}

static unsigned int ustar_header_chksum(const struct ustar_header *header)
{
	char *p = (char *)header;
	unsigned int chksum = 0;
	while (p < header->chksum)
		chksum += *p++;
	chksum += sizeof(header->chksum) * ' ';
	p += sizeof(header->chksum);
	while (p < (char *)header + sizeof(struct ustar_header))
		chksum += *p++;
	return chksum;
}

static int get_path_prefix(const struct strbuf *path, int maxlen)
{
	int i = path->len;
	if (i > maxlen)
		i = maxlen;
	while (i > 0 && path->buf[i] != '/')
		i--;
	return i;
}

static void write_entry(const unsigned char *sha1, struct strbuf *path,
                        unsigned int mode, void *buffer, unsigned long size)
{
	struct ustar_header header;
	struct strbuf ext_header;

	memset(&header, 0, sizeof(header));
	ext_header.buf = NULL;
	ext_header.len = ext_header.alloc = 0;

	if (!sha1) {
		*header.typeflag = TYPEFLAG_GLOBAL_HEADER;
		mode = 0100666;
		strcpy(header.name, "pax_global_header");
	} else if (!path) {
		*header.typeflag = TYPEFLAG_EXT_HEADER;
		mode = 0100666;
		sprintf(header.name, "%s.paxheader", sha1_to_hex(sha1));
	} else {
		if (S_ISDIR(mode)) {
			*header.typeflag = TYPEFLAG_DIR;
			mode |= 0777;
		} else if (S_ISLNK(mode)) {
			*header.typeflag = TYPEFLAG_LNK;
			mode |= 0777;
		} else if (S_ISREG(mode)) {
			*header.typeflag = TYPEFLAG_REG;
			mode |= (mode & 0100) ? 0777 : 0666;
		} else {
			error("unsupported file mode: 0%o (SHA1: %s)",
			      mode, sha1_to_hex(sha1));
			return;
		}
		if (path->len > sizeof(header.name)) {
			int plen = get_path_prefix(path, sizeof(header.prefix));
			int rest = path->len - plen - 1;
			if (plen > 0 && rest <= sizeof(header.name)) {
				memcpy(header.prefix, path->buf, plen);
				memcpy(header.name, path->buf + plen + 1, rest);
			} else {
				sprintf(header.name, "%s.data",
				        sha1_to_hex(sha1));
				strbuf_append_ext_header(&ext_header, "path",
				                         path->buf, path->len);
			}
		} else
			memcpy(header.name, path->buf, path->len);
	}

	if (S_ISLNK(mode) && buffer) {
		if (size > sizeof(header.linkname)) {
			sprintf(header.linkname, "see %s.paxheader",
			        sha1_to_hex(sha1));
			strbuf_append_ext_header(&ext_header, "linkpath",
			                         buffer, size);
		} else
			memcpy(header.linkname, buffer, size);
	}

	sprintf(header.mode, "%07o", mode & 07777);
	sprintf(header.size, "%011lo", S_ISREG(mode) ? size : 0);
	sprintf(header.mtime, "%011lo", archive_time);

	/* XXX: should we provide more meaningful info here? */
	sprintf(header.uid, "%07o", 0);
	sprintf(header.gid, "%07o", 0);
	strncpy(header.uname, "git", 31);
	strncpy(header.gname, "git", 31);
	sprintf(header.devmajor, "%07o", 0);
	sprintf(header.devminor, "%07o", 0);

	memcpy(header.magic, "ustar", 6);
	memcpy(header.version, "00", 2);

	sprintf(header.chksum, "%07o", ustar_header_chksum(&header));

	if (ext_header.len > 0) {
		write_entry(sha1, NULL, 0, ext_header.buf, ext_header.len);
		free(ext_header.buf);
	}
	write_blocked(&header, sizeof(header));
	if (S_ISREG(mode) && buffer && size > 0)
		write_blocked(buffer, size);
}

static void write_global_extended_header(const unsigned char *sha1)
{
	struct strbuf ext_header;
	ext_header.buf = NULL;
	ext_header.len = ext_header.alloc = 0;
	strbuf_append_ext_header(&ext_header, "comment", sha1_to_hex(sha1), 40);
	write_entry(NULL, NULL, 0, ext_header.buf, ext_header.len);
	free(ext_header.buf);
}

static void traverse_tree(struct tree_desc *tree, struct strbuf *path)
{
	int pathlen = path->len;

	while (tree->size) {
		const char *name;
		const unsigned char *sha1;
		unsigned mode;
		void *eltbuf;
		char elttype[20];
		unsigned long eltsize;

		sha1 = tree_entry_extract(tree, &name, &mode);
		update_tree_entry(tree);

		eltbuf = read_sha1_file(sha1, elttype, &eltsize);
		if (!eltbuf)
			die("cannot read %s", sha1_to_hex(sha1));

		path->len = pathlen;
		strbuf_append_string(path, name);
		if (S_ISDIR(mode))
			strbuf_append_string(path, "/");

		write_entry(sha1, path, mode, eltbuf, eltsize);

		if (S_ISDIR(mode)) {
			struct tree_desc subtree;
			subtree.buf = eltbuf;
			subtree.size = eltsize;
			traverse_tree(&subtree, path);
		}
		free(eltbuf);
	}
}

static int generate_tar(int argc, const char **argv, char** envp)
{
	unsigned char sha1[20], tree_sha1[20];
	struct commit *commit;
	struct tree_desc tree;
	struct strbuf current_path;

	current_path.buf = xmalloc(PATH_MAX);
	current_path.alloc = PATH_MAX;
	current_path.len = current_path.eof = 0;

	setup_git_directory();
	git_config(git_default_config);

	switch (argc) {
	case 3:
		strbuf_append_string(&current_path, argv[2]);
		strbuf_append_string(&current_path, "/");
		/* FALLTHROUGH */
	case 2:
		if (get_sha1(argv[1], sha1))
			die("Not a valid object name %s", argv[1]);
		break;
	default:
		usage(tar_tree_usage);
	}

	commit = lookup_commit_reference_gently(sha1, 1);
	if (commit) {
		write_global_extended_header(commit->object.sha1);
		archive_time = commit->date;
	} else
		archive_time = time(NULL);

	tree.buf = read_object_with_reference(sha1, tree_type, &tree.size,
	                                      tree_sha1);
	if (!tree.buf)
		die("not a reference to a tag, commit or tree object: %s",
		    sha1_to_hex(sha1));

	if (current_path.len > 0)
		write_entry(tree_sha1, &current_path, 040777, NULL, 0);
	traverse_tree(&tree, &current_path);
	write_trailer();
	free(current_path.buf);
	return 0;
}

static const char *exec = "git-upload-tar";

static int remote_tar(int argc, const char **argv)
{
	int fd[2], ret, len;
	pid_t pid;
	char buf[1024];
	char *url;

	if (argc < 3 || 4 < argc)
		usage(tar_tree_usage);

	/* --remote=<repo> */
	url = strdup(argv[1]+9);
	pid = git_connect(fd, url, exec);
	if (pid < 0)
		return 1;

	packet_write(fd[1], "want %s\n", argv[2]);
	if (argv[3])
		packet_write(fd[1], "base %s\n", argv[3]);
	packet_flush(fd[1]);

	len = packet_read_line(fd[0], buf, sizeof(buf));
	if (!len)
		die("git-tar-tree: expected ACK/NAK, got EOF");
	if (buf[len-1] == '\n')
		buf[--len] = 0;
	if (strcmp(buf, "ACK")) {
		if (5 < len && !strncmp(buf, "NACK ", 5))
			die("git-tar-tree: NACK %s", buf + 5);
		die("git-tar-tree: protocol error");
	}
	/* expect a flush */
	len = packet_read_line(fd[0], buf, sizeof(buf));
	if (len)
		die("git-tar-tree: expected a flush");

	/* Now, start reading from fd[0] and spit it out to stdout */
	ret = copy_fd(fd[0], 1);
	close(fd[0]);

	ret |= finish_connect(pid);
	return !!ret;
}

int cmd_tar_tree(int argc, const char **argv, char **envp)
{
	if (argc < 2)
		usage(tar_tree_usage);
	if (!strncmp("--remote=", argv[1], 9))
		return remote_tar(argc, argv);
	return generate_tar(argc, argv, envp);
}
Commit	Line	Data
92747a90	1	/*
ae64bbc1	2	* Copyright (c) 2005, 2006 Rene Scharfe
92747a90	3	*/
731ab9cc RS	4	#include <time.h>
731ab9cc RS	5	#include "cache.h"
1b0c7174	6	#include "tree-walk.h"
c3f92812	7	#include "commit.h"
ae64bbc1 RS	8	#include "strbuf.h"
ae64bbc1 RS	9	#include "tar.h"
56d1398a	10	#include "builtin.h"
21754264	11	#include "pkt-line.h"
731ab9cc RS	12
	13	#define RECORDSIZE (512)
	14	#define BLOCKSIZE (RECORDSIZE * 20)
	15
21754264 JH	16	static const char tar_tree_usage[] =
21754264 JH	17	"git-tar-tree [--remote=<repo>] <ent> [basedir]";
731ab9cc RS	18
	19	static char block[BLOCKSIZE];
	20	static unsigned long offset;
	21
731ab9cc RS	22	static time_t archive_time;
731ab9cc RS	23
731ab9cc RS	24	/* tries hard to write, either succeeds or dies in the attempt */
	25	static void reliable_write(void *buf, unsigned long size)
	26	{
	27	while (size > 0) {
1c15afb9	28	long ret = xwrite(1, buf, size);
731ab9cc	29	if (ret < 0) {
731ab9cc RS	30	if (errno == EPIPE)
731ab9cc RS	31	exit(0);
667bb59b	32	die("git-tar-tree: %s", strerror(errno));
731ab9cc	33	} else if (!ret) {
667bb59b	34	die("git-tar-tree: disk full?");
731ab9cc RS	35	}
	36	size -= ret;
	37	buf += ret;
	38	}
	39	}
	40
	41	/* writes out the whole block, but only if it is full */
	42	static void write_if_needed(void)
	43	{
	44	if (offset == BLOCKSIZE) {
	45	reliable_write(block, BLOCKSIZE);
	46	offset = 0;
	47	}
	48	}
	49
a90a6e6a RS	50	/* acquire the next record from the buffer; user must call write_if_needed() */
	51	static char *get_record(void)
	52	{
	53	char *p = block + offset;
	54	memset(p, 0, RECORDSIZE);
	55	offset += RECORDSIZE;
	56	return p;
	57	}
	58
731ab9cc RS	59	/*
	60	* The end of tar archives is marked by 1024 nul bytes and after that
	61	* follows the rest of the block (if any).
	62	*/
	63	static void write_trailer(void)
	64	{
9b5b9f39	65	get_record();
731ab9cc	66	write_if_needed();
9b5b9f39	67	get_record();
731ab9cc	68	write_if_needed();
a325a11b	69	while (offset) {
9b5b9f39 RS	70	get_record();
9b5b9f39 RS	71	write_if_needed();
731ab9cc RS	72	}
	73	}
	74
	75	/*
	76	* queues up writes, so that all our write(2) calls write exactly one
	77	* full block; pads writes to RECORDSIZE
	78	*/
	79	static void write_blocked(void *buf, unsigned long size)
	80	{
	81	unsigned long tail;
	82
	83	if (offset) {
	84	unsigned long chunk = BLOCKSIZE - offset;
	85	if (size < chunk)
	86	chunk = size;
	87	memcpy(block + offset, buf, chunk);
	88	size -= chunk;
	89	offset += chunk;
	90	buf += chunk;
	91	write_if_needed();
	92	}
	93	while (size >= BLOCKSIZE) {
	94	reliable_write(buf, BLOCKSIZE);
	95	size -= BLOCKSIZE;
	96	buf += BLOCKSIZE;
	97	}
	98	if (size) {
	99	memcpy(block + offset, buf, size);
731ab9cc RS	100	offset += size;
	101	}
	102	tail = offset % RECORDSIZE;
	103	if (tail) {
	104	memset(block + offset, 0, RECORDSIZE - tail);
	105	offset += RECORDSIZE - tail;
	106	}
	107	write_if_needed();
	108	}
	109
cb0c6df6	110	static void strbuf_append_string(struct strbuf sb, const char s)
731ab9cc	111	{
cb0c6df6 RS	112	int slen = strlen(s);
	113	int total = sb->len + slen;
	114	if (total > sb->alloc) {
	115	sb->buf = xrealloc(sb->buf, total);
	116	sb->alloc = total;
731ab9cc	117	}
cb0c6df6 RS	118	memcpy(sb->buf + sb->len, s, slen);
cb0c6df6 RS	119	sb->len = total;
731ab9cc RS	120	}
731ab9cc RS	121
ae64bbc1 RS	122	/*
	123	* pax extended header records have the format "%u %s=%s\n". %u contains
	124	* the size of the whole string (including the %u), the first %s is the
	125	* keyword, the second one is the value. This function constructs such a
	126	* string and appends it to a struct strbuf.
	127	*/
	128	static void strbuf_append_ext_header(struct strbuf sb, const char keyword,
	129	const char *value, unsigned int valuelen)
71058b1f	130	{
ae64bbc1 RS	131	char *p;
ae64bbc1 RS	132	int len, total, tmp;
71058b1f	133
71058b1f	134	/* "%u %s=%s\n" */
ae64bbc1 RS	135	len = 1 + 1 + strlen(keyword) + 1 + valuelen + 1;
ae64bbc1 RS	136	for (tmp = len; tmp > 9; tmp /= 10)
71058b1f	137	len++;
71058b1f	138
ae64bbc1 RS	139	total = sb->len + len;
	140	if (total > sb->alloc) {
	141	sb->buf = xrealloc(sb->buf, total);
	142	sb->alloc = total;
	143	}
71058b1f	144
ae64bbc1 RS	145	p = sb->buf;
	146	p += sprintf(p, "%u %s=", len, keyword);
	147	memcpy(p, value, valuelen);
	148	p += valuelen;
	149	*p = '\n';
	150	sb->len = total;
	151	}
731ab9cc	152
ae64bbc1	153	static unsigned int ustar_header_chksum(const struct ustar_header *header)
731ab9cc	154	{
ae64bbc1 RS	155	char p = (char )header;
	156	unsigned int chksum = 0;
	157	while (p < header->chksum)
	158	chksum += *p++;
	159	chksum += sizeof(header->chksum) * ' ';
	160	p += sizeof(header->chksum);
	161	while (p < (char *)header + sizeof(struct ustar_header))
	162	chksum += *p++;
	163	return chksum;
731ab9cc RS	164	}
731ab9cc RS	165
4c691724	166	static int get_path_prefix(const struct strbuf *path, int maxlen)
87fec8fc	167	{
4c691724 RS	168	int i = path->len;
	169	if (i > maxlen)
	170	i = maxlen;
	171	while (i > 0 && path->buf[i] != '/')
	172	i--;
	173	return i;
87fec8fc RS	174	}
87fec8fc RS	175
ae64bbc1 RS	176	static void write_entry(const unsigned char sha1, struct strbuf path,
ae64bbc1 RS	177	unsigned int mode, void *buffer, unsigned long size)
731ab9cc	178	{
ae64bbc1 RS	179	struct ustar_header header;
	180	struct strbuf ext_header;
	181
	182	memset(&header, 0, sizeof(header));
	183	ext_header.buf = NULL;
	184	ext_header.len = ext_header.alloc = 0;
	185
	186	if (!sha1) {
	187	*header.typeflag = TYPEFLAG_GLOBAL_HEADER;
	188	mode = 0100666;
	189	strcpy(header.name, "pax_global_header");
	190	} else if (!path) {
	191	*header.typeflag = TYPEFLAG_EXT_HEADER;
	192	mode = 0100666;
	193	sprintf(header.name, "%s.paxheader", sha1_to_hex(sha1));
731ab9cc	194	} else {
ae64bbc1 RS	195	if (S_ISDIR(mode)) {
	196	*header.typeflag = TYPEFLAG_DIR;
	197	mode \|= 0777;
	198	} else if (S_ISLNK(mode)) {
	199	*header.typeflag = TYPEFLAG_LNK;
	200	mode \|= 0777;
	201	} else if (S_ISREG(mode)) {
	202	*header.typeflag = TYPEFLAG_REG;
	203	mode \|= (mode & 0100) ? 0777 : 0666;
	204	} else {
	205	error("unsupported file mode: 0%o (SHA1: %s)",
	206	mode, sha1_to_hex(sha1));
	207	return;
	208	}
	209	if (path->len > sizeof(header.name)) {
4c691724 RS	210	int plen = get_path_prefix(path, sizeof(header.prefix));
	211	int rest = path->len - plen - 1;
	212	if (plen > 0 && rest <= sizeof(header.name)) {
	213	memcpy(header.prefix, path->buf, plen);
	214	memcpy(header.name, path->buf + plen + 1, rest);
	215	} else {
	216	sprintf(header.name, "%s.data",
	217	sha1_to_hex(sha1));
	218	strbuf_append_ext_header(&ext_header, "path",
	219	path->buf, path->len);
	220	}
ae64bbc1 RS	221	} else
ae64bbc1 RS	222	memcpy(header.name, path->buf, path->len);
731ab9cc RS	223	}
731ab9cc RS	224
ae64bbc1 RS	225	if (S_ISLNK(mode) && buffer) {
	226	if (size > sizeof(header.linkname)) {
	227	sprintf(header.linkname, "see %s.paxheader",
d5776d50	228	sha1_to_hex(sha1));
ae64bbc1 RS	229	strbuf_append_ext_header(&ext_header, "linkpath",
	230	buffer, size);
	231	} else
	232	memcpy(header.linkname, buffer, size);
d5776d50 RS	233	}
d5776d50 RS	234
ae64bbc1 RS	235	sprintf(header.mode, "%07o", mode & 07777);
	236	sprintf(header.size, "%011lo", S_ISREG(mode) ? size : 0);
	237	sprintf(header.mtime, "%011lo", archive_time);
731ab9cc RS	238
731ab9cc RS	239	/* XXX: should we provide more meaningful info here? */
ae64bbc1 RS	240	sprintf(header.uid, "%07o", 0);
	241	sprintf(header.gid, "%07o", 0);
	242	strncpy(header.uname, "git", 31);
	243	strncpy(header.gname, "git", 31);
	244	sprintf(header.devmajor, "%07o", 0);
	245	sprintf(header.devminor, "%07o", 0);
731ab9cc	246
ae64bbc1 RS	247	memcpy(header.magic, "ustar", 6);
ae64bbc1 RS	248	memcpy(header.version, "00", 2);
731ab9cc	249
ae64bbc1	250	sprintf(header.chksum, "%07o", ustar_header_chksum(&header));
731ab9cc	251
ae64bbc1 RS	252	if (ext_header.len > 0) {
	253	write_entry(sha1, NULL, 0, ext_header.buf, ext_header.len);
	254	free(ext_header.buf);
	255	}
	256	write_blocked(&header, sizeof(header));
	257	if (S_ISREG(mode) && buffer && size > 0)
	258	write_blocked(buffer, size);
	259	}
731ab9cc	260
bf0f910d	261	static void write_global_extended_header(const unsigned char *sha1)
87fec8fc	262	{
ae64bbc1 RS	263	struct strbuf ext_header;
	264	ext_header.buf = NULL;
	265	ext_header.len = ext_header.alloc = 0;
	266	strbuf_append_ext_header(&ext_header, "comment", sha1_to_hex(sha1), 40);
	267	write_entry(NULL, NULL, 0, ext_header.buf, ext_header.len);
	268	free(ext_header.buf);
731ab9cc RS	269	}
731ab9cc RS	270
cb0c6df6	271	static void traverse_tree(struct tree_desc tree, struct strbuf path)
731ab9cc	272	{
cb0c6df6	273	int pathlen = path->len;
731ab9cc	274
7ec57556 LT	275	while (tree->size) {
	276	const char *name;
	277	const unsigned char *sha1;
	278	unsigned mode;
731ab9cc RS	279	void *eltbuf;
	280	char elttype[20];
	281	unsigned long eltsize;
5207234a	282
7ec57556 LT	283	sha1 = tree_entry_extract(tree, &name, &mode);
	284	update_tree_entry(tree);
	285
	286	eltbuf = read_sha1_file(sha1, elttype, &eltsize);
731ab9cc	287	if (!eltbuf)
7ec57556	288	die("cannot read %s", sha1_to_hex(sha1));
cb0c6df6 RS	289
	290	path->len = pathlen;
	291	strbuf_append_string(path, name);
	292	if (S_ISDIR(mode))
	293	strbuf_append_string(path, "/");
	294
	295	write_entry(sha1, path, mode, eltbuf, eltsize);
	296
7ec57556 LT	297	if (S_ISDIR(mode)) {
	298	struct tree_desc subtree;
	299	subtree.buf = eltbuf;
	300	subtree.size = eltsize;
cb0c6df6	301	traverse_tree(&subtree, path);
731ab9cc RS	302	}
	303	free(eltbuf);
	304	}
	305	}
	306
1af0d112	307	static int generate_tar(int argc, const char argv, char envp)
731ab9cc	308	{
2c6df2d5	309	unsigned char sha1[20], tree_sha1[20];
c3f92812	310	struct commit *commit;
7ec57556	311	struct tree_desc tree;
cb0c6df6 RS	312	struct strbuf current_path;
	313
	314	current_path.buf = xmalloc(PATH_MAX);
	315	current_path.alloc = PATH_MAX;
	316	current_path.len = current_path.eof = 0;
731ab9cc	317
53228a5f	318	setup_git_directory();
84a9b58c	319	git_config(git_default_config);
53228a5f	320
731ab9cc RS	321	switch (argc) {
731ab9cc RS	322	case 3:
cb0c6df6 RS	323	strbuf_append_string(&current_path, argv[2]);
cb0c6df6 RS	324	strbuf_append_string(&current_path, "/");
731ab9cc RS	325	/* FALLTHROUGH */
731ab9cc RS	326	case 2:
31fff305 DL	327	if (get_sha1(argv[1], sha1))
31fff305 DL	328	die("Not a valid object name %s", argv[1]);
731ab9cc RS	329	break;
	330	default:
	331	usage(tar_tree_usage);
	332	}
	333
473d404b	334	commit = lookup_commit_reference_gently(sha1, 1);
c3f92812 DB	335	if (commit) {
	336	write_global_extended_header(commit->object.sha1);
	337	archive_time = commit->date;
cb0c6df6 RS	338	} else
	339	archive_time = time(NULL);
	340
8e440259	341	tree.buf = read_object_with_reference(sha1, tree_type, &tree.size,
2c6df2d5	342	tree_sha1);
7ec57556	343	if (!tree.buf)
db413479 RS	344	die("not a reference to a tag, commit or tree object: %s",
db413479 RS	345	sha1_to_hex(sha1));
cb0c6df6 RS	346
	347	if (current_path.len > 0)
	348	write_entry(tree_sha1, &current_path, 040777, NULL, 0);
	349	traverse_tree(&tree, &current_path);
731ab9cc	350	write_trailer();
cb0c6df6	351	free(current_path.buf);
731ab9cc RS	352	return 0;
731ab9cc RS	353	}
21754264 JH	354
	355	static const char *exec = "git-upload-tar";
	356
	357	static int remote_tar(int argc, const char **argv)
	358	{
	359	int fd[2], ret, len;
	360	pid_t pid;
	361	char buf[1024];
	362	char *url;
	363
	364	if (argc < 3 \|\| 4 < argc)
	365	usage(tar_tree_usage);
	366
	367	/* --remote=<repo> */
	368	url = strdup(argv[1]+9);
	369	pid = git_connect(fd, url, exec);
	370	if (pid < 0)
	371	return 1;
	372
	373	packet_write(fd[1], "want %s\n", argv[2]);
	374	if (argv[3])
	375	packet_write(fd[1], "base %s\n", argv[3]);
	376	packet_flush(fd[1]);
	377
	378	len = packet_read_line(fd[0], buf, sizeof(buf));
	379	if (!len)
	380	die("git-tar-tree: expected ACK/NAK, got EOF");
	381	if (buf[len-1] == '\n')
	382	buf[--len] = 0;
	383	if (strcmp(buf, "ACK")) {
	384	if (5 < len && !strncmp(buf, "NACK ", 5))
	385	die("git-tar-tree: NACK %s", buf + 5);
	386	die("git-tar-tree: protocol error");
	387	}
	388	/* expect a flush */
	389	len = packet_read_line(fd[0], buf, sizeof(buf));
	390	if (len)
	391	die("git-tar-tree: expected a flush");
	392
	393	/* Now, start reading from fd[0] and spit it out to stdout */
	394	ret = copy_fd(fd[0], 1);
	395	close(fd[0]);
	396
	397	ret \|= finish_connect(pid);
	398	return !!ret;
	399	}
	400
	401	int cmd_tar_tree(int argc, const char argv, char envp)
	402	{
	403	if (argc < 2)
	404	usage(tar_tree_usage);
	405	if (!strncmp("--remote=", argv[1], 9))
	406	return remote_tar(argc, argv);
1af0d112	407	return generate_tar(argc, argv, envp);
21754264	408	}