My bad, misread the documentation files.

I'll resubmit without this

On Tue, 2012-09-04 at 08:20 +1000, Cruz Julian Bishop wrote:
> This is required by the CodingStyle kernel documentation file
> 
> Signed-off-by: Cruz Julian Bishop <cruzjbis...@gmail.com>
> ---
>  scripts/checkincludes.pl | 122 
> +++++++++++++++++++++++------------------------
>  1 file changed, 61 insertions(+), 61 deletions(-)
> 
> diff --git a/scripts/checkincludes.pl b/scripts/checkincludes.pl
> index bff7316..7e3df9e 100755
> --- a/scripts/checkincludes.pl
> +++ b/scripts/checkincludes.pl
> @@ -14,7 +14,7 @@
>  use strict;
>  
>  sub usage {
> -     print <<EOM;
> +        print <<EOM;
>  Usage: checkincludes.pl [OPTIONS]... FILE...
>  By default, we just warn of duplicates.
>  
> @@ -23,84 +23,84 @@ Options:
>    -q                Do not show messages for files that do not
>                      have duplicated includes
>  EOM
> -     exit 1;
> +        exit 1;
>  }
>  
>  my $remove = 0;
>  my $quiet = 0;
>  
>  if ($#ARGV < 0) {
> -     usage();
> +        usage();
>  }
>  
>  my $argc = 0;
>  
>  foreach my $arg (@ARGV) {
> -     if ($arg eq "-r") {
> -             $remove = 1;
> -     } elsif($arg eq "-q") {
> -             $quiet = 1;
> -     } else {
> -             open(my $f, '<', $arg)
> -                 or die "Cannot open $arg: $!.\n";
> -                 
> -             $argc++;
> +        if ($arg eq "-r") {
> +                $remove = 1;
> +        } elsif($arg eq "-q") {
> +                $quiet = 1;
> +        } else {
> +                open(my $f, '<', $arg)
> +                        or die "Cannot open $arg: $!.\n";
> +                    
> +                $argc++;
>  
> -             my %includedfiles = ();
> -             my @file_lines = ();
> +                my %includedfiles = ();
> +                my @file_lines = ();
>  
> -             while (<$f>) {
> -                     if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {
> -                             ++$includedfiles{$1};
> -                     }
> -                     push(@file_lines, $_);
> -             }
> +                while (<$f>) {
> +                        if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {
> +                                ++$includedfiles{$1};
> +                        }
> +                        push(@file_lines, $_);
> +                }
>  
> -             close($f);
> +                close($f);
>  
> -             if (!$remove) {
> -                     my $detected = 0;
> -                     foreach my $filename (keys %includedfiles) {
> -                             if ($includedfiles{$filename} > 1) {
> -                                     $detected++;
> -                                     print "$arg: $filename is included more 
> than once.\n";
> -                             }
> -                     }
> -                     if (!$detected && !$quiet) {
> -                             print "$arg: No duplicated includes 
> detected.\n";
> -                     }
> -                     next;
> -             }
> +                if (!$remove) {
> +                        my $detected = 0;
> +                        foreach my $filename (keys %includedfiles) {
> +                                if ($includedfiles{$filename} > 1) {
> +                                        $detected++;
> +                                print "$arg: $filename is included more than 
> once.\n";
> +                                }
> +                        }
> +                        if (!$detected && !$quiet) {
> +                                print "$arg: No duplicated includes 
> detected.\n";
> +                        }
> +                        next;
> +                }
>  
> -             open($f, '>', $arg)
> -                     or die("Cannot write to $arg: $!");
> +                open($f, '>', $arg)
> +                        or die("Cannot write to $arg: $!");
>  
> -             my $dups = 0;
> -             foreach(@file_lines) {
> -                     if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {
> -                             foreach my $filename (keys %includedfiles) {
> -                                     if ($1 eq $filename) {
> -                                             if ($includedfiles{$filename} > 
> 1) {
> -                                                     
> $includedfiles{$filename}--;
> -                                                     $dups++;
> -                                             } else {
> -                                                     print {$f} $_;
> -                                             }
> -                                     }
> -                             }
> -                     } else {
> -                             print {$f} $_;
> -                     }
> -             }
> -             if ($dups > 0) {
> -                     print "$arg: removed $dups duplicate includes \n";
> -             } elsif (!$quiet) {
> -                     print "$arg: no duplicated includes to remove \n";
> -             }
> -             close($f);
> -     }
> +                my $dups = 0;
> +                foreach(@file_lines) {
> +                        if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {
> +                                foreach my $filename (keys %includedfiles) {
> +                                        if ($1 eq $filename) {
> +                                                if 
> ($includedfiles{$filename} > 1) {
> +                                                        
> $includedfiles{$filename}--;
> +                                                        $dups++;
> +                                                } else {
> +                                                        print {$f} $_;
> +                                                }
> +                                        }
> +                                }
> +                        } else {
> +                                print {$f} $_;
> +                        }
> +                }
> +                if ($dups > 0) {
> +                        print "$arg: removed $dups duplicate includes \n";
> +                } elsif (!$quiet) {
> +                        print "$arg: no duplicated includes to remove \n";
> +                }
> +                close($f);
> +        }
>  }
>  
>  if ($argc == 0) {
> -     usage();
> +        usage();
>  }


--
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majord...@vger.kernel.org
More majordomo info at  http://vger.kernel.org/majordomo-info.html
Please read the FAQ at  http://www.tux.org/lkml/

Reply via email to