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

#! /usr/bin/perl -w

use Glib qw/TRUE FALSE/;

use strict;

use warnings;

use FindBin;

use lib $FindBin::Bin;

use Gtk2;

use Gtk2::Ex::Graph::GD;

use GD::Graph::Data;

use emulator;

use IO::CaptureOutput qw(capture qxx qxy);

use GD::Graph::colour qw/:colours/;

use Proc::Background;

use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep  clock_gettime clock_getres clock_nanosleep clock stat );

use File::Basename;

use File::Path qw/make_path/;

use File::Copy;

use File::Find::Rule;

require "widget.pl";

require "mpsoc_gen.pl";

require "emulator.pl";

require "mpsoc_verilog_gen.pl";

require "readme_gen.pl";

require "graph.pl";

use List::MoreUtils qw(uniq);

sub generate_sim_bin_file {

        my ($simulate,$info_text) =@_;

        $simulate->object_add_attribute('status',undef,'run');

        set_gui_status($simulate,"ref",1);

        my ($nr,$ne,$router_p,$ref_tops,$includ_h)= get_noc_verilator_top_modules_info($simulate);

        my %tops = %{$ref_tops};

        $tops{Vtraffic} = "traffic_gen_verilator.v";

        my $target_dir= "$ENV{PRONOC_WORK}/simulate";

        my $dir = Cwd::getcwd();

        my $project_dir   = abs_path("$dir/..");

        my $src_verilator_dir="$project_dir/src_verilator";

        my $src_noc_dir="$project_dir/src_noc";

        my $script_dir="$project_dir/script";

        my $testbench_file= "$src_verilator_dir/simulator.cpp";

        my $target_verilog_dr ="$target_dir/src_verilog";

        my $obj_dir ="$target_dir/verilator/processed_rtl/obj_dir/";

        rmtree("$target_dir/verilator");

        rmtree("$target_verilog_dr");

        mkpath("$target_verilog_dr/",1,01777);

        #copy src_verilator files

        my @files_list = File::Find::Rule->file()

                            ->name( '*.v','*.V','*.sv' )

                            ->in( "$src_verilator_dir" );

        #make sure source files have key word 'module' 

        my @files;

        foreach my $p (@files_list){

                push (@files,$p)        if(check_file_has_string($p,'module'));

        }

        push (@files,$src_noc_dir);

        #my @files=(

        #       $src_noc_dir,

        #       "$src_verilator_dir/noc_connection.sv",

        #       "$src_verilator_dir/mesh_torus_noc_connection.sv",                      

        #       "$src_verilator_dir/router_verilator.v",

        #       "$src_verilator_dir/traffic_gen_verilator.v"            

        #);

        copy_file_and_folders (\@files,$project_dir,$target_verilog_dr);

        # generate NoC parameter file

        my ($noc_param,$pass_param)=gen_noc_param_v($simulate);

        open(FILE,  ">$target_verilog_dr/parameter.v") || die "Can not open: $!";

        my $fifow=$simulate->object_get_attribute('fpga_param','TIMSTMP_FIFO_NUM');

        gen_vrouter_param_v($simulate,$target_verilog_dr);

        #generate routers with different port num               

        my $result = verilator_compilation (\%tops,$target_dir,$$info_text);

        if ($result){

                add_colored_info($info_text,"Veriator model has been generated successfully!\n",'blue');

        }else {

                add_colored_info($info_text,"Verilator compilation failed!\n","red");

                $simulate->object_add_attribute('status',undef,'programer_failed');

                set_gui_status($simulate,"ref",1);

                print "gen-ended!\n";

                return;

        }

        #copy simulation c header files

        @files = File::Find::Rule->file()

                            ->name( '*.h')

                            ->in( "$src_verilator_dir" );

        copy_file_and_folders (\@files,$project_dir,$obj_dir);

        copy($testbench_file,"$obj_dir/testbench.cpp");

        #compile the testbench

        my $param_h=gen_noc_param_h($simulate);

        my $text = gen_sim_parameter_h($param_h,$includ_h,$ne,$nr,$router_p,$fifow);

        $param_h =~ s/\d\'b/ /g;

        open(FILE,  ">$obj_dir/parameter.h") || die "Can not open: $!";

        print FILE  "$text";

        close FILE;

        $result = run_make_file("$obj_dir/",$$info_text,'lib');

        if ($result ==0){

                $simulate->object_add_attribute('status',undef,'programer_failed');

                set_gui_status($simulate,"ref",1);

                print "gen-ended!\n";

                return;

        }

        run_make_file("$obj_dir/",$$info_text);

        if ($result ==0){

                $simulate->object_add_attribute('status',undef,'programer_failed');

                set_gui_status($simulate,"ref",1);

                print "gen-ended!\n";

                return;

        }

        #my $end = localtime;           

        #save the binarry file

        my $bin= "$obj_dir/testbench";

        my $path=$simulate->object_get_attribute ('sim_param',"BIN_DIR");

        my $name=$simulate->object_get_attribute ('sim_param',"SAVE_NAME");

        #create project directory if it does not exist

        my      ($stdout,$exit)=run_cmd_in_back_ground_get_stdout("mkdir -p $path" );

        if($exit != 0 ){         print "$stdout\n";  print "gen-ended!\n";       message_dialog($stdout,'error'); return;}

        #check if the verilation was successful

        if ((-e $bin)==0) {#something goes wrong                 

        #message_dialog("Verilator compilation was unsuccessful please check the $path/$name.log files for more information",'error'); 

        add_colored_info($info_text,"Verilator compilation failed!\n","red");

        $simulate->object_add_attribute('status',undef,'programer_failed');

                set_gui_status($simulate,"ref",1);

                print "gen-ended!\n";

                return;

        }

        #copy ($bin,"$path/$name") or  die "Can not copy: $!";

        ($stdout,$exit)=run_cmd_in_back_ground_get_stdout("cp -f $bin $path/$name");

        if($exit != 0 ){         print "$stdout\n";  print "gen-ended!\n";       message_dialog($stdout,'error'); return;}

        #save noc info

        open(FILE,  ">$path/$name.inf") || die "Can not open: $!";

        print FILE perl_file_header("$name.inf");

        my %pp;

        $pp{'noc_param'}= $simulate->{'noc_param'};

        $pp{'sim_param'}= $simulate->{'sim_param'};

        print FILE Data::Dumper->Dump([\%pp],["emulate_info"]);

        close(FILE) || die "Error closing file: $!";

        print "gen-ended successfully!\n";

        message_dialog("The simulation binary file has been successfully generated in $path!");

        $simulate->object_add_attribute('status',undef,'ideal');

        set_gui_status($simulate,"ref",1);

        #make project dir

        #my $dir= $simulate->object_get_attribute ("sim_param","BIN_DIR");

        #my $name=$simulate->object_get_attribute ("sim_param","SAVE_NAME");    

        #my $path= "$dir/$name";

        #add_info($info_text, "$src_verilator_dir!\n");

        #mkpath("$path",1,01777);

}

