Merge branch 'js/no-html-bypass-on-windows' into maint
[git] / builtin / fast-export.c
1 /*
2  * "git fast-export" builtin command
3  *
4  * Copyright (C) 2007 Johannes E. Schindelin
5  */
6 #include "builtin.h"
7 #include "cache.h"
8 #include "refs.h"
9 #include "commit.h"
10 #include "object.h"
11 #include "tag.h"
12 #include "diff.h"
13 #include "diffcore.h"
14 #include "log-tree.h"
15 #include "revision.h"
16 #include "decorate.h"
17 #include "string-list.h"
18 #include "utf8.h"
19 #include "parse-options.h"
20 #include "quote.h"
21 #include "remote.h"
22 #include "blob.h"
23
24 static const char *fast_export_usage[] = {
25         N_("git fast-export [rev-list-opts]"),
26         NULL
27 };
28
29 static int progress;
30 static enum { ABORT, VERBATIM, WARN, WARN_STRIP, STRIP } signed_tag_mode = ABORT;
31 static enum { ERROR, DROP, REWRITE } tag_of_filtered_mode = ERROR;
32 static int fake_missing_tagger;
33 static int use_done_feature;
34 static int no_data;
35 static int full_tree;
36 static struct string_list extra_refs = STRING_LIST_INIT_NODUP;
37 static struct refspec *refspecs;
38 static int refspecs_nr;
39 static int anonymize;
40
41 static int parse_opt_signed_tag_mode(const struct option *opt,
42                                      const char *arg, int unset)
43 {
44         if (unset || !strcmp(arg, "abort"))
45                 signed_tag_mode = ABORT;
46         else if (!strcmp(arg, "verbatim") || !strcmp(arg, "ignore"))
47                 signed_tag_mode = VERBATIM;
48         else if (!strcmp(arg, "warn"))
49                 signed_tag_mode = WARN;
50         else if (!strcmp(arg, "warn-strip"))
51                 signed_tag_mode = WARN_STRIP;
52         else if (!strcmp(arg, "strip"))
53                 signed_tag_mode = STRIP;
54         else
55                 return error("Unknown signed-tags mode: %s", arg);
56         return 0;
57 }
58
59 static int parse_opt_tag_of_filtered_mode(const struct option *opt,
60                                           const char *arg, int unset)
61 {
62         if (unset || !strcmp(arg, "abort"))
63                 tag_of_filtered_mode = ERROR;
64         else if (!strcmp(arg, "drop"))
65                 tag_of_filtered_mode = DROP;
66         else if (!strcmp(arg, "rewrite"))
67                 tag_of_filtered_mode = REWRITE;
68         else
69                 return error("Unknown tag-of-filtered mode: %s", arg);
70         return 0;
71 }
72
73 static struct decoration idnums;
74 static uint32_t last_idnum;
75
76 static int has_unshown_parent(struct commit *commit)
77 {
78         struct commit_list *parent;
79
80         for (parent = commit->parents; parent; parent = parent->next)
81                 if (!(parent->item->object.flags & SHOWN) &&
82                     !(parent->item->object.flags & UNINTERESTING))
83                         return 1;
84         return 0;
85 }
86
87 struct anonymized_entry {
88         struct hashmap_entry hash;
89         const char *orig;
90         size_t orig_len;
91         const char *anon;
92         size_t anon_len;
93 };
94
95 static int anonymized_entry_cmp(const void *va, const void *vb,
96                                 const void *data)
97 {
98         const struct anonymized_entry *a = va, *b = vb;
99         return a->orig_len != b->orig_len ||
100                 memcmp(a->orig, b->orig, a->orig_len);
101 }
102
103 /*
104  * Basically keep a cache of X->Y so that we can repeatedly replace
105  * the same anonymized string with another. The actual generation
106  * is farmed out to the generate function.
107  */
108 static const void *anonymize_mem(struct hashmap *map,
109                                  void *(*generate)(const void *, size_t *),
110                                  const void *orig, size_t *len)
111 {
112         struct anonymized_entry key, *ret;
113
114         if (!map->cmpfn)
115                 hashmap_init(map, anonymized_entry_cmp, 0);
116
117         hashmap_entry_init(&key, memhash(orig, *len));
118         key.orig = orig;
119         key.orig_len = *len;
120         ret = hashmap_get(map, &key, NULL);
121
122         if (!ret) {
123                 ret = xmalloc(sizeof(*ret));
124                 hashmap_entry_init(&ret->hash, key.hash.hash);
125                 ret->orig = xstrdup(orig);
126                 ret->orig_len = *len;
127                 ret->anon = generate(orig, len);
128                 ret->anon_len = *len;
129                 hashmap_put(map, ret);
130         }
131
132         *len = ret->anon_len;
133         return ret->anon;
134 }
135
136 /*
137  * We anonymize each component of a path individually,
138  * so that paths a/b and a/c will share a common root.
139  * The paths are cached via anonymize_mem so that repeated
140  * lookups for "a" will yield the same value.
141  */
142 static void anonymize_path(struct strbuf *out, const char *path,
143                            struct hashmap *map,
144                            void *(*generate)(const void *, size_t *))
145 {
146         while (*path) {
147                 const char *end_of_component = strchrnul(path, '/');
148                 size_t len = end_of_component - path;
149                 const char *c = anonymize_mem(map, generate, path, &len);
150                 strbuf_add(out, c, len);
151                 path = end_of_component;
152                 if (*path)
153                         strbuf_addch(out, *path++);
154         }
155 }
156
157 /* Since intptr_t is C99, we do not use it here */
158 static inline uint32_t *mark_to_ptr(uint32_t mark)
159 {
160         return ((uint32_t *)NULL) + mark;
161 }
162
163 static inline uint32_t ptr_to_mark(void * mark)
164 {
165         return (uint32_t *)mark - (uint32_t *)NULL;
166 }
167
168 static inline void mark_object(struct object *object, uint32_t mark)
169 {
170         add_decoration(&idnums, object, mark_to_ptr(mark));
171 }
172
173 static inline void mark_next_object(struct object *object)
174 {
175         mark_object(object, ++last_idnum);
176 }
177
178 static int get_object_mark(struct object *object)
179 {
180         void *decoration = lookup_decoration(&idnums, object);
181         if (!decoration)
182                 return 0;
183         return ptr_to_mark(decoration);
184 }
185
186 static void show_progress(void)
187 {
188         static int counter = 0;
189         if (!progress)
190                 return;
191         if ((++counter % progress) == 0)
192                 printf("progress %d objects\n", counter);
193 }
194
195 /*
196  * Ideally we would want some transformation of the blob data here
197  * that is unreversible, but would still be the same size and have
198  * the same data relationship to other blobs (so that we get the same
199  * delta and packing behavior as the original). But the first and last
200  * requirements there are probably mutually exclusive, so let's take
201  * the easy way out for now, and just generate arbitrary content.
202  *
203  * There's no need to cache this result with anonymize_mem, since
204  * we already handle blob content caching with marks.
205  */
206 static char *anonymize_blob(unsigned long *size)
207 {
208         static int counter;
209         struct strbuf out = STRBUF_INIT;
210         strbuf_addf(&out, "anonymous blob %d", counter++);
211         *size = out.len;
212         return strbuf_detach(&out, NULL);
213 }
214
215 static void export_blob(const unsigned char *sha1)
216 {
217         unsigned long size;
218         enum object_type type;
219         char *buf;
220         struct object *object;
221         int eaten;
222
223         if (no_data)
224                 return;
225
226         if (is_null_sha1(sha1))
227                 return;
228
229         object = lookup_object(sha1);
230         if (object && object->flags & SHOWN)
231                 return;
232
233         if (anonymize) {
234                 buf = anonymize_blob(&size);
235                 object = (struct object *)lookup_blob(sha1);
236                 eaten = 0;
237         } else {
238                 buf = read_sha1_file(sha1, &type, &size);
239                 if (!buf)
240                         die ("Could not read blob %s", sha1_to_hex(sha1));
241                 if (check_sha1_signature(sha1, buf, size, typename(type)) < 0)
242                         die("sha1 mismatch in blob %s", sha1_to_hex(sha1));
243                 object = parse_object_buffer(sha1, type, size, buf, &eaten);
244         }
245
246         if (!object)
247                 die("Could not read blob %s", sha1_to_hex(sha1));
248
249         mark_next_object(object);
250
251         printf("blob\nmark :%"PRIu32"\ndata %lu\n", last_idnum, size);
252         if (size && fwrite(buf, size, 1, stdout) != 1)
253                 die_errno ("Could not write blob '%s'", sha1_to_hex(sha1));
254         printf("\n");
255
256         show_progress();
257
258         object->flags |= SHOWN;
259         if (!eaten)
260                 free(buf);
261 }
262
263 static int depth_first(const void *a_, const void *b_)
264 {
265         const struct diff_filepair *a = *((const struct diff_filepair **)a_);
266         const struct diff_filepair *b = *((const struct diff_filepair **)b_);
267         const char *name_a, *name_b;
268         int len_a, len_b, len;
269         int cmp;
270
271         name_a = a->one ? a->one->path : a->two->path;
272         name_b = b->one ? b->one->path : b->two->path;
273
274         len_a = strlen(name_a);
275         len_b = strlen(name_b);
276         len = (len_a < len_b) ? len_a : len_b;
277
278         /* strcmp will sort 'd' before 'd/e', we want 'd/e' before 'd' */
279         cmp = memcmp(name_a, name_b, len);
280         if (cmp)
281                 return cmp;
282         cmp = len_b - len_a;
283         if (cmp)
284                 return cmp;
285         /*
286          * Move 'R'ename entries last so that all references of the file
287          * appear in the output before it is renamed (e.g., when a file
288          * was copied and renamed in the same commit).
289          */
290         return (a->status == 'R') - (b->status == 'R');
291 }
292
293 static void print_path_1(const char *path)
294 {
295         int need_quote = quote_c_style(path, NULL, NULL, 0);
296         if (need_quote)
297                 quote_c_style(path, NULL, stdout, 0);
298         else if (strchr(path, ' '))
299                 printf("\"%s\"", path);
300         else
301                 printf("%s", path);
302 }
303
304 static void *anonymize_path_component(const void *path, size_t *len)
305 {
306         static int counter;
307         struct strbuf out = STRBUF_INIT;
308         strbuf_addf(&out, "path%d", counter++);
309         return strbuf_detach(&out, len);
310 }
311
312 static void print_path(const char *path)
313 {
314         if (!anonymize)
315                 print_path_1(path);
316         else {
317                 static struct hashmap paths;
318                 static struct strbuf anon = STRBUF_INIT;
319
320                 anonymize_path(&anon, path, &paths, anonymize_path_component);
321                 print_path_1(anon.buf);
322                 strbuf_reset(&anon);
323         }
324 }
325
326 static void *generate_fake_sha1(const void *old, size_t *len)
327 {
328         static uint32_t counter = 1; /* avoid null sha1 */
329         unsigned char *out = xcalloc(20, 1);
330         put_be32(out + 16, counter++);
331         return out;
332 }
333
334 static const unsigned char *anonymize_sha1(const unsigned char *sha1)
335 {
336         static struct hashmap sha1s;
337         size_t len = 20;
338         return anonymize_mem(&sha1s, generate_fake_sha1, sha1, &len);
339 }
340
341 static void show_filemodify(struct diff_queue_struct *q,
342                             struct diff_options *options, void *data)
343 {
344         int i;
345
346         /*
347          * Handle files below a directory first, in case they are all deleted
348          * and the directory changes to a file or symlink.
349          */
350         qsort(q->queue, q->nr, sizeof(q->queue[0]), depth_first);
351
352         for (i = 0; i < q->nr; i++) {
353                 struct diff_filespec *ospec = q->queue[i]->one;
354                 struct diff_filespec *spec = q->queue[i]->two;
355
356                 switch (q->queue[i]->status) {
357                 case DIFF_STATUS_DELETED:
358                         printf("D ");
359                         print_path(spec->path);
360                         putchar('\n');
361                         break;
362
363                 case DIFF_STATUS_COPIED:
364                 case DIFF_STATUS_RENAMED:
365                         printf("%c ", q->queue[i]->status);
366                         print_path(ospec->path);
367                         putchar(' ');
368                         print_path(spec->path);
369                         putchar('\n');
370
371                         if (!hashcmp(ospec->sha1, spec->sha1) &&
372                             ospec->mode == spec->mode)
373                                 break;
374                         /* fallthrough */
375
376                 case DIFF_STATUS_TYPE_CHANGED:
377                 case DIFF_STATUS_MODIFIED:
378                 case DIFF_STATUS_ADDED:
379                         /*
380                          * Links refer to objects in another repositories;
381                          * output the SHA-1 verbatim.
382                          */
383                         if (no_data || S_ISGITLINK(spec->mode))
384                                 printf("M %06o %s ", spec->mode,
385                                        sha1_to_hex(anonymize ?
386                                                    anonymize_sha1(spec->sha1) :
387                                                    spec->sha1));
388                         else {
389                                 struct object *object = lookup_object(spec->sha1);
390                                 printf("M %06o :%d ", spec->mode,
391                                        get_object_mark(object));
392                         }
393                         print_path(spec->path);
394                         putchar('\n');
395                         break;
396
397                 default:
398                         die("Unexpected comparison status '%c' for %s, %s",
399                                 q->queue[i]->status,
400                                 ospec->path ? ospec->path : "none",
401                                 spec->path ? spec->path : "none");
402                 }
403         }
404 }
405
406 static const char *find_encoding(const char *begin, const char *end)
407 {
408         const char *needle = "\nencoding ";
409         char *bol, *eol;
410
411         bol = memmem(begin, end ? end - begin : strlen(begin),
412                      needle, strlen(needle));
413         if (!bol)
414                 return git_commit_encoding;
415         bol += strlen(needle);
416         eol = strchrnul(bol, '\n');
417         *eol = '\0';
418         return bol;
419 }
420
421 static void *anonymize_ref_component(const void *old, size_t *len)
422 {
423         static int counter;
424         struct strbuf out = STRBUF_INIT;
425         strbuf_addf(&out, "ref%d", counter++);
426         return strbuf_detach(&out, len);
427 }
428
429 static const char *anonymize_refname(const char *refname)
430 {
431         /*
432          * If any of these prefixes is found, we will leave it intact
433          * so that tags remain tags and so forth.
434          */
435         static const char *prefixes[] = {
436                 "refs/heads/",
437                 "refs/tags/",
438                 "refs/remotes/",
439                 "refs/"
440         };
441         static struct hashmap refs;
442         static struct strbuf anon = STRBUF_INIT;
443         int i;
444
445         /*
446          * We also leave "master" as a special case, since it does not reveal
447          * anything interesting.
448          */
449         if (!strcmp(refname, "refs/heads/master"))
450                 return refname;
451
452         strbuf_reset(&anon);
453         for (i = 0; i < ARRAY_SIZE(prefixes); i++) {
454                 if (skip_prefix(refname, prefixes[i], &refname)) {
455                         strbuf_addstr(&anon, prefixes[i]);
456                         break;
457                 }
458         }
459
460         anonymize_path(&anon, refname, &refs, anonymize_ref_component);
461         return anon.buf;
462 }
463
464 /*
465  * We do not even bother to cache commit messages, as they are unlikely
466  * to be repeated verbatim, and it is not that interesting when they are.
467  */
468 static char *anonymize_commit_message(const char *old)
469 {
470         static int counter;
471         return xstrfmt("subject %d\n\nbody\n", counter++);
472 }
473
474 static struct hashmap idents;
475 static void *anonymize_ident(const void *old, size_t *len)
476 {
477         static int counter;
478         struct strbuf out = STRBUF_INIT;
479         strbuf_addf(&out, "User %d <user%d@example.com>", counter, counter);
480         counter++;
481         return strbuf_detach(&out, len);
482 }
483
484 /*
485  * Our strategy here is to anonymize the names and email addresses,
486  * but keep timestamps intact, as they influence things like traversal
487  * order (and by themselves should not be too revealing).
488  */
489 static void anonymize_ident_line(const char **beg, const char **end)
490 {
491         static struct strbuf buffers[] = { STRBUF_INIT, STRBUF_INIT };
492         static unsigned which_buffer;
493
494         struct strbuf *out;
495         struct ident_split split;
496         const char *end_of_header;
497
498         out = &buffers[which_buffer++];
499         which_buffer %= ARRAY_SIZE(buffers);
500         strbuf_reset(out);
501
502         /* skip "committer", "author", "tagger", etc */
503         end_of_header = strchr(*beg, ' ');
504         if (!end_of_header)
505                 die("BUG: malformed line fed to anonymize_ident_line: %.*s",
506                     (int)(*end - *beg), *beg);
507         end_of_header++;
508         strbuf_add(out, *beg, end_of_header - *beg);
509
510         if (!split_ident_line(&split, end_of_header, *end - end_of_header) &&
511             split.date_begin) {
512                 const char *ident;
513                 size_t len;
514
515                 len = split.mail_end - split.name_begin;
516                 ident = anonymize_mem(&idents, anonymize_ident,
517                                       split.name_begin, &len);
518                 strbuf_add(out, ident, len);
519                 strbuf_addch(out, ' ');
520                 strbuf_add(out, split.date_begin, split.tz_end - split.date_begin);
521         } else {
522                 strbuf_addstr(out, "Malformed Ident <malformed@example.com> 0 -0000");
523         }
524
525         *beg = out->buf;
526         *end = out->buf + out->len;
527 }
528
529 static void handle_commit(struct commit *commit, struct rev_info *rev)
530 {
531         int saved_output_format = rev->diffopt.output_format;
532         const char *commit_buffer;
533         const char *author, *author_end, *committer, *committer_end;
534         const char *encoding, *message;
535         char *reencoded = NULL;
536         struct commit_list *p;
537         const char *refname;
538         int i;
539
540         rev->diffopt.output_format = DIFF_FORMAT_CALLBACK;
541
542         parse_commit_or_die(commit);
543         commit_buffer = get_commit_buffer(commit, NULL);
544         author = strstr(commit_buffer, "\nauthor ");
545         if (!author)
546                 die ("Could not find author in commit %s",
547                      oid_to_hex(&commit->object.oid));
548         author++;
549         author_end = strchrnul(author, '\n');
550         committer = strstr(author_end, "\ncommitter ");
551         if (!committer)
552                 die ("Could not find committer in commit %s",
553                      oid_to_hex(&commit->object.oid));
554         committer++;
555         committer_end = strchrnul(committer, '\n');
556         message = strstr(committer_end, "\n\n");
557         encoding = find_encoding(committer_end, message);
558         if (message)
559                 message += 2;
560
561         if (commit->parents &&
562             get_object_mark(&commit->parents->item->object) != 0 &&
563             !full_tree) {
564                 parse_commit_or_die(commit->parents->item);
565                 diff_tree_sha1(commit->parents->item->tree->object.oid.hash,
566                                commit->tree->object.oid.hash, "", &rev->diffopt);
567         }
568         else
569                 diff_root_tree_sha1(commit->tree->object.oid.hash,
570                                     "", &rev->diffopt);
571
572         /* Export the referenced blobs, and remember the marks. */
573         for (i = 0; i < diff_queued_diff.nr; i++)
574                 if (!S_ISGITLINK(diff_queued_diff.queue[i]->two->mode))
575                         export_blob(diff_queued_diff.queue[i]->two->sha1);
576
577         refname = commit->util;
578         if (anonymize) {
579                 refname = anonymize_refname(refname);
580                 anonymize_ident_line(&committer, &committer_end);
581                 anonymize_ident_line(&author, &author_end);
582         }
583
584         mark_next_object(&commit->object);
585         if (anonymize)
586                 reencoded = anonymize_commit_message(message);
587         else if (!is_encoding_utf8(encoding))
588                 reencoded = reencode_string(message, "UTF-8", encoding);
589         if (!commit->parents)
590                 printf("reset %s\n", refname);
591         printf("commit %s\nmark :%"PRIu32"\n%.*s\n%.*s\ndata %u\n%s",
592                refname, last_idnum,
593                (int)(author_end - author), author,
594                (int)(committer_end - committer), committer,
595                (unsigned)(reencoded
596                           ? strlen(reencoded) : message
597                           ? strlen(message) : 0),
598                reencoded ? reencoded : message ? message : "");
599         free(reencoded);
600         unuse_commit_buffer(commit, commit_buffer);
601
602         for (i = 0, p = commit->parents; p; p = p->next) {
603                 int mark = get_object_mark(&p->item->object);
604                 if (!mark)
605                         continue;
606                 if (i == 0)
607                         printf("from :%d\n", mark);
608                 else
609                         printf("merge :%d\n", mark);
610                 i++;
611         }
612
613         if (full_tree)
614                 printf("deleteall\n");
615         log_tree_diff_flush(rev);
616         rev->diffopt.output_format = saved_output_format;
617
618         printf("\n");
619
620         show_progress();
621 }
622
623 static void *anonymize_tag(const void *old, size_t *len)
624 {
625         static int counter;
626         struct strbuf out = STRBUF_INIT;
627         strbuf_addf(&out, "tag message %d", counter++);
628         return strbuf_detach(&out, len);
629 }
630
631 static void handle_tail(struct object_array *commits, struct rev_info *revs)
632 {
633         struct commit *commit;
634         while (commits->nr) {
635                 commit = (struct commit *)commits->objects[commits->nr - 1].item;
636                 if (has_unshown_parent(commit))
637                         return;
638                 handle_commit(commit, revs);
639                 commits->nr--;
640         }
641 }
642
643 static void handle_tag(const char *name, struct tag *tag)
644 {
645         unsigned long size;
646         enum object_type type;
647         char *buf;
648         const char *tagger, *tagger_end, *message;
649         size_t message_size = 0;
650         struct object *tagged;
651         int tagged_mark;
652         struct commit *p;
653
654         /* Trees have no identifier in fast-export output, thus we have no way
655          * to output tags of trees, tags of tags of trees, etc.  Simply omit
656          * such tags.
657          */
658         tagged = tag->tagged;
659         while (tagged->type == OBJ_TAG) {
660                 tagged = ((struct tag *)tagged)->tagged;
661         }
662         if (tagged->type == OBJ_TREE) {
663                 warning("Omitting tag %s,\nsince tags of trees (or tags of tags of trees, etc.) are not supported.",
664                         oid_to_hex(&tag->object.oid));
665                 return;
666         }
667
668         buf = read_sha1_file(tag->object.oid.hash, &type, &size);
669         if (!buf)
670                 die ("Could not read tag %s", oid_to_hex(&tag->object.oid));
671         message = memmem(buf, size, "\n\n", 2);
672         if (message) {
673                 message += 2;
674                 message_size = strlen(message);
675         }
676         tagger = memmem(buf, message ? message - buf : size, "\ntagger ", 8);
677         if (!tagger) {
678                 if (fake_missing_tagger)
679                         tagger = "tagger Unspecified Tagger "
680                                 "<unspecified-tagger> 0 +0000";
681                 else
682                         tagger = "";
683                 tagger_end = tagger + strlen(tagger);
684         } else {
685                 tagger++;
686                 tagger_end = strchrnul(tagger, '\n');
687                 if (anonymize)
688                         anonymize_ident_line(&tagger, &tagger_end);
689         }
690
691         if (anonymize) {
692                 name = anonymize_refname(name);
693                 if (message) {
694                         static struct hashmap tags;
695                         message = anonymize_mem(&tags, anonymize_tag,
696                                                 message, &message_size);
697                 }
698         }
699
700         /* handle signed tags */
701         if (message) {
702                 const char *signature = strstr(message,
703                                                "\n-----BEGIN PGP SIGNATURE-----\n");
704                 if (signature)
705                         switch(signed_tag_mode) {
706                         case ABORT:
707                                 die ("Encountered signed tag %s; use "
708                                      "--signed-tags=<mode> to handle it.",
709                                      oid_to_hex(&tag->object.oid));
710                         case WARN:
711                                 warning ("Exporting signed tag %s",
712                                          oid_to_hex(&tag->object.oid));
713                                 /* fallthru */
714                         case VERBATIM:
715                                 break;
716                         case WARN_STRIP:
717                                 warning ("Stripping signature from tag %s",
718                                          oid_to_hex(&tag->object.oid));
719                                 /* fallthru */
720                         case STRIP:
721                                 message_size = signature + 1 - message;
722                                 break;
723                         }
724         }
725
726         /* handle tag->tagged having been filtered out due to paths specified */
727         tagged = tag->tagged;
728         tagged_mark = get_object_mark(tagged);
729         if (!tagged_mark) {
730                 switch(tag_of_filtered_mode) {
731                 case ABORT:
732                         die ("Tag %s tags unexported object; use "
733                              "--tag-of-filtered-object=<mode> to handle it.",
734                              oid_to_hex(&tag->object.oid));
735                 case DROP:
736                         /* Ignore this tag altogether */
737                         return;
738                 case REWRITE:
739                         if (tagged->type != OBJ_COMMIT) {
740                                 die ("Tag %s tags unexported %s!",
741                                      oid_to_hex(&tag->object.oid),
742                                      typename(tagged->type));
743                         }
744                         p = (struct commit *)tagged;
745                         for (;;) {
746                                 if (p->parents && p->parents->next)
747                                         break;
748                                 if (p->object.flags & UNINTERESTING)
749                                         break;
750                                 if (!(p->object.flags & TREESAME))
751                                         break;
752                                 if (!p->parents)
753                                         die ("Can't find replacement commit for tag %s\n",
754                                              oid_to_hex(&tag->object.oid));
755                                 p = p->parents->item;
756                         }
757                         tagged_mark = get_object_mark(&p->object);
758                 }
759         }
760
761         if (starts_with(name, "refs/tags/"))
762                 name += 10;
763         printf("tag %s\nfrom :%d\n%.*s%sdata %d\n%.*s\n",
764                name, tagged_mark,
765                (int)(tagger_end - tagger), tagger,
766                tagger == tagger_end ? "" : "\n",
767                (int)message_size, (int)message_size, message ? message : "");
768 }
769
770 static struct commit *get_commit(struct rev_cmdline_entry *e, char *full_name)
771 {
772         switch (e->item->type) {
773         case OBJ_COMMIT:
774                 return (struct commit *)e->item;
775         case OBJ_TAG: {
776                 struct tag *tag = (struct tag *)e->item;
777
778                 /* handle nested tags */
779                 while (tag && tag->object.type == OBJ_TAG) {
780                         parse_object(tag->object.oid.hash);
781                         string_list_append(&extra_refs, full_name)->util = tag;
782                         tag = (struct tag *)tag->tagged;
783                 }
784                 if (!tag)
785                         die("Tag %s points nowhere?", e->name);
786                 return (struct commit *)tag;
787                 break;
788         }
789         default:
790                 return NULL;
791         }
792 }
793
794 static void get_tags_and_duplicates(struct rev_cmdline_info *info)
795 {
796         int i;
797
798         for (i = 0; i < info->nr; i++) {
799                 struct rev_cmdline_entry *e = info->rev + i;
800                 unsigned char sha1[20];
801                 struct commit *commit;
802                 char *full_name;
803
804                 if (e->flags & UNINTERESTING)
805                         continue;
806
807                 if (dwim_ref(e->name, strlen(e->name), sha1, &full_name) != 1)
808                         continue;
809
810                 if (refspecs) {
811                         char *private;
812                         private = apply_refspecs(refspecs, refspecs_nr, full_name);
813                         if (private) {
814                                 free(full_name);
815                                 full_name = private;
816                         }
817                 }
818
819                 commit = get_commit(e, full_name);
820                 if (!commit) {
821                         warning("%s: Unexpected object of type %s, skipping.",
822                                 e->name,
823                                 typename(e->item->type));
824                         continue;
825                 }
826
827                 switch(commit->object.type) {
828                 case OBJ_COMMIT:
829                         break;
830                 case OBJ_BLOB:
831                         export_blob(commit->object.oid.hash);
832                         continue;
833                 default: /* OBJ_TAG (nested tags) is already handled */
834                         warning("Tag points to object of unexpected type %s, skipping.",
835                                 typename(commit->object.type));
836                         continue;
837                 }
838
839                 /*
840                  * This ref will not be updated through a commit, lets make
841                  * sure it gets properly updated eventually.
842                  */
843                 if (commit->util || commit->object.flags & SHOWN)
844                         string_list_append(&extra_refs, full_name)->util = commit;
845                 if (!commit->util)
846                         commit->util = full_name;
847         }
848 }
849
850 static void handle_tags_and_duplicates(void)
851 {
852         struct commit *commit;
853         int i;
854
855         for (i = extra_refs.nr - 1; i >= 0; i--) {
856                 const char *name = extra_refs.items[i].string;
857                 struct object *object = extra_refs.items[i].util;
858                 switch (object->type) {
859                 case OBJ_TAG:
860                         handle_tag(name, (struct tag *)object);
861                         break;
862                 case OBJ_COMMIT:
863                         if (anonymize)
864                                 name = anonymize_refname(name);
865                         /* create refs pointing to already seen commits */
866                         commit = (struct commit *)object;
867                         printf("reset %s\nfrom :%d\n\n", name,
868                                get_object_mark(&commit->object));
869                         show_progress();
870                         break;
871                 }
872         }
873 }
874
875 static void export_marks(char *file)
876 {
877         unsigned int i;
878         uint32_t mark;
879         struct object_decoration *deco = idnums.hash;
880         FILE *f;
881         int e = 0;
882
883         f = fopen_for_writing(file);
884         if (!f)
885                 die_errno("Unable to open marks file %s for writing.", file);
886
887         for (i = 0; i < idnums.size; i++) {
888                 if (deco->base && deco->base->type == 1) {
889                         mark = ptr_to_mark(deco->decoration);
890                         if (fprintf(f, ":%"PRIu32" %s\n", mark,
891                                 oid_to_hex(&deco->base->oid)) < 0) {
892                             e = 1;
893                             break;
894                         }
895                 }
896                 deco++;
897         }
898
899         e |= ferror(f);
900         e |= fclose(f);
901         if (e)
902                 error("Unable to write marks file %s.", file);
903 }
904
905 static void import_marks(char *input_file)
906 {
907         char line[512];
908         FILE *f = fopen(input_file, "r");
909         if (!f)
910                 die_errno("cannot read '%s'", input_file);
911
912         while (fgets(line, sizeof(line), f)) {
913                 uint32_t mark;
914                 char *line_end, *mark_end;
915                 unsigned char sha1[20];
916                 struct object *object;
917                 struct commit *commit;
918                 enum object_type type;
919
920                 line_end = strchr(line, '\n');
921                 if (line[0] != ':' || !line_end)
922                         die("corrupt mark line: %s", line);
923                 *line_end = '\0';
924
925                 mark = strtoumax(line + 1, &mark_end, 10);
926                 if (!mark || mark_end == line + 1
927                         || *mark_end != ' ' || get_sha1_hex(mark_end + 1, sha1))
928                         die("corrupt mark line: %s", line);
929
930                 if (last_idnum < mark)
931                         last_idnum = mark;
932
933                 type = sha1_object_info(sha1, NULL);
934                 if (type < 0)
935                         die("object not found: %s", sha1_to_hex(sha1));
936
937                 if (type != OBJ_COMMIT)
938                         /* only commits */
939                         continue;
940
941                 commit = lookup_commit(sha1);
942                 if (!commit)
943                         die("not a commit? can't happen: %s", sha1_to_hex(sha1));
944
945                 object = &commit->object;
946
947                 if (object->flags & SHOWN)
948                         error("Object %s already has a mark", sha1_to_hex(sha1));
949
950                 mark_object(object, mark);
951
952                 object->flags |= SHOWN;
953         }
954         fclose(f);
955 }
956
957 static void handle_deletes(void)
958 {
959         int i;
960         for (i = 0; i < refspecs_nr; i++) {
961                 struct refspec *refspec = &refspecs[i];
962                 if (*refspec->src)
963                         continue;
964
965                 printf("reset %s\nfrom %s\n\n",
966                                 refspec->dst, sha1_to_hex(null_sha1));
967         }
968 }
969
970 int cmd_fast_export(int argc, const char **argv, const char *prefix)
971 {
972         struct rev_info revs;
973         struct object_array commits = OBJECT_ARRAY_INIT;
974         struct commit *commit;
975         char *export_filename = NULL, *import_filename = NULL;
976         uint32_t lastimportid;
977         struct string_list refspecs_list = STRING_LIST_INIT_NODUP;
978         struct option options[] = {
979                 OPT_INTEGER(0, "progress", &progress,
980                             N_("show progress after <n> objects")),
981                 OPT_CALLBACK(0, "signed-tags", &signed_tag_mode, N_("mode"),
982                              N_("select handling of signed tags"),
983                              parse_opt_signed_tag_mode),
984                 OPT_CALLBACK(0, "tag-of-filtered-object", &tag_of_filtered_mode, N_("mode"),
985                              N_("select handling of tags that tag filtered objects"),
986                              parse_opt_tag_of_filtered_mode),
987                 OPT_STRING(0, "export-marks", &export_filename, N_("file"),
988                              N_("Dump marks to this file")),
989                 OPT_STRING(0, "import-marks", &import_filename, N_("file"),
990                              N_("Import marks from this file")),
991                 OPT_BOOL(0, "fake-missing-tagger", &fake_missing_tagger,
992                          N_("Fake a tagger when tags lack one")),
993                 OPT_BOOL(0, "full-tree", &full_tree,
994                          N_("Output full tree for each commit")),
995                 OPT_BOOL(0, "use-done-feature", &use_done_feature,
996                              N_("Use the done feature to terminate the stream")),
997                 OPT_BOOL(0, "no-data", &no_data, N_("Skip output of blob data")),
998                 OPT_STRING_LIST(0, "refspec", &refspecs_list, N_("refspec"),
999                              N_("Apply refspec to exported refs")),
1000                 OPT_BOOL(0, "anonymize", &anonymize, N_("anonymize output")),
1001                 OPT_END()
1002         };
1003
1004         if (argc == 1)
1005                 usage_with_options (fast_export_usage, options);
1006
1007         /* we handle encodings */
1008         git_config(git_default_config, NULL);
1009
1010         init_revisions(&revs, prefix);
1011         revs.topo_order = 1;
1012         revs.show_source = 1;
1013         revs.rewrite_parents = 1;
1014         argc = parse_options(argc, argv, prefix, options, fast_export_usage,
1015                         PARSE_OPT_KEEP_ARGV0 | PARSE_OPT_KEEP_UNKNOWN);
1016         argc = setup_revisions(argc, argv, &revs, NULL);
1017         if (argc > 1)
1018                 usage_with_options (fast_export_usage, options);
1019
1020         if (refspecs_list.nr) {
1021                 const char **refspecs_str;
1022                 int i;
1023
1024                 ALLOC_ARRAY(refspecs_str, refspecs_list.nr);
1025                 for (i = 0; i < refspecs_list.nr; i++)
1026                         refspecs_str[i] = refspecs_list.items[i].string;
1027
1028                 refspecs_nr = refspecs_list.nr;
1029                 refspecs = parse_fetch_refspec(refspecs_nr, refspecs_str);
1030
1031                 string_list_clear(&refspecs_list, 1);
1032                 free(refspecs_str);
1033         }
1034
1035         if (use_done_feature)
1036                 printf("feature done\n");
1037
1038         if (import_filename)
1039                 import_marks(import_filename);
1040         lastimportid = last_idnum;
1041
1042         if (import_filename && revs.prune_data.nr)
1043                 full_tree = 1;
1044
1045         get_tags_and_duplicates(&revs.cmdline);
1046
1047         if (prepare_revision_walk(&revs))
1048                 die("revision walk setup failed");
1049         revs.diffopt.format_callback = show_filemodify;
1050         DIFF_OPT_SET(&revs.diffopt, RECURSIVE);
1051         while ((commit = get_revision(&revs))) {
1052                 if (has_unshown_parent(commit)) {
1053                         add_object_array(&commit->object, NULL, &commits);
1054                 }
1055                 else {
1056                         handle_commit(commit, &revs);
1057                         handle_tail(&commits, &revs);
1058                 }
1059         }
1060
1061         handle_tags_and_duplicates();
1062         handle_deletes();
1063
1064         if (export_filename && lastimportid != last_idnum)
1065                 export_marks(export_filename);
1066
1067         if (use_done_feature)
1068                 printf("done\n");
1069
1070         free_refspec(refspecs_nr, refspecs);
1071
1072         return 0;
1073 }