| Line 1... |
Line 1... |
#!/usr/bin/perl
|
#!/usr/bin/perl
|
use strict;
|
use strict;
|
use warnings;
|
use warnings;
|
|
|
use Glib qw(TRUE FALSE);
|
use constant::boolean;
|
use Gtk2 '-init';
|
|
use Gtk2::SourceView2;
|
|
use Data::Dumper;
|
use Data::Dumper;
|
use List::Util 'shuffle';
|
use List::Util 'shuffle';
|
use File::Path;
|
use File::Path;
|
use File::Copy;
|
use File::Copy;
|
use POSIX qw(ceil floor);
|
use POSIX qw(ceil floor);
|
use Cwd 'abs_path';
|
use Cwd 'abs_path';
|
|
use List::MoreUtils qw(uniq);
|
|
|
|
|
use base 'Class::Accessor::Fast';
|
use base 'Class::Accessor::Fast';
|
require "widget.pl";
|
require "widget.pl";
|
require "diagram.pl";
|
require "diagram.pl";
|
|
require "orcc.pl";
|
|
require "drag_drop.pl";
|
|
|
__PACKAGE__->mk_accessors(qw{
|
__PACKAGE__->mk_accessors(qw{
|
window
|
window
|
sourceview
|
sourceview
|
buffer
|
buffer
|
| Line 37... |
Line 38... |
|
|
exit trace_gen_main() unless caller;
|
exit trace_gen_main() unless caller;
|
|
|
|
|
sub trace_gen_main {
|
sub trace_gen_main {
|
|
my ($mode,$ref,$w)=@_;
|
my $app = __PACKAGE__->new();
|
my $app = __PACKAGE__->new();
|
my $table=$app->build_trace_gui();
|
my $table=$app->build_trace_gui($mode,$ref,$w);
|
|
|
return $table;
|
return $table;
|
}
|
}
|
|
|
|
|
|
|
sub build_trace_gui {
|
|
my ($self) = @_;
|
|
$self->object_add_attribute("file_id",undef,'a');
|
|
$self->object_add_attribute("trace_id",undef,0);
|
|
$self->object_add_attribute('select_multiple','action',"_");
|
|
$self->object_add_attribute('Auto','Auto_inject',"1\'b1");
|
|
|
|
set_gui_status($self,"ideal",0);
|
|
|
|
my $main_table= def_table(2,10,FALSE);
|
|
my ($scwin_info,$tview)= create_text();
|
|
|
|
my $traces=trace_pad($self,$tview);
|
|
my $traces_ctrl=trace_pad_ctrl($self,$tview);
|
|
|
|
my $map= trace_map($self,$tview);
|
|
my $map_ctrl= trace_map_ctrl($self,$tview);
|
|
my $map_info=map_info($self);
|
|
|
|
my $h1=gen_hpaned($traces_ctrl,.25,$traces);
|
|
my $h2=gen_hpaned($map_ctrl,.25,$map);
|
|
my $h3=gen_hpaned($h2,.65,$map_info);
|
|
|
|
my $v1=gen_vpaned($h1,.3,$h3);
|
|
#my $v2=gen_vpaned($v1,.6,$scwin_info);
|
|
|
|
my $generate = def_image_button('icons/gen.png','Generate');
|
|
my $open = def_image_button('icons/browse.png','Load');
|
|
my ($entrybox,$entry) = def_h_labeled_entry('Save as:',undef);
|
|
$entry->signal_connect( 'changed'=> sub{
|
|
my $name=$entry->get_text();
|
|
$self->object_add_attribute ("save_as",undef,$name);
|
|
});
|
|
|
|
my $entry2=gen_entry_object($self,'out_name',undef,undef,undef,undef);
|
|
my $entrybox2=labele_widget_info(" Output file name:",$entry2);
|
|
|
|
my $save = def_image_button('icons/save.png','Save');
|
|
$entrybox->pack_end($save, FALSE, FALSE,0);
|
|
|
|
$main_table->attach_defaults ($v1 , 0, 12, 0,24);
|
|
$main_table->attach ($open,0, 3, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($entrybox,3, 5, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($entrybox2,5,6 , 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($generate, 6, 9, 24,25,'expand','shrink',2,2);
|
|
|
|
|
|
my $sc_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
$sc_win->set_policy( "automatic", "automatic" );
|
|
$sc_win->add_with_viewport($main_table);
|
|
|
|
|
|
|
|
$open-> signal_connect("clicked" => sub{
|
|
|
|
load_workspace($self);
|
|
set_gui_status($self,"ref",5);
|
|
|
|
});
|
|
|
|
$save-> signal_connect("clicked" => sub{
|
|
save_as($self);
|
|
set_gui_status($self,"ref",5);
|
|
|
|
|
|
});
|
|
|
|
$generate->signal_connect("clicked" => sub{
|
|
genereate_output($self);
|
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#check soc status every 0.5 second. referesh device table if there is any changes
|
|
Glib::Timeout->add (100, sub{
|
|
|
|
my ($state,$timeout)= get_gui_status($self);
|
|
|
|
if ($timeout>0){
|
|
$timeout--;
|
|
set_gui_status($self,$state,$timeout);
|
|
return TRUE;
|
|
|
|
}
|
|
if($state eq "ideal"){
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#refresh GUI
|
|
my $saved_name=$self->object_get_attribute('save_as');
|
|
if(defined $saved_name) {$entry->set_text($saved_name);}
|
|
|
|
$saved_name=$self->object_get_attribute('out_name');
|
|
if(defined $saved_name) {$entry2->set_text($saved_name);}
|
|
|
|
|
|
|
|
$traces->destroy();
|
|
$traces=trace_pad($self,$tview);
|
|
$map->destroy();
|
|
$map= trace_map($self,$tview);
|
|
$map_ctrl->destroy();
|
|
$map_ctrl= trace_map_ctrl($self,$tview);
|
|
$traces_ctrl->destroy();
|
|
$traces_ctrl=trace_pad_ctrl($self,$tview);
|
|
$map_info->destroy();
|
|
$map_info=map_info($self);
|
|
|
|
$h1 -> pack1($traces_ctrl, TRUE, TRUE);
|
|
$h1 -> pack2($traces, TRUE, TRUE);
|
|
$h2 -> pack1($map_ctrl, TRUE, TRUE);
|
|
$h2 -> pack2($map, TRUE, TRUE);
|
|
$h3 -> pack2($map_info, TRUE, TRUE);
|
|
|
|
$traces->show_all();
|
|
$map->show_all();
|
|
$main_table->show_all();
|
|
set_gui_status($self,"ideal",0);
|
|
|
|
return TRUE;
|
|
|
|
} );
|
|
|
|
|
|
|
|
return $sc_win;
|
|
|
|
|
|
|
|
}
|
|
|
|
########
|
########
|
# trace_ctr
|
# trace_ctr
|
########
|
########
|
|
|
sub trace_pad_ctrl{
|
sub trace_pad_ctrl{
|
my ($self,$tview)=@_;
|
my ($self,$tview,$mode)=@_;
|
|
|
my $table= def_table(2,10,FALSE);
|
my $table= def_table(2,10,FALSE);
|
#my $separator = Gtk2::HSeparator->new;
|
|
my $row=0;
|
my $row=0;
|
my $col=0;
|
my $col=0;
|
#$table->attach ($separator , 0, 10 , $row, $row+1,'fill','fill',2,2); $row++;
|
#$table->attach ($separator , 0, 10 , $row, $row+1,'fill','fill',2,2); $row++;
|
|
|
my $add = def_image_button('icons/import.png');
|
my $add = def_image_button('icons/import.png');
|
set_tip($add,'Load Task Graph');
|
set_tip($add,'Load Task Graph') if($mode eq "task");
|
|
set_tip($add,'Load ORCC source files') if($mode eq "orcc");
|
my $remove = def_image_button('icons/cancel.png');
|
my $remove = def_image_button('icons/cancel.png');
|
set_tip($remove,'Remove Selected Trace(s)');
|
set_tip($remove,'Remove Selected Trace(s)');
|
my $draw = def_image_button('icons/diagram.png');
|
my $draw = def_image_button('icons/diagram.png');
|
set_tip($draw,'View Task Graph');
|
set_tip($draw,'View Task Graph');
|
my $auto = def_image_button('icons/refresh.png');
|
my $auto = def_image_button('icons/refresh.png');
|
set_tip($auto,'Automatically calculate the traces burst size and injection ratio according to their bandwith');
|
set_tip($auto,'Automatically calculate the traces burst size and injection ratio according to their bandwidth');
|
|
|
|
|
|
|
|
|
my $box=def_pack_hbox(FALSE,FALSE,$add,$draw,$remove,$auto);
|
my $box=def_pack_hbox(FALSE,FALSE,$add,$draw,$remove,$auto);
|
|
|
#my $auto = def_image_button('icons/setting.png');
|
#my $auto = def_image_button('icons/setting.png');
|
#set_tip($auto,'Automatically set the burst size and injection ratio according to the packet size and bandwidth');
|
#set_tip($auto,'Automatically set the burst size and injection ratio according to the packet size and bandwidth');
|
|
|
| Line 224... |
Line 83... |
$row++;
|
$row++;
|
$col=0;
|
$col=0;
|
my $info="Automatically set the burst size and injection ratio according to the packet size and bandwidth";
|
my $info="Automatically set the burst size and injection ratio according to the packet size and bandwidth";
|
#add_param_widget($self,"Auto inject rate \& burst size",'Auto_inject', 0,"Check-box",1,$info, $table,$row,$col,1,'Auto',0,'ref',"vertical");
|
#add_param_widget($self,"Auto inject rate \& burst size",'Auto_inject', 0,"Check-box",1,$info, $table,$row,$col,1,'Auto',0,'ref',"vertical");
|
$row++;
|
$row++;
|
|
|
|
|
|
|
$col=0;
|
$col=0;
|
|
my $info1="If hard-build QoS is enabled in NoC by using Weighted round robin arbiter (WRRA) instead of RRA, then the initial weights allow QoS support in NoC as in presence of contention, packets with higher initial weights receive higher bandwidth and lower worst case delay compared to others." ;
|
|
|
my $info1="If hard-bulid QoS is enabled in NoC by using Wieghted round robin arbiter (WRRA) instead of RRA, then the initial weights allow QoS support in NoC as in presence of contention, packets with higher initial weights receive higher bandwidth and lower worst case delay compared to others." ;
|
#my $selects="tornado,transposed 1,transposed 2,bit reverse,bit complement,random,hot spot";
|
|
|
my $selects="tornado,transposed 1,transposed 2,bit reverse,bit complement,random,hot spot";
|
|
my $min=$self->object_get_attribute('select_multiple','min_pck_size');
|
my $min=$self->object_get_attribute('select_multiple','min_pck_size');
|
my $max=$self->object_get_attribute('select_multiple','max_pck_size');
|
my $max=$self->object_get_attribute('select_multiple','max_pck_size');
|
$min=$max=5 if(!defined $min);
|
$min=$max=5 if(!defined $min);
|
|
|
my @selectedinfo;
|
my @selectedinfo;
|
$self->object_add_attribute('Auto','Auto_inject',"1\'b0" );
|
$self->object_add_attribute('Auto','Auto_inject',"1\'b0" );
|
my $a= $self->object_get_attribute('Auto','Auto_inject');
|
my $a= $self->object_get_attribute('Auto','Auto_inject');
|
|
|
if ($a eq "1\'b0"){
|
if ($a eq "1\'b0"){
|
@selectedinfo = (
|
@selectedinfo = (
|
{ label=>" Initial weight ", param_name=>'init_weight', type=>'Spin-button', default_val=>1, content=>"1,16,1", info=>$info1, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Initial weight ", param_name=>'init_weight', type=>'Spin-button', default_val=>1, content=>"1,16,1", info=>$info1, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Min pck size ", param_name=>'min_pck_size', type=>'Spin-button', default_val=>5, content=>"2,$max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
{ label=>" Min pck size ", param_name=>'min_pck_size', type=>'Spin-button', default_val=>5, content=>"2,$max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
{ label=>" Max pck size ",param_name=>'max_pck_size', type=>'Spin-button', default_val=>5, content=>"$min,1024,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
{ label=>" Max pck size ",param_name=>'max_pck_size', type=>'Spin-button', default_val=>5, content=>"$min,1024,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
| Line 258... |
Line 114... |
{ label=>" Initial weight ", param_name=>'init_weight', type=>'Spin-button', default_val=>1, content=>"1,16,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Initial weight ", param_name=>'init_weight', type=>'Spin-button', default_val=>1, content=>"1,16,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Min pck size ", param_name=>'min_pck_size', type=>'Spin-button', default_val=>5, content=>"2,$max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
{ label=>" Min pck size ", param_name=>'min_pck_size', type=>'Spin-button', default_val=>5, content=>"2,$max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
{ label=>" Max pck size ",param_name=>'max_pck_size', type=>'Spin-button', default_val=>5, content=>"$min,1024,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
{ label=>" Max pck size ",param_name=>'max_pck_size', type=>'Spin-button', default_val=>5, content=>"$min,1024,1", info=>undef, param_parent=>'select_multiple', ref_delay=> 10, new_status=>'ref'},
|
|
|
);
|
);
|
|
}
|
|
if($mode eq "orcc"){
|
|
my $v_val= $self->object_get_attribute('noc_param','V');
|
|
my $v_max=$v_val-1;
|
|
my $c_val= $self->object_get_attribute('noc_param','C');
|
|
my $c_max=($c_val==0)? 0 : $c_val-1;
|
|
|
|
@selectedinfo = (
|
|
{ label=>" Initial weight ", param_name=>'init_weight', type=>'Spin-button', default_val=>1, content=>"1,16,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
|
{ label=>" Virtual chanel#", param_name=>'vc', type=>'Spin-button', default_val=>0, content=>"0,$v_max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
|
{ label=>" Message class# ", param_name=>'class', type=>'Spin-button', default_val=>0, content=>"0,$c_max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef}
|
|
);
|
|
|
}
|
}
|
|
|
|
|
my @traces= $self->get_trace_list();
|
my @traces= get_trace_list($self,'raw');
|
my $any_selected=0;
|
my $any_selected=0;
|
foreach my $p (@traces) {
|
foreach my $p (@traces) {
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=$self->get_trace($p);
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=get_trace($self,'raw',$p);
|
$any_selected=1 if($self->object_get_attribute("trace_$p",'selected')==1);
|
$any_selected=1 if($self->object_get_attribute("raw_$p",'selected')==1);
|
|
|
}
|
}
|
|
|
if($any_selected){
|
if($any_selected){
|
$table->attach (Gtk2::HSeparator->new,0, 10, $row, $row+1,'fill','fill',2,2);$row++;
|
add_Hsep_to_table($table,0, 10, $row);$row++;
|
$table->attach (gen_label_in_center('Apply to all selected traces'),0, 10, $row, $row+1,'fill','fill',2,2);$row++;
|
$table->attach (gen_label_in_center('Apply to all selected traces'),0, 10, $row, $row+1,'fill','fill',2,2);$row++;
|
}
|
}
|
|
|
foreach my $d (@selectedinfo) {
|
foreach my $d (@selectedinfo) {
|
my $apply= def_image_button("icons/enter.png",undef);
|
my $apply= def_image_button("icons/enter.png",undef);
|
$apply->signal_connect( 'clicked'=> sub{
|
$apply->signal_connect( 'clicked'=> sub{
|
$self->object_add_attribute('select_multiple','action',$d->{param_name});
|
$self->object_add_attribute('select_multiple','action',$d->{param_name});
|
$self->set_gui_status('ref',0);
|
$self->set_gui_status('ref',0);
|
});
|
});
|
if($any_selected){
|
if($any_selected){
|
($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},$d->{new_status},"horizental");
|
($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},$d->{new_status},"horizontal");
|
$table->attach ($apply , $col, $col+1, $row,$row+1,'shrink','shrink',2,2);$row++;$col=0;
|
$table->attach ($apply , $col, $col+1, $row,$row+1,'shrink','shrink',2,2);$row++;$col=0;
|
# $row=noc_param_widget ($self, $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});
|
# $row=noc_param_widget ($self, $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});
|
}
|
}
|
}
|
}
|
|
|
| Line 297... |
Line 165... |
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $project_dir = abs_path("$dir/.."); #mpsoc directory address
|
my $project_dir = abs_path("$dir/.."); #mpsoc directory address
|
|
|
|
|
$add->signal_connect ( 'clicked'=> sub{
|
$add->signal_connect ( 'clicked'=> sub{
|
|
load_task_file($self,$project_dir,$tview) if($mode eq 'task');
|
my $file;
|
load_orcc_file($self,$tview) if($mode eq 'orcc');
|
my $dialog = Gtk2::FileChooserDialog->new(
|
|
'Select a File', undef,
|
|
'open',
|
|
'gtk-cancel' => 'cancel',
|
|
'gtk-ok' => 'ok',
|
|
);
|
|
my $open_in = abs_path("${project_dir}/perl_gui/lib/simulate/embedded_app_graphs");
|
|
$dialog->set_current_folder ($open_in);
|
|
my $filter = Gtk2::FileFilter->new();
|
|
$filter->set_name("app");
|
|
$filter->add_pattern("*.app");
|
|
$dialog->add_filter ($filter);
|
|
|
|
|
|
if ( "ok" eq $dialog->run ) {
|
|
$file = $dialog->get_filename;
|
|
$self->load_tarce_file($file,$tview);
|
|
}
|
|
$dialog->destroy;
|
|
});
|
});
|
|
|
$draw->signal_connect ( 'clicked'=> sub{
|
$draw->signal_connect ( 'clicked'=> sub{
|
show_trace_diagram($self,'trace');
|
show_trace_diagram($self,'trace');
|
});
|
});
|
|
|
$remove->signal_connect ( 'clicked'=> sub{
|
$remove->signal_connect ( 'clicked'=> sub{
|
$self->remove_selected_traces();
|
$self->remove_selected_traces('raw');
|
});
|
});
|
|
|
$auto->signal_connect ( 'clicked'=> sub{
|
$auto->signal_connect ( 'clicked'=> sub{
|
$self->auto_generate_injtratio();
|
$self->auto_generate_injtratio('raw');
|
});
|
});
|
|
|
|
|
my $sc_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $sc_win = add_widget_to_scrolled_win($table);
|
$sc_win->set_policy( "automatic", "automatic" );
|
|
$sc_win->add_with_viewport($table);
|
|
|
|
|
|
return $sc_win;
|
return $sc_win;
|
|
|
}
|
}
|
|
|
|
sub load_task_file{
|
|
my($self,$project_dir,$tview)=@_;
|
|
my $file;
|
|
my $dialog = gen_file_dialog(undef,'app');
|
|
my $open_in = abs_path("${project_dir}/perl_gui/lib/simulate/embedded_app_graphs");
|
|
$dialog->set_current_folder ($open_in);
|
|
if ( "ok" eq $dialog->run ) {
|
|
$file = $dialog->get_filename;
|
|
$self->load_tarce_file($file,$tview);
|
|
}
|
|
$dialog->destroy;
|
|
}
|
|
|
######
|
######
|
# map_ctr
|
# map_ctr
|
######
|
######
|
|
|
sub trace_map_ctrl{
|
sub trace_map_ctrl{
|
|
|
my ($self,$tview)=@_;
|
my ($self,$tview,$mode,$NE)=@_;
|
my $table= def_table(2,10,FALSE);
|
my $table= def_table(2,10,FALSE);
|
|
|
my $run_map= def_image_button("icons/enter.png",undef);
|
my $run_map= def_image_button("icons/enter.png",undef);
|
my $drawmap = def_image_button('icons/diagram.png');
|
my $drawmap = def_image_button('icons/trace.png');
|
set_tip($drawmap,'View Task Mapping');
|
my $diagram = def_image_button('icons/diagram.png');
|
my $auto = def_image_button('icons/refresh.png');
|
set_tip($drawmap,'View actor Mapping Diagram') if($mode eq 'orcc');
|
set_tip($auto,'Automatically set the network dimentions acording to the task number');
|
set_tip($drawmap,'View Task Mapping Diagram') if($mode eq 'task');
|
|
set_tip($diagram,'View Topology Diagram') if($mode eq 'task');
|
|
set_tip($diagram,'View actor connection Diagram') if($mode eq 'orcc');
|
|
|
|
my $auto = def_image_button('icons/refresh.png');
|
|
set_tip($auto,'Automatically set the network dimensions according to the task number');
|
my $clean = def_image_button('icons/clear.png');
|
my $clean = def_image_button('icons/clear.png');
|
set_tip($clean,'Remove mapping');
|
set_tip($clean,'Remove mapping');
|
|
|
|
my $box;
|
|
$box=def_pack_hbox(FALSE,FALSE,$drawmap,$diagram,$clean,$auto) if($mode eq 'task');
|
|
$box=def_pack_hbox(FALSE,FALSE,$drawmap,$diagram,$clean) if($mode eq 'orcc');
|
|
|
|
my $col=0;
|
|
my $row=0;
|
|
$table->attach ($box,$col, $col+1, $row, $row+1,'shrink','shrink',2,2);$row++;
|
|
|
|
|
my $box=def_pack_hbox(FALSE,FALSE,$drawmap,$clean,$auto);
|
if($mode eq 'task'){
|
|
($row,$col) =noc_topology_setting_gui($self,$table,$tview,$row,1);
|
|
|
|
$diagram-> signal_connect("clicked" => sub{
|
|
show_topology_diagram ($self) ;
|
|
});
|
|
|
|
|
|
}
|
|
|
my $col=0;
|
if($mode eq 'orcc'){
|
my $row=0;
|
|
$table->attach ($box,$col, $col+1, $row, $row+1,'shrink','shrink',2,2);$row++;
|
|
|
|
|
$diagram-> signal_connect("clicked" => sub{
|
|
|
|
show_trace_diagram ($self,'merge-actor');
|
|
});
|
|
|
my @info = (
|
|
{ label=>'Routers per Row', param_name=>'T1', type=>"Spin-button", default_val=>2, content=>"2,64,1", info=>undef, param_parent=>'noc_param', ref_delay=>1,placement=>'vertical'},
|
|
{ label=>"Routers per Column", param_name=>"T2", type=>"Spin-button", default_val=>2, content=>"1,64,1", info=>undef, param_parent=>'noc_param',ref_delay=>1, placement=>'vertical'},
|
|
{ label=>"Mapping Algorithm", param_name=>"Map_Algrm", type=>"Combo-box", default_val=>'Random', content=>"Nmap,Random,Reverse-NMAP,Direct", info=>undef, param_parent=>'map_param',ref_delay=>undef,placement=>'horizental'},
|
|
|
|
);
|
}
|
|
|
|
#my $credit =$self->object_get_attribute('map_param',"credit_en");
|
|
#if(defined $credit){
|
|
# if($credit eq '1\'b0'){
|
|
# $self->object_add_attribute('map_param',"receive_int",'1\'b0');
|
|
#}}
|
|
|
|
|
|
|
|
my @info = ($mode eq 'task')? (
|
|
{ label=>"Mapping Algorithm", param_name=>"Map_Algrm", type=>"Combo-box", default_val=>'Random', content=>"Nmap,Random,Reverse-NMAP,Direct", info=>undef, param_parent=>'map_param',ref_delay=>undef,placement=>'horizontal'},
|
|
) :
|
|
|
|
(
|
|
{ label=>"Mapping Algorithm", param_name=>"Map_Algrm", type=>"Combo-box", default_val=>'Random', content=>"Nmap,Random,Reverse-NMAP,Direct", info=>undef, param_parent=>'map_param',ref_delay=>undef,placement=>'horizontal'},
|
|
{ label=>"ORCC FIFO Debug", param_name=>"add_debug", type=>"Check-box", default_val=>'1\'b0', content=>1, info=>"Add Actor FIFO debugging code to generated C codes to make sure FIFOs handshakings signals are handeled correctly between the source and destination cores", param_parent=>'map_param',ref_delay=>undef,placement=>'vertical'},
|
|
{ label=>"Sent packet interrupt", param_name=>"sent_int", type=>"Check-box", default_val=>'1\'b1', content=>1, info=>"If the sent inttrupt is enabled, once a packet is completely sent out from the NI, the cpu is informed by intrrupt.", param_parent=>'map_param',ref_delay=>undef,placement=>'vertical'},
|
|
{ label=>"Receive packet interrupt", param_name=>"receive_int", type=>"Check-box", default_val=>'1\'b1', content=>1, info=>"This flag enables receive-interrupt. Hence, the CPU can collect the received packet immediately from the NI. This interrupt avoids the NoC to be blocked by long packets.", param_parent=>'map_param',ref_delay=>1,placement=>'vertical'},
|
|
{ label=>"Got NI error interrupt", param_name=>"got_err_int", type=>"Check-box", default_val=>'1\'b1', content=>1, info=>"Enable the inttrupt once any of NI error flags is asserted.", param_parent=>'map_param',ref_delay=>undef,placement=>'vertical'},
|
|
#{ label=>"ORCC FIFO Credit", param_name=>"credit_en", type=>"Check-box", default_val=>'1\'b1', content=>1, info=>"If this flag is enabled, the credit availbility of destination FIFOs are transfered to source FIFOs. The source FIFOs adapts the sent data size with the available space in destination FIFO. This makes sure the destination FIFO can collet whole of the packet and perevent the NoC resources to be blocked by long packets", param_parent=>'map_param',ref_delay=>1,placement=>'vertical'},
|
|
);
|
|
|
|
#push(@info,{ label=>"Recieve FIFO extra space (%)", param_name=>"rsv_extra", type=>"Spin-button",content=>"1,100,1", default_val=>10, info=>"If ORCC FIFO Credit flag is not enabled, additional space is added to receive FIFOs to avoid FIFO overflow. The receiver FIFO only collects the NI's incoming packet if its occupied size is smaller than this additional space. This memory overhead could be avoided if the packet size is added to the header pre-captured data. However, it is not yet supported.", param_parent=>'map_param',ref_delay=>1,placement=>'vertical'},
|
|
#) if($credit eq '1\'b0');
|
|
|
foreach my $d (@info) {
|
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},'ref',$d->{placement});
|
($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},'ref',$d->{placement});
|
if($d->{param_name} eq "Map_Algrm"){$table->attach ($run_map , $col, $col+1, $row,$row+1,'shrink','shrink',2,2);$row++;$col=0;}
|
if($d->{param_name} eq "Map_Algrm"){
|
|
$table->attach ($run_map , $col, $col+1, $row,$row+1,'shrink','shrink',2,2);$row++;$col=0;
|
|
$table->attach (gen_label_in_center ("Enable/Disable flags:") , $col, $col+1, $row,$row+1,'shrink','shrink',2,2);$row++;$col=0;
|
|
}
|
}
|
}
|
|
|
|
|
|
|
|
|
$run_map->signal_connect( 'clicked'=> sub{
|
$run_map->signal_connect( 'clicked'=> sub{
|
my $alg=$self->object_get_attribute('map_param','Map_Algrm');
|
my $alg=$self->object_get_attribute('map_param','Map_Algrm');
|
|
update_merge_actor_list($self,$tview);
|
$self->random_map() if ($alg eq 'Random');
|
$self->random_map() if ($alg eq 'Random');
|
$self->worst_map_algorithm() if ($alg eq 'Reverse-NMAP');
|
$self->worst_map_algorithm() if ($alg eq 'Reverse-NMAP');
|
$self->nmap_algorithm() if ($alg eq 'Nmap');
|
$self->nmap_algorithm() if ($alg eq 'Nmap');
|
$self->direct_map() if ($alg eq 'Direct');
|
$self->direct_map() if ($alg eq 'Direct');
|
|
|
| Line 409... |
Line 303... |
$drawmap->signal_connect ( 'clicked'=> sub{
|
$drawmap->signal_connect ( 'clicked'=> sub{
|
show_trace_diagram($self,'map');
|
show_trace_diagram($self,'map');
|
});
|
});
|
|
|
$auto->signal_connect ( 'clicked'=> sub{
|
$auto->signal_connect ( 'clicked'=> sub{
|
my @tasks = $self->get_all_tasks();
|
my @tasks = $self->get_all_merged_tasks();
|
my $task_num= scalar @tasks;
|
my $task_num= scalar @tasks;
|
return if($task_num ==0);
|
return if($task_num ==0);
|
|
my $topology = $self->object_get_attribute('noc_param','TOPOLOGY');
|
|
if ($topology eq '"MESH"' || $topology eq '"TORUS"' ){
|
my ($nx,$ny) =network_dim_cal($task_num);
|
my ($nx,$ny) =network_dim_cal($task_num);
|
$self->object_add_attribute('noc_param','T1',$nx);
|
$self->object_add_attribute('noc_param','T1',$nx);
|
$self->object_add_attribute('noc_param','T2',$ny);
|
$self->object_add_attribute('noc_param','T2',$ny);
|
|
$self->object_add_attribute('noc_param','T3',1);
|
|
set_gui_status($self,"ref",1);
|
|
}elsif ($topology eq '"RING"' || $topology eq '"LINE"'){
|
|
$self->object_add_attribute('noc_param','T1',$task_num);
|
|
$self->object_add_attribute('noc_param','T2',1);
|
|
$self->object_add_attribute('noc_param','T3',1);
|
set_gui_status($self,"ref",1);
|
set_gui_status($self,"ref",1);
|
|
}
|
});
|
});
|
|
|
$clean->signal_connect ( 'clicked'=> sub{
|
$clean->signal_connect ( 'clicked'=> sub{
|
remove_mapping($self);
|
remove_mapping($self);
|
set_gui_status($self,"ref",1);
|
set_gui_status($self,"ref",1);
|
});
|
});
|
|
|
|
return add_widget_to_scrolled_win($table);
|
|
|
my $sc_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
$sc_win->set_policy( "automatic", "automatic" );
|
|
$sc_win->add_with_viewport($table);
|
|
|
|
|
}
|
|
|
return $sc_win;
|
|
|
######
|
|
# map_ctr
|
|
######
|
|
sub trace_group_ctrl{
|
|
|
|
my ($self,$tview,$mode,$NE)=@_;
|
|
my $table= def_table(2,10,FALSE);
|
|
|
|
|
|
|
|
|
|
my $clean = def_image_button('icons/clear.png');
|
|
set_tip($clean,'Ungroup all actors');
|
|
|
|
my $box;
|
|
$box=def_pack_hbox(FALSE,FALSE,$clean);
|
|
|
|
my $col=0;
|
|
my $row=0;
|
|
|
|
|
|
|
|
|
|
$table->attach ($box,$col, $col+1, $row, $row+1,'shrink','shrink',2,2);$row++;
|
|
|
|
#$self->object_add_attribute('grouping','map_limit',$NE);
|
|
#add_param_widget ($self,'Max actors in a group:','map_limit', 4,"Spin-button","1,1024,1","The maximum number of actors that can be grouped to be run in one tile", $table,$row,$col,1,'grouping',undef,undef);
|
|
|
|
|
|
|
|
$clean->signal_connect ( 'clicked'=> sub{
|
|
my $group_num=$self->object_get_attribute('grouping','group_num');
|
|
my $gname=$self->object_get_attribute('grouping','group_name_root');
|
|
for(my $i=0;$i<$group_num;$i=$i+1){
|
|
$self->object_add_attribute('grouping',"$gname($i)",\());
|
}
|
}
|
|
set_gui_status($self,"ref",1);
|
|
});
|
|
|
|
|
|
return add_widget_to_scrolled_win($table);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#########
|
#########
|
# trace
|
# trace
|
#########
|
#########
|
|
|
sub trace_pad{
|
sub trace_pad{
|
my ($self,$tview)=@_;
|
my ($self,$tview,$mode)=@_;
|
my $table= def_table(10,10,FALSE);
|
my $table= def_table(10,10,FALSE);
|
#my $separator = Gtk2::HSeparator->new;
|
|
my $row=0;
|
my $row=0;
|
my $col=0;
|
my $col=0;
|
|
|
|
|
my @selectedinfo = (
|
my @selectedinfo = (
|
| Line 453... |
Line 407... |
{ label=>" Burst_size ", param_name=>'burst_size', type=>'Spin-button', default_val=>1, content=>"1,1024,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Burst_size ", param_name=>'burst_size', type=>'Spin-button', default_val=>1, content=>"1,1024,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Inject rate(%) ", param_name=>'injct_rate', type=>'Spin-button', default_val=>10, content=>"1,100,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Inject rate(%) ", param_name=>'injct_rate', type=>'Spin-button', default_val=>10, content=>"1,100,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Inject rate variation (%) ", param_name=>'injct_rate_var', type=>'Spin-button', default_val=>20, content=>"0,100,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
{ label=>" Inject rate variation (%) ", param_name=>'injct_rate_var', type=>'Spin-button', default_val=>20, content=>"0,100,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
);
|
);
|
|
|
|
my $v_val= $self->object_get_attribute('noc_param','V');
|
|
my $v_max=$v_val-1;
|
|
|
|
my $c_val= $self->object_get_attribute('noc_param','C');
|
|
my $c_max=($c_val==0)? 0 : $c_val-1;
|
|
|
|
|
|
if($mode eq "orcc"){
|
|
|
|
@selectedinfo = (
|
|
{ label=>" Initial weight ", param_name=>'init_weight', type=>'Spin-button', default_val=>1, content=>"1,16,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
|
{ label=>" Virtual chanel# ", param_name=>'vc', type=>'Spin-button', default_val=>0, content=>"0,$v_max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef},
|
|
{ label=>" Message class# ", param_name=>'class', type=>'Spin-button', default_val=>0, content=>"0,$c_max,1", info=>undef, param_parent=>'select_multiple', ref_delay=> undef, new_status=>undef}
|
|
);
|
|
}
|
|
|
|
|
my @traces= $self->get_trace_list();
|
my @traces= get_trace_list($self,'raw');
|
my %f;
|
my %f;
|
|
|
|
|
my $sel=$self->object_get_attribute('select_multiple','action');
|
my $sel=$self->object_get_attribute('select_multiple','action');
|
|
|
foreach my $p (@traces) {
|
foreach my $p (@traces) {
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=$self->get_trace($p);
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=get_trace($self,'raw',$p);
|
$f{$file_id}=$file_id.'*';
|
$f{$file_id}=$file_id.'*';
|
$self->object_add_attribute("trace_$p",'selected', 1 ) if ($sel eq 'All');
|
$self->object_add_attribute("raw_$p",'selected', 1 ) if ($sel eq 'All');
|
$self->object_add_attribute("trace_$p",'selected', 0 ) if ($sel eq 'None');
|
$self->object_add_attribute("raw_$p",'selected', 0 ) if ($sel eq 'None');
|
$self->object_add_attribute("trace_$p",'selected', 1 ) if ($sel eq "All-$file_id*");
|
$self->object_add_attribute("raw_$p",'selected', 1 ) if ($sel eq "All-$file_id*");
|
$self->object_add_attribute("trace_$p",'selected', 0 ) if ($sel eq "None-$file_id*");
|
$self->object_add_attribute("raw_$p",'selected', 0 ) if ($sel eq "None-$file_id*");
|
|
|
my $seleceted =$self->object_get_attribute("trace_$p",'selected');
|
my $seleceted =$self->object_get_attribute("raw_$p",'selected');
|
foreach my $d (@selectedinfo) {
|
foreach my $d (@selectedinfo) {
|
my $val=$self->object_get_attribute($d->{param_parent},$d->{param_name}) if ($sel eq $d->{param_name} && $seleceted);
|
my $val=$self->object_get_attribute($d->{param_parent},$d->{param_name}) if ($sel eq $d->{param_name} && $seleceted);
|
$self->object_add_attribute("trace_$p",$d->{param_name}, $val ) if ($sel eq $d->{param_name}&& $seleceted);
|
$self->object_add_attribute("raw_$p",$d->{param_name}, $val ) if ($sel eq $d->{param_name}&& $seleceted);
|
|
|
}
|
}
|
}
|
}
|
my $sel_options= "Select,All,None";
|
my $sel_options= "Select,All,None";
|
if( keys %f > 1){
|
if( keys %f > 1){
|
| Line 489... |
Line 459... |
|
|
|
|
if(scalar @traces ){$table-> attach ($selcombo, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;}
|
if(scalar @traces ){$table-> attach ($selcombo, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;}
|
|
|
|
|
my @titles = (scalar @traces ) ? (" # "," Source "," Destination "," Bandwidth(MB) ", " Initial weight ", " Min pck size ", " Max pck size "):
|
my @titles;
|
|
#print "******************$mode*******************\n";
|
|
if($mode eq 'task'){
|
|
@titles = (scalar @traces ) ? (" # "," Source "," Destination "," Bandwidth(MB) ", " Initial weight ", " Min pck size ", " Max pck size "):
|
("Load a task graph");
|
("Load a task graph");
|
|
}
|
|
else{
|
|
@titles = (scalar @traces ) ? (" # "," Source "," Destination "," Bandwidth(MB) ", " Initial weight#", "Virtual chanel#", "Message class#"):
|
|
("Load an ORCC file");
|
|
}
|
|
|
my $auto=$self->object_get_attribute('Auto','Auto_inject');
|
my $auto=$self->object_get_attribute('Auto','Auto_inject');
|
|
|
push (@titles, (" Burst_size ", " Inject rate(%) ", " Inject rate variation(%) ")) if ($auto eq "1\'b0");
|
push (@titles, (" Burst_size ", " Inject rate(%) ", " Inject rate variation(%) ")) if ($auto eq "1\'b0" && $mode eq 'task');
|
foreach my $p (@titles){
|
foreach my $p (@titles){
|
$table-> attach (gen_label_in_left($p), $col, $col+1, $row, $row+1,'shrink','shrink',2,2);
|
$table-> attach (gen_label_in_left($p), $col, $col+1, $row, $row+1,'shrink','shrink',2,2);
|
$col++;
|
$col++;
|
}
|
}
|
$row++;
|
$row++;
|
| Line 506... |
Line 484... |
my $i=0;
|
my $i=0;
|
#my @t=sort { $a cmp $b } @traces;
|
#my @t=sort { $a cmp $b } @traces;
|
|
|
foreach my $p (@traces) {
|
foreach my $p (@traces) {
|
$col=0;
|
$col=0;
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=$self->get_trace($p);
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=get_trace($self,'raw',$p);
|
|
|
|
|
my $check = gen_check_box_object ($self,"trace_$p",'selected',0,'ref',0);
|
my $check = gen_check_box_object ($self,"raw_$p",'selected',0,'ref',0);
|
my $weight= gen_spin_object ($self,"trace_$p",'init_weight',"1,16,1", 1,undef,undef);
|
my $weight= gen_spin_object ($self,"raw_$p",'init_weight',"1,16,1", 1,undef,undef);
|
|
my $vc= gen_spin_object ($self,"raw_$p",'vc',"0,$v_max,1", 0,undef,undef);
|
|
my $class= gen_spin_object ($self,"raw_$p",'class',"0,$c_max,1", 0,undef,undef);
|
|
|
my $min=$self->object_get_attribute("trace_$p",'min_pck_size');
|
my $min=$self->object_get_attribute("raw_$p",'min_pck_size');
|
my $max=$self->object_get_attribute("trace_$p",'max_pck_size');
|
my $max=$self->object_get_attribute("raw_$p",'max_pck_size');
|
$min=$max=5 if(!defined $min);
|
$min=$max=5 if(!defined $min);
|
my $min_pck_size= gen_spin_object ($self,"trace_$p",'min_pck_size',"2,$max,1", 5,'ref',10);
|
my $min_pck_size= gen_spin_object ($self,"raw_$p",'min_pck_size',"2,$max,1", 5,'ref',10);
|
my $max_pck_size= gen_spin_object ($self,"trace_$p",'max_pck_size',"$min,1024,1", 5,'ref',10);
|
my $max_pck_size= gen_spin_object ($self,"raw_$p",'max_pck_size',"$min,1024,1", 5,'ref',10);
|
|
|
my $burst_size = gen_spin_object ($self,"trace_$p",'burst_size',"1,1024,1", 1,undef,undef);
|
my $burst_size = gen_spin_object ($self,"raw_$p",'burst_size',"1,1024,1", 1,undef,undef);
|
my $injct_rate = gen_spin_object ($self,"trace_$p",'injct_rate',"1,100,1", 10,undef,undef);
|
my $injct_rate = gen_spin_object ($self,"raw_$p",'injct_rate',"1,100,1", 10,undef,undef);
|
my $injct_rate_var = gen_spin_object ($self,"trace_$p",'injct_rate_var',"0,100,1", 20,undef,undef);
|
my $injct_rate_var = gen_spin_object ($self,"raw_$p",'injct_rate_var',"0,100,1", 20,undef,undef);
|
|
|
#my $weight= trace_$trace_id",'init_weight'
|
#my $weight= trace_$trace_id",'init_weight'
|
|
|
$table-> attach ($check, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($check, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
$table-> attach (gen_label_in_left($i), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left($i), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left("$src") ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left("$src") ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left("$dst") , $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left("$dst") , $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left("$Mbytes") ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left("$Mbytes") ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($weight ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($weight ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
if($mode eq 'task'){
|
$table-> attach ($min_pck_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($min_pck_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($max_pck_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($max_pck_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
if ($auto eq "1\'b0"){
|
if ($auto eq "1\'b0"){
|
$table-> attach ($burst_size ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($burst_size ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($injct_rate ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($injct_rate ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($injct_rate_var ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($injct_rate_var ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
}
|
}
|
|
}else{
|
|
$table-> attach ($vc ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
$table-> attach ($class ,$col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
}
|
|
|
$row++;
|
$row++;
|
$i++;
|
|
|
|
}
|
}
|
|
|
my $sc_win = gen_scr_win_with_adjst($self,'trace_pad');
|
my $sc_win = gen_scr_win_with_adjst($self,'trace_pad');
|
$sc_win->add_with_viewport($table);
|
$sc_win=add_widget_to_scrolled_win($table,$sc_win);
|
|
|
return $sc_win;
|
return $sc_win;
|
}
|
}
|
|
|
|
|
| Line 571... |
Line 553... |
my @data = split (/\s/,$row);
|
my @data = split (/\s/,$row);
|
|
|
next if (! defined $data[0]);
|
next if (! defined $data[0]);
|
next if ($data[0] eq '#' || scalar @data < 3);
|
next if ($data[0] eq '#' || scalar @data < 3);
|
|
|
$self->add_trace($f_id,$t_id,$data[0],$data[1],$data[2],$file);
|
$self->add_trace($f_id,'raw',$t_id,$data[0],$data[1],$data[2],$file);
|
$t_id++;
|
$t_id++;
|
}
|
}
|
$f_id++;
|
$f_id++;
|
$self->object_add_attribute("trace_id",undef,$t_id);
|
$self->object_add_attribute("trace_id",undef,$t_id);
|
$self->object_add_attribute("file_id",undef,$f_id);
|
$self->object_add_attribute("file_id",undef,$f_id);
|
| Line 590... |
Line 572... |
########
|
########
|
# map
|
# map
|
#######
|
#######
|
|
|
|
|
sub trace_map {
|
sub group_info {
|
my ($self,$tview)=@_;
|
my ($self,$tview,$mode)=@_;
|
my $table= def_table(10,10,FALSE);
|
my $table= def_table(10,10,FALSE);
|
|
|
|
|
my $sc_win = gen_scr_win_with_adjst($self,'trace_map');
|
my $sc_win = gen_scr_win_with_adjst($self,'trace_map');
|
$sc_win->add_with_viewport($table);
|
$sc_win=add_widget_to_scrolled_win($table,$sc_win);
|
|
|
my $row=0;
|
my $row=0;
|
my $col=0;
|
my $col=0;
|
|
|
my @titles = (" # "," Task-name ", " Mapped-to " ,"Lock ", " Sent-Bandwidth ", " Resvd-Bandwidth ", " Total-Bandwidth ");
|
my $lab= ($mode eq 'task')? "Task-name" :"Actor-name";
|
|
|
|
my @titles = (" # "," $lab ", " Internal" , " Sent ", " Resvd ", " Sent+Resvd ");
|
foreach my $p (@titles){
|
foreach my $p (@titles){
|
$table-> attach (gen_label_in_left($p), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left($p), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
}
|
}
|
$col=0;
|
$col=0;
|
$row++;
|
$row++;
|
|
|
# { label=>'Routers per Row', param_name=>'T1', type=>"Spin-button", default_val=>2, content=>"2,64,1", info=>undef, param_parent=>'noc_param', ref_delay=>undef},
|
|
|
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
|
|
|
|
|
|
|
my @tiles=get_tiles_name($self);
|
|
|
|
|
|
my $i=0;
|
my $i=0;
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
|
|
my @assigned = $self->get_assigned_tiles();
|
|
|
|
|
|
#a-b
|
|
my @list= get_diff_array(\@tiles ,\@assigned);
|
|
push(@list,'-');
|
|
|
|
#print "tils=@tiles \nass=@assigned \nlist=@list\n";
|
#print "tils=@tiles \nass=@assigned \nlist=@list\n";
|
my %com_tasks= $self->get_communication_task();
|
my %com_tasks= $self->get_communication_task('merge');
|
|
#print Dumper(\%com_tasks);
|
foreach my $p (@tasks){
|
foreach my $p (@tasks){
|
my $value=$self->object_get_attribute("MAP_TILE",$p);
|
|
$value = "-" if (!defined $value);
|
|
my @l=($value eq "-" || grep (/^\Q$value\E$/,@tiles)==0 )? @list : (@list,$value);
|
|
my $combo= map_combobox ($self,"$p",\@l,'-');
|
|
|
|
#my $lock=$self->object_get_attribute("MAP_LOCK",$p);
|
|
#$lock = 0 if (!defined $lock);
|
|
my $lock = gen_check_box_object ($self,"MAP_LOCK",$p,0,undef,undef);
|
|
|
|
|
|
$table-> attach (gen_label_in_left($i), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left($i), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left($p), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left($p), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($combo, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
$table-> attach ($lock, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
my @a=('internal' , 'sent','rsv','total');
|
my @a=('sent','rsv','total');
|
|
foreach my $q (@a){
|
foreach my $q (@a){
|
my $s = (defined $com_tasks{$p}{$q}) ? $com_tasks{$p}{$q} : '-';
|
my $s = (defined $com_tasks{$p}{$q}) ? $com_tasks{$p}{$q} : '-';
|
$table-> attach (gen_label_in_left($s), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_left($s), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
}
|
}
|
| Line 663... |
Line 626... |
$col=0;
|
$col=0;
|
$row++;
|
$row++;
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
return $sc_win;
|
return $sc_win;
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
########
|
|
# map_info
|
|
#######
|
|
|
|
|
|
|
########
|
########
|
# map_info
|
# map_info
|
#######
|
#######
|
|
|
|
|
sub map_info {
|
sub map_info {
|
my ($self)=@_;
|
my ($self)=@_;
|
my $sc_win = gen_scr_win_with_adjst($self,'map_info');
|
my $sc_win = gen_scr_win_with_adjst($self,'map_info');
|
my $table= def_table(10,10,FALSE);
|
my $table= def_table(10,10,FALSE);
|
$sc_win->add_with_viewport($table);
|
|
|
|
my $row=0;
|
my $row=0;
|
my $col=0;
|
my $col=0;
|
my ($avg,$max,$min,$norm)=get_map_info($self);
|
my ($avg,$max,$min,$norm)=get_map_info($self);
|
|
|
|
|
my @data = (
|
my @data = (
|
{label => "Average distance", value =>"$avg"},
|
{0 => "Average distance", 1 =>"$avg"},
|
{label => "Max distance", value =>"$max" },
|
{0 => "Max distance" , 1 =>"$max" },
|
{label => "Min distance",value => "$min"},
|
{0 => "Min distance" , 1 => "$min"},
|
{label => "Normlized data per hop", value =>"$norm" }
|
{0 => "Normalized data per hop", 1 =>"$norm" }
|
);
|
);
|
|
|
|
|
|
|
# create list store
|
# create list store
|
my $store = Gtk2::ListStore->new (#'Glib::Boolean', # => G_TYPE_BOOLEAN
|
my @clmn_type = ('Glib::String', 'Glib::String');
|
#'Glib::Uint', # => G_TYPE_UINT
|
my @clmns = ("Mapping Summary", " ");
|
'Glib::String', # => G_TYPE_STRING
|
add_widget_to_scrolled_win(gen_list_store (\@data,\@clmn_type,\@clmns),$sc_win);
|
'Glib::String'); # you get the idea
|
$sc_win->show_all;
|
|
|
# add data to the list store
|
|
foreach my $d (@data) {
|
|
my $iter = $store->append;
|
|
$store->set ($iter,
|
|
0, $d->{label},
|
|
1, $d->{value},
|
|
);
|
|
}
|
|
|
|
my $treeview = Gtk2::TreeView->new ($store);
|
|
$treeview->set_rules_hint (TRUE);
|
|
|
|
|
|
$treeview->set_search_column (1);
|
|
|
|
|
|
# add columns to the tree view
|
|
my $renderer = Gtk2::CellRendererToggle->new;
|
|
$renderer->signal_connect (toggled => \&fixed_toggled, $store);
|
|
|
|
|
|
|
|
# column for severities
|
|
$renderer = Gtk2::CellRendererText->new;
|
|
my $column = Gtk2::TreeViewColumn->new_with_attributes ("Mapping summary",
|
|
$renderer,
|
|
text => 0);
|
|
$column->set_sort_column_id (0);
|
|
$treeview->append_column ($column);
|
|
|
|
# column for description
|
|
$renderer = Gtk2::CellRendererText->new;
|
|
$column = Gtk2::TreeViewColumn->new_with_attributes (" ",
|
|
$renderer,
|
|
text => 1);
|
|
$column->set_sort_column_id (1);
|
|
$treeview->append_column ($column);
|
|
|
|
|
|
$table-> attach ($treeview, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
#$table-> attach (gen_label_in_left("Max distance: $max "), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
#$table-> attach (gen_label_in_left("Min distance: $min "), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
#$table-> attach (gen_label_in_left("Normlized data per hop: $norm"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
|
|
|
|
return $sc_win;
|
return $sc_win;
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
sub get_map_info {
|
sub get_map_info {
|
my $self=shift;
|
my $self=shift;
|
my ($avg,$max,$min,$norm)=(0,0,999999,0);
|
my ($avg,$max,$min,$norm)=(0,0,999999,0);
|
my $sum=0;
|
my $sum=0;
|
my $num=0;
|
my $num=0;
|
|
|
my $data=0;
|
my $data=0;
|
my $comtotal=0;
|
my $comtotal=0;
|
|
|
my @traces= $self->get_trace_list();
|
my @traces= get_trace_list($self,'merge');
|
|
|
foreach my $p (@traces) {
|
foreach my $p (@traces) {
|
my ($src, $dst, $Mbytes, $file_id, $file_name)=$self->get_trace($p);
|
my ($src, $dst, $Mbytes, $file_id, $file_name)=get_trace($self,'merge',$p);
|
my $src_tile = $self->object_get_attribute('MAP_TILE',"$src");
|
#my $src_tile = $self->object_get_attribute('MAP_TILE',"$src");
|
my $dst_tile = $self->object_get_attribute('MAP_TILE',"$dst");
|
my $src_tile = get_task_give_tile($self,"$src");
|
|
#my $dst_tile = $self->object_get_attribute('MAP_TILE',"$dst");
|
|
my $dst_tile = get_task_give_tile($self,"$dst");
|
next if(!defined $src_tile || !defined $dst_tile );
|
next if(!defined $src_tile || !defined $dst_tile );
|
next if($src_tile eq '-' || $dst_tile eq "-" );
|
next if($src_tile eq '-' || $dst_tile eq "-" );
|
my ($src_x,$src_y)= tile_id_to_loc($src_tile);
|
#my ($src_x,$src_y)= tile_id_to_loc($src_tile);
|
my ($dst_x,$dst_y)= tile_id_to_loc($dst_tile);
|
|
|
|
|
|
|
|
|
#my ($dst_x,$dst_y)= tile_id_to_loc($dst_tile);
|
#print" ($dst_x,$dst_y)= tile_id_to_loc($dst_tile)\n";
|
#print" ($dst_x,$dst_y)= tile_id_to_loc($dst_tile)\n";
|
|
|
my $mah_distance=get_mah_distance($src_x,$src_y,$dst_x,$dst_y);
|
my $mah_distance=get_endpoints_mah_distance($self,tile_id_number($src_tile),tile_id_number($dst_tile));
|
#print "$mah_distance=get_mah_distance($src_x,$src_y,$dst_x,$dst_y);\n";
|
#print "$mah_distance=get_mah_distance($src_x,$src_y,$dst_x,$dst_y);\n";
|
$min = $mah_distance if($min> $mah_distance);
|
$min = $mah_distance if($min> $mah_distance);
|
$max = $mah_distance if($max< $mah_distance);
|
$max = $mah_distance if($max< $mah_distance);
|
$sum+=$mah_distance;
|
$sum+=$mah_distance;
|
$num++;
|
$num++;
|
| Line 801... |
Line 734... |
|
|
|
|
sub map_combobox {
|
sub map_combobox {
|
my ($object,$task_name,$content,$default)=@_;
|
my ($object,$task_name,$content,$default)=@_;
|
my @combo_list=@{$content};
|
my @combo_list=@{$content};
|
my $value=$object->object_get_attribute("MAP_TILE",$task_name);
|
#my $value=$object->object_get_attribute("MAP_TILE",$task_name);
|
|
my $value=get_task_give_tile($object,$task_name);
|
my $pos;
|
my $pos;
|
$pos=get_pos($value, @combo_list) if (defined $value);
|
$pos=get_pos($value, @combo_list) if (defined $value);
|
if(!defined $pos && defined $default){
|
if(!defined $pos && defined $default){
|
$object->object_add_attribute("MAP_TILE",$task_name,$default);
|
#$object->object_add_attribute("MAP_TILE",$task_name,$default);
|
$pos=get_item_pos($default, @combo_list);
|
$pos=get_item_pos($default, @combo_list);
|
}
|
}
|
#print " my $pos=get_item_pos($value, @combo_list);\n";
|
#print " my $pos=get_item_pos($value, @combo_list);\n";
|
my $widget=gen_combo(\@combo_list, $pos);
|
my $widget=gen_combo(\@combo_list, $pos);
|
$widget-> signal_connect("changed" => sub{
|
$widget-> signal_connect("changed" => sub{
|
| Line 850... |
Line 784... |
# load_workspace
|
# load_workspace
|
############
|
############
|
|
|
sub load_workspace {
|
sub load_workspace {
|
my $self=shift;
|
my $self=shift;
|
my $file;
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $dialog = Gtk2::FileChooserDialog->new(
|
|
'Select a File', undef,
|
|
'open',
|
|
'gtk-cancel' => 'cancel',
|
|
'gtk-ok' => 'ok',
|
|
);
|
|
|
|
my $filter = Gtk2::FileFilter->new();
|
my $file;
|
$filter->set_name("TRC");
|
my $dialog = gen_file_dialog(undef,'TRC');
|
$filter->add_pattern("*.TRC");
|
|
$dialog->add_filter ($filter);
|
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
$dialog->set_current_folder ("$dir/lib/simulate");
|
$dialog->set_current_folder ("$dir/lib/simulate");
|
|
|
|
|
if ( "ok" eq $dialog->run ) {
|
if ( "ok" eq $dialog->run ) {
|
$file = $dialog->get_filename;
|
$file = $dialog->get_filename;
|
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
|
my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
|
if($suffix eq '.TRC'){
|
if($suffix eq '.TRC'){
|
|
|
my ($pp,$r,$err) = regen_object($file);
|
my ($pp,$r,$err) = regen_object($file);
|
if ($r){
|
if ($r){
|
message_dialog("**Error reading $file file: $err\n");
|
message_dialog("Error reading $file file: $err\n",'error');
|
$dialog->destroy;
|
$dialog->destroy;
|
return;
|
return;
|
}
|
}
|
|
|
|
my ($tmp,$r1,$err1) = regen_object($file);
|
|
|
|
|
|
clone_obj($tmp,$self);
|
|
|
|
|
clone_obj($self,$pp);
|
clone_obj($self,$pp);
|
|
|
|
#update current parameter
|
|
my @pnames=('soc_name','ni_name','noc_param');
|
|
foreach my $n (@pnames){
|
|
my $param=$tmp->object_get_attribute($n);
|
|
if( defined $param){
|
|
my %params=%{$param};
|
|
foreach my $p (sort keys %params){
|
|
$self->{$n}{$p}=$params{$p};
|
|
}
|
|
}
|
|
}
|
|
|
|
#update mpsocname
|
|
$self->object_add_attribute('mpsoc_name',undef,$mpsoc_name) if (defined $mpsoc_name);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#print Dumper($self);
|
|
|
#message_dialog("done!");
|
#message_dialog("done!");
|
}
|
}
|
}
|
}
|
$dialog->destroy;
|
$dialog->destroy;
|
}
|
}
|
|
|
|
|
########
|
########
|
# genereate_output
|
# genereate_output_tasks
|
########
|
########
|
|
|
sub genereate_output{
|
sub genereate_output_tasks{
|
my $self=shift;
|
my $self=shift;
|
my $name= $self->object_get_attribute('out_name');
|
my $name= $self->object_get_attribute('out_name');
|
my $size= (defined $name)? length($name) :0;
|
my $size= (defined $name)? length($name) :0;
|
if ($size ==0) {
|
if ($size ==0) {
|
message_dialog("Please define the output file name!");
|
message_dialog("Please define the output file name!");
|
| Line 905... |
Line 860... |
# make target dir
|
# make target dir
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $target_dir = "$ENV{'PRONOC_WORK'}/traffic_pattern";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/traffic_pattern";
|
mkpath("$target_dir",1,0755);
|
mkpath("$target_dir",1,0755);
|
|
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
foreach my $p (@tasks) {
|
foreach my $p (@tasks) {
|
my $tile=$self->object_get_attribute("MAP_TILE",$p);
|
#my $tile=$self->object_get_attribute("MAP_TILE",$p);
|
|
my $tile= get_task_give_tile($self,$p);
|
if ( $tile eq "-" ){
|
if ( $tile eq "-" ){
|
message_dialog("Error: unmapped task. Please map task $p to a tile", 'error' );
|
message_dialog("Error: unmapped task. Please map task $p to a tile", 'error' );
|
return;
|
return;
|
}
|
}
|
|
|
| Line 928... |
Line 884... |
my $self=shift;
|
my $self=shift;
|
my $file="% source tile, destination tile, bytes, initial_weight, min_pck_size, max_pck_size, burst_size, injection_rate(%), injection_rate variation(%)\n";
|
my $file="% source tile, destination tile, bytes, initial_weight, min_pck_size, max_pck_size, burst_size, injection_rate(%), injection_rate variation(%)\n";
|
|
|
|
|
|
|
my @traces= $self->get_trace_list();
|
my @tasks= get_trace_list($self,'merge');
|
foreach my $p (@traces) {
|
my @traces= get_trace_list($self,'raw');
|
my ($src,$dst, $Mbytes, $file_id, $file_name,$init_weight,$min_pck, $max_pck, $burst, $injct_rate, $injct_rate_var)=$self->get_trace($p);
|
|
|
|
|
foreach my $p (@traces){
|
|
my ($src_r,$dst_r, $Mbytes_r, $file_id_r, $file_name_r,$init_weight_r,$min_pck_r, $max_pck_r, $burst_r, $injct_rate_r, $injct_rate_var_r)=get_trace($self,'raw',$p);
|
|
|
my $src_tile=$self->get_tile_id($src);
|
|
my $dst_tile=$self->get_tile_id($dst);
|
|
my $auto=$self->object_get_attribute('Auto','Auto_inject');
|
|
|
|
my $bytes = $Mbytes * 1000000;
|
|
|
|
$file=$file."$src_tile, $dst_tile, $bytes, $init_weight, $min_pck, $max_pck";
|
my $src =$self->get_item_group_name('grouping',$src_r);
|
$file=$file.", $burst, $injct_rate, $injct_rate_var \n" if ($auto eq "1\'b0");
|
my $dst =$self->get_item_group_name('grouping',$dst_r);
|
$file=$file." \n" if ($auto eq "1\'b1");
|
if ($src eq $dst){
|
}
|
# source-destination is merged to one tile so ommit it
|
|
next;
|
|
|
return $file;
|
}else{
|
}
|
|
|
|
sub get_tile_id{
|
|
my ($self,$task)=@_;
|
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
|
my $tile=$self->object_get_attribute("MAP_TILE",$task);
|
|
my ($x, $y) = $tile =~ /(\d+)/g;
|
|
$y=0 if(!defined $y);
|
|
my $IP_NUM = ($y * $nx) + $x;
|
|
return $IP_NUM;
|
|
}
|
|
|
|
sub object_add_attribute{
|
my $minpck = $self->object_get_attribute("raw_$p",'min_pck_size');
|
my ($self,$attribute1,$attribute2,$value)=@_;
|
my $maxpck = $self->object_get_attribute("raw_$p",'max_pck_size');
|
if(!defined $attribute2){$self->{$attribute1}=$value;}
|
my $avg_pck_size =($minpck+ $maxpck)/2;
|
else {$self->{$attribute1}{$attribute2}=$value;}
|
my $pck_num = ($Mbytes_r*8) /($avg_pck_size*64);
|
|
$pck_num= 1 if($pck_num==0);
|
|
|
}
|
my $src_tile = tile_id_number(get_task_give_tile($self,"$src"));
|
|
my $dst_tile = tile_id_number(get_task_give_tile($self,"$dst"));
|
|
|
|
my $auto=$self->object_get_attribute('Auto','Auto_inject');
|
|
|
|
my $bytes = $Mbytes_r * 1000000;
|
|
|
sub object_get_attribute{
|
$file=$file."$src_tile, $dst_tile, $bytes, $init_weight_r, $min_pck_r, $max_pck_r";
|
my ($self,$attribute1,$attribute2)=@_;
|
$file=$file.", $burst_r, $injct_rate_r, $injct_rate_var_r \n" if ($auto eq "1\'b0");
|
if(!defined $attribute2) {return $self->{$attribute1};}
|
$file=$file." \n" if ($auto eq "1\'b1");
|
return $self->{$attribute1}{$attribute2};
|
|
|
|
|
|
}
|
}
|
|
}
|
|
|
|
|
sub object_add_attribute_order{
|
|
my ($self,$attribute,@param)=@_;
|
|
$self->{'parameters_order'}{$attribute}=[] if (!defined $self->{parameters_order}{$attribute});
|
|
foreach my $p (@param){
|
|
push (@{$self->{parameters_order}{$attribute}},$p);
|
|
|
|
}
|
|
}
|
|
sub object_get_attribute_order{
|
|
my ($self,$attribute)=@_;
|
|
return @{$self->{parameters_order}{$attribute}};
|
|
}
|
|
|
|
sub object_remove_attribute{
|
return $file;
|
my ($self,$attribute1,$attribute2)=@_;
|
|
if(!defined $attribute2){
|
|
delete $self->{$attribute1} if ( exists( $self->{$attribute1}));
|
|
}
|
}
|
else {
|
|
delete $self->{$attribute1}{$attribute2} if ( exists( $self->{$attribute1}{$attribute2})); ;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
sub add_trace{
|
sub add_trace{
|
my ($self, $file_id,$trace_id, $source,$dest, $Mbytes, $file_name)=@_;
|
my ($self, $file_id,$category,$trace_id, $source,$dest, $Mbytes, $file_name,$src_port,$dst_port,$buff_size,$chanel,$vc,$class)=@_;
|
$self->object_add_attribute("trace_$trace_id",'file',$file_id);
|
$self->object_add_attribute("${category}_$trace_id",'file',$file_id);
|
$self->object_add_attribute("trace_$trace_id",'source',"${file_id}${source}");
|
$self->object_add_attribute("${category}_$trace_id",'source',"${source}");
|
$self->object_add_attribute("trace_$trace_id",'destination',"${file_id}${dest}");
|
$self->object_add_attribute("${category}_$trace_id",'destination',"${dest}");
|
$self->object_add_attribute("trace_$trace_id",'Mbytes', $Mbytes);
|
$self->object_add_attribute("${category}_$trace_id",'Mbytes', $Mbytes);
|
$self->object_add_attribute("trace_$trace_id",'file_name', $file_name);
|
$self->object_add_attribute("${category}_$trace_id",'file_name', $file_name);
|
$self->object_add_attribute("trace_$trace_id",'selected', 0);
|
$self->object_add_attribute("${category}_$trace_id",'selected', 0);
|
$self->object_add_attribute("trace_$trace_id",'init_weight', 1);
|
$self->object_add_attribute("${category}_$trace_id",'init_weight', 1);
|
|
$self->object_add_attribute("${category}_$trace_id",'scr_port',$src_port);
|
|
$self->object_add_attribute("${category}_$trace_id",'dst_port',$dst_port);
|
|
$self->object_add_attribute("${category}_$trace_id",'buff_size',$buff_size);
|
|
$self->object_add_attribute("${category}_$trace_id",'chanel',$chanel);
|
|
$self->object_add_attribute("${category}_$trace_id",'vc',$vc);
|
|
$self->object_add_attribute("${category}_$trace_id",'class',$class);
|
|
$self->{"${category}_traces"}{$trace_id}=1;
|
|
|
$self->{'traces'}{$trace_id}=1;
|
}
|
|
|
|
sub add_trace_extra {
|
|
my ($self, $file_id,$category,$trace_id,$min_pck, $max_pck,$burst, $injct_rate, $injct_rate_var)=@_;
|
|
$self->object_add_attribute("${category}_$trace_id",'min_pck_size',$min_pck);
|
|
$self->object_add_attribute("${category}_$trace_id",'max_pck_size',$max_pck);
|
|
$self->object_add_attribute("${category}_$trace_id",'burst_size',$burst);
|
|
$self->object_add_attribute("${category}_$trace_id",'injct_rate',$injct_rate);
|
|
$self->object_add_attribute("${category}_$trace_id",'injct_rate_var',$injct_rate_var);
|
}
|
}
|
|
|
|
|
sub remove_trace{
|
sub remove_trace{
|
my ($self, $trace_id)=@_;
|
my ($self,$category, $trace_id)=@_;
|
delete $self->{"trace_$trace_id"};
|
delete $self->{"${category}_$trace_id"};
|
delete $self->{'traces'}{$trace_id};
|
delete $self->{"${category}_traces"}{$trace_id};
|
}
|
}
|
|
|
sub get_trace_list{
|
sub get_trace_list{
|
my ($self)=@_;
|
my ($self,$category)=@_;
|
return sort (keys %{$self->{'traces'}});
|
#print "($self,$category)\n";
|
|
return sort (keys %{$self->{"${category}_traces"}});
|
|
}
|
|
|
|
sub remove_all_traces{
|
|
my ($self,$category)=@_;
|
|
my @all =get_trace_list($self,$category);
|
|
foreach my $trace_id (@all ){
|
|
remove_trace ($self,$category, $trace_id);
|
|
}
|
}
|
}
|
|
|
sub get_trace{
|
|
my ($self,$trace_id)=@_;
|
|
my $file_id = $self->object_get_attribute("trace_$trace_id",'file');
|
|
my $source = $self->object_get_attribute("trace_$trace_id",'source');
|
|
my $dest = $self->object_get_attribute("trace_$trace_id",'destination');
|
|
my $Mbytes = $self->object_get_attribute("trace_$trace_id",'Mbytes');
|
|
my $file_name = $self->object_get_attribute("trace_$trace_id",'file_name');
|
|
my $init_weight = $self->object_get_attribute("trace_$trace_id",'init_weight');
|
|
my $min_pck_size= $self->object_get_attribute("trace_$trace_id",'min_pck_size');
|
|
my $max_pck_size= $self->object_get_attribute("trace_$trace_id",'max_pck_size');
|
|
my $burst_size = $self->object_get_attribute("trace_$trace_id",'burst_size');
|
|
my $injct_rate = $self->object_get_attribute("trace_$trace_id",'injct_rate');
|
|
my $injct_rate_var = $self->object_get_attribute("trace_$trace_id",'injct_rate_var');
|
|
|
|
return ($source,$dest, $Mbytes, $file_id,$file_name,$init_weight,$min_pck_size, $max_pck_size, $burst_size, $injct_rate, $injct_rate_var);
|
sub get_trace{
|
|
my ($self,$category,$trace_id)=@_;
|
|
my $file_id = $self->object_get_attribute("${category}_$trace_id",'file');
|
|
my $source = $self->object_get_attribute("${category}_$trace_id",'source');
|
|
my $dest = $self->object_get_attribute("${category}_$trace_id",'destination');
|
|
my $Mbytes = $self->object_get_attribute("${category}_$trace_id",'Mbytes');
|
|
my $file_name = $self->object_get_attribute("${category}_$trace_id",'file_name');
|
|
my $init_weight = $self->object_get_attribute("${category}_$trace_id",'init_weight');
|
|
my $min_pck_size= $self->object_get_attribute("${category}_$trace_id",'min_pck_size');
|
|
my $max_pck_size= $self->object_get_attribute("${category}_$trace_id",'max_pck_size');
|
|
my $burst_size = $self->object_get_attribute("${category}_$trace_id",'burst_size');
|
|
my $injct_rate = $self->object_get_attribute("${category}_$trace_id",'injct_rate');
|
|
my $injct_rate_var = $self->object_get_attribute("${category}_$trace_id",'injct_rate_var');
|
|
my $src_port = $self->object_get_attribute("${category}_$trace_id",'scr_port');
|
|
my $dst_port = $self->object_get_attribute("${category}_$trace_id",'dst_port');
|
|
my $buff_size= $self->object_get_attribute("${category}_$trace_id",'buff_size');
|
|
my $chanel = $self->object_get_attribute("${category}_$trace_id",'chanel');
|
|
my $vc= $self->object_get_attribute("${category}_$trace_id",'vc');
|
|
my $class= $self->object_get_attribute("${category}_$trace_id",'class');
|
|
return ($source,$dest, $Mbytes, $file_id,$file_name,$init_weight,$min_pck_size, $max_pck_size, $burst_size, $injct_rate, $injct_rate_var, $src_port,$dst_port,$buff_size,$chanel,$vc,$class);
|
}
|
}
|
|
|
sub get_all_tasks{
|
sub get_all_tasks{
|
my $self=shift;
|
my ($self,$category)=@_;
|
my @traces= $self->get_trace_list();
|
my @traces= get_trace_list($self,$category);
|
my @x;
|
my @x;
|
foreach my $p (@traces){
|
foreach my $p (@traces){
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=$self->get_trace($p);
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=get_trace($self,$category,$p);
|
push(@x,$src);
|
push(@x,$src);
|
push(@x,$dst);
|
push(@x,$dst);
|
}
|
}
|
my @x2 = uniq(sort @x) if (scalar @x);
|
my @x2 = uniq(sort @x) if (scalar @x);
|
return @x2;
|
return @x2;
|
| Line 1059... |
Line 1016... |
|
|
|
|
sub remove_mapping{
|
sub remove_mapping{
|
my $self=shift;
|
my $self=shift;
|
$self->object_add_attribute('MAP_TASK',undef,undef);
|
$self->object_add_attribute('MAP_TASK',undef,undef);
|
$self->object_add_attribute('MAP_TILE',undef,undef);
|
$self->object_add_attribute('mapping',undef,undef);
|
|
#$self->object_add_attribute('MAP_TILE',undef,undef);
|
}
|
}
|
|
|
|
|
|
|
sub remove_nlock_mapping{
|
sub remove_nlock_mapping{
|
my $self=shift;
|
my $self=shift;
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
|
|
foreach my $p (@tasks){
|
foreach my $p (@tasks){
|
my $lock=$self->object_get_attribute("MAP_LOCK",$p);
|
my $lock=$self->object_get_attribute("MAP_LOCK",$p);
|
$lock = 0 if (!defined $lock);
|
$lock = 0 if (!defined $lock);
|
if($lock == 0){
|
if($lock == 0){
|
my $tile=$self->object_get_attribute("MAP_TILE",$p);
|
#my $tile=$self->object_get_attribute("MAP_TILE",$p);
|
$self->object_add_attribute("MAP_TILE",$p,undef);
|
my $tile=get_task_give_tile($self,$p);
|
|
#$self->object_add_attribute("MAP_TILE",$p,undef);
|
$self->object_add_attribute("MAP_TASK",$tile,undef);
|
$self->object_add_attribute("MAP_TASK",$tile,undef);
|
|
$self->object_add_attribute("mapping",$tile,undef);
|
|
|
|
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
|
|
sub get_nlock_tasks {
|
sub get_nlock_tasks {
|
#my ($self,$taskref,$tileref)=shift;
|
#my ($self,$taskref,$tileref)=shift;
|
my $self=shift;
|
my $self=shift;
|
my @unluck_tasks;
|
my @unluck_tasks;
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
|
|
foreach my $p (@tasks){
|
foreach my $p (@tasks){
|
my $lock=$self->object_get_attribute("MAP_LOCK",$p);
|
my $lock=$self->object_get_attribute("MAP_LOCK",$p);
|
$lock = 0 if (!defined $lock);
|
$lock = 0 if (!defined $lock);
|
if($lock == 0){
|
if($lock == 0){
|
| Line 1102... |
Line 1063... |
|
|
sub get_nlock_tiles {
|
sub get_nlock_tiles {
|
#my ($self,$taskref,$tileref)=shift;
|
#my ($self,$taskref,$tileref)=shift;
|
my $self=shift;
|
my $self=shift;
|
my @luck_tiles;
|
my @luck_tiles;
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
|
|
foreach my $task (@tasks){
|
foreach my $task (@tasks){
|
my $lock=$self->object_get_attribute("MAP_LOCK",$task);
|
my $lock=$self->object_get_attribute("MAP_LOCK",$task);
|
$lock = 0 if (!defined $lock);
|
$lock = 0 if (!defined $lock);
|
if($lock == 1){
|
if($lock == 1){
|
my $tile=$self->object_get_attribute('MAP_TILE',"$task");
|
#my $tile=$self->object_get_attribute('MAP_TILE',"$task");
|
|
my $tile=get_task_give_tile($self,"$task");
|
push(@luck_tiles,$tile);
|
push(@luck_tiles,$tile);
|
}
|
}
|
|
|
}
|
}
|
my @tiles=get_tiles_name($self);
|
my @tiles=get_tiles_name($self);
|
| Line 1123... |
Line 1085... |
|
|
|
|
sub get_locked_map {
|
sub get_locked_map {
|
my $self=shift;
|
my $self=shift;
|
my %map;
|
my %map;
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
|
|
foreach my $task (@tasks){
|
foreach my $task (@tasks){
|
my $lock=$self->object_get_attribute("MAP_LOCK",$task);
|
my $lock=$self->object_get_attribute("MAP_LOCK",$task);
|
|
|
$lock = 0 if (!defined $lock);
|
$lock = 0 if (!defined $lock);
|
if($lock == 1){
|
if($lock == 1){
|
my $tile=$self->object_get_attribute('MAP_TILE',"$task");
|
#my $tile=$self->object_get_attribute('MAP_TILE',"$task");
|
|
my $tile=get_task_give_tile($self,"$task");
|
$map{$task}=$tile;
|
$map{$task}=$tile;
|
}
|
}
|
|
|
}
|
}
|
return %map;
|
return %map;
|
| Line 1166... |
Line 1129... |
foreach my $task (@tasks){
|
foreach my $task (@tasks){
|
if($i>=scalar @rnd){
|
if($i>=scalar @rnd){
|
last;
|
last;
|
};
|
};
|
my $tile=$rnd[$i];
|
my $tile=$rnd[$i];
|
$self->object_add_attribute('MAP_TILE',"$task",$tile);
|
#$self->object_add_attribute('MAP_TILE',"$task",$tile);
|
$self->object_add_attribute('MAP_TASK',"$tile",$task);
|
$self->object_add_attribute('MAP_TASK',"$tile",$task);
|
|
my @l=($task);
|
|
$self->object_add_attribute("mapping","$tile",\@l);
|
|
|
$i++;
|
$i++;
|
|
|
}
|
}
|
|
|
| Line 1180... |
Line 1145... |
}
|
}
|
|
|
sub direct_map {
|
sub direct_map {
|
my $self=shift;
|
my $self=shift;
|
|
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
|
my $nc= $nx * $ny;
|
|
my @tasks=get_nlock_tasks($self);
|
my @tasks=get_nlock_tasks($self);
|
my @tiles=get_nlock_tiles($self);
|
my @tiles=get_nlock_tiles($self);
|
$self->remove_nlock_mapping() ;
|
$self->remove_nlock_mapping() ;
|
|
|
my @sort_tiles;
|
my @sort_tiles;
|
my %tilenum;
|
my %tilenum;
|
foreach my $tile (@tiles){
|
foreach my $tile (@tiles){
|
my ($x,$y)=tile_id_to_loc($tile);
|
#my ($x,$y)=tile_id_to_loc($tile);
|
my $id= $y*$nx+$x;
|
#my $id= $y*$nx+$x;
|
|
my $id=tile_id_number($tile);
|
$tilenum{$id}=$tile;
|
$tilenum{$id}=$tile;
|
}
|
}
|
|
|
foreach my $id (sort keys %tilenum){
|
foreach my $id (sort {$a <=> $b} keys %tilenum){
|
|
|
push(@sort_tiles, $tilenum{$id});
|
push(@sort_tiles, $tilenum{$id});
|
}
|
}
|
|
|
|
|
| Line 1210... |
Line 1174... |
foreach my $task (@sort_tasks){
|
foreach my $task (@sort_tasks){
|
if($i>=scalar @sort_tiles){
|
if($i>=scalar @sort_tiles){
|
last;
|
last;
|
};
|
};
|
my $tile=$sort_tiles[$i];
|
my $tile=$sort_tiles[$i];
|
$self->object_add_attribute('MAP_TILE',"$task",$tile);
|
#$self->object_add_attribute('MAP_TILE',"$task",$tile);
|
$self->object_add_attribute('MAP_TASK',"$tile",$task);
|
$self->object_add_attribute('MAP_TASK',"$tile",$task);
|
|
my @l = ($task);
|
|
$self->object_add_attribute("mapping","$tile",\@l);
|
|
|
$i++;
|
$i++;
|
|
|
}
|
}
|
|
|
| Line 1223... |
Line 1189... |
|
|
|
|
}
|
}
|
|
|
|
|
|
sub get_task_give_tile{
|
|
my ($self,$task)=@_;
|
|
my @tiles=get_tiles_name($self);
|
|
foreach my $p (@tiles){
|
|
my $r=$self->object_get_attribute("mapping","$p");
|
|
|
|
my @l=@{$r} if(defined $r);
|
|
if(defined $l[0] ){
|
|
return $p if($l[0] eq $task );
|
|
}
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
|
|
sub network_3dim_cal{
|
|
my $n_tasks= shift;
|
|
|
|
my $dim_x = floor($n_tasks**(1/3));
|
|
|
|
my ($dim_y,$dim_z)=network_dim_cal(ceil($n_tasks/$dim_x));
|
|
|
|
|
|
|
|
return ($dim_x,$dim_y,$dim_z);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
| Line 1247... |
Line 1238... |
|
|
|
|
sub get_tiles_name{
|
sub get_tiles_name{
|
my $self=shift;
|
my $self=shift;
|
my @tiles;
|
my @tiles;
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
#print " my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self)\n";
|
if(defined $ny){
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
if($ny == 1){
|
push(@tiles,"tile($tile_num)");
|
for(my $x=0; $x<$nx; $x++){
|
|
push(@tiles,"tile($x)");
|
|
}
|
|
|
|
}
|
|
else{
|
|
for(my $y=0; $y<$ny; $y++){my $nx=$self->object_get_attribute('noc_param','T1');
|
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
|
for(my $x=0; $x<$nx; $x++){
|
|
push(@tiles,"tile(${x}_$y)");
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
return @tiles;
|
|
}
|
}
|
|
|
sub get_tile_name{
|
return @tiles;
|
my ($self,$x,$y)=@_;
|
|
|
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
|
if(defined $ny){
|
|
return "tile($x)" if($ny == 1);
|
|
}
|
|
return "tile(${x}_$y)";
|
|
}
|
}
|
|
|
|
|
sub tile_id_to_loc{
|
sub tile_id_number{
|
my $tile=shift;
|
my $tile=shift;
|
my ($x, $y) = $tile =~ /(\d+)/g;
|
my ($x) = $tile =~ /(\d+)/g;
|
$y=0 if(!defined $y);
|
return $x;
|
return ($x,$y);
|
|
}
|
}
|
|
|
sub get_mah_distance{
|
|
my ($x1,$y1,$x2,$y2)=@_;
|
|
my $x_diff = ($x1 > $x2) ? ($x1 - $x2) : ($x2 - $x1);
|
|
my $y_diff = ($y1 > $y2) ? ($y1 - $y2) : ($y2 - $y1);
|
|
my $mah_distance = $x_diff + $y_diff;
|
|
return $mah_distance;
|
|
}
|
|
|
|
sub get_communication_task{
|
sub get_communication_task{
|
my $self=shift;
|
my ($self,$category)=@_;
|
my %com_tasks;
|
my %com_tasks;
|
my @traces= $self->get_trace_list();
|
my @tasks=get_all_merged_tasks($self);
|
my @tasks=get_all_tasks($self);
|
my @traces= get_trace_list($self,'raw');
|
|
|
|
|
|
|
foreach my $p (@tasks){
|
foreach my $p (@tasks){
|
$com_tasks{$p}{'total'}= 0;
|
$com_tasks{$p}{'total'}= 0;
|
|
|
foreach my $q (@tasks){
|
foreach my $q (@tasks){
|
$com_tasks{$p}{$q}= 0;
|
$com_tasks{$p}{$q}= 0;
|
|
|
}
|
}
|
}
|
}
|
|
|
foreach my $p (@traces){
|
foreach my $p (@traces){
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=$self->get_trace($p);
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=get_trace($self,'raw',$p);
|
|
$src =$self->get_item_group_name('grouping',$src);
|
|
$dst =$self->get_item_group_name('grouping',$dst);
|
|
if ($src eq $dst){
|
|
$com_tasks{$src}{'internal'} += $Mbytes;
|
|
|
|
}else{
|
|
|
$com_tasks{$src}{'sent'} += $Mbytes;
|
$com_tasks{$src}{'sent'} += $Mbytes;
|
$com_tasks{$dst}{'rsv'} += $Mbytes;
|
$com_tasks{$dst}{'rsv'} += $Mbytes;
|
|
|
$com_tasks{$src}{'total'} += $Mbytes;
|
$com_tasks{$src}{'total'} += $Mbytes;
|
| Line 1324... |
Line 1293... |
$com_tasks{$file_id}{'maxsent'} = $com_tasks{$src}{'sent'} if(!defined $com_tasks{$file_id}{'maxsent'});
|
$com_tasks{$file_id}{'maxsent'} = $com_tasks{$src}{'sent'} if(!defined $com_tasks{$file_id}{'maxsent'});
|
$com_tasks{$file_id}{'maxsent'} = $com_tasks{$src}{'sent'} if( $com_tasks{$file_id}{'maxsent'}<$com_tasks{$src}{'sent'});
|
$com_tasks{$file_id}{'maxsent'} = $com_tasks{$src}{'sent'} if( $com_tasks{$file_id}{'maxsent'}<$com_tasks{$src}{'sent'});
|
|
|
|
|
|
|
my $minpck = $self->object_get_attribute("trace_$p",'min_pck_size');
|
my $minpck = $self->object_get_attribute("raw_$p",'min_pck_size');
|
my $maxpck = $self->object_get_attribute("trace_$p",'max_pck_size');
|
my $maxpck = $self->object_get_attribute("raw_$p",'max_pck_size');
|
my $avg_pck_size =($minpck+ $maxpck)/2;
|
my $avg_pck_size =($minpck+ $maxpck)/2;
|
my $pck_num = ($Mbytes*8) /($avg_pck_size*64);
|
my $pck_num = ($Mbytes*8) /($avg_pck_size*64);
|
$pck_num= 1 if($pck_num==0);
|
$pck_num= 1 if($pck_num==0);
|
$com_tasks{$src}{'min_pck_num'} =$pck_num if(!defined $com_tasks{$src}{'min_pck_num'});
|
$com_tasks{$src}{'min_pck_num'} =$pck_num if(!defined $com_tasks{$src}{'min_pck_num'});
|
$com_tasks{$src}{'min_pck_num'} =$pck_num if( $com_tasks{$src}{'min_pck_num'} > $pck_num);
|
$com_tasks{$src}{'min_pck_num'} =$pck_num if( $com_tasks{$src}{'min_pck_num'} > $pck_num);
|
|
}
|
|
|
}
|
}
|
return %com_tasks;
|
return %com_tasks;
|
}
|
}
|
|
|
|
|
sub find_max_neighbor_tile{
|
sub find_max_neighbor_tile_old{
|
my $self=shift;
|
my $self=shift;
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
#Select the tile located in center as the max-neighbor if its not locked for any other task
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
my ($NE,$NR) = get_topology_info($self);
|
my $x_mid = floor($nx/2);
|
|
my $y_mid = floor($ny/2);
|
my $ne_mid = floor($NE/2);
|
|
print "$ne_mid = $ne_mid\n";
|
|
|
|
|
#my $centered_tile= get_tile_name($self,$x_mid ,$y_mid);
|
#my $centered_tile= get_tile_name($self,$x_mid ,$y_mid);
|
#Select the tile located in center as the max-neighbor if its not locked for any other task
|
#Select the tile located in center as the max-neighbor if its not locked for any other task
|
#therwise select the tile with the min manhatan distance to center tile
|
#therwise select the tile with the min manhatan distance to center tile
|
my @tiles=get_nlock_tiles($self);
|
my @tiles=get_nlock_tiles($self);
|
my $min=1000000;
|
my $min=1000000;
|
my $max_neighbors_tile_id;
|
my $max_neighbors_tile_id;
|
foreach my $tile (@tiles){
|
foreach my $tile (@tiles){
|
my ($x,$y)=tile_id_to_loc($tile);
|
#my ($x,$y)=tile_id_to_loc($tile);
|
my $mah_distance=get_mah_distance($x,$y,$x_mid,$y_mid);
|
my $tile_num = tile_id_number($tile);
|
|
my $mah_distance=get_endpoints_mah_distance($self,$ne_mid,$tile_num);
|
|
|
if($min > $mah_distance ){
|
if($min > $mah_distance ){
|
$min = $mah_distance;
|
$min = $mah_distance;
|
$max_neighbors_tile_id=$tile;
|
$max_neighbors_tile_id=$tile;
|
}
|
}
|
|
|
| Line 1363... |
Line 1338... |
|
|
return $max_neighbors_tile_id;
|
return $max_neighbors_tile_id;
|
}
|
}
|
|
|
|
|
|
sub find_max_neighbor_tile{
|
|
my $self=shift;
|
|
#Select the tile with the list manhatan distance from all endpoints
|
|
my ($NE,$NR) = get_topology_info($self);
|
|
my $min_manth_dist_acum;
|
|
my $max_neighbors_tile_id;
|
|
|
|
for (my $i=0; $i<$NE; $i++){
|
|
my $c=0;
|
|
for (my $j=0; $j<$NE; $j++){
|
|
next if($i==$j);
|
|
my $d=get_endpoints_mah_distance($self,$i,$j);
|
|
$c+=$d*$d;
|
|
}
|
|
$min_manth_dist_acum=$c if(!defined $min_manth_dist_acum);
|
|
if($c <= $min_manth_dist_acum){
|
|
$min_manth_dist_acum=$c;
|
|
$max_neighbors_tile_id="tile($i)";
|
|
}
|
|
|
|
}
|
|
|
|
|
|
return $max_neighbors_tile_id;
|
|
}
|
|
|
|
|
|
|
sub find_min_neighbor_tile {
|
sub find_min_neighbor_tile {
|
my $self=shift;
|
my $self=shift;
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
my $ne_mid = 0;
|
my $x_mid = 0;
|
|
my $y_mid = 0;
|
|
#my $centered_tile= get_tile_name($self,$x_mid ,$y_mid);
|
#my $centered_tile= get_tile_name($self,$x_mid ,$y_mid);
|
#Select the tile located in center as the max-neighbor if its not locked for any other task
|
#Select the tile located in center as the max-neighbor if its not locked for any other task
|
#therwise select the tile with the min manhatan distance to center tile
|
#otherwise select the tile with the min Manhattan distance to center tile
|
my @tiles=get_nlock_tiles($self);
|
my @tiles=get_nlock_tiles($self);
|
my $min=1000000;
|
my $min=1000000;
|
my $min_neighbors_tile_id;
|
my $min_neighbors_tile_id;
|
foreach my $tile (@tiles){
|
foreach my $tile (@tiles){
|
my ($x,$y)=tile_id_to_loc($tile);
|
#my ($x,$y)=tile_id_to_loc($tile);
|
my $mah_distance=get_mah_distance($x,$y,$x_mid,$y_mid);
|
my $tile_num = tile_id_number($tile);
|
|
my $mah_distance=get_endpoints_mah_distance($self,$ne_mid,$tile_num );
|
if($min > $mah_distance ){
|
if($min > $mah_distance ){
|
$min = $mah_distance;
|
$min = $mah_distance;
|
$min_neighbors_tile_id=$tile;
|
$min_neighbors_tile_id=$tile;
|
}
|
}
|
|
|
| Line 1391... |
Line 1394... |
}
|
}
|
|
|
|
|
|
|
sub nmap_algorithm{
|
sub nmap_algorithm{
|
|
|
my $self=shift;
|
my $self=shift;
|
|
|
|
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
my $nc= $nx * $ny;
|
my $nc= $nx * $ny;
|
|
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
my @tiles= get_tiles_name($self);
|
my @tiles= get_tiles_name($self);
|
|
|
my $n_tasks = scalar @tasks;
|
my $n_tasks = scalar @tasks;
|
|
|
|
|
|
|
|
|
my @unmapped_tasks_set=@tasks; # unmapped set of tasks
|
my @unmapped_tasks_set=@tasks; # unmapped set of tasks
|
my @unallocated_tiles_set=@tiles; # tile ids which are not allocated yet
|
my @unallocated_tiles_set=@tiles; # tile ids which are not allocated yet
|
|
|
|
# print "@unmapped_tasks_set *** @unallocated_tiles_set\n";
|
|
|
|
|
#------ step 1: find the task with highest weighted communication volume
|
#------ step 1: find the task with highest weighted communication volume
|
# find the max of com_vol
|
# find the max of com_vol
|
# consider all incoming and outgoing connections of each tasks
|
# consider all incoming and outgoing connections of each tasks
|
|
|
my %com_tasks= $self->get_communication_task();
|
my %com_tasks= $self->get_communication_task('merge');
|
#print Data::Dumper->Dump([\%com_tasks],['mpsoc']);
|
#print Data::Dumper->Dump([\%com_tasks],['mpsoc']);
|
|
|
my $max_com_task;
|
my $max_com_task;
|
my $max_com =0;
|
my $max_com =0;
|
foreach my $p (sort keys %com_tasks){
|
foreach my $p (sort keys %com_tasks){
|
#print "$p\n";
|
#print "**$p\n";
|
if(defined $com_tasks{$p}{'total'}){
|
if(defined $com_tasks{$p}{'total'}){
|
if ($com_tasks{$p}{'total'} >$max_com){
|
if ($com_tasks{$p}{'total'} >$max_com){
|
$max_com = $com_tasks{$p}{'total'};
|
$max_com = $com_tasks{$p}{'total'};
|
$max_com_task = $p;
|
$max_com_task = $p;
|
}}
|
}}
|
}
|
}
|
|
|
|
#print "m=$max_com t=$max_com_task\n";
|
|
|
|
|
#------ step 2: find the tile with max number of neighbors
|
#------ step 2: find the tile with max number of neighbors
|
# normally, this tile is in the middle of the array
|
# normally, this tile is in the middle of the array
|
my $max_neighbors_tile_id = find_max_neighbor_tile($self);
|
my $max_neighbors_tile_id = find_max_neighbor_tile($self);
|
|
|
|
print "\$max_neighbors_tile_id = $max_neighbors_tile_id\n";
|
|
|
|
|
|
|
my %map=get_locked_map ($self);
|
my %map=get_locked_map ($self);
|
$self->remove_nlock_mapping();
|
$self->remove_nlock_mapping();
|
| Line 1464... |
Line 1462... |
@unallocated_tiles_set=remove_scolar_from_array(\@unallocated_tiles_set,$max_neighbors_tile_id);
|
@unallocated_tiles_set=remove_scolar_from_array(\@unallocated_tiles_set,$max_neighbors_tile_id);
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#------ step 3: map all unmapped tasks
|
#------ step 3: map all unmapped tasks
|
while(scalar @unmapped_tasks_set){
|
while(scalar @unmapped_tasks_set){
|
$max_com =0;
|
$max_com =0;
|
my $max_com_unmapped_task;
|
my $max_com_unmapped_task;
|
my $max_overall_com=0;
|
my $max_overall_com=0;
|
| Line 1513... |
Line 1507... |
my $min_com_cost_tile_id;
|
my $min_com_cost_tile_id;
|
|
|
|
|
foreach my $unallocated_tile(@unallocated_tiles_set){
|
foreach my $unallocated_tile(@unallocated_tiles_set){
|
my $com_cost = 0;
|
my $com_cost = 0;
|
my ($unallocated_x,$unallocated_y)=tile_id_to_loc($unallocated_tile);
|
#my ($unallocated_x,$unallocated_y)=tile_id_to_loc($unallocated_tile);
|
|
my $unallocated_tile_num = tile_id_number($unallocated_tile);
|
# scan all mapped tasks
|
# scan all mapped tasks
|
foreach my $mapped_task (sort keys %map){
|
foreach my $mapped_task (sort keys %map){
|
# get location of this mapped task
|
# get location of this mapped task
|
my $mapped_tile=$map{$mapped_task};
|
my $mapped_tile=$map{$mapped_task};
|
my ($allocated_x,$allocated_y)=tile_id_to_loc($mapped_tile);
|
#my ($allocated_x,$allocated_y)=tile_id_to_loc($mapped_tile);
|
|
my $mapped_tile_num = tile_id_number($mapped_tile);
|
# mahattan distance of 2 tiles
|
# mahattan distance of 2 tiles
|
my $mah_distance=get_mah_distance($unallocated_x,$unallocated_y,$allocated_x,$allocated_y);
|
my $mah_distance=get_endpoints_mah_distance($self,$unallocated_tile_num,$mapped_tile_num);
|
|
|
|
|
$com_cost += $com_tasks{$max_com_unmapped_task}{$mapped_task} * $mah_distance;
|
$com_cost += $com_tasks{$max_com_unmapped_task}{$mapped_task} * $mah_distance;
|
$com_cost += $com_tasks{$mapped_task}{$max_com_unmapped_task} * $mah_distance;
|
$com_cost += $com_tasks{$mapped_task}{$max_com_unmapped_task} * $mah_distance;
|
|
|
| Line 1546... |
Line 1542... |
|
|
|
|
foreach my $mapped_task (sort keys %map){
|
foreach my $mapped_task (sort keys %map){
|
my $mapped_tile=$map{$mapped_task};
|
my $mapped_tile=$map{$mapped_task};
|
#print "$mapped_tile=\$map{$mapped_task};\n";
|
#print "$mapped_tile=\$map{$mapped_task};\n";
|
$self->object_add_attribute('MAP_TILE',"$mapped_task", $mapped_tile) if(defined $mapped_tile);
|
#$self->object_add_attribute('MAP_TILE',"$mapped_task", $mapped_tile) if(defined $mapped_tile);
|
$self->object_add_attribute('MAP_TASK',"$mapped_tile",$mapped_task) if(defined $mapped_tile);
|
$self->object_add_attribute('MAP_TASK',"$mapped_tile",$mapped_task) if(defined $mapped_tile);
|
|
my @l = ($mapped_task);
|
|
$self->object_add_attribute('mapping',"$mapped_tile",\@l) if(defined $mapped_tile);
|
|
#print "\$self->object_add_attribute('mapping',$mapped_tile,@l) if(defined $mapped_tile);\n";
|
}
|
}
|
set_gui_status($self,"ref",1);
|
set_gui_status($self,"ref",1);
|
|
|
}
|
}
|
|
|
| Line 1570... |
Line 1568... |
|
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
my $nx=$self->object_get_attribute('noc_param','T1');
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
my $ny=$self->object_get_attribute('noc_param','T2');
|
my $nc= $nx * $ny;
|
my $nc= $nx * $ny;
|
|
|
my @tasks=get_all_tasks($self);
|
my @tasks=get_all_merged_tasks($self);
|
my @tiles= get_tiles_name($self);
|
my @tiles= get_tiles_name($self);
|
|
|
my $n_tasks = scalar @tasks;
|
my $n_tasks = scalar @tasks;
|
|
|
|
|
| Line 1588... |
Line 1586... |
|
|
#------ step 1: find the task with highest weighted communication volume
|
#------ step 1: find the task with highest weighted communication volume
|
# find the max of com_vol
|
# find the max of com_vol
|
# consider all incoming and outgoing connections of each tasks
|
# consider all incoming and outgoing connections of each tasks
|
|
|
my %com_tasks= $self->get_communication_task();
|
my %com_tasks= $self->get_communication_task('merge');
|
#print Data::Dumper->Dump([\%com_tasks],['mpsoc']);
|
#print Data::Dumper->Dump([\%com_tasks],['mpsoc']);
|
|
|
my $max_com_task;
|
my $max_com_task;
|
my $max_com =0;
|
my $max_com =0;
|
foreach my $p (sort keys %com_tasks){
|
foreach my $p (sort keys %com_tasks){
|
| Line 1684... |
Line 1682... |
my $max_com_cost_tile_id;
|
my $max_com_cost_tile_id;
|
|
|
|
|
foreach my $unallocated_tile(@unallocated_tiles_set){
|
foreach my $unallocated_tile(@unallocated_tiles_set){
|
my $com_cost = 0;
|
my $com_cost = 0;
|
my ($unallocated_x,$unallocated_y)=tile_id_to_loc($unallocated_tile);
|
#my ($unallocated_x,$unallocated_y)=tile_id_to_loc($unallocated_tile);
|
|
my $unallocated_tile_num = tile_id_number($unallocated_tile);
|
# scan all mapped tasks
|
# scan all mapped tasks
|
foreach my $mapped_task (sort keys %map){
|
foreach my $mapped_task (sort keys %map){
|
# get location of this mapped task
|
# get location of this mapped task
|
my $mapped_tile=$map{$mapped_task};
|
my $mapped_tile=$map{$mapped_task};
|
my ($allocated_x,$allocated_y)=tile_id_to_loc($mapped_tile);
|
#my ($allocated_x,$allocated_y)=tile_id_to_loc($mapped_tile);
|
|
my $mapped_tile_num = tile_id_number($mapped_tile);
|
# mahattan distance of 2 tiles
|
# mahattan distance of 2 tiles
|
my $mah_distance=get_mah_distance($unallocated_x,$unallocated_y,$allocated_x,$allocated_y);
|
my $mah_distance=get_endpoints_mah_distance($self,$unallocated_tile_num,$mapped_tile_num);
|
|
|
|
|
$com_cost += $com_tasks{$max_com_unmapped_task}{$mapped_task} * $mah_distance;
|
$com_cost += $com_tasks{$max_com_unmapped_task}{$mapped_task} * $mah_distance;
|
$com_cost += $com_tasks{$mapped_task}{$max_com_unmapped_task} * $mah_distance;
|
$com_cost += $com_tasks{$mapped_task}{$max_com_unmapped_task} * $mah_distance;
|
|
|
}
|
}
|
| Line 1717... |
Line 1716... |
|
|
|
|
foreach my $mapped_task (sort keys %map){
|
foreach my $mapped_task (sort keys %map){
|
my $mapped_tile=$map{$mapped_task};
|
my $mapped_tile=$map{$mapped_task};
|
#print "$mapped_tile=\$map{$mapped_task};\n";
|
#print "$mapped_tile=\$map{$mapped_task};\n";
|
$self->object_add_attribute('MAP_TILE',"$mapped_task", $mapped_tile) if(defined $mapped_tile);
|
#$self->object_add_attribute('MAP_TILE',"$mapped_task", $mapped_tile) if(defined $mapped_tile);
|
$self->object_add_attribute('MAP_TASK',"$mapped_tile",$mapped_task) if(defined $mapped_tile);
|
|
|
|
|
$self->object_add_attribute('MAP_TASK',"$mapped_tile",$mapped_task) if(defined $mapped_tile);
|
|
my @l=($mapped_task);
|
|
$self->object_add_attribute("mapping","$mapped_tile",\@l) if(defined $mapped_tile);
|
|
#print "$self->object_add_attribute(\"mapping\",\"$mapped_tile\",$mapped_task);\n";
|
}
|
}
|
set_gui_status($self,"ref",1);
|
set_gui_status($self,"ref",1);
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub get_task_assigned_to_tile {
|
sub get_task_assigned_to_tile {
|
my ($self,$x,$y)=@_;
|
my ($self,$i)=@_;
|
my $p;
|
#my $p= $self->object_get_attribute("MAP_TASK","tile($i)");
|
$p= $self->object_get_attribute("MAP_TASK","tile($x)");
|
my $r=$self->object_get_attribute("mapping","tile($i)");
|
return $p if (defined $p);
|
return undef if(!defined $r);
|
$p= $self->object_get_attribute("MAP_TASK","tile(${x}_$y)");
|
my @l=@{$r};
|
return $p;
|
return $l[0];
|
}
|
}
|
|
|
|
|
|
|
sub get_assigned_tiles{
|
sub get_assigned_tiles{
|
my $self=shift;
|
my $self=shift;
|
my @tiles = sort keys %{$self->{'MAP_TASK'}};
|
my @assigned_tiles;
|
return @tiles;
|
my @tiles=get_tiles_name($self);
|
|
foreach my $p (@tiles){
|
|
my @l=@{$self->object_get_attribute("mapping","$p")};
|
|
push(@assigned_tiles,$p)if(defined $l[0] );
|
|
}
|
|
#my @assigned_tiles = sort keys %{$self->{'MAP_TASK'}};
|
|
return @assigned_tiles;
|
}
|
}
|
|
|
sub map_task {
|
sub map_task {
|
my ($self,$task,$tile)=@_;
|
my ($self,$task,$tile)=@_;
|
my $oldtile= $self->{"MAP_TILE"}{$task};
|
#my $oldtile= $self->{"MAP_TILE"}{$task};
|
|
my $oldtile=get_task_give_tile($self,$task);
|
if($tile eq "-"){
|
if($tile eq "-"){
|
delete $self->{"MAP_TILE"}{$task};
|
#delete $self->{"MAP_TILE"}{$task};
|
}else{
|
}else{
|
$self->{"MAP_TILE"}{$task}= $tile;
|
#$self->{"MAP_TILE"}{$task}= $tile;
|
$self->{'MAP_TASK'}{$tile}= $task;
|
$self->{'MAP_TASK'}{$tile}= $task;
|
|
my @l=($task);
|
|
$self->object_add_attribute("mapping","$tile",\@l);
|
}
|
}
|
delete $self->{"MAP_TASK"}{$oldtile} if(defined $oldtile);
|
delete $self->{"MAP_TASK"}{$oldtile} if(defined $oldtile);
|
|
$self->object_add_attribute("mapping",$oldtile,undef) if(defined $oldtile);
|
}
|
}
|
|
|
sub remove_selected_traces{
|
sub remove_selected_traces{
|
my $self=shift;
|
my ($self,$category)=@_;
|
my @traces= $self->get_trace_list();
|
my @traces= get_trace_list($self,$category);
|
foreach my $p (@traces) {
|
foreach my $p (@traces) {
|
my $select=$self->object_get_attribute("trace_$p",'selected', 0);
|
my $select=$self->object_get_attribute("${category}_$p",'selected', 0);
|
|
|
if($select){
|
if($select){
|
$self->remove_trace("$p");
|
$self->remove_trace($category,"$p");
|
|
|
}
|
}
|
}
|
}
|
set_gui_status($self,"ref",1);
|
set_gui_status($self,"ref",1);
|
}
|
}
|
|
|
|
|
|
|
sub auto_generate_injtratio{
|
sub auto_generate_injtratio{
|
my $self=shift;
|
my ($self,$category)=@_;
|
my %com_tasks= $self->get_communication_task();
|
my %com_tasks= $self->get_communication_task($category);
|
my @traces= $self->get_trace_list();
|
my @traces= get_trace_list($self,'raw');
|
foreach my $p (@traces) {
|
foreach my $p (@traces) {
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=$self->get_trace($p);
|
my ($src,$dst, $Mbytes, $file_id, $file_name)=get_trace($self,$category,$p);
|
my $max= $com_tasks{$file_id}{'maxsent'};
|
my $max= $com_tasks{$file_id}{'maxsent'};
|
my $sent= $com_tasks{$src}{'sent'};
|
my $sent= $com_tasks{$src}{'sent'};
|
my $ratio = ($sent*100)/$max;
|
my $ratio = ($sent*100)/$max;
|
$self->object_add_attribute("trace_$p",'injct_rate',$ratio);
|
$self->object_add_attribute("raw_$p",'injct_rate',$ratio);
|
|
|
my $minpck = $self->object_get_attribute("trace_$p",'min_pck_size');
|
my $minpck = $self->object_get_attribute("raw_$p",'min_pck_size');
|
my $maxpck = $self->object_get_attribute("trace_$p",'max_pck_size' );
|
my $maxpck = $self->object_get_attribute("raw_$p",'max_pck_size' );
|
my $avg_pck_size =($minpck+ $maxpck)/2;
|
my $avg_pck_size =($minpck+ $maxpck)/2;
|
my $pck_num = ($Mbytes*8) /($avg_pck_size*64);
|
my $pck_num = ($Mbytes*8) /($avg_pck_size*64);
|
|
|
|
|
my $burst =$pck_num/ $com_tasks{$src}{'min_pck_num'} ;
|
my $burst =$pck_num/ $com_tasks{$src}{'min_pck_num'} ;
|
$self->object_add_attribute("trace_$p",'burst_size',ceil($burst));
|
$self->object_add_attribute("raw_$p",'burst_size',ceil($burst));
|
|
|
|
#my $burst_size = gen_spin_object ($self,"raw_$p",'burst_size',"1,1024,1", 1,undef,undef);
|
|
|
|
|
|
|
|
}
|
|
set_gui_status($self,"ref",1);
|
|
|
|
|
|
}
|
|
|
|
|
|
sub trace_merger{
|
|
my ($self,$tview,$mode)=@_;
|
|
my $table= def_table(2,10,FALSE);
|
|
my $row=0;
|
|
my $col=0;
|
|
|
|
my $m= ($mode eq 'task')? "Task" :"Actor";
|
|
|
|
|
|
my $label = gen_label_in_center(' ');
|
|
$label->set_markup ("<u>Group ${m}s</u> ");
|
|
$table->attach ($label,$col, $col+5, $row, $row+1,'shrink','shrink',2,2);$col+=5;
|
|
my ($Ebox,$entry)=def_h_labeled_entry ("New group name:",undef);
|
|
$table->attach ($Ebox,$col, $col+4, $row, $row+1,'shrink','shrink',2,2);$col+=5;
|
|
my $add=def_image_button('icons/plus.png');
|
|
$table->attach ($add,$col, $col+1, $row, $row+1,'shrink','shrink',2,2);$col+=1;
|
|
|
|
$row++;
|
|
$col=0;
|
|
|
|
#my @info = (
|
|
#{ label=>'Number of Group', param_name=>'GROUP_NUM', type=>"Spin-button", default_val=>1, content=>"1,1000,1", info=>"Several ${m}s can be grouped and mapped on the same tile. Define the number of groups which ${m} can be categorized to.", param_parent=>'noc_param', ref_delay=>1,placement=>'vertical'}
|
|
#);
|
|
|
|
#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},'ref',$d->{placement});
|
|
#}
|
|
|
|
|
#my $burst_size = gen_spin_object ($self,"trace_$p",'burst_size',"1,1024,1", 1,undef,undef);
|
return add_widget_to_scrolled_win($table);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub select_trace_file {
|
|
my ($self,$tview,$mode)=@_;
|
|
my $traces=trace_pad($self,$tview,$mode);
|
|
my $traces_ctrl=trace_pad_ctrl($self,$tview,$mode);
|
|
my $h=gen_hpaned_adj($self,$traces_ctrl,.20,$traces,'trace-hpan');
|
|
return $h;
|
|
}
|
|
|
|
|
|
sub trace_maker_notebook{
|
|
my ($self,$mode,$tview)=@_;
|
|
my $notebook = gen_notebook();
|
|
my $lb= ($mode eq 'orcc')? 'Actor' : 'Trace';
|
|
my $group_num=16;
|
|
|
|
|
|
$notebook->set_tab_pos ('left');
|
|
$notebook->set_scrollable(TRUE);
|
|
|
|
my $page1=select_trace_file($self,$tview,$mode);
|
|
$notebook->append_page ($page1,gen_label_in_center ("1-Select $mode file"));
|
|
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
|
|
|
#group tasks
|
|
$self->object_add_attribute('grouping','group_name_root','group');
|
|
$self->object_add_attribute('grouping','group_name_editble','YES');
|
|
$self->object_add_attribute('grouping','trace_icon','icons/cd.png');
|
|
$self->object_add_attribute('grouping','group_num',$NE);
|
|
$self->object_add_attribute('grouping','map_limit',1024);
|
|
$self->object_add_attribute('grouping','lable',"${lb}s: Drag and drop ${lb}s to bottom group list");
|
|
my $group_ctrl =gen_group_ctrl_box($self,$tview,$mode);
|
|
|
|
my @tasks=get_all_tasks($self,'raw');
|
|
my $page2=drag_and_drop_page($self,$tview,'grouping',\@tasks,$group_ctrl);
|
|
$notebook->append_page ($page2,gen_label_in_center ("2-Group ${lb}s "));
|
|
|
|
#map tasks
|
|
$self->object_add_attribute('mapping','group_name_root','tile');
|
|
$self->object_add_attribute('mapping','group_name_editble','NO');
|
|
$self->object_add_attribute('mapping','trace_icon','icons/cd2.png');
|
|
$self->object_add_attribute('mapping','lable',"${lb}s: Drag and drop ${lb}s/grouped ${lb}s to bottom tile list");
|
|
$self->object_add_attribute('mapping','map_limit',1);
|
|
$self->object_add_attribute('mapping','group_num',$NE);
|
|
|
|
#get list of non-empty groups
|
|
my @merged_tasks=get_all_merged_tasks($self);
|
|
my $map_ctrl =gen_mapping_ctrl_box($self,$tview,$mode);
|
|
|
|
# check task names to be uniq
|
|
my @r= return_not_unique_names_in_array(@merged_tasks);
|
|
foreach my $p (@r){
|
|
add_colored_info($tview,"$lb name $p is not unique!\n",'red');
|
}
|
}
|
|
|
|
|
|
my $page3=drag_and_drop_page($self,$tview,'mapping',\@merged_tasks,$map_ctrl);
|
|
$notebook->append_page ($page3,gen_label_in_center ("3-Map ${lb}s"));
|
|
|
|
|
|
|
|
|
|
#my $page4=routing_page($self,$tview);
|
|
#$notebook->append_page ($page4,gen_label_in_center ("Route Selection"));
|
|
|
|
|
|
|
|
$notebook->show_all;
|
|
|
|
my $first=1;
|
|
my $page_num=$self->object_get_attribute ("process_notebook","currentpage");
|
|
$notebook->set_current_page ($page_num) if(defined $page_num);
|
|
$notebook->signal_connect( 'switch-page'=> sub{
|
|
$self->object_add_attribute ("process_notebook","currentpage",$_[2]); #save the new pagenumber
|
|
});
|
|
$notebook->signal_connect("switch-page" => sub{
|
|
if(!$first){
|
|
|
|
set_gui_status($self,"ref",1);
|
|
}else {
|
set_gui_status($self,"ref",1);
|
set_gui_status($self,"ref",1);
|
|
}
|
|
$first=0;
|
|
});
|
|
|
|
return $notebook;
|
|
|
|
}
|
|
|
|
sub get_all_merged_tasks {
|
|
my($self)=@_;
|
|
my @merged;
|
|
my $group_num=$self->object_get_attribute('mapping','group_num');
|
|
$group_num = 0 if(!defined $group_num);
|
|
for(my $i=0;$i<$group_num;$i=$i+1){
|
|
my $gref = $self->object_get_attribute('grouping',"group($i)");
|
|
next if(! defined $gref);
|
|
next if (scalar @{$gref} == 0);
|
|
|
|
my $label = $self->object_get_attribute('grouping',"group($i)"."_name");
|
|
$label = "group($i)" if(!defined $label);
|
|
push (@merged,"$label");
|
|
}
|
|
my $uref= $self->object_get_attribute('grouping','ungrouped');
|
|
push (@merged, @{$uref}) if(defined $uref);
|
|
return @merged;
|
|
}
|
|
|
|
|
|
|
|
sub gen_mapping_ctrl_box{
|
|
my ($self,$tview,$mode)=@_;
|
|
my $map_ctrl= trace_map_ctrl($self,$tview,$mode);
|
|
my $map_info=map_info($self);
|
|
my $v_paned=gen_vpaned($map_ctrl,.4,$map_info);
|
|
return $v_paned;
|
|
}
|
|
|
|
sub gen_group_ctrl_box{
|
|
my ($self,$tview,$mode)=@_;
|
|
my $group_ctrl= trace_group_ctrl($self,$tview,$mode);
|
|
#my $map_info=map_info($self);
|
|
#my $v_paned=gen_vpaned($map_ctrl,.5,$map_info);
|
|
#return $v_paned;
|
|
|
|
my $group_info = group_info ($self,$tview,$mode);
|
|
my $v_paned=gen_vpaned($group_ctrl,0.2,$group_info);
|
|
return $v_paned;
|
|
|
|
#return $group_ctrl;
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
sub build_trace_gui {
|
|
my ($self,$mode,$ref,$w) = @_;
|
|
set_gui_status($self,"ideal",0);
|
|
$self->object_add_attribute ("process_notebook","currentpage",0);
|
|
if($mode eq 'task'){
|
|
$self->object_add_attribute('noc_param','T1',2);
|
|
$self->object_add_attribute('noc_param','T2',2);
|
|
$self->object_add_attribute('noc_param','T3',1);
|
|
$self->object_add_attribute('noc_param','Fpay',32);
|
|
$self->object_add_attribute('noc_param','V',1);
|
|
$self->object_add_attribute('noc_param','C',1);
|
|
$self->object_add_attribute('noc_param','TOPOLOGY','"MESH"');
|
|
}
|
|
|
|
$self->object_add_attribute("file_id",undef,'a');
|
|
$self->object_add_attribute("trace_id",undef,0);
|
|
$self->object_add_attribute('select_multiple','action',"_");
|
|
$self->object_add_attribute('Auto','Auto_inject',"1\'b1");
|
|
if(defined $ref){
|
|
# add noc parameters
|
|
my %params=%{$ref};
|
|
foreach my $p (sort keys %params){
|
|
$self->{$p}=$params{$p};
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
my ($scwin_info,$tview)= create_txview();
|
|
my $notebook = trace_maker_notebook($self,$mode,$tview);
|
|
my $tt = ($mode eq 'task') ? 0.65 : 0.55;
|
|
|
|
my $v2=gen_vpaned($notebook,$tt,$scwin_info);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
set_gui_status($self,"ideal",0);
|
|
|
|
my $main_table= def_table(2,10,FALSE);
|
|
|
|
|
|
|
|
|
|
my $generate = def_image_button('icons/gen.png','Generate');
|
|
my $open = def_image_button('icons/browse.png','Load');
|
|
my ($entrybox,$entry) = def_h_labeled_entry('Save as:',undef);
|
|
$entry->signal_connect( 'changed'=> sub{
|
|
my $name=$entry->get_text();
|
|
$self->object_add_attribute ("save_as",undef,$name);
|
|
});
|
|
|
|
my $entry2=gen_entry_object($self,'out_name',undef,undef,undef,undef);
|
|
my $entrybox2=gen_label_info(" Output file name:",$entry2);
|
|
|
|
my $save = def_image_button('icons/save.png','Save');
|
|
$entrybox->pack_end($save, FALSE, FALSE,0);
|
|
|
|
$main_table->attach_defaults ($v2 , 0, 12, 0,24);
|
|
$main_table->attach ($open,0, 3, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($entrybox,3, 5, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($entrybox2,5,6 , 24,25,'expand','shrink',2,2) if ($mode eq 'task');
|
|
$main_table->attach ($generate, 6, 9, 24,25,'expand','shrink',2,2);
|
|
|
|
|
|
my $sc_win =add_widget_to_scrolled_win($main_table);
|
|
|
|
|
|
|
|
$open-> signal_connect("clicked" => sub{
|
|
|
|
load_workspace($self);
|
|
set_gui_status($self,"ref",5);
|
|
|
|
});
|
|
|
|
$save-> signal_connect("clicked" => sub{
|
|
save_as($self);
|
|
set_gui_status($self,"ref",5);
|
|
|
|
|
|
});
|
|
|
|
$generate->signal_connect("clicked" => sub{
|
|
genereate_output_tasks($self) if ($mode eq 'task');
|
|
genereate_output_orcc ($self,$tview,$w) if ($mode eq 'orcc');
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#check soc status every 0.5 second. refresh device table if there is any changes
|
|
Glib::Timeout->add (100, sub{
|
|
|
|
my ($state,$timeout)= get_gui_status($self);
|
|
|
|
if ($timeout>0){
|
|
$timeout--;
|
|
set_gui_status($self,$state,$timeout);
|
|
return TRUE;
|
|
|
|
}
|
|
if($state eq "ideal"){
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#refresh GUI
|
|
my $saved_name=$self->object_get_attribute('save_as');
|
|
if(defined $saved_name) {$entry->set_text($saved_name);}
|
|
|
|
$saved_name=$self->object_get_attribute('out_name');
|
|
if(defined $saved_name) {$entry2->set_text($saved_name);}
|
|
|
|
|
|
$notebook->destroy;
|
|
$notebook = trace_maker_notebook($self,$mode,$tview);
|
|
$v2 -> pack1($notebook, TRUE, TRUE);
|
|
|
|
set_gui_status($self,"ideal",0);
|
|
|
|
return TRUE;
|
|
|
|
} );
|
|
|
|
return $sc_win;
|
|
|
}
|
}
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|
