Add --line-numbers option

[blhc/blhc.git] / bin / blhc

diff --git a/bin/blhc b/bin/blhc
index b51d18653d0dfca5cd1c270683ba17e6ed7ce5ef..fb4123c9d4ed5067a319dec9804a30c0fe09463b 100755 (executable)
--- a/bin/blhc
+++ b/bin/blhc
@@ -349,7 +349,7 @@ sub array_equal {
 }
 
 sub error_flags {
-    my ($message, $missing_flags_ref, $flag_renames_ref, $line) = @_;
+    my ($message, $missing_flags_ref, $flag_renames_ref, $line, $number) = @_;
 
     # Get string value of qr//-escaped regexps and if requested rename them.
     my @missing_flags = map {
@@ -357,6 +357,7 @@ sub error_flags {
         } @{$missing_flags_ref};
 
     my $flags = join ' ', @missing_flags;
+    printf '%d:', $number if defined $number;
     printf '%s (%s)%s %s',
            error_color($message, 'red'), $flags, error_color(':', 'yellow'),
            $line;
@@ -364,8 +365,9 @@ sub error_flags {
     return;
 }
 sub error_non_verbose_build {
-    my ($line) = @_;
+    my ($line, $number) = @_;
 
+    printf '%d:', $number if defined $number;
     printf '%s%s %s',
            error_color('NONVERBOSE BUILD', 'red'),
            error_color(':', 'yellow'),
@@ -604,6 +606,7 @@ my $option_arch             = undef;
 my $option_buildd           = 0;
 my $option_debian           = 0;
    $option_color            = 0;
+my $option_line_numbers     = 0;
 if (not Getopt::Long::GetOptions(
             'help|h|?'           => \$option_help,
             'version'            => \$option_version,
@@ -622,6 +625,7 @@ if (not Getopt::Long::GetOptions(
             'arch=s'             => \$option_arch,
             'buildd'             => \$option_buildd,
             'debian'             => \$option_debian,
+            'line-numbers'       => \$option_line_numbers,
         )) {
     require Pod::Usage;
     Pod::Usage::pod2usage(2);
@@ -759,7 +763,10 @@ foreach my $file (@ARGV) {
         $disable_harden_pie = 1;
     }
 
+    my $number = 0;
     while (my $line = <$fh>) {
+        $number++;
+
         # Detect architecture automatically unless overridden. For buildd logs
         # only, doesn't use the dpkg-buildpackage header. Necessary to ignore
         # build logs which aren't built (wrong architecture, build error,
@@ -879,11 +886,15 @@ foreach my $file (@ARGV) {
     # is_non_verbose_build() (which is quite slow) in the second loop when
     # it's already clear if a line is non-verbose or not.
     my @input_nonverbose = ();
+    # Input line number.
+    my @input_number = ();
 
     my $continuation = 0;
     my $complete_line = undef;
     my $non_verbose;
     while (my $line = <$fh>) {
+        $number++;
+
         # And stop at the end of the build log. Package details (reported by
         # the buildd logs) are not important for us. This also prevents false
         # positives.
@@ -1025,6 +1036,7 @@ foreach my $file (@ARGV) {
 
             push @input, $line;
             push @input_nonverbose, $non_verbose;
+            push @input_number, $number if $option_line_numbers;
         }
     }
 
@@ -1181,7 +1193,7 @@ LINE:
                 and is_non_verbose_build($line, \$skip,
                                          \@input, $i, $parallel)) {
             if (not $option_buildd) {
-                error_non_verbose_build($line);
+                error_non_verbose_build($line, $input_number[$i]);
                 $exit |= $exit_code{non_verbose_build};
             } else {
                 $statistics{commands_nonverbose}++;
@@ -1325,7 +1337,8 @@ LINE:
                 # Assume dpkg-buildflags returns the correct flags.
                 and index($line, '`dpkg-buildflags --get CFLAGS`') == -1) {
             if (not $option_buildd) {
-                error_flags('CFLAGS missing', \@missing, \%flag_renames, $input[$i]);
+                error_flags('CFLAGS missing', \@missing, \%flag_renames,
+                            $input[$i], $input_number[$i]);
                 $exit |= $exit_code{flags_missing};
             } else {
                 $statistics{compile_missing}++;
@@ -1338,7 +1351,8 @@ LINE:
                 # Assume dpkg-buildflags returns the correct flags.
                 and index($line, '`dpkg-buildflags --get CXXFLAGS`') == -1) {
             if (not $option_buildd) {
-                error_flags('CXXFLAGS missing', \@missing, \%flag_renames, $input[$i]);
+                error_flags('CXXFLAGS missing', \@missing, \%flag_renames,
+                            $input[$i], $input_number[$i]);
                 $exit |= $exit_code{flags_missing};
             } else {
                 $statistics{compile_cpp_missing}++;
@@ -1352,7 +1366,8 @@ LINE:
                 # Assume dpkg-buildflags returns the correct flags.
                 and index($line, '`dpkg-buildflags --get CPPFLAGS`') == -1) {
             if (not $option_buildd) {
-                error_flags('CPPFLAGS missing', \@missing, \%flag_renames, $input[$i]);
+                error_flags('CPPFLAGS missing', \@missing, \%flag_renames,
+                            $input[$i], $input_number[$i]);
                 $exit |= $exit_code{flags_missing};
             } else {
                 $statistics{preprocess_missing}++;
@@ -1364,7 +1379,8 @@ LINE:
                 # Assume dpkg-buildflags returns the correct flags.
                 and index($line, '`dpkg-buildflags --get LDFLAGS`') == -1) {
             if (not $option_buildd) {
-                error_flags('LDFLAGS missing', \@missing, \%flag_renames, $input[$i]);
+                error_flags('LDFLAGS missing', \@missing, \%flag_renames,
+                            $input[$i], $input_number[$i]);
                 $exit |= $exit_code{flags_missing};
             } else {
                 $statistics{link_missing}++;
@@ -1503,6 +1519,10 @@ compiler command line argument.
 
 Use colored (ANSI) output for warning messages.
 
+=item B<--line-numbers>
+
+Display line numbers.
+
 =item B<--ignore-arch> I<arch>
 
 Ignore build logs from architectures matching I<arch>. I<arch> is a string.