1#!/usr/bin/env perl
2if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
3# DESCRIPTION: Verilator: Verilog Test driver/expect definition
4#
5# Copyright 2003-2009 by Wilson Snyder. This program is free software; you
6# can redistribute it and/or modify it under the terms of either the GNU
7# Lesser General Public License Version 3 or the Perl Artistic License
8# Version 2.0.
9# SPDX-License-Identifier: LGPL-3.0-only OR Artistic-2.0
10
11scenarios(vlt => 1);
12
13my $stdout_filename = "$Self->{obj_dir}/$Self->{name}__test.vpp";
14
15compile(
16    verilator_flags2 => ['-DDEF_A0 -DPREDEF_COMMAND_LINE -E'],
17    verilator_make_gmake => 0,
18    make_top_shell => 0,
19    make_main => 0,
20    stdout_filename => $stdout_filename,
21    );
22
23preproc_check($Self->{top_filename}, $stdout_filename);
24files_identical($stdout_filename, $Self->{golden_filename});
25ok(1);
26
27sub preproc_check {
28    my $filename1 = shift;
29    my $filename2 = shift;
30
31    my @Line_Checks;
32    {   # Read line comments.
33        my $fh = IO::File->new($filename1) or die "%Error: $! $filename1\n";
34        while (defined(my $line = $fh->getline)) {
35            if ($line =~ /^Line_Preproc_Check/) {
36                push @Line_Checks, $.;
37            }
38        }
39        $fh->close;
40    }
41    {   # See if output file agrees.
42        my $fh = IO::File->new($filename2) or die "%Error: $! $filename2\n";
43        my $lineno = 0;
44        while (defined(my $line = $fh->getline)) {
45            $lineno++;
46            if ($line =~ /^\`line\s+(\d+)/) {
47                $lineno = $1 - 1;
48            }
49            if ($line =~ /^Line_Preproc_Check\s+(\d+)/) {
50                my $linecmt = $1;
51                my $check = shift @Line_Checks;
52                if (!$check) { error("$filename2:$.: Extra Line_Preproc_Check\n"); }
53                if ($linecmt != $check) { error("$filename2:$.: __LINE__ inserted $linecmt, exp=$check\n"); }
54                if ($lineno != $check) { error("$filename2:$.: __LINE__ on `line $lineno, exp=$check\n"); }
55            }
56        }
57        $fh->close;
58    }
59    if ($Line_Checks[0]) { error("$filename2: Missing a Line_Preproc_Check\n"); }
60}
61
621;
63