67 lines
1.1 KiB
Perl
Executable File
67 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl -W
|
|
# SPDX-License-Identifier: (GPL-2.0+ OR MIT)
|
|
#
|
|
# Copyright (c) 2019 Amlogic, Inc. All rights reserved.
|
|
#
|
|
my $FILE;
|
|
$flist = " ";
|
|
open($FILE, '<&STDIN');
|
|
while (<$FILE>) {
|
|
chomp;
|
|
my $line = $_;
|
|
my $new = "";
|
|
if($line =~/^[AM]\s+(.+\.[cChH])/)
|
|
{
|
|
$new = $1;
|
|
}
|
|
elsif(/^[AM]\s+(.+\.(?:dts|dtsi))\b/i)
|
|
{
|
|
$new = $1;
|
|
}
|
|
if( -e $new)
|
|
{
|
|
$flist = $flist.$new." ";
|
|
}
|
|
|
|
}
|
|
close $FILE;
|
|
|
|
if($flist =~/^\s*$/)
|
|
{
|
|
#print "\n LicenceCheck exit:No *.[CcHh] added.\n\n";
|
|
exit 0;
|
|
}
|
|
else
|
|
{
|
|
print "\n Check :$flist\n";
|
|
}
|
|
|
|
$match = "Licence_WARN: <";
|
|
$pl = "./scripts/amlogic/licence_check.pl";
|
|
$out = 0;
|
|
$result_0 = `$pl --nofix $flist`;
|
|
if($result_0 =~/$match/)
|
|
{
|
|
$flist="";
|
|
$out =1;
|
|
print $result_0;
|
|
|
|
my @license_files;
|
|
while ($result_0 =~ /Licence_WARN:\s*<([^>]+)>/g) {
|
|
push @license_files, $1;
|
|
}
|
|
|
|
foreach my $file (@license_files) {
|
|
#print "- $file\n";
|
|
$flist.=" $file";
|
|
}
|
|
|
|
print "\n Licence Check Warning, For amlogic drivers only, it is recommended to ignore third-party code\n";
|
|
print "\n please try to fix:\n $pl $flist\n\n"
|
|
}
|
|
else
|
|
{
|
|
print "\n Licence Check OK\n\n"
|
|
}
|
|
exit $out;
|