##########

#       save_simulation

##########

sub save_simulation {

        my ($simulate)=@_;

        # read emulation name

        my $name=$simulate->object_get_attribute ("simulate_name",undef);

        my $s= (!defined $name)? 0 : (length($name)==0)? 0 :1;

        if ($s == 0){

                message_dialog("Please set Simulation name!");

                return 0;

        }

        # Write object file

        open(FILE,  ">lib/simulate/$name.SIM") || die "Can not open: $!";

        print FILE perl_file_header("$name.SIM");

        print FILE Data::Dumper->Dump([\%$simulate],["simulate"]);

        close(FILE) || die "Error closing file: $!";

        message_dialog("Simulation has saved as lib/simulate/$name.SIM!");

        return 1;

}

#############

#       load_simulation

############

sub load_simulation {

        my ($simulate,$info)=@_;

        my $file;

        my $dialog = Gtk2::FileChooserDialog->new(

                'Select a File', undef,

                'open',

                'gtk-cancel' => 'cancel',

                'gtk-ok'     => 'ok',

                );

        my $filter = Gtk2::FileFilter->new();

        $filter->set_name("SIM");

        $filter->add_pattern("*.SIM");

        $dialog->add_filter ($filter);

        my $dir = Cwd::getcwd();

        $dialog->set_current_folder ("$dir/lib/simulate");

        if ( "ok" eq $dialog->run ) {

                $file = $dialog->get_filename;

                my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");

                if($suffix eq '.SIM'){

                        my ($pp,$r,$err) = regen_object($file);

                        if ($r){

                                add_info($info,"**Error reading  $file file: $err\n");

                                 $dialog->destroy;

                                return;

                        }

                        #deactivate running simulations

                        $pp->object_add_attribute('status',undef,'ideal');

                        my @samples =$pp->object_get_attribute_order("samples");

                        foreach my $sample (@samples){

                                my $st=$pp->object_get_attribute ($sample,"status");

                                $pp->object_add_attribute ($sample,"status",'done');# if ($st eq "run");        

                        }

                        clone_obj($simulate,$pp);

                        #message_dialog("done!");                               

                }

     }

     $dialog->destroy;

}

