mirror/ git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-05-26 04:46:11 +02:00
Code

gitweb: Add parse_commits, used to bulk load commit objects. 

Add a new method parse_commits which is able to parse multiple commit
objects at once.  Reworked parse_commit to share the commit object
parsing logic.

Signed-off-by: Robert Fitzsimons <robfitz@273k.net>
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Robert Fitzsimons 2006-12-24 14:31:42 +00:00 committed by Junio C Hamano
parent d4ada4876d
commit 756bbf548d
1 changed files with 74 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
gitweb/gitweb.perl
View File

@ -1270,25 +1270,13 @@ sub parse_tag {
return %tag
}
sub parse_commit {
my $commit_id = shift;
my $commit_text = shift;
my @commit_lines;
sub parse_commit_text {
my ($commit_text) = @_;
my @commit_lines = split '\n', $commit_text;
my %co;
if (defined $commit_text) {
@commit_lines = @$commit_text;
} else {
local $/ = "\0";
open my $fd, "-|", git_cmd(), "rev-list",
"--header", "--parents", "--max-count=1",
$commit_id, "--"
or return;
@commit_lines = split '\n', <$fd>;
close $fd or return;
pop @commit_lines;
}
pop @commit_lines; # Remove '\0'
my $header = shift @commit_lines;
if (!($header =~ m/^[0-9a-fA-F]{40}/)) {
return;
@ -1375,6 +1363,75 @@ sub parse_commit {
return %co;
}
sub parse_commit {
my ($commit_id) = @_;
my %co;
local $/ = "\0";
open my $fd, "-|", git_cmd(), "rev-list",
"--header",
"--parents",
"--max-count=1",
$commit_id,
"--",
or die_error(undef, "Open git-rev-list failed");
%co = parse_commit_text(<$fd>);
close $fd;
return %co;
}
sub parse_commits {
my ($commit_id, $maxcount, $skip, $arg, $filename) = @_;
my @cos;
$maxcount ||= 1;
$skip ||= 0;
# Delete once rev-list supports the --skip option
if ($skip > 0) {
open my $fd, "-|", git_cmd(), "rev-list",
($arg ? ($arg) : ()),
("--max-count=" . ($maxcount + $skip)),
$commit_id,
"--",
($filename ? ($filename) : ())
or die_error(undef, "Open git-rev-list failed");
while (my $line = <$fd>) {
if ($skip-- <= 0) {
chomp $line;
my %co = parse_commit($line);
push @cos, \%co;
}
}
close $fd;
return wantarray ? @cos : \@cos;
}
local $/ = "\0";
open my $fd, "-|", git_cmd(), "rev-list",
"--header",
"--parents",
($arg ? ($arg) : ()),
("--max-count=" . $maxcount),
# Add once rev-list supports the --skip option
# ("--skip=" . $skip),
$commit_id,
"--",
($filename ? ($filename) : ())
or die_error(undef, "Open git-rev-list failed");
while (my $line = <$fd>) {
my %co = parse_commit_text($line);
push @cos, \%co;
}
close $fd;
return wantarray ? @cos : \@cos;
}
# parse ref from ref_file, given by ref_id, with given type
sub parse_ref {
my $ref_file = shift;