Code

Update the git-ls-tree documentation
[git.git] / git-fmt-merge-msg.perl
1 #!/usr/bin/perl -w
2 #
3 # Copyright (c) 2005 Junio C Hamano
4 #
5 # Read .git/FETCH_HEAD and make a human readable merge message
6 # by grouping branches and tags together to form a single line.
8 use strict;
10 my @src;
11 my %src;
12 sub andjoin {
13         my ($label, $labels, $stuff) = @_;
14         my $l = scalar @$stuff;
15         my $m = '';
16         if ($l == 0) {
17                 return ();
18         }
19         if ($l == 1) {
20                 $m = "$label$stuff->[0]";
21         }
22         else {
23                 $m = ("$labels" .
24                       join (', ', @{$stuff}[0..$l-2]) .
25                       " and $stuff->[-1]");
26         }
27         return ($m);
28 }
30 while (<>) {
31         my ($bname, $tname, $gname, $src);
32         chomp;
33         s/^[0-9a-f]*    //;
34         next if (/^not-for-merge/);
35         s/^     //;
36         if (s/ of (.*)$//) {
37                 $src = $1;
38         } else {
39                 # Pulling HEAD
40                 $src = $_;
41                 $_ = 'HEAD';
42         }
43         if (! exists $src{$src}) {
44                 push @src, $src;
45                 $src{$src} = {
46                         BRANCH => [],
47                         TAG => [],
48                         GENERIC => [],
49                         # &1 == has HEAD.
50                         # &2 == has others.
51                         HEAD_STATUS => 0,
52                 };
53         }
54         if (/^branch (.*)$/) {
55                 push @{$src{$src}{BRANCH}}, $1;
56                 $src{$src}{HEAD_STATUS} |= 2;
57         }
58         elsif (/^tag (.*)$/) {
59                 push @{$src{$src}{TAG}}, $1;
60                 $src{$src}{HEAD_STATUS} |= 2;
61         }
62         elsif (/^HEAD$/) {
63                 $src{$src}{HEAD_STATUS} |= 1;
64         }
65         else {
66                 push @{$src{$src}{GENERIC}}, $_;
67                 $src{$src}{HEAD_STATUS} |= 2;
68         }
69 }
71 my @msg;
72 for my $src (@src) {
73         if ($src{$src}{HEAD_STATUS} == 1) {
74                 # Only HEAD is fetched, nothing else.
75                 push @msg, $src;
76                 next;
77         }
78         my @this;
79         if ($src{$src}{HEAD_STATUS} == 3) {
80                 # HEAD is fetched among others.
81                 push @this, andjoin('', '', ['HEAD']);
82         }
83         push @this, andjoin("branch ", "branches ",
84                            $src{$src}{BRANCH});
85         push @this, andjoin("tag ", "tags ",
86                            $src{$src}{TAG});
87         push @this, andjoin("commit ", "commits ",
88                             $src{$src}{GENERIC});
89         my $this = join(', ', @this);
90         if ($src ne '.') {
91                 $this .= " of $src";
92         }
93         push @msg, $this;
94 }
95 print "Merge ", join("; ", @msg), "\n";