]>
git.ipfire.org Git - thirdparty/git.git/blob - commit-tree.c
2 * GIT - The information manager from hell
4 * Copyright (C) Linus Torvalds, 2005
14 #define BLOCKING (1ul << 14)
15 #define ORIG_OFFSET (40)
18 * Leave space at the beginning to insert the tag
19 * once we know how big things are.
21 * FIXME! Share the code with "write-tree.c"
23 static void init_buffer(char **bufp
, unsigned int *sizep
)
25 char *buf
= malloc(BLOCKING
);
26 memset(buf
, 0, ORIG_OFFSET
);
31 static void add_buffer(char **bufp
, unsigned int *sizep
, const char *fmt
, ...)
36 unsigned long alloc
, size
, newsize
;
40 len
= vsnprintf(one_line
, sizeof(one_line
), fmt
, args
);
44 alloc
= (size
+ 32767) & ~32767;
46 if (newsize
> alloc
) {
47 alloc
= (newsize
+ 32767) & ~32767;
48 buf
= realloc(buf
, alloc
);
52 memcpy(buf
+ size
, one_line
, len
);
55 static int prepend_integer(char *buffer
, unsigned val
, int i
)
59 buffer
[--i
] = '0' + (val
% 10);
65 static void finish_buffer(char *tag
, char **bufp
, unsigned int *sizep
)
70 unsigned int size
= *sizep
;
72 offset
= prepend_integer(buf
, size
- ORIG_OFFSET
, ORIG_OFFSET
);
77 memcpy(buf
, tag
, taglen
);
83 static void remove_special(char *p
)
92 case '\n': case '<': case '>':
101 static const char *month_names
[] = {
102 "Jan", "Feb", "Mar", "Apr", "May", "Jun",
103 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
106 static const char *weekday_names
[] = {
107 "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
111 static char *skipfws(char *str
)
113 while (isspace(*str
))
119 /* Gr. strptime is crap for this; it doesn't have a way to require RFC2822
120 (i.e. English) day/month names, and it doesn't work correctly with %z. */
121 static void parse_rfc2822_date(char *date
, char *result
, int maxlen
)
128 memset(&tm
, 0, sizeof(tm
));
133 for (i
=0; i
<7; i
++) {
134 if (!strncmp(p
,weekday_names
[i
],3) && p
[3] == ',') {
144 tm
.tm_mday
= strtoul(p
, &p
, 10);
146 if (tm
.tm_mday
< 1 || tm
.tm_mday
> 31)
156 for (i
=0; i
<12; i
++) {
157 if (!strncmp(p
, month_names
[i
], 3) && isspace(p
[3])) {
159 p
= skipfws(p
+strlen(month_names
[i
]));
163 return; /* Error -- bad month */
167 tm
.tm_year
= strtoul(p
, &p
, 10);
169 if (!tm
.tm_year
&& !isspace(*p
))
172 if (tm
.tm_year
> 1900)
180 tm
.tm_hour
= strtoul(p
, &p
, 10);
182 if (!tm
.tm_hour
> 23)
186 return; /* Error -- bad time */
192 tm
.tm_min
= strtoul(p
, &p
, 10);
201 return; /* Error -- bad time */
207 tm
.tm_sec
= strtoul(p
, &p
, 10);
225 if (!isdigit(p
[1]) || !isdigit(p
[2]) || !isdigit(p
[3]) || !isdigit(p
[4]))
228 i
= strtoul(p
+1, NULL
, 10);
229 offset
*= ((i
% 100) + ((i
/ 100) * 60));
231 if (*(skipfws(p
+ 5)))
234 then
= mktime(&tm
); /* mktime appears to ignore the GMT offset, stupidly */
240 snprintf(result
, maxlen
, "%lu %5.5s", then
, p
);
243 static void check_valid(unsigned char *sha1
, const char *expect
)
249 buf
= read_sha1_file(sha1
, type
, &size
);
250 if (!buf
|| strcmp(type
, expect
))
251 die("%s is not a valid '%s' object", sha1_to_hex(sha1
), expect
);
256 * Having more than two parents may be strange, but hey, there's
257 * no conceptual reason why the file format couldn't accept multi-way
258 * merges. It might be the "union" of several packages, for example.
260 * I don't really expect that to happen, but this is here to make
261 * it clear that _conceptually_ it's ok..
263 #define MAXPARENT (16)
265 int main(int argc
, char **argv
)
269 unsigned char tree_sha1
[20];
270 unsigned char parent_sha1
[MAXPARENT
][20];
271 unsigned char commit_sha1
[20];
272 char *gecos
, *realgecos
;
273 char *email
, realemail
[1000];
274 char date
[20], realdate
[20];
283 if (argc
< 2 || get_sha1_hex(argv
[1], tree_sha1
) < 0)
284 usage("commit-tree <sha1> [-p <sha1>]* < changelog");
286 check_valid(tree_sha1
, "tree");
287 for (i
= 2; i
< argc
; i
+= 2) {
289 a
= argv
[i
]; b
= argv
[i
+1];
290 if (!b
|| strcmp(a
, "-p") || get_sha1_hex(b
, parent_sha1
[parents
]))
291 usage("commit-tree <sha1> [-p <sha1>]* < changelog");
292 check_valid(parent_sha1
[parents
], "commit");
296 fprintf(stderr
, "Committing initial tree %s\n", argv
[1]);
297 pw
= getpwuid(getuid());
299 die("You don't exist. Go away!");
300 realgecos
= pw
->pw_gecos
;
301 len
= strlen(pw
->pw_name
);
302 memcpy(realemail
, pw
->pw_name
, len
);
303 realemail
[len
] = '@';
304 gethostname(realemail
+len
+1, sizeof(realemail
)-len
-1);
306 tm
= localtime(&now
);
308 strftime(realdate
, sizeof(realdate
), "%s %z", tm
);
309 strcpy(date
, realdate
);
311 gecos
= getenv("AUTHOR_NAME") ? : realgecos
;
312 email
= getenv("AUTHOR_EMAIL") ? : realemail
;
313 audate
= getenv("AUTHOR_DATE");
315 parse_rfc2822_date(audate
, date
, sizeof(date
));
317 remove_special(gecos
); remove_special(realgecos
);
318 remove_special(email
); remove_special(realemail
);
320 init_buffer(&buffer
, &size
);
321 add_buffer(&buffer
, &size
, "tree %s\n", sha1_to_hex(tree_sha1
));
324 * NOTE! This ordering means that the same exact tree merged with a
325 * different order of parents will be a _different_ changeset even
326 * if everything else stays the same.
328 for (i
= 0; i
< parents
; i
++)
329 add_buffer(&buffer
, &size
, "parent %s\n", sha1_to_hex(parent_sha1
[i
]));
331 /* Person/date information */
332 add_buffer(&buffer
, &size
, "author %s <%s> %s\n", gecos
, email
, date
);
333 add_buffer(&buffer
, &size
, "committer %s <%s> %s\n\n", realgecos
, realemail
, realdate
);
335 /* And add the comment */
336 while (fgets(comment
, sizeof(comment
), stdin
) != NULL
)
337 add_buffer(&buffer
, &size
, "%s", comment
);
339 finish_buffer("commit ", &buffer
, &size
);
341 write_sha1_file(buffer
, size
, commit_sha1
);
342 printf("%s\n", sha1_to_hex(commit_sha1
));