Files
linux/scripts/amlogic/licence_pre.pl
Jianxin Pan e655ebfcdc meson64: first commit
PD#138714: initial commit for meson64 bringup
1. add meson64 defconfig
2. add uart driver
3. add iomap driver
4. add scripts
5. add p212 & q200 dts

Change-Id: Idbc0d4e33f024eaeb97fc9f7948188b9596aea4c
Signed-off-by: Jianxin Pan <jianxin.pan@amlogic.com>
2017-01-19 19:00:52 +08:00

58 lines
883 B
Perl
Executable File

#!/usr/bin/perl -W
my $FILE;
$flist = " ";
$driv = "drivers/amlogic/";
$incs = "include/linux/amlogic/";
$dts = "arch/arm64/boot/dts/amlogic/";
open($FILE, '<&STDIN');
while (<$FILE>) {
chomp;
my $line = $_;
my $new = "";
if($line =~/^A\s+(.+\.[cChH])/)
{
$new = $1;
}
elsif(/^A\s+(.+\.dts*)/i)
{
$new = $1;
}
if( -e $new)
{
if($new =~/$driv/ || $new =~/$incs/ || $new =~/$dts/)
{
$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/)
{
$out =1;
print $result_0;
print "\n Licence Check Error, please try to fix:\n $pl $flist\n\n"
}
else
{
print "\n Licence Check OK\n\n"
}
exit $out;