Add JSON.pm to third_party

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
@@ skipping 118 matching lines @@
 =head1 AUTHOR
 
 Adam D. Barratt <adam@adam-barratt.org.uk>
 
 =cut
 
 use strict;
 use warnings;
 use Getopt::Long qw(:config gnu_getopt);
 use File::Basename;
+use Tie::File;
+use Fcntl 'O_RDONLY';
 
 sub fatal($);
 sub parse_copyright($);
 sub parselicense($);
+sub remove_comments($);
 
 my $progname = basename($0);
 
 # From dpkg-source
 my $default_ignore_regex = '
 # Ignore general backup files
 (?:^|/).*~$|
 # Ignore emacs recovery files
 (?:^|/)\.#.*$|
 # Ignore vi swap files
@@ skipping 124 matching lines @@
         }
         close FIND;
     } else {
         next unless ($files_count == 1) or $file =~ m%$opt_check_regex%;
         push @files, $file unless $file =~ m%$opt_ignore_regex%;
     }
 }
 
 while (@files) {
     my $file = shift @files;
-    my $content = '';
+    my $header = '';

[Paweł Hajdan Jr., 2013/06/06 18:16:03]

Please remove these modifications from this CL.

[Nils Barth (inactive), 2013/06/07 09:10:13]

Got it, handled in:
Issue 16426003: Add footer license check to licensecheck.pl and Perl to
checklicenses.py
https://codereview.chromium.org/16426003/

(B/c of adding 'UNKNOWN' below, ok for this CL to land before the
licensecheck.pl one)

     my $copyright_match;
     my $copyright = '';
     my $license = '';
     my %copyrights;
 
     open (F, "<$file") or die "Unable to access $file\n";
     while (<F>) {
         last if ($. > $opt_lines);
-        $content .= $_;
+        $header .= $_;
     }
     close(F);
 
     $copyright = join(" / ", values %copyrights);
 
-    print qq(----- $file header -----\n$content----- end header -----\n\n)
+    print qq(----- $file header -----\n$header----- 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 =~ tr/ //s;
+    remove_comments($header);
+    $license = parselicense($header);
 
-    $license = parselicense($content);
+    # If no license in header, check footer (slow, because read file backwards)
+    # Need for instance for Perl files, which often use the footer
+    if ($license eq "UNKNOWN") {
+        my $footer = '';
+        tie(my @file_lines, "Tie::File", $file, autochomp => 0, mode => O_RDONLY) or die("Unable to access $file\n");
+        # Avoid indexing error if header is entire file
+        if ($#file_lines >= $opt_lines) {
+            foreach (@file_lines[-$opt_lines .. -1]) {
+                $footer .= $_;
+            }
+        }
+        print qq(----- $file footer -----\n$header----- end footer -----\n\n)
+            if $opt_verbose;
+        remove_comments($footer);
+        $license = parselicense($footer);
+    }
+
     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 remove_comments($) {
+    $_ = $_[0];
+    # Remove Fortran comments
+    s/^[cC] //gm;
+    tr/\t\r\n/ /;
+    # Remove C / C++ comments
+    s#(\*/|/[/*])##g;
+    tr% A-Za-z.,@;0-9\(\)/-%%cd;
+    tr/ //s;
+    $_[0] = $_;
+}
+
 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
         |\xc2\xa9       # Unicode copyright sign encoded in iso8859
         |\(c\)          # Legally-null representation of sign
@@ skipping 153 matching lines @@
     }
 
     if ($licensetext =~ /Released under the terms of the Artistic License ([^ ]+)/) {
         $license = "Artistic (v$1) $license";
     }
 
     if ($licensetext =~ /is free software under the Artistic [Ll]icense/) {
         $license = "Artistic $license";
     }
 
-    if ($licensetext =~ /This program is free software; you can redistribute it and\/or modify it under the same terms as Perl itself/) {
+    if ($licensetext =~ /This (program|library) 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) {
@@ skipping 79 matching lines @@
     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;
 }