e51eda15243614d83948f31ee3814120ad61b1fe
1#include <ctype.h>
2#include "tag.h"
3#include "commit.h"
4#include "cache.h"
5
6struct sort_node
7{
8 /*
9 * the number of children of the associated commit
10 * that also occur in the list being sorted.
11 */
12 unsigned int indegree;
13
14 /*
15 * reference to original list item that we will re-use
16 * on output.
17 */
18 struct commit_list * list_item;
19
20};
21
22const char *commit_type = "commit";
23
24enum cmit_fmt get_commit_format(const char *arg)
25{
26 if (!*arg)
27 return CMIT_FMT_DEFAULT;
28 if (!strcmp(arg, "=raw"))
29 return CMIT_FMT_RAW;
30 if (!strcmp(arg, "=medium"))
31 return CMIT_FMT_MEDIUM;
32 if (!strcmp(arg, "=short"))
33 return CMIT_FMT_SHORT;
34 if (!strcmp(arg, "=full"))
35 return CMIT_FMT_FULL;
36 if (!strcmp(arg, "=oneline"))
37 return CMIT_FMT_ONELINE;
38 die("invalid --pretty format");
39}
40
41static struct commit *check_commit(struct object *obj,
42 const unsigned char *sha1,
43 int quiet)
44{
45 if (obj->type != commit_type) {
46 if (!quiet)
47 error("Object %s is a %s, not a commit",
48 sha1_to_hex(sha1), obj->type);
49 return NULL;
50 }
51 return (struct commit *) obj;
52}
53
54struct commit *lookup_commit_reference_gently(const unsigned char *sha1,
55 int quiet)
56{
57 struct object *obj = deref_tag(parse_object(sha1));
58
59 if (!obj)
60 return NULL;
61 return check_commit(obj, sha1, quiet);
62}
63
64struct commit *lookup_commit_reference(const unsigned char *sha1)
65{
66 return lookup_commit_reference_gently(sha1, 0);
67}
68
69struct commit *lookup_commit(const unsigned char *sha1)
70{
71 struct object *obj = lookup_object(sha1);
72 if (!obj) {
73 struct commit *ret = xmalloc(sizeof(struct commit));
74 memset(ret, 0, sizeof(struct commit));
75 created_object(sha1, &ret->object);
76 ret->object.type = commit_type;
77 return ret;
78 }
79 if (!obj->type)
80 obj->type = commit_type;
81 return check_commit(obj, sha1, 0);
82}
83
84static unsigned long parse_commit_date(const char *buf)
85{
86 unsigned long date;
87
88 if (memcmp(buf, "author", 6))
89 return 0;
90 while (*buf++ != '\n')
91 /* nada */;
92 if (memcmp(buf, "committer", 9))
93 return 0;
94 while (*buf++ != '>')
95 /* nada */;
96 date = strtoul(buf, NULL, 10);
97 if (date == ULONG_MAX)
98 date = 0;
99 return date;
100}
101
102static struct commit_graft {
103 unsigned char sha1[20];
104 int nr_parent;
105 unsigned char parent[0][20]; /* more */
106} **commit_graft;
107static int commit_graft_alloc, commit_graft_nr;
108
109static int commit_graft_pos(const unsigned char *sha1)
110{
111 int lo, hi;
112 lo = 0;
113 hi = commit_graft_nr;
114 while (lo < hi) {
115 int mi = (lo + hi) / 2;
116 struct commit_graft *graft = commit_graft[mi];
117 int cmp = memcmp(sha1, graft->sha1, 20);
118 if (!cmp)
119 return mi;
120 if (cmp < 0)
121 hi = mi;
122 else
123 lo = mi + 1;
124 }
125 return -lo - 1;
126}
127
128static void prepare_commit_graft(void)
129{
130 char *graft_file = get_graft_file();
131 FILE *fp = fopen(graft_file, "r");
132 char buf[1024];
133 if (!fp) {
134 commit_graft = (struct commit_graft **) "hack";
135 return;
136 }
137 while (fgets(buf, sizeof(buf), fp)) {
138 /* The format is just "Commit Parent1 Parent2 ...\n" */
139 int len = strlen(buf);
140 int i;
141 struct commit_graft *graft = NULL;
142
143 if (buf[len-1] == '\n')
144 buf[--len] = 0;
145 if (buf[0] == '#')
146 continue;
147 if ((len + 1) % 41) {
148 bad_graft_data:
149 error("bad graft data: %s", buf);
150 free(graft);
151 continue;
152 }
153 i = (len + 1) / 41 - 1;
154 graft = xmalloc(sizeof(*graft) + 20 * i);
155 graft->nr_parent = i;
156 if (get_sha1_hex(buf, graft->sha1))
157 goto bad_graft_data;
158 for (i = 40; i < len; i += 41) {
159 if (buf[i] != ' ')
160 goto bad_graft_data;
161 if (get_sha1_hex(buf + i + 1, graft->parent[i/41]))
162 goto bad_graft_data;
163 }
164 i = commit_graft_pos(graft->sha1);
165 if (0 <= i) {
166 error("duplicate graft data: %s", buf);
167 free(graft);
168 continue;
169 }
170 i = -i - 1;
171 if (commit_graft_alloc <= ++commit_graft_nr) {
172 commit_graft_alloc = alloc_nr(commit_graft_alloc);
173 commit_graft = xrealloc(commit_graft,
174 sizeof(*commit_graft) *
175 commit_graft_alloc);
176 }
177 if (i < commit_graft_nr)
178 memmove(commit_graft + i + 1,
179 commit_graft + i,
180 (commit_graft_nr - i - 1) *
181 sizeof(*commit_graft));
182 commit_graft[i] = graft;
183 }
184 fclose(fp);
185}
186
187static struct commit_graft *lookup_commit_graft(const unsigned char *sha1)
188{
189 int pos;
190 if (!commit_graft)
191 prepare_commit_graft();
192 pos = commit_graft_pos(sha1);
193 if (pos < 0)
194 return NULL;
195 return commit_graft[pos];
196}
197
198int parse_commit_buffer(struct commit *item, void *buffer, unsigned long size)
199{
200 char *bufptr = buffer;
201 unsigned char parent[20];
202 struct commit_list **pptr;
203 struct commit_graft *graft;
204
205 if (item->object.parsed)
206 return 0;
207 item->object.parsed = 1;
208 if (memcmp(bufptr, "tree ", 5))
209 return error("bogus commit object %s", sha1_to_hex(item->object.sha1));
210 if (get_sha1_hex(bufptr + 5, parent) < 0)
211 return error("bad tree pointer in commit %s\n", sha1_to_hex(item->object.sha1));
212 item->tree = lookup_tree(parent);
213 if (item->tree)
214 add_ref(&item->object, &item->tree->object);
215 bufptr += 46; /* "tree " + "hex sha1" + "\n" */
216 pptr = &item->parents;
217
218 graft = lookup_commit_graft(item->object.sha1);
219 while (!memcmp(bufptr, "parent ", 7)) {
220 struct commit *new_parent;
221
222 if (get_sha1_hex(bufptr + 7, parent) || bufptr[47] != '\n')
223 return error("bad parents in commit %s", sha1_to_hex(item->object.sha1));
224 bufptr += 48;
225 if (graft)
226 continue;
227 new_parent = lookup_commit(parent);
228 if (new_parent) {
229 pptr = &commit_list_insert(new_parent, pptr)->next;
230 add_ref(&item->object, &new_parent->object);
231 }
232 }
233 if (graft) {
234 int i;
235 struct commit *new_parent;
236 for (i = 0; i < graft->nr_parent; i++) {
237 new_parent = lookup_commit(graft->parent[i]);
238 if (!new_parent)
239 continue;
240 pptr = &commit_list_insert(new_parent, pptr)->next;
241 add_ref(&item->object, &new_parent->object);
242 }
243 }
244 item->date = parse_commit_date(bufptr);
245 return 0;
246}
247
248int parse_commit(struct commit *item)
249{
250 char type[20];
251 void *buffer;
252 unsigned long size;
253 int ret;
254
255 if (item->object.parsed)
256 return 0;
257 buffer = read_sha1_file(item->object.sha1, type, &size);
258 if (!buffer)
259 return error("Could not read %s",
260 sha1_to_hex(item->object.sha1));
261 if (strcmp(type, commit_type)) {
262 free(buffer);
263 return error("Object %s not a commit",
264 sha1_to_hex(item->object.sha1));
265 }
266 ret = parse_commit_buffer(item, buffer, size);
267 if (!ret) {
268 item->buffer = buffer;
269 return 0;
270 }
271 free(buffer);
272 return ret;
273}
274
275struct commit_list *commit_list_insert(struct commit *item, struct commit_list **list_p)
276{
277 struct commit_list *new_list = xmalloc(sizeof(struct commit_list));
278 new_list->item = item;
279 new_list->next = *list_p;
280 *list_p = new_list;
281 return new_list;
282}
283
284void free_commit_list(struct commit_list *list)
285{
286 while (list) {
287 struct commit_list *temp = list;
288 list = temp->next;
289 free(temp);
290 }
291}
292
293struct commit_list * insert_by_date(struct commit *item, struct commit_list **list)
294{
295 struct commit_list **pp = list;
296 struct commit_list *p;
297 while ((p = *pp) != NULL) {
298 if (p->item->date < item->date) {
299 break;
300 }
301 pp = &p->next;
302 }
303 return commit_list_insert(item, pp);
304}
305
306
307void sort_by_date(struct commit_list **list)
308{
309 struct commit_list *ret = NULL;
310 while (*list) {
311 insert_by_date((*list)->item, &ret);
312 *list = (*list)->next;
313 }
314 *list = ret;
315}
316
317struct commit *pop_most_recent_commit(struct commit_list **list,
318 unsigned int mark)
319{
320 struct commit *ret = (*list)->item;
321 struct commit_list *parents = ret->parents;
322 struct commit_list *old = *list;
323
324 *list = (*list)->next;
325 free(old);
326
327 while (parents) {
328 struct commit *commit = parents->item;
329 parse_commit(commit);
330 if (!(commit->object.flags & mark)) {
331 commit->object.flags |= mark;
332 insert_by_date(commit, list);
333 }
334 parents = parents->next;
335 }
336 return ret;
337}
338
339/*
340 * Generic support for pretty-printing the header
341 */
342static int get_one_line(const char *msg, unsigned long len)
343{
344 int ret = 0;
345
346 while (len--) {
347 char c = *msg++;
348 ret++;
349 if (c == '\n')
350 break;
351 if (!c)
352 return 0;
353 }
354 return ret;
355}
356
357static int add_user_info(const char *what, enum cmit_fmt fmt, char *buf, const char *line)
358{
359 char *date;
360 unsigned int namelen;
361 unsigned long time;
362 int tz, ret;
363
364 if (fmt == CMIT_FMT_ONELINE)
365 return 0;
366 date = strchr(line, '>');
367 if (!date)
368 return 0;
369 namelen = ++date - line;
370 time = strtoul(date, &date, 10);
371 tz = strtol(date, NULL, 10);
372
373 ret = sprintf(buf, "%s: %.*s\n", what, namelen, line);
374 if (fmt == CMIT_FMT_MEDIUM)
375 ret += sprintf(buf + ret, "Date: %s\n", show_date(time, tz));
376 return ret;
377}
378
379static int is_empty_line(const char *line, int len)
380{
381 while (len && isspace(line[len-1]))
382 len--;
383 return !len;
384}
385
386static int add_parent_info(enum cmit_fmt fmt, char *buf, const char *line, int parents)
387{
388 int offset = 0;
389
390 if (fmt == CMIT_FMT_ONELINE)
391 return offset;
392 switch (parents) {
393 case 1:
394 break;
395 case 2:
396 /* Go back to the previous line: 40 characters of previous parent, and one '\n' */
397 offset = sprintf(buf, "Merge: %.40s\n", line-41);
398 /* Fallthrough */
399 default:
400 /* Replace the previous '\n' with a space */
401 buf[offset-1] = ' ';
402 offset += sprintf(buf + offset, "%.40s\n", line+7);
403 }
404 return offset;
405}
406
407unsigned long pretty_print_commit(enum cmit_fmt fmt, const char *msg, unsigned long len, char *buf, unsigned long space)
408{
409 int hdr = 1, body = 0;
410 unsigned long offset = 0;
411 int parents = 0;
412 int indent = (fmt == CMIT_FMT_ONELINE) ? 0 : 4;
413
414 for (;;) {
415 const char *line = msg;
416 int linelen = get_one_line(msg, len);
417
418 if (!linelen)
419 break;
420
421 /*
422 * We want some slop for indentation and a possible
423 * final "...". Thus the "+ 20".
424 */
425 if (offset + linelen + 20 > space) {
426 memcpy(buf + offset, " ...\n", 8);
427 offset += 8;
428 break;
429 }
430
431 msg += linelen;
432 len -= linelen;
433 if (hdr) {
434 if (linelen == 1) {
435 hdr = 0;
436 if (fmt != CMIT_FMT_ONELINE)
437 buf[offset++] = '\n';
438 continue;
439 }
440 if (fmt == CMIT_FMT_RAW) {
441 memcpy(buf + offset, line, linelen);
442 offset += linelen;
443 continue;
444 }
445 if (!memcmp(line, "parent ", 7)) {
446 if (linelen != 48)
447 die("bad parent line in commit");
448 offset += add_parent_info(fmt, buf + offset, line, ++parents);
449 }
450 if (!memcmp(line, "author ", 7))
451 offset += add_user_info("Author", fmt, buf + offset, line + 7);
452 if (fmt == CMIT_FMT_FULL) {
453 if (!memcmp(line, "committer ", 10))
454 offset += add_user_info("Commit", fmt, buf + offset, line + 10);
455 }
456 continue;
457 }
458
459 if (is_empty_line(line, linelen)) {
460 if (!body)
461 continue;
462 if (fmt == CMIT_FMT_SHORT)
463 break;
464 } else {
465 body = 1;
466 }
467
468 memset(buf + offset, ' ', indent);
469 memcpy(buf + offset + indent, line, linelen);
470 offset += linelen + indent;
471 if (fmt == CMIT_FMT_ONELINE)
472 break;
473 }
474 if (fmt == CMIT_FMT_ONELINE) {
475 /* We do not want the terminating newline */
476 if (buf[offset - 1] == '\n')
477 offset--;
478 }
479 else {
480 /* Make sure there is an EOLN */
481 if (buf[offset - 1] != '\n')
482 buf[offset++] = '\n';
483 }
484 buf[offset] = '\0';
485 return offset;
486}
487
488struct commit *pop_commit(struct commit_list **stack)
489{
490 struct commit_list *top = *stack;
491 struct commit *item = top ? top->item : NULL;
492
493 if (top) {
494 *stack = top->next;
495 free(top);
496 }
497 return item;
498}
499
500int count_parents(struct commit * commit)
501{
502 int count = 0;
503 struct commit_list * parents = commit->parents;
504 for (count=0;parents; parents=parents->next,count++)
505 ;
506 return count;
507}
508
509/*
510 * Performs an in-place topological sort on the list supplied.
511 */
512void sort_in_topological_order(struct commit_list ** list)
513{
514 struct commit_list * next = *list;
515 struct commit_list * work = NULL;
516 struct commit_list ** pptr = list;
517 struct sort_node * nodes;
518 struct sort_node * next_nodes;
519 int count = 0;
520
521 /* determine the size of the list */
522 while (next) {
523 next = next->next;
524 count++;
525 }
526 /* allocate an array to help sort the list */
527 nodes = xcalloc(count, sizeof(*nodes));
528 /* link the list to the array */
529 next_nodes = nodes;
530 next=*list;
531 while (next) {
532 next_nodes->list_item = next;
533 next->item->object.util = next_nodes;
534 next_nodes++;
535 next = next->next;
536 }
537 /* update the indegree */
538 next=*list;
539 while (next) {
540 struct commit_list * parents = next->item->parents;
541 while (parents) {
542 struct commit * parent=parents->item;
543 struct sort_node * pn = (struct sort_node *)parent->object.util;
544
545 if (pn)
546 pn->indegree++;
547 parents=parents->next;
548 }
549 next=next->next;
550 }
551 /*
552 * find the tips
553 *
554 * tips are nodes not reachable from any other node in the list
555 *
556 * the tips serve as a starting set for the work queue.
557 */
558 next=*list;
559 while (next) {
560 struct sort_node * node = (struct sort_node *)next->item->object.util;
561
562 if (node->indegree == 0) {
563 commit_list_insert(next->item, &work);
564 }
565 next=next->next;
566 }
567 /* process the list in topological order */
568 while (work) {
569 struct commit * work_item = pop_commit(&work);
570 struct sort_node * work_node = (struct sort_node *)work_item->object.util;
571 struct commit_list * parents = work_item->parents;
572
573 while (parents) {
574 struct commit * parent=parents->item;
575 struct sort_node * pn = (struct sort_node *)parent->object.util;
576
577 if (pn) {
578 /*
579 * parents are only enqueued for emission
580 * when all their children have been emitted thereby
581 * guaranteeing topological order.
582 */
583 pn->indegree--;
584 if (!pn->indegree)
585 commit_list_insert(parent, &work);
586 }
587 parents=parents->next;
588 }
589 /*
590 * work_item is a commit all of whose children
591 * have already been emitted. we can emit it now.
592 */
593 *pptr = work_node->list_item;
594 pptr = &(*pptr)->next;
595 *pptr = NULL;
596 work_item->object.util = NULL;
597 }
598 free(nodes);
599}