Update licensecheck to version 2.12.4.

third_party/devscripts/licensecheck.pl

 #!/usr/bin/perl -w
 # This script was originally based on the script of the same name from
 # the KDE SDK (by dfaure@kde.org)
 #
 # This version is
 #   Copyright (C) 2007, 2008 Adam D. Barratt
+#   Copyright (C) 2012 Francesco Poli
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License along
 # with this program. If not, see <http://www.gnu.org/licenses/>.
 
 =head1 NAME
 
 licensecheck - simple license checker for source files
 
 =head1 SYNOPSIS
 
 B<licensecheck> B<--help>|B<--version>
 
 B<licensecheck> [B<--no-conf>] [B<--verbose>] [B<--copyright>]
 [B<-l>|B<--lines=>I<N>] [B<-i>|B<--ignore=>I<regex>] [B<-c>|B<--check=>I<regex>]
-[B<-r>|B<--recursive>] I<list of files and directories to check>
+[B<-m>|B<--machine>] [B<-r>|B<--recursive>]
+I<list of files and directories to check>
 
 =head1 DESCRIPTION
 
 B<licensecheck> attempts to determine the license that applies to each file
 passed to it, by searching the start of the file for text belonging to
 various licenses.
 
 If any of the arguments passed are directories, B<licensecheck> will add
 the files contained within to the list of files to process.
 
@@ skipping 28 matching lines @@
 
 Specify a pattern against which filenames will be matched in order to
 decide which files to check the license of.
 
 The default includes common source files.
 
 =item B<--copyright>
 
 Also display copyright text found within the file
 
+=item B<-m>, B<--machine>
+
+Display the information in a machine readable way, i.e. in the form
+<file><tab><license>[<tab><copyright>] so that it can be easily sorted
+and/or filtered, e.g. with the B<awk> and B<sort> commands.
+Note that using the B<--verbose> option will kill the readability.
+
 =item B<--no-conf>, B<--noconf>
 
 Do not read any configuration files. This can only be used as the first
 option given on the command-line.
 
 =back
 
 =head1 CONFIGURATION VARIABLES
 
 The two configuration files F</etc/devscripts.conf> and
@@ skipping 58 matching lines @@
 (?:^|/)(?:DEADJOE|\.cvsignore|\.arch-inventory|\.bzrignore|\.gitignore)$|
 # File or directory names that should be ignored
 (?:^|/)(?:CVS|RCS|\.deps|\{arch\}|\.arch-ids|\.svn|\.hg|_darcs|\.git|
 \.shelf|_MTN|\.bzr(?:\.backup|tags)?)(?:$|/.*$)
 ';
 
 # Take out comments and newlines
 $default_ignore_regex =~ s/^#.*$//mg;
 $default_ignore_regex =~ s/\n//sg;
 
-my $default_check_regex = '\.(c(c|pp|xx)?|h(h|pp|xx)?|f(77|90)?|p(l|m)|xs|sh|php|py|rb|java|vala|el|sc(i|e)|cs|pas|inc|dtd|xsl|mod)$';
+my $default_check_regex = '\.(c(c|pp|xx)?|h(h|pp|xx)?|f(77|90)?|p(l|m)|xs|sh|php|py(|x)|rb|java|vala|el|sc(i|e)|cs|pas|inc|dtd|xsl|mod|m|tex|mli?)$';
 
 my $modified_conf_msg;
 
 my ($opt_verbose, $opt_lines, $opt_noconf, $opt_ignore_regex, $opt_check_regex)
   = ('', '', '', '', '');
 my $opt_recursive = 0;
 my $opt_copyright = 0;
+my $opt_machine = 0;
 my ($opt_help, $opt_version);
 my $def_lines = 60;
 
 # Read configuration files and then command line
 # This is boilerplate
 
 if (@ARGV and $ARGV[0] =~ /^--no-?conf$/) {
     $modified_conf_msg = "  (no configuration files read)";
     shift;
 } else {
@@ skipping 35 matching lines @@
 }
 
 GetOptions("help|h" => \$opt_help,
            "version|v" => \$opt_version,
            "verbose!" => \$opt_verbose,
            "lines|l=i" => \$opt_lines,
            "ignore|i=s" => \$opt_ignore_regex,
            "recursive|r" => \$opt_recursive,
            "check|c=s" => \$opt_check_regex,
            "copyright" => \$opt_copyright,
+           "machine|m" => \$opt_machine,
            "noconf" => \$opt_noconf,
            "no-conf" => \$opt_noconf,
            )
     or die "Usage: $progname [options] filelist\nRun $progname --help for more details\n";
 
 $opt_lines = $def_lines if $opt_lines !~ /^[1-9][0-9]*$/;
 $opt_ignore_regex = $default_ignore_regex if ! length $opt_ignore_regex;
 $opt_check_regex = $default_check_regex if ! length $opt_check_regex;
 
 if ($opt_noconf) {
@@ skipping 53 matching lines @@
         last if ($. > $opt_lines);
         $content .= $_;
     }
     close(F);
 
     $copyright = join(" / ", values %copyrights);
 
     print qq(----- $file header -----\n$content----- end header -----\n\n)
         if $opt_verbose;
 
