diff options
author | Petr Mladek <pmladek@suse.cz> | 2011-04-28 20:08:11 +0200 |
---|---|---|
committer | Petr Mladek <pmladek@suse.cz> | 2011-04-28 21:06:36 +0200 |
commit | 9896f190a8c7d46920c6641a3c0b9ed7e9bd3abc (patch) | |
tree | 1e72d9dcba7cc3b77791c4f5a5a99d5fc8beaa11 /bin/lo-commit-stat | |
parent | put L10N_MODULE definition to set_soenv instead of settings.mk (diff) | |
download | core-9896f190a8c7d46920c6641a3c0b9ed7e9bd3abc.tar.gz core-9896f190a8c7d46920c6641a3c0b9ed7e9bd3abc.zip |
lo-commit-stat: new --bug-numbers option to print just bug numbers
Diffstat (limited to 'bin/lo-commit-stat')
-rwxr-xr-x | bin/lo-commit-stat | 36 |
1 files changed, 25 insertions, 11 deletions
diff --git a/bin/lo-commit-stat b/bin/lo-commit-stat index b54d4b6e4403..8c53ec96fc85 100755 --- a/bin/lo-commit-stat +++ b/bin/lo-commit-stat @@ -216,12 +216,12 @@ sub open_log_file($$$$) return $log; } -sub print_summary_in_stat($$$$$$$$) +sub print_summary_in_stat($$$$$$$$$) { - my ($summary, $pprint_filters, $ppiece_title, $pflags, $pbugs, $pauthors, $prefix, $log) = @_; + my ($summary, $pprint_filters, $print_mode, $ppiece_title, $pflags, $pbugs, $pauthors, $prefix, $log) = @_; return if ( $summary eq "" ); - + # do we want to print this summary at all? my $print; if (%{$pprint_filters}) { @@ -234,7 +234,7 @@ sub print_summary_in_stat($$$$$$$$) return unless (defined $print); # print piece title if not done yet - if (defined ${$ppiece_title}) { + if ( defined ${$ppiece_title} && $print_mode ne "bugnumbers" ) { printf $log "${$ppiece_title}\n"; ${$ppiece_title} = undef; } @@ -242,7 +242,11 @@ sub print_summary_in_stat($$$$$$$$) # finally print the summary line my $bugs = ""; if ( %{$pbugs} ) { - $bugs = " (" . join (", ", keys %{$pbugs}) . ")"; + if ( $print_mode eq "bugnumbers" ) { + $bugs = join ("\n", keys %{$pbugs}) . "\n"; + } else { + $bugs = " (" . join (", ", keys %{$pbugs}) . ")"; + } } my $authors = ""; @@ -250,12 +254,16 @@ sub print_summary_in_stat($$$$$$$$) $authors = " [" . join (", ", keys %{$pauthors}) . "]"; } - printf $log $prefix . $summary . $bugs . $authors . "\n"; + if ( $print_mode eq "bugnumbers" ) { + printf $log $bugs; + } else { + printf $log $prefix . $summary . $bugs . $authors . "\n"; + } } -sub print_stat($$$) +sub print_stat($$$$) { - my ($pdata, $pprint_filters, $log) = @_; + my ($pdata, $pprint_filters, $print_mode, $log) = @_; foreach my $piece ( sort { $a cmp $b } keys %{$pdata}) { # check if this piece has any entries at all @@ -268,7 +276,7 @@ sub print_stat($$$) foreach my $id ( sort { $pdata->{$piece}{$a}{'summary'} cmp $pdata->{$piece}{$b}{'summary'} } keys %{$pdata->{$piece}}) { my $summary = $pdata->{$piece}{$id}{'summary'}; if ($summary ne $old_summary) { - print_summary_in_stat($old_summary, $pprint_filters, \$piece_title, \%flags, \%bugs, \%authors, " + ", $log); + print_summary_in_stat($old_summary, $pprint_filters, $print_mode, \$piece_title, \%flags, \%bugs, \%authors, " + ", $log); $old_summary = $summary; %authors = (); %bugs = (); @@ -288,7 +296,7 @@ sub print_stat($$$) $flags{$flag} = 1; } } - print_summary_in_stat($old_summary, $pprint_filters, \$piece_title, \%flags, \%bugs, \%authors, " + ", $log); + print_summary_in_stat($old_summary, $pprint_filters, $print_mode, \$piece_title, \%flags, \%bugs, \%authors, " + ", $log); } } } @@ -310,6 +318,7 @@ sub usage() " commit-log-<branch>-<log-name-suffix>.log; the branch name\n" . " is detected automatically\n" . " --bugs print just bug fixes\n" . + " --bug-numbers print just fixed bug numbers\n" . " --rev-list use \"git rev-list\" instead of \"git log\"; useful to check\n" . " differences between branches\n" . " topdir directory with the libreoffice/bootstrap clone; the piece repos\n" . @@ -339,6 +348,7 @@ my $branch_name; my @git_args; my %data; my %print_filters = (); +my $print_mode = "normal"; foreach my $arg (@ARGV) { if ($arg eq '--help') { @@ -353,6 +363,10 @@ foreach my $arg (@ARGV) { } elsif ($arg eq '--bugs') { $print_filters{'bug'} = 1; $log_prefix = "bugfixes" + } elsif ($arg eq '--bug-numbers') { + $print_filters{'bug'} = 1; + $log_prefix = "bugnumbers"; + $print_mode = "bugnumbers"; } elsif ($arg eq '--rev-list') { $git_command = "git rev-list --pretty=medium" } else { @@ -377,5 +391,5 @@ $branch_name = get_branch_name($top_dir); load_data(\%data, $top_dir, $piece, $branch_name, $git_command); $log = open_log_file($log_prefix, $log_suffix, $top_dir, $branch_name); -print_stat(\%data, \%print_filters, $log); +print_stat(\%data, \%print_filters, $print_mode, $log); close $log; |