mirror of
https://github.com/verilator/verilator.git
synced 2025-01-07 15:17:36 +00:00
117 lines
3.9 KiB
Perl
Executable File
117 lines
3.9 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
|
|
# DESCRIPTION: Verilator: Verilog Test driver/expect definition
|
|
#
|
|
# Copyright 2003 by Wilson Snyder. This program is free software; you
|
|
# can redistribute it and/or modify it under the terms of either the GNU
|
|
# Lesser General Public License Version 3 or the Perl Artistic License
|
|
# Version 2.0.
|
|
# SPDX-License-Identifier: LGPL-3.0-only OR Artistic-2.0
|
|
|
|
use IO::File;
|
|
use POSIX qw(strftime);
|
|
use strict;
|
|
|
|
scenarios(dist => 1);
|
|
|
|
our $Release_Ok_Re = qr!(^test_regress/t/|^examples/)!;
|
|
our $Exempt_Author_Re = qr!(^ci/|^nodist/fastcov.py|^nodist/fuzzer|^test_regress/t/.*\.(v|cpp|h)$)!;
|
|
our $Exempt_Files_Re = qr!(^\.|/\.|\.gitignore$|\.dat|\.gprof|\.mem|\.out$|\.png$|\.tree|\.vc$|\.vcd$|^\.)!;
|
|
our @Exempt_Files_List = qw(
|
|
Artistic
|
|
CPPLINT.cfg
|
|
LICENSE
|
|
README.rst
|
|
ci/ci-win-compile.ps1
|
|
ci/ci-win-test.ps1
|
|
ci/coverage-upload.sh
|
|
docs/CONTRIBUTING.rst
|
|
docs/CONTRIBUTORS
|
|
docs/_static
|
|
docs/gen
|
|
docs/spelling.txt
|
|
docs/verilated.dox
|
|
include/gtkwave
|
|
include/vltstd
|
|
install-sh
|
|
src/mkinstalldirs
|
|
test_regress/t/t_altera_lpm.v
|
|
test_regress/t/t_flag_f__3.v
|
|
test_regress/t/t_fuzz_eof_bad.v
|
|
test_regress/t/t_incr_void.v
|
|
test_regress/t/t_timing_trace_fst.pl
|
|
test_regress/t/t_wrapper_context.pl
|
|
test_regress/t/t_wrapper_context_fst.pl
|
|
test_regress/t/t_wrapper_context_seq.pl
|
|
test_regress/t/t_wrapper_del_context_bad.pl
|
|
test_regress/t/tsub/t_flag_f_tsub.v
|
|
test_regress/t/tsub/t_flag_f_tsub_inc.v
|
|
verilator.pc.in
|
|
);
|
|
|
|
my $root = "..";
|
|
my $Debug;
|
|
|
|
my $Exempt_Files_List_Re = '^(' . join('|', (map { quotemeta $_ } @Exempt_Files_List)) . ")";
|
|
|
|
if (!-r "$root/.git") {
|
|
skip("Not in a git repository");
|
|
} else {
|
|
my $out = `cd $root && git ls-files --exclude-standard`;
|
|
my $year = strftime("%Y", localtime);
|
|
my %files;
|
|
$out =~ s/\s+/ /g;
|
|
foreach my $filename (split /\s+/, $out) {
|
|
next if $filename =~ /$Exempt_Files_Re/;
|
|
next if $filename =~ /$Exempt_Files_List_Re/;
|
|
$files{$filename} = 1;
|
|
}
|
|
|
|
my %added;
|
|
$out = `cd $root && git diff --name-status HEAD^^^^^`;
|
|
foreach my $line (split /\n/, $out) {
|
|
next if $line !~ /^A\s+(.*)/;
|
|
$added{$1} = 1;
|
|
}
|
|
|
|
foreach my $filename (sort keys %files) {
|
|
my $fh = IO::File->new("<$root/$filename") or error("$! $filename");
|
|
next if !$fh;
|
|
my $spdx;
|
|
my $copyright;
|
|
my $release;
|
|
while (my $line = $fh->getline) {
|
|
if ($line =~ /SPDX-License-Identifier:/) {
|
|
$spdx = $line;
|
|
} elsif ($line =~ /Copyright 20[0-9][0-9]/) {
|
|
$copyright = $line;
|
|
if ($line =~ /Wilson Snyder/) {
|
|
} elsif (!$added{$filename} && $line =~ /Antmicro|Geza Lore|Todd Strader/) {
|
|
} elsif ($filename =~ /$Exempt_Author_Re/) {
|
|
} else {
|
|
my $yeardash = ($filename =~ m!test_regress/t!) ? $year : $year."-".$year;
|
|
warn " ".$copyright;
|
|
error("$filename: Please use standard 'Copyright $yeardash by Wilson Snyder'");
|
|
}
|
|
} elsif ($line =~ m!Creative Commons Public Domain!
|
|
|| $line =~ m!freely copied and/or distributed!
|
|
|| $line =~ m!placed into the Public Domain!) {
|
|
$release = 1;
|
|
}
|
|
}
|
|
my $release_note;
|
|
if ($release && $filename !~ /$Release_Ok_Re/) {
|
|
$release_note = " (has copyright release, but not part of $Release_Ok_Re)";
|
|
}
|
|
if (!$copyright && (!$release || $release_note)) {
|
|
error("$filename: Please add standard 'Copyright $year ...', similar to in other files" . $release_note);
|
|
}
|
|
if (!$spdx) {
|
|
error("$filename: Please add standard 'SPDX-License_Identifier: ...', similar to in other files");
|
|
}
|
|
}
|
|
}
|
|
|
|
ok(1);
|
|
1;
|