2 # Copyright 2006, Ryan Anderson <ryan@michonline.com>
6 # This file is licensed under the GPL v2, or a later version
7 # at the discretion of Linus Torvalds.
12 use POSIX qw(strftime gmtime);
15 print STDERR 'Usage: ${\basename $0} [-s] [-S revs-file] file [ revision ]
17 Show long rev (Defaults off)
19 Follow renames (Defaults on).
20 -S, --rev-file revs-file
21 use revs from revs-file instead of calling git-rev-list
29 our ($help, $longrev, $rename, $starting_rev, $rev_file) = (0, 0, 1);
31 my $rc = GetOptions( "long|l" => \$longrev,
33 "rename|r" => \$rename,
34 "rev-file|S" => \$rev_file);
39 my $filename = shift @ARGV;
41 $starting_rev = shift @ARGV;
46 'rev' => defined $starting_rev ? $starting_rev : "HEAD",
47 'filename' => $filename,
53 if (defined $starting_rev) {
54 @filelines = git_cat_file($starting_rev, $filename);
57 or die "Failed to open filename: $!";
71 my $revsprocessed = 0;
72 while (my $bound = pop @stack) {
73 my @revisions = git_rev_list($bound->{'rev'}, $bound->{'filename'});
74 foreach my $revinst (@revisions) {
75 my ($rev, @parents) = @$revinst;
81 $revs{$rev}{'filename'} = $bound->{'filename'};
82 if (scalar @parents > 0) {
83 $revs{$rev}{'parents'} = \@parents;
91 my $newbound = find_parent_renames($rev, $bound->{'filename'});
92 if ( exists $newbound->{'filename'} && $newbound->{'filename'} ne $bound->{'filename'}) {
93 push @stack, $newbound;
94 $revs{$rev}{'parents'} = [$newbound->{'rev'}];
98 push @revqueue, $head;
99 init_claim( defined $starting_rev ? $starting_rev : 'dirty');
100 unless (defined $starting_rev) {
101 open(DIFF,"-|","git","diff","-R", "HEAD", "--",$filename)
102 or die "Failed to call git diff to check for dirty state: $!";
104 _git_diff_parse(*DIFF, $head, "dirty", (
105 'author' => gitvar_name("GIT_AUTHOR_IDENT"),
106 'author_date' => sprintf("%s +0000",time()),
115 foreach my $l (@filelines) {
116 my ($output, $rev, $committer, $date);
117 if (ref $l eq 'ARRAY') {
118 ($output, $rev, $committer, $date) = @$l;
119 if (!$longrev && length($rev) > 8) {
120 $rev = substr($rev,0,8);
124 ($rev, $committer, $date) = ('unknown', 'unknown', 'unknown');
127 printf("%s\t(%10s\t%10s\t%d)%s\n", $rev, $committer,
128 format_date($date), $i++, $output);
133 for (my $i = 0; $i < @filelines; $i++) {
134 $filelines[$i] = [ $filelines[$i], '', '', '', 1];
139 # 1 <-- belongs to the original file.
141 $revs{$rev}{'lines'} = \@filelines;
148 while (my $rev = shift @revqueue) {
149 next if $seen{$rev}++;
151 my %revinfo = git_commit_info($rev);
153 foreach my $p (@{$revs{$rev}{'parents'}}) {
155 git_diff_parse($p, $rev, %revinfo);
160 if (scalar @{$revs{$rev}{parents}} == 0) {
161 # We must be at the initial rev here, so claim everything that is left.
162 for (my $i = 0; $i < @{$revs{$rev}{lines}}; $i++) {
163 if (ref ${$revs{$rev}{lines}}[$i] eq '' || ${$revs{$rev}{lines}}[$i][1] eq '') {
164 claim_line($i, $rev, $revs{$rev}{lines}, %revinfo);
173 my ($rev, $file) = @_;
176 open(P, '<' . $rev_file);
178 open(P,"-|","git-rev-list","--parents","--remove-empty",$rev,"--",$file)
179 or die "Failed to exec git-rev-list: $!";
183 while(my $line = <P>) {
185 my ($rev, @parents) = split /\s+/, $line;
186 push @revs, [ $rev, @parents ];
190 printf("0 revs found for rev %s (%s)\n", $rev, $file) if (@revs == 0);
194 sub find_parent_renames {
195 my ($rev, $file) = @_;
197 open(P,"-|","git-diff-tree", "-M50", "-r","--name-status", "-z","$rev")
198 or die "Failed to exec git-diff: $!";
203 while (my $change = <P>) {
208 if ($change =~ m/^[AMD]$/ ) {
210 } elsif ($change =~ m/^R/ ) {
211 my $oldfilename = $filename;
214 if ( $file eq $filename ) {
215 my $parent = git_find_parent($rev, $oldfilename);
216 @bound{'rev','filename'} = ($parent, $oldfilename);
227 sub git_find_parent {
228 my ($rev, $filename) = @_;
230 open(REVPARENT,"-|","git-rev-list","--remove-empty", "--parents","--max-count=1","$rev","--",$filename)
231 or die "Failed to open git-rev-list to find a single parent: $!";
233 my $parentline = <REVPARENT>;
235 my ($revfound,$parent) = split m/\s+/, $parentline;
243 # Get a diff between the current revision and a parent.
244 # Record the commit information that results.
246 my ($parent, $rev, %revinfo) = @_;
248 open(DIFF,"-|","git-diff-tree","-M","-p",$rev,$parent,"--",
249 $revs{$rev}{'filename'}, $revs{$parent}{'filename'})
250 or die "Failed to call git-diff for annotation: $!";
252 _git_diff_parse(*DIFF, $parent, $rev, %revinfo);
257 sub _git_diff_parse {
258 my ($diff, $parent, $rev, %revinfo) = @_;
260 my ($ri, $pi) = (0,0);
261 my $slines = $revs{$rev}{'lines'};
266 my ($hunk_start, $hunk_index);
269 if (m/^@@ -(\d+),(\d+) \+(\d+),(\d+)/) {
271 # Adjust for 0-based arrays
273 # Reinit hunk tracking.
274 $hunk_start = $remstart;
278 for (my $i = $ri; $i < $remstart; $i++) {
279 $plines[$pi++] = $slines->[$i];
283 } elsif (!$gotheader) {
289 $plines[$pi++] = [ $line, '', '', '', 0 ];
292 } elsif (m/^-(.*)$/) {
294 if (get_line($slines, $ri) eq $line) {
295 # Found a match, claim
296 claim_line($ri, $rev, $slines, %revinfo);
298 die sprintf("Sync error: %d/%d\n|%s\n|%s\n%s => %s\n",
299 $ri, $hunk_start + $hunk_index,
301 get_line($slines, $ri),
307 if (substr($_,1) ne get_line($slines,$ri) ) {
308 die sprintf("Line %d (%d) does not match:\n|%s\n|%s\n%s => %s\n",
309 $hunk_start + $hunk_index, $ri,
311 get_line($slines,$ri),
314 $plines[$pi++] = $slines->[$ri++];
318 for (my $i = $ri; $i < @{$slines} ; $i++) {
319 push @plines, $slines->[$ri++];
322 $revs{$parent}{lines} = \@plines;
327 my ($lines, $index) = @_;
329 return ref $lines->[$index] ne '' ? $lines->[$index][0] : $lines->[$index];
333 my ($rev, $filename) = @_;
334 return () unless defined $rev && defined $filename;
336 my $blob = git_ls_tree($rev, $filename);
338 open(C,"-|","git","cat-file", "blob", $blob)
339 or die "Failed to git-cat-file blob $blob (rev $rev, file $filename): " . $!;
352 my ($rev, $filename) = @_;
354 open(T,"-|","git","ls-tree",$rev,$filename)
355 or die "Failed to call git ls-tree: $!";
357 my ($mode, $type, $blob, $tfilename);
359 ($mode, $type, $blob, $tfilename) = split(/\s+/, $_, 4);
360 last if ($tfilename eq $filename);
364 return $blob if $filename eq $filename;
365 die "git-ls-tree failed to find blob for $filename";
372 my ($floffset, $rev, $lines, %revinfo) = @_;
373 my $oline = get_line($lines, $floffset);
374 @{$lines->[$floffset]} = ( $oline, $rev,
375 $revinfo{'author'}, $revinfo{'author_date'} );
376 #printf("Claiming line %d with rev %s: '%s'\n",
377 # $floffset, $rev, $oline) if 1;
380 sub git_commit_info {
382 open(COMMIT, "-|","git-cat-file", "commit", $rev)
383 or die "Failed to call git-cat-file: $!";
388 last if (length $_ == 0);
390 if (m/^author (.*) <(.*)> (.*)$/) {
391 $info{'author'} = $1;
392 $info{'author_email'} = $2;
393 $info{'author_date'} = $3;
394 } elsif (m/^committer (.*) <(.*)> (.*)$/) {
395 $info{'committer'} = $1;
396 $info{'committer_email'} = $2;
397 $info{'committer_date'} = $3;
406 my ($timestamp, $timezone) = split(' ', $_[0]);
408 return strftime("%Y-%m-%d %H:%M:%S " . $timezone, gmtime($timestamp));
411 # Copied from git-send-email.perl - We need a Git.pm module..
415 my $pid = open($fh, '-|');
416 die "$!" unless defined $pid;
418 exec('git-var', $var) or die "$!";
421 close $fh or die "$!";
428 my $val = gitvar($name);
429 my @field = split(/\s+/, $val);
430 return join(' ', @field[0...(@field-4)]);