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

#! /usr/bin/perl -w

use constant::boolean;

use strict;

use warnings;

use FindBin;

use lib $FindBin::Bin;

use GD::Graph::Data;

use emulator;

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

use File::Basename;

use File::Path qw/make_path/;

use File::Copy;

use File::Find::Rule;

require "widget.pl";

require "emulate_ram_gen.pl";

require "mpsoc_gen.pl";

require "mpsoc_verilog_gen.pl";

require "readme_gen.pl";

require "graph.pl";

require "topology.pl";

use List::MoreUtils qw(uniq);

# hardware parameters taken from noc_emulator.v

use constant PCK_CNTw =>30;  # packet counter width in bits (results in maximum of 2^30 = 1  G packets)

use constant PCK_SIZw =>14;  # packet size width in bits (results in maximum packet size of 2^14 = 16 K flit)

use constant MAX_EAw    =>8;   # maximum  destination address width

use constant MAXCw    =>4;   # 16 message classes  

use constant RATIOw   =>7;   # log2(100)

use constant RAM_Aw   =>7;

use constant RAM_RESERVED_ADDR_NUM=>8;

use constant MAX_PATTERN => ((2**RAM_Aw)-(RAM_RESERVED_ADDR_NUM));

use constant RAM_SIZE => (2**RAM_Aw);

#use constant MAX_PCK_NUM => (2**PCK_CNTw)-1;

use constant MAX_PCK_NUM => (2**PCK_CNTw)-1;

use constant MAX_PCK_SIZ => (2**PCK_SIZw)-1;

use constant MAX_SIM_CLKs=> 1000000000; # simulation end at if clock counter reach this number 

use constant MAX_RATIO => 1000;# 0->0 1->0.1 ...  1000->100

use constant EMULATION_TOP => "/mpsoc/rtl/src_emulate/emulator_top.v";

sub get_MAX_PCK_NUM(){MAX_PCK_NUM}

sub get_MAX_SIM_CLKs(){MAX_SIM_CLKs}

sub get_MAX_PCK_SIZ(){MAX_PCK_SIZ}

sub check_inserted_ratios {

                my $str=shift;

                my @ratios;

            my @chunks=split(/\s*,\s*/,$str);

            foreach my $p (@chunks){

                        if($p !~ /^[0-9.:,]+$/){ message_dialog ("$p has invalid character(S)" ); return undef; }

                        my @range=split(':',$p);

                        my $size= scalar @range;

                        if($size==1){ # its a number

                                if ( $range[0] <= 0 || $range[0] >100  ) { message_dialog ("Injection ratio $range[0] is out of bounds: 1<=ratio=<100" ); return undef; }

                                push(@ratios,$range[0]);

                        }elsif($size ==3){# its a range

                                my($min,$max,$step)=@range;

                                if ( $min <= 0 || $min >100  ) { message_dialog ("Injection ratio $min in  $p is out of bounds: 1<=ratio=<100" ); return undef; }

                                if ( $max <= 0 || $max >100  ) { message_dialog ("Injection ratio $max in  $p is out of bounds: 1<=ratio=<100" ); return undef; }

                                for (my $i=$min; $i<=$max; $i=$i+$step){

                                                push(@ratios,$i);

                                }

                        }else{

                                 message_dialog ("Injection ratio $p has an invalid format. The correct format for range is \[min\]:\[max\]:\[step\]" );

                                 return undef;

                        }

                }#foreach

                my @r=uniq(sort {$a<=>$b} @ratios);

                return \@r;

}

sub get_injection_ratios{

                my ($emulate,$atrebute1,$atrebute2)=@_;

                my $box =def_hbox(FALSE, 0);

                my $init=$emulate->object_get_attribute($atrebute1,$atrebute2);

                my $entry=gen_entry($init);

                my $button=def_image_button("icons/right.png",'Check');

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

                        my $text= $entry->get_text();

                        my $r=check_inserted_ratios($text);

                        if(defined      $r){

                                my $all=  join (',',@$r);

                                message_dialog ("$all" );

                        }

                });

                $entry->signal_connect ("changed" => sub {

                        my $text= $entry->get_text();

                        $emulate->object_add_attribute($atrebute1,$atrebute2,$text);

                });

                $box->pack_start( $entry, 1,1, 0);

                $box->pack_start( $button, 0, 1, 3);

                return  $box;

}