+    # Remove Fortran comments
+    $content =~ s/^[cC] //gm;
     $content =~ tr/\t\r\n/ /;
     # Remove C / C++ comments
     $content =~ s#(\*/|/[/*])##g;
     $content =~ tr% A-Za-z.,@;0-9\(\)/-%%cd;
-    $content =~ s/ c //g; # Remove fortran comments
     $content =~ tr/ //s;
 
     $license = parselicense($content);
-    print "$file: ";
-    print $license . "\n";
-    print "  [Copyright: " . $copyright . "]\n"
-      if $copyright and $opt_copyright;
-    print "\n" if $opt_copyright;
+    if ($opt_machine) {
+        print "$file\t$license";
+        print "\t" . ($copyright or "*No copyright*") if $opt_copyright;
+        print "\n";
+    } else {
+        print "$file: ";
+        print "*No copyright* " unless $copyright;
+        print $license . "\n";
+        print "  [Copyright: " . $copyright . "]\n"
+          if $copyright and $opt_copyright;
+        print "\n" if $opt_copyright;
+    }
 }
 
 sub parse_copyright($) {
     my $copyright = '';
     my $match;
 
     my $copyright_indicator_regex = '
         (?:copyright    # The full word
         |copr\.         # Legally-valid abbreviation
         |\x{00a9}       # Unicode character COPYRIGHT SIGN
@@ skipping 33 matching lines @@
    --no-conf, --noconf    Don't read devscripts config files; must be
                           the first option given
    --verbose              Display the header of each file before its
                             license information
    --lines, -l            Specify how many lines of the file header
                             should be parsed for license information
                             (Default: $def_lines)
    --check, -c            Specify a pattern indicating which files should
                              be checked
                              (Default: '$default_check_regex')
+   --machine, -m          Display in a machine readable way (good for awk)
    --recursive, -r        Add the contents of directories recursively
    --copyright            Also display the file's copyright
-   --ignore, -i           Specify that files / directories matching the
+   --ignore, -i           Specify that files / directories matching the
                             regular expression should be ignored when
                             checking files
                             (Default: '$default_ignore_regex')
 
 Default settings modified by devscripts configuration files:
 $modified_conf_msg
 EOF
 }
 
 sub version {
     print <<"EOF";
 This is $progname, from the Debian devscripts package, version ###VERSION###
 Copyright (C) 2007, 2008 by Adam D. Barratt <adam\@adam-barratt.org.uk>; based
 on a script of the same name from the KDE SDK by <dfaure\@kde.org>.
 
 This program comes with ABSOLUTELY NO WARRANTY.
 You are free to redistribute this code under the terms of the
 GNU General Public License, version 2, or (at your option) any
 later version.
 EOF
 }
 
 sub parselicense($) {
     my ($licensetext) = @_;
 
     my $gplver = "";
     my $extrainfo = "";
     my $license = "";
 
-    if ($licensetext =~ /version ([^ ]+) (?:\(?only\)?.? )?(?:of the GNU (Affero )?General Public License )?as published by the Free Software Foundation/i or
-        $licensetext =~ /GNU (?:Affero )?General Public License as published by the Free Software Foundation; version ([^ ]+) /i) {
+    if ($licensetext =~ /version ([^, ]+?)[.,]? (?:\(?only\)?.? )?(?:of the GNU (Affero )?(Lesser |Library )?General Public License )?(as )?published by the Free Software Foundation/i or
+        $licensetext =~ /GNU (?:Affero )?(?:Lesser |Library )?General Public License (?:as )?published by the Free Software Foundation; version ([^, ]+?)[.,]? /i) {
 
         $gplver = " (v$1)";
-    } elsif ($licensetext =~ /GNU (?:Affero ?)General Public License, version ([^ ]+?)[ .]/) {
+    } elsif ($licensetext =~ /GNU (?:Affero )?(?:Lesser |Library )?General Public License, version (\d+(?:\.\d+)?)[ \.]/) {
         $gplver = " (v$1)";
     } elsif ($licensetext =~ /either version ([^ ]+)(?: of the License)?, or \(at your option\) any later version/) {
         $gplver = " (v$1 or later)";
     }
 
     if ($licensetext =~ /permission (?:is (also granted|given))? to link (the code of )?this program with (any edition of )?(Qt|the Qt library)/i) {
         $extrainfo = " (with Qt exception)$extrainfo"
     }
 
     if ($licensetext =~ /(All changes made in this file will be lost|DO NOT (EDIT|delete this file)|Generated (automatically|by|from)|generated.*file)/i) {
         $license = "GENERATED FILE";
     }
 
-    if ($licensetext =~ /is free software.? you can redistribute it and\/or modify it under the terms of the (GNU (Library|Lesser) General Public License|LGPL)/i) {
+    if ($licensetext =~ /is (free software.? you can redistribute it and\/or modify it|licensed) under the terms of (version [^ ]+ of )?the (GNU (Library |Lesser )General Public License|LGPL)/i) {
         $license = "LGPL$gplver$extrainfo $license";
     }
 
     if ($licensetext =~ /is free software.? you (can|may) redistribute it and\/or modify it under the terms of (?:version [^ ]+ (?:\(?only\)? )?of )?the GNU General Public License/i) {
         $license = "GPL$gplver$extrainfo $license";
     } elsif ($licensetext =~ /is distributed under the terms of the GNU General Public License,/
         and length $gplver) {
         $license = "GPL$gplver$extrainfo $license";
     } elsif ($licensetext =~ /is distributed.*terms.*GPL/) {
         $license = "GPL (unversioned/unknown version) $license";
@@ skipping 55 matching lines @@
     if ($licensetext =~ /This program is free software; you can redistribute it and\/or modify it under the same terms as Perl itself/) {
         $license = "Perl $license";
     }
 
     if ($licensetext =~ /under the terms of the Apache ([^ ]+) License OR version 2 of the GNU/) {
         $license = "Apache (v$1) GPL (v2) $license";
     } elsif ($licensetext =~ /under the Apache License, Version ([^ ]+)/) {
         $license = "Apache (v$1) $license";
     }
 
+    if ($licensetext =~ /(THE BEER-WARE LICENSE)/i) {
+        $license = "Beerware $license";
+    }
+
     if ($licensetext =~ /This source file is subject to version ([^ ]+) of the PHP license/) {
         $license = "PHP (v$1) $license";
     }
 
     if ($licensetext =~ /under the terms of the CeCILL /) {
         $license = "CeCILL $license";
     }
 
     if ($licensetext =~ /under the terms of the CeCILL-([^ ]+) /) {
         $license = "CeCILL-$1 $license";
     }
 
     if ($licensetext =~ /under the SGI Free Software (B License|License B)/) {
         $license = "SGI Free Software License B $license";
     }
 
     if ($licensetext =~ /in the public domain/i) {
-        $license = "Public domain";
+        $license = "Public domain $license";
     }
 
     if ($licensetext =~ /terms of the Common Development and Distribution License(, Version ([^(]+))? \(the License\)/) {
         $license = "CDDL " . ($1 ? "(v$2) " : '') . $license;
     }
 
     if ($licensetext =~ /Microsoft Permissive License \(Ms-PL\)/) {
         $license = "Ms-PL $license";
     }
 
@@ skipping 27 matching lines @@
     if ($licensetext =~ /As a special exception, you may create a larger work that contains part or all of the Bison parser skeleton and distribute that work under terms of your choice/) {
         $license = $license . "with Bison parser exception";
     }
 
     if ($licensetext =~ /As a special exception to the GNU General Public License, if you distribute this file as part of a program or library that is built using GNU Libtool, you may include this file under the same distribution terms that you use for the rest of that program/) {
         $license = $license . "with libtool exception";
     }
 
     $license = "UNKNOWN" if (!length($license));
 
+    # Remove trailing spaces.
+    $license =~ s/\s+$//;
+
     return $license;
 }
 
 sub fatal($) {
     my ($pack,$file,$line);
     ($pack,$file,$line) = caller();
     (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d;
     $msg =~ s/\n\n$/\n/;
     die $msg;
 }