2 * GIT - The information manager from hell
4 * Copyright (C) Linus Torvalds, 2005
12 static const char commit_tree_usage
[] = "git commit-tree <sha1> [(-p <sha1>)...] < changelog";
14 static void new_parent(struct commit
*parent
, struct commit_list
**parents_p
)
16 unsigned char *sha1
= parent
->object
.sha1
;
17 struct commit_list
*parents
;
18 for (parents
= *parents_p
; parents
; parents
= parents
->next
) {
19 if (parents
->item
== parent
) {
20 error("duplicate parent %s ignored", sha1_to_hex(sha1
));
23 parents_p
= &parents
->next
;
25 commit_list_insert(parent
, parents_p
);
28 int cmd_commit_tree(int argc
, const char **argv
, const char *prefix
)
31 struct commit_list
*parents
= NULL
;
32 unsigned char tree_sha1
[20];
33 unsigned char commit_sha1
[20];
34 struct strbuf buffer
= STRBUF_INIT
;
36 git_config(git_default_config
, NULL
);
38 if (argc
< 2 || !strcmp(argv
[1], "-h"))
39 usage(commit_tree_usage
);
40 if (get_sha1(argv
[1], tree_sha1
))
41 die("Not a valid object name %s", argv
[1]);
43 for (i
= 2; i
< argc
; i
+= 2) {
44 unsigned char sha1
[20];
46 a
= argv
[i
]; b
= argv
[i
+1];
47 if (!b
|| strcmp(a
, "-p"))
48 usage(commit_tree_usage
);
50 if (get_sha1(b
, sha1
))
51 die("Not a valid object name %s", b
);
52 assert_sha1_type(sha1
, OBJ_COMMIT
);
53 new_parent(lookup_commit(sha1
), &parents
);
56 if (strbuf_read(&buffer
, 0, 0) < 0)
57 die_errno("git commit-tree: failed to read");
59 if (commit_tree(buffer
.buf
, tree_sha1
, parents
, commit_sha1
, NULL
)) {
60 strbuf_release(&buffer
);
64 printf("%s\n", sha1_to_hex(commit_sha1
));
65 strbuf_release(&buffer
);