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

#!/usr/bin/perl -w

use Cwd qw(getcwd);

use IPC::Run qw( run start pump finish timeout );

my @HWs = (

"; Logic utilization                                                                 ;",

";     Combinational ALUTs           ;",

";     Memory ALUTs                  ;",

";     Dedicated logic registers     ;",

"; Total block memory bits           ;",

"; ALMs:  partially or completely used                                               ;",

"; M9K blocks                                                                        ;"

);

my $csv="";

my %freq;

my %results;

sub extract_results {

        my ($dir,$parent) =@_;

        my @cat = qw( bash  );

        chdir "$dir";

        print getcwd()."\n";

        my ($in, $out, $err);

        #Fmax

        $in ='grep -R "; clk        ;      ;$" | sort';

    run \@cat, \$in, \$out, \$err, timeout( 10 ) or die "grep: $?";

        my @lines = split("\n",$out);

        foreach my $l (@lines)  {

                my @f=split ('/',$l);

                my $name= "${parent}_$f[0]";

                @f=split (':',$l);

                @f=split (';',$f[1]);

                $f[1] =~ s/MHz//;

                if(!defined $freq{$name}){

                        $freq{$name}=$f[1];

                }else{#get the minum reported max frequency

                        $freq{$name}=$f[1] if($f[1]< $freq{$name});

                }

        }

        foreach my $hw (@HWs){

                my @cat = qw( bash  );

                my $in ="grep -R \"$hw\" | sort";

                $hw =~ s/[\;]//g;

                #$csv.="-,$hw\n";

                $out=undef;

                run \@cat, \$in, \$out, \$err, timeout( 10 ) or die "grep: $?";

                @lines = split("\n",$out);

                foreach my $l (@lines)  {

                        unless ( index($l,".fit.rpt") >= 0){ next;}

                        my @f=split ('/',$l);

                        my $name= "${parent}_$f[0]";

                        my @ff = split (/\; /,$l);

                        my $val=$ff[2];

                        $val =~ s/,//g;

                        my @vv = split ("/",$val);

                        my $t =join(',',@vv);

                        #$csv.= "$name, $t  \n" if (defined $val) ;

                        $results{$hw}{$name}=$t if (defined $val) ;

                }

        }

}

print "extract_results($ARGV[0],$ARGV[1]);\n";

extract_results($ARGV[0],$ARGV[1]);

$csv.=" , Fr_max\n";

foreach my $p (sort keys  %freq){

                $csv.= "$p, $freq{$p},  Fmax = $freq{$p} Mhz\n";

}

foreach my $p (sort keys  %results){

        my $ref = $results{$p};

        my %r = %{$results{$p}} if (defined $ref) ;

        $csv.= "\n\n\n\n" ;

        $csv.="-,$p\n";

        foreach my $p (sort keys  %r){

                $csv.= "$p, $r{$p}  \n";

        }

}

print "***************** results *****************\n";

        print $csv;