|
@@ -2257,6 +2257,8 @@ sub process {
|
|
|
|
|
|
my $camelcase_file_seeded = 0;
|
|
|
|
|
|
+ my $checklicenseline = 1;
|
|
|
+
|
|
|
sanitise_line_reset();
|
|
|
my $line;
|
|
|
foreach my $rawline (@rawlines) {
|
|
@@ -2448,6 +2450,7 @@ sub process {
|
|
|
} else {
|
|
|
$check = $check_orig;
|
|
|
}
|
|
|
+ $checklicenseline = 1;
|
|
|
next;
|
|
|
}
|
|
|
|
|
@@ -2911,6 +2914,30 @@ sub process {
|
|
|
}
|
|
|
}
|
|
|
|
|
|
+# check for using SPDX license tag at beginning of files
|
|
|
+ if ($realline == $checklicenseline) {
|
|
|
+ if ($rawline =~ /^[ \+]\s*\#\!\s*\//) {
|
|
|
+ $checklicenseline = 2;
|
|
|
+ } elsif ($rawline =~ /^\+/) {
|
|
|
+ my $comment = "";
|
|
|
+ if ($realfile =~ /\.(h|s|S)$/) {
|
|
|
+ $comment = '/*';
|
|
|
+ } elsif ($realfile =~ /\.(c|dts|dtsi)$/) {
|
|
|
+ $comment = '//';
|
|
|
+ } elsif (($checklicenseline == 2) || $realfile =~ /\.(sh|pl|py|awk|tc)$/) {
|
|
|
+ $comment = '#';
|
|
|
+ } elsif ($realfile =~ /\.rst$/) {
|
|
|
+ $comment = '..';
|
|
|
+ }
|
|
|
+
|
|
|
+ if ($comment !~ /^$/ &&
|
|
|
+ $rawline !~ /^\+\Q$comment\E SPDX-License-Identifier: /) {
|
|
|
+ WARN("SPDX_LICENSE_TAG",
|
|
|
+ "Missing or malformed SPDX-License-Identifier tag in line $checklicenseline\n" . $herecurr);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
# check we are in a valid source file if not then ignore this hunk
|
|
|
next if ($realfile !~ /\.(h|c|s|S|sh|dtsi|dts)$/);
|
|
|
|