| #!/usr/bin/perl |
| |
| use Gtk2 -init; |
| use Gtk2::SimpleList; |
| |
| my $hash; |
| my $fn; |
| if ( @ARGV == 1 ) { |
| $hash = "HEAD"; |
| $fn = shift; |
| } elsif ( @ARGV == 2 ) { |
| $hash = shift; |
| $fn = shift; |
| } else { |
| die "Usage blameview [<rev>] <filename>"; |
| } |
| |
| Gtk2::Rc->parse_string(<<'EOS'); |
| style "treeview_style" |
| { |
| GtkTreeView::vertical-separator = 0 |
| } |
| class "GtkTreeView" style "treeview_style" |
| EOS |
| |
| my $window = Gtk2::Window->new('toplevel'); |
| $window->signal_connect(destroy => sub { Gtk2->main_quit }); |
| my $vpan = Gtk2::VPaned->new(); |
| $window->add($vpan); |
| my $scrolled_window = Gtk2::ScrolledWindow->new; |
| $vpan->pack1($scrolled_window, 1, 1); |
| my $fileview = Gtk2::SimpleList->new( |
| 'Commit' => 'text', |
| 'FileLine' => 'text', |
| 'Data' => 'text' |
| ); |
| $scrolled_window->add($fileview); |
| $fileview->get_column(0)->set_spacing(0); |
| $fileview->set_size_request(1024, 768); |
| $fileview->set_rules_hint(1); |
| $fileview->signal_connect (row_activated => sub { |
| my ($sl, $path, $column) = @_; |
| my $row_ref = $sl->get_row_data_from_path ($path); |
| system("blameview @$row_ref[0]~1 $fn &"); |
| }); |
| |
| my $commitwindow = Gtk2::ScrolledWindow->new(); |
| $commitwindow->set_policy ('GTK_POLICY_AUTOMATIC','GTK_POLICY_AUTOMATIC'); |
| $vpan->pack2($commitwindow, 1, 1); |
| my $commit_text = Gtk2::TextView->new(); |
| my $commit_buffer = Gtk2::TextBuffer->new(); |
| $commit_text->set_buffer($commit_buffer); |
| $commitwindow->add($commit_text); |
| |
| $fileview->signal_connect (cursor_changed => sub { |
| my ($sl) = @_; |
| my ($path, $focus_column) = $sl->get_cursor(); |
| my $row_ref = $sl->get_row_data_from_path ($path); |
| my $c_fh; |
| open($c_fh, '-|', "git cat-file commit @$row_ref[0]") |
| or die "unable to find commit @$row_ref[0]"; |
| my @buffer = <$c_fh>; |
| $commit_buffer->set_text("@buffer"); |
| close($c_fh); |
| }); |
| |
| my $fh; |
| open($fh, '-|', "git cat-file blob $hash:$fn") |
| or die "unable to open $fn: $!"; |
| |
| while(<$fh>) { |
| chomp; |
| $fileview->{data}->[$.] = ['HEAD', "$fn:$.", $_]; |
| } |
| |
| my $blame; |
| open($blame, '-|', qw(git blame --incremental --), $fn, $hash) |
| or die "cannot start git-blame $fn"; |
| |
| Glib::IO->add_watch(fileno($blame), 'in', \&read_blame_line); |
| |
| $window->show_all; |
| Gtk2->main; |
| exit 0; |
| |
| my %commitinfo = (); |
| |
| sub flush_blame_line { |
| my ($attr) = @_; |
| |
| return unless defined $attr; |
| |
| my ($commit, $s_lno, $lno, $cnt) = |
| @{$attr}{qw(COMMIT S_LNO LNO CNT)}; |
| |
| my ($filename, $author, $author_time, $author_tz) = |
| @{$commitinfo{$commit}}{qw(FILENAME AUTHOR AUTHOR-TIME AUTHOR-TZ)}; |
| my $info = $author . ' ' . format_time($author_time, $author_tz); |
| |
| for(my $i = 0; $i < $cnt; $i++) { |
| @{$fileview->{data}->[$lno+$i-1]}[0,1,2] = |
| (substr($commit, 0, 8), $filename . ':' . ($s_lno+$i)); |
| } |
| } |
| |
| my $buf; |
| my $current; |
| sub read_blame_line { |
| |
| my $r = sysread($blame, $buf, 1024, length($buf)); |
| die "I/O error" unless defined $r; |
| |
| if ($r == 0) { |
| flush_blame_line($current); |
| $current = undef; |
| return 0; |
| } |
| |
| while ($buf =~ s/([^\n]*)\n//) { |
| my $line = $1; |
| |
| if (($commit, $s_lno, $lno, $cnt) = |
| ($line =~ /^([0-9a-f]{40}) (\d+) (\d+) (\d+)$/)) { |
| flush_blame_line($current); |
| $current = +{ |
| COMMIT => $1, |
| S_LNO => $2, |
| LNO => $3, |
| CNT => $4, |
| }; |
| next; |
| } |
| |
| # extended attribute values |
| if ($line =~ /^(author|author-mail|author-time|author-tz|committer|committer-mail|committer-time|committer-tz|summary|filename) (.*)$/) { |
| my $commit = $current->{COMMIT}; |
| $commitinfo{$commit}{uc($1)} = $2; |
| next; |
| } |
| } |
| return 1; |
| } |
| |
| sub format_time { |
| my $time = shift; |
| my $tz = shift; |
| |
| my $minutes = $tz < 0 ? 0-$tz : $tz; |
| $minutes = ($minutes / 100)*60 + ($minutes % 100); |
| $minutes = $tz < 0 ? 0-$minutes : $minutes; |
| $time += $minutes * 60; |
| my @t = gmtime($time); |
| return sprintf('%04d-%02d-%02d %02d:%02d:%02d %s', |
| $t[5] + 1900, @t[4,3,2,1,0], $tz); |
| } |