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);
13 use File
::Basename
qw(basename dirname);
17 print STDERR
"Usage: ${\basename $0} [-s] [-S revs-file] file [ revision ]
19 Show long rev (Defaults off)
21 Show raw timestamp (Defaults off)
23 Follow renames (Defaults on).
24 -S, --rev-file revs-file
25 Use revs from revs-file instead of calling git-rev-list
33 our ($help, $longrev, $rename, $rawtime, $starting_rev, $rev_file, $repo) = (0, 0, 1);
35 my $rc = GetOptions
( "long|l" => \
$longrev,
36 "time|t" => \
$rawtime,
38 "rename|r" => \
$rename,
39 "rev-file|S=s" => \
$rev_file);
40 if (!$rc or $help or !@ARGV) {
44 my $filename = shift @ARGV;
46 $starting_rev = shift @ARGV;
51 'rev' => defined $starting_rev ?
$starting_rev : "HEAD",
52 'filename' => $filename,
56 $repo = Git
->repository();
60 if (defined $starting_rev) {
61 @filelines = git_cat_file
($starting_rev, $filename);
64 or die "Failed to open filename: $!";
78 my $revsprocessed = 0;
79 while (my $bound = pop @stack) {
80 my @revisions = git_rev_list
($bound->{'rev'}, $bound->{'filename'});
81 foreach my $revinst (@revisions) {
82 my ($rev, @parents) = @
$revinst;
88 $revs{$rev}{'filename'} = $bound->{'filename'};
89 if (scalar @parents > 0) {
90 $revs{$rev}{'parents'} = \
@parents;
98 my $newbound = find_parent_renames
($rev, $bound->{'filename'});
99 if ( exists $newbound->{'filename'} && $newbound->{'filename'} ne $bound->{'filename'}) {
100 push @stack, $newbound;
101 $revs{$rev}{'parents'} = [$newbound->{'rev'}];
105 push @revqueue, $head;
106 init_claim
( defined $starting_rev ?
$head : 'dirty');
107 unless (defined $starting_rev) {
109 @ident{'author', 'author_email', 'author_date'} = $repo->ident('author');
110 my $diff = $repo->command_output_pipe('diff', '-R', 'HEAD', '--', $filename);
111 _git_diff_parse
($diff, $head, "dirty", %ident);
112 $repo->command_close_pipe($diff);
118 foreach my $l (@filelines) {
119 my ($output, $rev, $committer, $date);
120 if (ref $l eq 'ARRAY') {
121 ($output, $rev, $committer, $date) = @
$l;
122 if (!$longrev && length($rev) > 8) {
123 $rev = substr($rev,0,8);
127 ($rev, $committer, $date) = ('unknown', 'unknown', 'unknown');
130 printf("%s\t(%10s\t%10s\t%d)%s\n", $rev, $committer,
131 format_date
($date), ++$i, $output);
136 for (my $i = 0; $i < @filelines; $i++) {
137 $filelines[$i] = [ $filelines[$i], '', '', '', 1];
142 # 1 <-- belongs to the original file.
144 $revs{$rev}{'lines'} = \
@filelines;
151 while (my $rev = shift @revqueue) {
152 next if $seen{$rev}++;
154 my %revinfo = git_commit_info
($rev);
156 foreach my $p (@
{$revs{$rev}{'parents'}}) {
158 git_diff_parse
($p, $rev, %revinfo);
163 if (scalar @
{$revs{$rev}{parents
}} == 0) {
164 # We must be at the initial rev here, so claim everything that is left.
165 for (my $i = 0; $i < @
{$revs{$rev}{lines
}}; $i++) {
166 if (ref ${$revs{$rev}{lines
}}[$i] eq '' || ${$revs{$rev}{lines
}}[$i][1] eq '') {
167 claim_line
($i, $rev, $revs{$rev}{lines
}, %revinfo);
176 my ($rev, $file) = @_;
180 open($revlist, '<' . $rev_file)
181 or die "Failed to open $rev_file : $!";
183 $revlist = $repo->command_output_pipe('rev-list', '--parents', '--remove-empty', $rev, '--', $file);
187 while(my $line = <$revlist>) {
189 my ($rev, @parents) = split /\s+/, $line;
190 push @revs, [ $rev, @parents ];
192 $repo->command_close_pipe($revlist);
194 printf("0 revs found for rev %s (%s)\n", $rev, $file) if (@revs == 0);
198 sub find_parent_renames
{
199 my ($rev, $file) = @_;
201 my $patch = $repo->command_output_pipe('diff-tree', '-M50', '-r', '--name-status', '-z', $rev);
206 while (my $change = <$patch>) {
208 my $filename = <$patch>;
209 if (!defined $filename) {
214 if ($change =~ m/^[AMD]$/ ) {
216 } elsif ($change =~ m/^R/ ) {
217 my $oldfilename = $filename;
218 $filename = <$patch>;
220 if ( $file eq $filename ) {
221 my $parent = git_find_parent
($rev, $oldfilename);
222 @bound{'rev','filename'} = ($parent, $oldfilename);
227 $repo->command_close_pipe($patch);
233 sub git_find_parent
{
234 my ($rev, $filename) = @_;
236 my $parentline = $repo->command_oneline('rev-list', '--remove-empty',
237 '--parents', '--max-count=1', $rev, '--', $filename);
238 my ($revfound, $parent) = split m/\s+/, $parentline;
244 # Get a diff between the current revision and a parent.
245 # Record the commit information that results.
247 my ($parent, $rev, %revinfo) = @_;
249 my $diff = $repo->command_output_pipe('diff-tree', '-M', '-p',
251 $revs{$rev}{'filename'}, $revs{$parent}{'filename'});
253 _git_diff_parse
($diff, $parent, $rev, %revinfo);
255 $repo->command_close_pipe($diff);
258 sub _git_diff_parse
{
259 my ($diff, $parent, $rev, %revinfo) = @_;
261 my ($ri, $pi) = (0,0);
262 my $slines = $revs{$rev}{'lines'};
267 my ($hunk_start, $hunk_index);
270 if (m/^@@ -(\d+),(\d+) \+(\d+),(\d+)/) {
272 # Adjust for 0-based arrays
274 # Reinit hunk tracking.
275 $hunk_start = $remstart;
279 for (my $i = $ri; $i < $remstart; $i++) {
280 $plines[$pi++] = $slines->[$i];
284 } elsif (!$gotheader) {
290 $plines[$pi++] = [ $line, '', '', '', 0 ];
293 } elsif (m/^-(.*)$/) {
295 if (get_line
($slines, $ri) eq $line) {
296 # Found a match, claim
297 claim_line
($ri, $rev, $slines, %revinfo);
299 die sprintf("Sync error: %d/%d\n|%s\n|%s\n%s => %s\n",
300 $ri, $hunk_start + $hunk_index,
302 get_line
($slines, $ri),
309 # Skip \No newline at end of file.
310 # But this can be internationalized, so only look
314 if (substr($_,1) ne get_line
($slines,$ri) ) {
315 die sprintf("Line %d (%d) does not match:\n|%s\n|%s\n%s => %s\n",
316 $hunk_start + $hunk_index, $ri,
318 get_line
($slines,$ri),
321 $plines[$pi++] = $slines->[$ri++];
325 for (my $i = $ri; $i < @
{$slines} ; $i++) {
326 push @plines, $slines->[$ri++];
329 $revs{$parent}{lines
} = \
@plines;
334 my ($lines, $index) = @_;
336 return ref $lines->[$index] ne '' ?
$lines->[$index][0] : $lines->[$index];
340 my ($rev, $filename) = @_;
341 return () unless defined $rev && defined $filename;
343 my $blob = git_ls_tree
($rev, $filename);
344 die "Failed to find a blob for $filename in rev $rev\n" if !defined $blob;
346 my @lines = split(/\n/, $repo->get_object('blob', $blob));
347 pop @lines unless $lines[$#lines]; # Trailing newline
352 my ($rev, $filename) = @_;
354 my $lstree = $repo->command_output_pipe('ls-tree', $rev, $filename);
355 my ($mode, $type, $blob, $tfilename);
358 ($mode, $type, $blob, $tfilename) = split(/\s+/, $_, 4);
359 last if ($tfilename eq $filename);
361 $repo->command_close_pipe($lstree);
363 return $blob if ($tfilename eq $filename);
364 die "git-ls-tree failed to find blob for $filename";
370 my ($floffset, $rev, $lines, %revinfo) = @_;
371 my $oline = get_line
($lines, $floffset);
372 @
{$lines->[$floffset]} = ( $oline, $rev,
373 $revinfo{'author'}, $revinfo{'author_date'} );
374 #printf("Claiming line %d with rev %s: '%s'\n",
375 # $floffset, $rev, $oline) if 1;
378 sub git_commit_info
{
380 my $commit = $repo->get_object('commit', $rev);
383 while ($commit =~ /(.*?)\n/g) {
385 if ($line =~ s/^author //) {
386 @info{'author', 'author_email', 'author_date'} = $repo->ident($line);
387 } elsif ($line =~ s/^committer//) {
388 @info{'committer', 'committer_email', 'committer_date'} = $repo->ident($line);
399 my ($timestamp, $timezone) = split(' ', $_[0]);
400 my $minutes = abs($timezone);
401 $minutes = int($minutes / 100) * 60 + ($minutes % 100);
403 $minutes = -$minutes;
405 my $t = $timestamp + $minutes * 60;
406 return strftime
("%Y-%m-%d %H:%M:%S " . $timezone, gmtime($t));