use File::Find;

use File::stat;

use File::Copy;

use Cwd;

require "glob_hash.pl";

sub wanted {

              chomp;

              shift;

              if ( m/(\w+)\.file\.list\.v$/ ) {

                 my $fileType = $1;

                 # escape not defined module

                 if ( $module_top_name{$fileType} eq "" ) {

                    return;

                 } elsif ( m/fft_mode2/ ) {

                    return;

                 } elsif ( m/fft_mode3/ ) {

                    return;

                 } elsif ( m/fft_mode4/ ) {

                    return;

                 }

                 {

                    open my $tmpin, "$1.file.list.v" or die "$!\n";

                    open my $tmpot, ">tmp" or die "$!\n";

                    my @contents = <$tmpin>;

                    foreach ( @contents) {

                       chomp;

                       if ( m/\bTestBench\b/ ) {

                          next;

                       }

                       print $tmpot "$_\n";

                    }

                    close( $tmpin);

                    close( $tmpot);

                 }

                 open my $OT, ">nlint.pl" or die"$!";

                 print $OT   <<BLOCK;

#!/usr/bin/perl

#system "nlint -f $1.file.list.v -out $1.nlint -sort s -beauty -r 16651 -r 16905";

#system "nlint -f tmp -out $1.nlint -verilog -sort s -beauty -r 16651 -r 16905";

system "nlint -f tmp -out $1.nlint -verilog -sort s -beauty ";

BLOCK

                 close ( $OT );

                 chdir ( $File::Find::dir );

                 system "nlint.pl";

                 File::Copy::move("$1.nlint" , "../../nlint");

                 printf "%-30s nlint finished\n", $module_top_name{$fileType};                

              } 

} 

my $dir = Cwd::getcwd(); 

if ( !-d nlint ) {

              mkdir nlint;

} 

File::Find::find(\&wanted, "$dir"); 

close($read_file_list_hdl);