sub get_noc_configuration{

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

        if($mode eq "simulate") {get_simulator_noc_configuration(@_); return;}

        get_emulator_noc_configuration(@_);

}

sub get_sof_file_full_addr{

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

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

        my $board       = $emulate->object_get_attribute($sample,"FPGA_board");

        my $file        = $emulate->object_get_attribute($sample,"sof_file");

        return undef if(!defined ${open_in} || !defined ${board} || !defined $file );

        my $sof = "${open_in}/${board}/$file";

        #print "\n$sof\n";

        return $sof;

}

sub get_emulator_noc_configuration{

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

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

        my $row=0;

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

        #search path    

        my $dir = Cwd::getcwd();

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

        attach_widget_to_table ($table,$row,gen_label_in_left("Search Path:"),gen_button_message ("Select 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 ($emulate,$sample,"sof_path",undef,'ref_set_win',1,$open_in)); $row++;

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

        #select the board

        my($label,$param,$default,$content,$type,$info);

        my @dirs = grep {-d} glob("$open_in/*");

        my $fpgas;

        foreach my $dir (@dirs) {

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

                $default=$name;

                $fpgas= (defined $fpgas)? "$fpgas,$name" : "$name";

        }

        attach_widget_to_table ($table,$row,gen_label_in_left("Select FPGA board:"),gen_button_message ("Select the FPGA board. You can add your own FPGA board by adding its configuration file to mpsoc/boards directory","icons/help.png"),

        gen_combobox_object ($emulate,$sample, "FPGA_board", $fpgas, undef,'ref_set_win',1)); $row++;

        #select the sram object file

        my $board       = $emulate->object_get_attribute($sample,"FPGA_board");

        my @files;

        @files = glob "${open_in}/${board}/*" if(defined $board);

        my $sof_files="";

        foreach my $file (@files){

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

                $sof_files="$sof_files,$name" if($suffix eq '.sof');

        }

        attach_widget_to_table ($table,$row,gen_label_in_left("Sram Object File:"),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 ($emulate,$sample, "sof_file", $sof_files, undef,undef,undef)); $row++;

        #attach_widget_to_table ($table,$row,gen_label_in_left("SoF file:"),gen_button_message ("Select the SRAM Object File (sof) for this NoC configration.","icons/help.png"), get_file_name_object ($emulate,$sample,"sof_file",'sof',$open_in)); $row++;

   my @emulateinfo = (

        { 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},

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

{ label=>"Packet size in flit:", param_name=>'PCK_SIZE', type=>'Spin-button', default_val=>4, content=>"2,".MAX_PCK_SIZ.",1", info=>undef, param_parent=>$sample, ref_delay=>undef},

        { label=>"Packet number limit per node:", param_name=>'PCK_NUM_LIMIT', type=>'Spin-button', default_val=>1000000, content=>"2,".MAX_PCK_NUM.",1", info=>"Each node stops sending packets when it reaches packet number limit  or simulation clock number limit", param_parent=>$sample, ref_delay=>undef},

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

);

        my @siminfo = (

        { 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=>"Packet size in flit:", param_name=>'PCK_SIZE', type=>'Spin-button', default_val=>4, content=>"2,".MAX_PCK_SIZ.",1", 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_CLKs.",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 $hot_num=$emulate->object_get_attribute($sample,"HOTSPOT_NUM");

$hot_num=1 if(!defined $hot_num);

my $max= ($hot_num>0)? 100/$hot_num: 20;

my @hotspot_info=(

        { label=>'Hot Spot num:', param_name=>'HOTSPOT_NUM', type=>'Spin-button', default_val=>1,

          content=>"1,5,1", info=>"Number of hot spot nodes in the network",

          param_parent=>$sample, ref_delay=> 1, new_status=>'ref_set_win'},

        { label=>'Hot Spot traffic percentage:', param_name=>'HOTSPOT_PERCENTAGE', type=>'Spin-button', default_val=>1,

          content=>"1, $max,1", info=>"If it is set as n then each node sends n % of its traffic to each hotspot node",

          param_parent=>$sample, ref_delay=> undef, new_status=>undef},

        { label=>'Hot Spot nodes send enable:', param_name=>'HOTSPOT_SEND', type=>'Combo-box', default_val=>1,

          content=>"0,1", info=>"If it is set as 0 then hot spot nodes only recieves packet from other nodes and do not send packets to others",

          param_parent=>$sample, ref_delay=> undef, new_status=>undef},

        );

        my @info= ($mode eq "simulate")? @siminfo : @emulateinfo;

        my $coltmp=0;

        foreach my $d ( @info) {

                ($row,$coltmp)=add_param_widget ($emulate, $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=$emulate->object_get_attribute($sample,"traffic");

        if ($traffic eq 'hot spot'){

                foreach my $d ( @hotspot_info) {

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

                }

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

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

                        my $m=$i+1;

                        ($row,$coltmp)=add_param_widget  ($emulate, "Hotspot $m tile num:", "HOTSPOT_CORE_$m", 0, 'Spin-button', "0,256,1",

                         "Defne the tile number which is  hotspt. All other nodes will send [Hot Spot traffic percentage] of their traffic to this node ", $table,$row,undef,1,$sample);

                }

        }

        my $l= "Injection ratios in flits/clk/Endpoint (%).

E.g. Injection ratio 10% means each endpoint inject one flit every 10 cycles.

You can define individual ratios seprating by comma (\',\') or define a range of injection ratios with \$min:\$max:\$step format.

As an example defining 2,3,4:10:2 will result in (2,3,4,6,8,10) injection ratios.

" ;

        my $u=get_injection_ratios ($emulate,$sample,"ratios");

        attach_widget_to_table ($table,$row,gen_label_in_left("Injection ratios:"),gen_button_message ($l,"icons/help.png") , $u); $row++;

        my $scrolled_win = add_widget_to_scrolled_win($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);

        add_widget_to_scrolled_win ($mtable,$set_win);

        $set_win->show_all();

        $set_win ->signal_connect (destroy => sub{

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

        });

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

                #check if sof file has been selected

                my $s=get_sof_file_full_addr($emulate,$sample);

                #check if injection ratios are valid

                my $r=$emulate->object_get_attribute($sample,"ratios");

                if(defined $s && defined $r) {

                                $set_win->hide;

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

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

                } else {

                        if(!defined $s){

                                my $m=($mode eq 'simulate') ? "Please select NoC verilated file" : "Please select sof file!";

                                message_dialog($m);

                        } else {

                                 message_dialog("Please define valid injection ratio(s)!");

                        }

                }

        });

}

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

#               gen_widgets_column

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

sub gen_emulation_column {

        my ($emulate,$mode, $row_num,$info,$set_win,@charts)=@_;

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

        if(!defined $set_win){

                $set_win=def_popwin_size(40,80,"NoC configuration setting",'percent');

                $set_win->signal_connect (delete_event => sub {$emulate->object_add_attribute("active_setting",undef,undef); $set_win->hide_on_delete });

        } else{

                my @childs = $set_win->get_children;

                foreach my $c (@childs){ $c->destroy;}

        }

        my $scrolled_win = gen_scr_win_with_adjst ($emulate,"emulation_column");

        add_widget_to_scrolled_win($table,$scrolled_win);

        my $row=0;

        #title  

        my $title_l =($mode eq "simulate" ) ? "NoC Simulator" : "NoC Emulator";

        my $title=gen_label_in_center($title_l);

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

        add_Hsep_to_table($table,0,10,$row);$row++;

        my %order;

        $order{'+/-'}=0;

        $order{'Setting'}=1;

        $order{'Run'}=2;

        $order{'Name'}=3;

        $order{'Color'}=4;

        $order{'Clear'}=5;

        $order{'Traffic'}=6;

        $order{'Done'}=7;

        foreach my $t (sort keys %order){

                $table->attach (gen_label_in_center($t), $order{$t}, $order{$t}+1, $row, $row+1,'expand','shrink',2,2);

        }

        my $traffics="Random,Transposed 1,Transposed 2,Tornado";

        $row++;

        #my $i=0;

        my $active=$emulate->object_get_attribute("active_setting",undef);

        my @samples;

        @samples =$emulate->object_get_attribute_order("samples");

        foreach my $ss (@samples){

                my $sample=$ss;

                #my $sample="sample$i";

                #my $n=$i;

                my $name=$emulate->object_get_attribute($sample,"line_name");

                my $l;

                my $s=($mode eq "simulate" ) ? 1 : get_sof_file_full_addr($emulate,$sample);

                #check if injection ratios are valid

                my $r=$emulate->object_get_attribute($sample,"ratios");

                if(defined $s  && defined $name){

                         $l=def_image_button('icons/diagram.png',$name);

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

                                __PACKAGE__->mk_accessors(qw{noc_param});

                                my $temp = __PACKAGE__->new();

                                my $st = ($mode eq "simulate" )?  check_sim_sample($emulate,$sample,$info)   : check_sample($emulate,$sample,$info);

                                return if $st==0;

                                my ($topology, $T1, $T2, $T3, $V, $Fpay) = get_sample_emulation_param($emulate,$sample);

                                my $ref=$emulate->object_get_attribute($sample,"noc_info");

                                if (defined $ref){

                                        my %noc_info= %$ref;

                                        foreach my $p (sort keys %noc_info){

                                                $temp->object_add_attribute('noc_param',$p,$noc_info{$p});

                                        }

                                }

                        show_topology_diagram ($temp);

                 });

                 my $traffic = def_button("Pattern");

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

                        my $st = ($mode eq "simulate" )?  check_sim_sample($emulate,$sample,$info)   : check_sample($emulate,$sample,$info);

                                return if $st==0;

                                my ($topology, $T1, $T2, $T3, $V, $Fpay) = get_sample_emulation_param($emulate,$sample);

                                $emulate->object_add_attribute('noc_param','T1',$T1);

                                $emulate->object_add_attribute('noc_param','T2',$T2);

                                $emulate->object_add_attribute('noc_param','T3',$T3);

                                $emulate->object_add_attribute('noc_param','TOPOLOGY',$topology);

                                my $pattern="";

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

                                $pattern=get_synthetic_traffic_pattern($emulate, $sample) if($traffictype eq "Synthetic");

                                $pattern=" Custom traffic based on input file. " if($traffictype eq "Task-graph");

                                my $window = def_popwin_size(40,40,"Traffic pattern",'percent');

                                my ($outbox,$tview)= create_txview();

                                show_info($tview,"$pattern");

                                $window->add ($outbox);

                                $window->show_all();

                 });

                 $table->attach ($l, $order{'Name'}, $order{'Name'}+1, $row, $row+1,'expand','shrink',2,2);

                 $table->attach ($traffic, $order{'Traffic'}, $order{'Traffic'}+1, $row, $row+1,'expand','shrink',2,2);

                } else {

                        $l=gen_label_in_left("Define NoC configuration");

                        $l->set_markup("<span  foreground= 'red' ><b>Define NoC configuration</b></span>");

                        $table->attach ($l, $order{'Name'}, $order{'Name'}+1, $row, $row+1,'expand','shrink',2,2);

                }

                #remove 

                my $remove=def_image_button("icons/cancel.png");

                $table->attach ($remove,$order{'+/-'},$order{'+/-'}+1, $row, $row+1,'expand','shrink',2,2);

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

                        $emulate->object_delete_attribute_order("samples",$sample);

                        set_gui_status($emulate,"ref",2);

                });

                #setting

                my $set=def_image_button("icons/setting.png");

                $table->attach ($set, $order{'Setting'}, $order{'Setting'}+1, $row, $row+1,'expand','shrink',2,2);

                if(defined $active){#The setting windows ask for refershing so open it again

                        get_noc_configuration($emulate,$mode,$sample,$set_win) if       ($active eq $sample);

                }

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

                        $emulate->object_add_attribute("active_setting",undef,$sample);

                        get_noc_configuration($emulate,$mode,$sample,$set_win);

                });

                my $color_num=$emulate->object_get_attribute($sample,"color");

                if(!defined $color_num){

                        $color_num = (scalar @samples) +1;

                        $emulate->object_add_attribute($sample,"color",$color_num);

                }

                my $color=def_colored_button("   ",$color_num);

                $table->attach ($color, $order{'Color'}, $order{'Color'}+1, $row, $row+1,'fill','fill',2,2);

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

                        get_color_window($emulate,$sample,"color");

                });

                #clear line

                my $clear = def_image_button('icons/clear.png');

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

                        foreach my $chart (@charts){

                                $emulate->object_add_attribute ($sample,"$chart->{result_name}",undef);

                                #print "\$emulate->object_add_attribute ($sample,$chart->{result_name}_result,undef);";