kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

topic: slight code shuffling for readability

todo
Junio C Hamano 2007-12-07 01:10:31 -08:00
parent d3cd72a090
commit 8f92733251
1 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
git-topic.perl
View File

@ -77,9 +77,10 @@ sub rebase_marker {

sub describe_topic {
my ($topic) = @_;

open(CONF, '-|', qw(git repo-config --get),
"branch.$topic.description")
or die;
"branch.$topic.description")
or die;
my $it = join('',<CONF>);
close(CONF);
chomp($it);
@ -88,29 +89,26 @@ sub describe_topic {
}
}

sub wrap_print {
my ($string) = @_;
format STDOUT =
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$string
~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$string
.
write;
}

open(TOPIC, '-|', qw(git for-each-ref),
'--sort=-authordate',
'--format=%(objectname) %(authordate) %(refname)',
"refs/heads/$topic_pattern")
or die;

my @in_next = read_revs_short('^master', $stage[0]);

open(TOPIC, '-|', qw(git for-each-ref),
'--sort=-authordate',
'--format=%(objectname) %(authordate) %(refname)',
"refs/heads/$topic_pattern")
or die;

my @topic = ();
while (<TOPIC>) {
chomp;
my ($sha1, $date, $topic) = m|^([0-9a-f]{40})\s(.*?)\srefs/heads/(.+)$|
or next;
or next;
push @topic, [$sha1, $date, $topic];
}

my @last_merge_to_next = ();

for (@topic) {
my ($sha1, $date, $topic) = @$_;
my @revs = read_revs($base, $sha1, (1<<@stage)-1);
next unless (@revs || $all);

@ -141,3 +139,14 @@ while (<TOPIC>) {
wrap_print("$mark $item->[1]");
}
}

sub wrap_print {
my ($string) = @_;
format STDOUT =
~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$string
~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$string
.
write;
}