sub gen_custom_traffic {

        my ($self,$info,$mode)=@_;

        my $table=def_table(20,10,FALSE);

        my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);

        $scrolled_win->set_policy( "automatic", "automatic" );

        $scrolled_win->add_with_viewport($table);

        my $row=0;

        #page title     

        my $title_l =  "Custom Traffic  Generator";

        my $title=gen_label_in_center($title_l);

        $table->attach ($title , 0, 10,  $row, $row+1,'expand','shrink',2,2); $row++;

        my $separator = Gtk2::HSeparator->new;

        $table->attach ($separator , 0, 10 , $row, $row+1,'fill','fill',2,2);    $row++;

        #fileds title

        my @positions=(0,1,2,3,4,5,6);

        my $col=0;

        my @title=("Traffic name", " Add/Remove "," Edit ");

        foreach my $t (@title){

                $table->attach (gen_label_in_center($title[$col]), $positions[$col], $positions[$col+1], $row, $row+1,'expand','shrink',2,2);$col++;

        }

         $row++;

        #create new traffic

        my $add=def_image_button("icons/plus.png", );

        $table->attach ($add, $positions[1], $positions[2], $row, $row+1,'expand','shrink',2,2);

        $add->signal_connect("clicked"=> sub{

                generate_new_traffic ($self);

        });

        return $scrolled_win;

}

sub generate_new_traffic {

        my $self=shift;

        my $window = def_popwin_size(40,40,"Step 2: Compile",'percent');

        my $table = def_table(10, 10, FALSE);

        my @info = (

        { label=>'Traffic_name', param_name=>'CUSTOM_NAME', type=>"Entry", default_val=>undef, content=>undef, info=>undef, param_parent=>'traffic_param', ref_delay=> undef},

        { label=>'Routers per Row', param_name=>'CUSTOM_X', type=>"Spin-button", default_val=>2, content=>"2,64,1", info=>undef, param_parent=>'traffic_param', ref_delay=>undef},

        { label=>"Routers per Column", param_name=>"CUSTOM_Y", type=>"Spin-button", default_val=>2, content=>"1,64,1", info=>undef, param_parent=>'traffic_param',ref_delay=>undef },

        );

        my $row=0;

        my $col=0;

        foreach my $d (@info) {

                ($row,$col)=add_param_widget ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay},undef,"vertical");

        }

        $row++;

        my $next=def_image_button('icons/run.png','Next');

        my $back=def_image_button('icons/left.png','Previous');

        $col=1;

        my $i;

        for ($i=$row; $i<5; $i++){

                my $temp=gen_label_in_center(" ");

                $table->attach_defaults ($temp, 3, 4 , $i, $i+1);

        }

        $row=$i;

        #$table->attach($back,2,3,9,10,'shrink','shrink',2,2);

        $table->attach($next,3,4,$row,$row+1,'shrink','shrink',2,2);

        $back-> signal_connect("clicked" => sub{

                $window->destroy;

        });

        $next-> signal_connect("clicked" => sub{

                $window->destroy;

        });

        $window->add ($table);

        $window->show_all();

}

