Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

#!/usr/bin/perl -w

package ProNOC;

use File::Copy::Recursive qw(dircopy);

use File::Basename;

use File::Copy;

use Data::Dumper;

use File::Find::Rule;

#add home dir in perl 5.6

use FindBin;

use lib $FindBin::Bin;

use constant::boolean;

use strict;

use warnings;

use base 'Class::Accessor::Fast';

__PACKAGE__->mk_accessors(qw{

        models

});

my $app = __PACKAGE__->new();

my $dirname = dirname(__FILE__);

require "$dirname/src/src.pl";

my $paralel_run= 4;

#defne minimum , maximum and increasing step of injection ratio

my ($MIN,$MAX,$STEP)= (5,80,25);

if(defined $ARGV[0]){

 $paralel_run= $ARGV[0] if(is_integer($ARGV[0]));

}

if(defined $ARGV[1]){

 $MIN= $ARGV[1] if(is_integer($ARGV[1]));

}

if(defined $ARGV[2]){

 $MAX= $ARGV[2] if(is_integer($ARGV[2]));

}

if(defined $ARGV[3]){

 $STEP= $ARGV[3] if(is_integer($ARGV[3]));

}

my @inputs =($paralel_run,$MIN,$MAX,$STEP);

print "Maximum number of parallel simulation is $paralel_run.\n The injection ratio is set as MIN=$MIN,MAX=$MAX,STEP=$STEP.\n";

my @log_report_match =("Error","Warning" );

save_file ("$dirname/report","Verification Results:\n");

copy_src_files();

gen_models();

compile_models($app,\@inputs);

check_compilation($app,\@log_report_match,\@inputs);

run_all_models($app,\@inputs);

print "done!\n"