2005-04-08 00:16:10 +02:00
|
|
|
/*
|
|
|
|
* GIT - The information manager from hell
|
|
|
|
*
|
|
|
|
* Copyright (C) Linus Torvalds, 2005
|
|
|
|
*/
|
2005-04-08 00:13:13 +02:00
|
|
|
#include "cache.h"
|
|
|
|
|
|
|
|
#include <pwd.h>
|
|
|
|
#include <time.h>
|
2005-04-15 17:39:57 +02:00
|
|
|
#include <string.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
#include <time.h>
|
2005-04-08 00:13:13 +02:00
|
|
|
|
|
|
|
#define BLOCKING (1ul << 14)
|
|
|
|
|
|
|
|
/*
|
|
|
|
* FIXME! Share the code with "write-tree.c"
|
|
|
|
*/
|
|
|
|
static void init_buffer(char **bufp, unsigned int *sizep)
|
|
|
|
{
|
2005-04-26 21:00:58 +02:00
|
|
|
char *buf = xmalloc(BLOCKING);
|
2005-04-25 19:19:53 +02:00
|
|
|
*sizep = 0;
|
2005-04-08 00:13:13 +02:00
|
|
|
*bufp = buf;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void add_buffer(char **bufp, unsigned int *sizep, const char *fmt, ...)
|
|
|
|
{
|
|
|
|
char one_line[2048];
|
|
|
|
va_list args;
|
|
|
|
int len;
|
|
|
|
unsigned long alloc, size, newsize;
|
|
|
|
char *buf;
|
|
|
|
|
|
|
|
va_start(args, fmt);
|
|
|
|
len = vsnprintf(one_line, sizeof(one_line), fmt, args);
|
|
|
|
va_end(args);
|
|
|
|
size = *sizep;
|
|
|
|
newsize = size + len;
|
|
|
|
alloc = (size + 32767) & ~32767;
|
|
|
|
buf = *bufp;
|
|
|
|
if (newsize > alloc) {
|
2005-04-12 20:36:26 +02:00
|
|
|
alloc = (newsize + 32767) & ~32767;
|
2005-04-26 21:00:58 +02:00
|
|
|
buf = xrealloc(buf, alloc);
|
2005-04-08 00:13:13 +02:00
|
|
|
*bufp = buf;
|
|
|
|
}
|
|
|
|
*sizep = newsize;
|
|
|
|
memcpy(buf + size, one_line, len);
|
|
|
|
}
|
|
|
|
|
|
|
|
static void remove_special(char *p)
|
|
|
|
{
|
|
|
|
char c;
|
2005-04-18 04:12:14 +02:00
|
|
|
char *dst = p, *src = p;
|
2005-04-08 00:13:13 +02:00
|
|
|
|
|
|
|
for (;;) {
|
2005-04-18 04:12:14 +02:00
|
|
|
c = *src;
|
|
|
|
src++;
|
2005-04-08 00:13:13 +02:00
|
|
|
switch(c) {
|
|
|
|
case '\n': case '<': case '>':
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
*dst++ = c;
|
|
|
|
if (!c)
|
|
|
|
break;
|
|
|
|
}
|
2005-04-18 01:52:54 +02:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Go back, and remove crud from the end: some people
|
|
|
|
* have commas etc in their gecos field
|
|
|
|
*/
|
|
|
|
dst--;
|
|
|
|
while (--dst >= p) {
|
|
|
|
unsigned char c = *dst;
|
|
|
|
switch (c) {
|
|
|
|
case ',': case ';': case '.':
|
|
|
|
*dst = 0;
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
}
|
2005-04-08 00:13:13 +02:00
|
|
|
}
|
|
|
|
|
2005-04-18 00:26:13 +02:00
|
|
|
static void check_valid(unsigned char *sha1, const char *expect)
|
|
|
|
{
|
|
|
|
void *buf;
|
|
|
|
char type[20];
|
|
|
|
unsigned long size;
|
|
|
|
|
|
|
|
buf = read_sha1_file(sha1, type, &size);
|
|
|
|
if (!buf || strcmp(type, expect))
|
|
|
|
die("%s is not a valid '%s' object", sha1_to_hex(sha1), expect);
|
|
|
|
free(buf);
|
|
|
|
}
|
|
|
|
|
2005-04-08 00:13:13 +02:00
|
|
|
/*
|
2005-04-21 04:49:16 +02:00
|
|
|
* Having more than two parents is not strange at all, and this is
|
|
|
|
* how multi-way merges are represented.
|
2005-04-08 00:13:13 +02:00
|
|
|
*/
|
|
|
|
#define MAXPARENT (16)
|
|
|
|
|
2005-04-21 04:49:16 +02:00
|
|
|
static char *commit_tree_usage = "commit-tree <sha1> [-p <sha1>]* < changelog";
|
|
|
|
|
2005-04-08 00:13:13 +02:00
|
|
|
int main(int argc, char **argv)
|
|
|
|
{
|
|
|
|
int i, len;
|
|
|
|
int parents = 0;
|
|
|
|
unsigned char tree_sha1[20];
|
|
|
|
unsigned char parent_sha1[MAXPARENT][20];
|
2005-04-10 02:09:34 +02:00
|
|
|
unsigned char commit_sha1[20];
|
2005-04-19 02:37:32 +02:00
|
|
|
char *gecos, *realgecos, *commitgecos;
|
|
|
|
char *email, *commitemail, realemail[1000];
|
2005-04-15 17:39:57 +02:00
|
|
|
char date[20], realdate[20];
|
|
|
|
char *audate;
|
2005-04-08 00:13:13 +02:00
|
|
|
char comment[1000];
|
|
|
|
struct passwd *pw;
|
|
|
|
char *buffer;
|
|
|
|
unsigned int size;
|
|
|
|
|
|
|
|
if (argc < 2 || get_sha1_hex(argv[1], tree_sha1) < 0)
|
2005-04-21 04:49:16 +02:00
|
|
|
usage(commit_tree_usage);
|
2005-04-08 00:13:13 +02:00
|
|
|
|
2005-04-18 00:26:13 +02:00
|
|
|
check_valid(tree_sha1, "tree");
|
2005-04-08 00:13:13 +02:00
|
|
|
for (i = 2; i < argc; i += 2) {
|
|
|
|
char *a, *b;
|
|
|
|
a = argv[i]; b = argv[i+1];
|
2005-05-02 01:36:56 +02:00
|
|
|
if (!b || strcmp(a, "-p") || get_sha1(b, parent_sha1[parents]))
|
2005-04-21 04:49:16 +02:00
|
|
|
usage(commit_tree_usage);
|
2005-04-18 00:26:13 +02:00
|
|
|
check_valid(parent_sha1[parents], "commit");
|
2005-04-08 00:13:13 +02:00
|
|
|
parents++;
|
|
|
|
}
|
|
|
|
if (!parents)
|
|
|
|
fprintf(stderr, "Committing initial tree %s\n", argv[1]);
|
|
|
|
pw = getpwuid(getuid());
|
|
|
|
if (!pw)
|
2005-04-13 11:28:48 +02:00
|
|
|
die("You don't exist. Go away!");
|
2005-04-08 00:13:13 +02:00
|
|
|
realgecos = pw->pw_gecos;
|
|
|
|
len = strlen(pw->pw_name);
|
|
|
|
memcpy(realemail, pw->pw_name, len);
|
|
|
|
realemail[len] = '@';
|
|
|
|
gethostname(realemail+len+1, sizeof(realemail)-len-1);
|
2005-04-20 00:46:06 +02:00
|
|
|
if (!strchr(realemail+len+1, '.')) {
|
|
|
|
strcat(realemail, ".");
|
|
|
|
getdomainname(realemail+strlen(realemail), sizeof(realemail)-strlen(realemail)-1);
|
|
|
|
}
|
2005-04-15 17:39:57 +02:00
|
|
|
|
2005-04-30 18:46:49 +02:00
|
|
|
datestamp(realdate, sizeof(realdate));
|
2005-04-15 17:39:57 +02:00
|
|
|
strcpy(date, realdate);
|
2005-04-08 00:13:13 +02:00
|
|
|
|
2005-04-19 02:37:32 +02:00
|
|
|
commitgecos = getenv("COMMIT_AUTHOR_NAME") ? : realgecos;
|
|
|
|
commitemail = getenv("COMMIT_AUTHOR_EMAIL") ? : realemail;
|
2005-04-11 17:37:17 +02:00
|
|
|
gecos = getenv("AUTHOR_NAME") ? : realgecos;
|
|
|
|
email = getenv("AUTHOR_EMAIL") ? : realemail;
|
2005-04-15 17:39:57 +02:00
|
|
|
audate = getenv("AUTHOR_DATE");
|
|
|
|
if (audate)
|
2005-04-30 18:46:49 +02:00
|
|
|
parse_date(audate, date, sizeof(date));
|
2005-04-08 00:13:13 +02:00
|
|
|
|
2005-04-19 02:37:32 +02:00
|
|
|
remove_special(gecos); remove_special(realgecos); remove_special(commitgecos);
|
|
|
|
remove_special(email); remove_special(realemail); remove_special(commitemail);
|
2005-04-08 00:13:13 +02:00
|
|
|
|
|
|
|
init_buffer(&buffer, &size);
|
|
|
|
add_buffer(&buffer, &size, "tree %s\n", sha1_to_hex(tree_sha1));
|
|
|
|
|
|
|
|
/*
|
|
|
|
* NOTE! This ordering means that the same exact tree merged with a
|
|
|
|
* different order of parents will be a _different_ changeset even
|
|
|
|
* if everything else stays the same.
|
|
|
|
*/
|
|
|
|
for (i = 0; i < parents; i++)
|
|
|
|
add_buffer(&buffer, &size, "parent %s\n", sha1_to_hex(parent_sha1[i]));
|
|
|
|
|
|
|
|
/* Person/date information */
|
|
|
|
add_buffer(&buffer, &size, "author %s <%s> %s\n", gecos, email, date);
|
2005-04-19 02:37:32 +02:00
|
|
|
add_buffer(&buffer, &size, "committer %s <%s> %s\n\n", commitgecos, commitemail, realdate);
|
2005-04-08 00:13:13 +02:00
|
|
|
|
|
|
|
/* And add the comment */
|
|
|
|
while (fgets(comment, sizeof(comment), stdin) != NULL)
|
|
|
|
add_buffer(&buffer, &size, "%s", comment);
|
|
|
|
|
2005-04-25 19:19:53 +02:00
|
|
|
write_sha1_file(buffer, size, "commit", commit_sha1);
|
2005-04-10 02:09:34 +02:00
|
|
|
printf("%s\n", sha1_to_hex(commit_sha1));
|
2005-04-08 00:13:13 +02:00
|
|
|
return 0;
|
|
|
|
}
|