sub check_hotspot_parameters{

        my ($self,$sample)=@_;

        my $num=$self->object_get_attribute($sample,"HOTSPOT_NUM");

        my $result;

        if (defined $num){

                my @hotspots;

                my $acuum=0;

                for (my $i=0;$i<$num;$i++){

                        my $w1 = $self->object_get_attribute($sample,"HOTSPOT_CORE_$i");

                        if( grep (/^\Q$w1\E$/,@hotspots)){

                                $result="Error: Tile $w1 has been selected for Two or more than two hotspot nodes.\n";

                        }

                        push( @hotspots,$w1);

                        my $w2 = $self->object_get_attribute($sample,"HOTSPOT_PERCENT_$i");

                        $acuum+=$w2;

                }

                if ($acuum > 100){

                        $result="Error: The traffic sumation of all hotspot nodes is $acuum. The hotspot sumation must be <=100";

                }

        }

        return $result;

}

sub get_simulator_noc_configuration{

        my ($self,$mode,$sample,$set_win) =@_;

        my $table=def_table(10,2,FALSE);

        my $row=0;

        my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);

        $scrolled_win->set_policy( "automatic", "automatic" );

        $scrolled_win->add_with_viewport($table);

        my $ok = def_image_button('icons/select.png','OK');

        my $mtable = def_table(10, 1, TRUE);

        $mtable->attach_defaults($scrolled_win,0,1,0,9);

        $mtable-> attach ($ok , 0, 1,  9, 10,'expand','shrink',2,2);

        $set_win ->signal_connect (destroy => sub{

                $self->object_add_attribute("active_setting",undef,undef);

        });

        my $dir = Cwd::getcwd();

        my $open_in       = abs_path("$ENV{PRONOC_WORK}/simulate");

        attach_widget_to_table ($table,$row,gen_label_in_left(" Search Path:"),gen_button_message ("Select the the Path where the verilator simulation files are located. Different NoC verilated models can be generated using Generate NoC configuration tab.","icons/help.png"),

        get_dir_in_object ($self,$sample,"sof_path",undef,'ref_set_win',1,$open_in)); $row++;

        $open_in        = $self->object_get_attribute($sample,"sof_path");

        my @files = glob "$open_in/*";

        my $exe_files="";

        foreach my $file (@files){

                #print "$file is executable\n" if( -x $file && -f $file) ;

                if( -x $file && -f $file){

                        my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");

                        $exe_files="$exe_files,$name"

                }

        }

        attach_widget_to_table ($table,$row,gen_label_in_left(" Verilated Model:"),gen_button_message ("Select the verilator simulation file. Different NoC simulators can be generated using Generate NoC configuration tab.","icons/help.png"),

        gen_combobox_object ($self,$sample, "sof_file", $exe_files, undef, undef, undef)); $row++;

    my $coltmp=0;

    ($row,$coltmp)=add_param_widget  ($self, "Traffic Type", "TRAFFIC_TYPE", "Synthetic", 'Combo-box', "Synthetic,Task-graph", undef, $table,$row,undef,1, $sample, 1,'ref_set_win');

    my $traffictype=$self->object_get_attribute($sample,"TRAFFIC_TYPE");

    my $MIN_PCK_SIZE=$self->object_get_attribute($sample,"MIN_PCK_SIZE");

   my $max_pck_num = get_MAX_PCK_NUM();

   my $max_sim_clk = get_MAX_SIM_CLKs();

        if($traffictype eq "Synthetic"){

                my $min=$self->object_get_attribute($sample,'MIN_PCK_SIZE');

                my $max=$self->object_get_attribute($sample,'MAX_PCK_SIZE');

                $min=$max=5 if(!defined $min);

                my $avg=floor(($min+$max)/2);

                my $max_pck_size =       get_MAX_PCK_SIZ();

                        my $traffics="tornado,transposed 1,transposed 2,bit reverse,bit complement,random,hot spot,shuffle,bit rotation,neighbor";

                my @synthinfo = (

                { label=>'Configuration name:', param_name=>'line_name', type=>'Entry', default_val=>$sample, content=>undef, info=>"NoC configration name. This name will be shown in load-latency graph for this configuration", param_parent=>$sample, ref_delay=> undef, new_status=>undef},

                { label=>"Traffic name", param_name=>'traffic', type=>'Combo-box', default_val=>'random', content=>$traffics, info=>"Select traffic pattern", param_parent=>$sample, ref_delay=>1, new_status=>'ref_set_win'},

                { label=>"Min pck size :", param_name=>'MIN_PCK_SIZE', type=>'Spin-button', default_val=>5, content=>"1,$max,1", info=>"Minimum packet size in flit. The injected packet size is randomly selected between minimum and maximum packet size", param_parent=>$sample, ref_delay=>10, new_status=>'ref_set_win'},

                { label=>"Max pck size :", param_name=>'MAX_PCK_SIZE', type=>'Spin-button', default_val=>5, content=>"$min,$max_pck_size,1", info=>"Maximum packet size in flit. The injected packet size is randomly selected between minimum and maximum packet size", param_parent=>$sample, ref_delay=>10, new_status=>'ref_set_win'},

                { label=>"Avg. Packet size:", param_name=>'PCK_SIZE', type=>'Combo-box', default_val=>$avg, content=>"$avg", info=>undef, param_parent=>$sample, ref_delay=>undef},

                { label=>"Total packet number limit:", param_name=>'PCK_NUM_LIMIT', type=>'Spin-button', default_val=>200000, content=>"2,$max_pck_num,1", info=>"Simulation will stop when total numbr of sent packets by all nodes reaches packet number limit  or total simulation clock reach its limit", param_parent=>$sample, ref_delay=>undef, new_status=>undef},

                { label=>"Simulator clocks limit:", param_name=>'SIM_CLOCK_LIMIT', type=>'Spin-button', default_val=>100000, content=>"2,$max_sim_clk,1", info=>"Each node stops sending packets when it reaches packet number limit  or simulation clock number limit", param_parent=>$sample, ref_delay=>undef,  new_status=>undef},

                );

                my $coltmp=0;

                foreach my $d (@synthinfo) {

                        ($row,$coltmp)=add_param_widget ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,undef,1, $d->{param_parent}, $d->{ref_delay}, $d->{new_status});

                }

                my $traffic=$self->object_get_attribute($sample,"traffic");

                if ($traffic eq 'hot spot'){

                        my $htable=def_table(10,2,FALSE);

                        my $d= { label=>'number of Hot Spot nodes:', param_name=>'HOTSPOT_NUM', type=>'Spin-button', default_val=>1,  content=>"1,256,1", info=>"Number of hot spot nodes in the network",                        param_parent=>$sample, ref_delay=> 1, new_status=>'ref_set_win'};

                        ($row,$coltmp)=add_param_widget ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,undef,1, $d->{param_parent}, $d->{ref_delay}, $d->{new_status});

                                my $l1=gen_label_help("Defne the tile number which is  hotspt. All other nodes will send [Hot Spot traffic percentage] of their traffic to this node","  Hot Spot tile number \%");

                                my $l2=gen_label_help("If it is set as \"n\" then each node sends n % of its traffic to each hotspot node","  Hot Spot traffic \%");

                                my $l3=gen_label_help("If it is checked then hot spot node also sends packets to other nodes otherwise it only recieves packets from other nodes","  send enable");

                                $htable->attach  ($l1 , 0, 1,  $row,$row+1,'fill','shrink',2,2);

                                $htable->attach  ($l2 , 1, 2,  $row,$row+1,'fill','shrink',2,2);