#! /usr/bin/perl -w
|
#! /usr/bin/perl -w
|
use constant::boolean;
|
use constant::boolean;
|
use strict;
|
use strict;
|
use warnings;
|
use warnings;
|
use FindBin;
|
use FindBin;
|
use lib $FindBin::Bin;
|
use lib $FindBin::Bin;
|
use mpsoc;
|
use mpsoc;
|
use soc;
|
use soc;
|
use ip;
|
use ip;
|
use interface;
|
use interface;
|
use POSIX 'strtol';
|
use POSIX 'strtol';
|
use File::Path;
|
use File::Path;
|
use File::Copy;
|
use File::Copy;
|
use Cwd 'abs_path';
|
use Cwd 'abs_path';
|
use Glib::Event;
|
use Glib::Event;
|
use Event; # any order
|
use Event; # any order
|
|
|
|
|
require "widget.pl";
|
require "widget.pl";
|
require "mpsoc_verilog_gen.pl";
|
require "mpsoc_verilog_gen.pl";
|
require "hdr_file_gen.pl";
|
require "hdr_file_gen.pl";
|
require "readme_gen.pl";
|
require "readme_gen.pl";
|
require "soc_gen.pl";
|
require "soc_gen.pl";
|
require "topology.pl";
|
require "topology.pl";
|
require "diagram.pl";
|
require "diagram.pl";
|
require "orcc.pl";
|
require "orcc.pl";
|
|
|
|
|
sub initial_default_param{
|
sub initial_default_param{
|
my $mpsoc=shift;
|
my $mpsoc=shift;
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
foreach my $soc_name (@socs){
|
foreach my $soc_name (@socs){
|
my %param_value;
|
my %param_value;
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my @insts=$top->top_get_all_instances();
|
my @insts=$top->top_get_all_instances();
|
my @exceptions=get_NI_instance_list($top);
|
my @exceptions=get_NI_instance_list($top);
|
@insts=get_diff_array(\@insts,\@exceptions);
|
@insts=get_diff_array(\@insts,\@exceptions);
|
foreach my $inst (@insts){
|
foreach my $inst (@insts){
|
my @params=$top->top_get_parameter_list($inst);
|
my @params=$top->top_get_parameter_list($inst);
|
foreach my $p (@params){
|
foreach my $p (@params){
|
my ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);
|
my ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);
|
$param_value{$p}=$default;
|
$param_value{$p}=$default;
|
}
|
}
|
}
|
}
|
$top->top_add_default_soc_param(\%param_value);
|
$top->top_add_default_soc_param(\%param_value);
|
}
|
}
|
|
|
}
|
}
|
|
|
#############
|
#############
|
# get_soc_lists
|
# get_soc_lists
|
############
|
############
|
|
|
sub get_soc_list {
|
sub get_soc_list {
|
my ($mpsoc,$info)=@_;
|
my ($mpsoc,$info)=@_;
|
my $path=$mpsoc->object_get_attribute('setting','soc_path');
|
my $path=$mpsoc->object_get_attribute('setting','soc_path');
|
$path =~ s/ /\\ /g;
|
$path =~ s/ /\\ /g;
|
my @socs;
|
my @socs;
|
my @files = glob "$path/*.SOC";
|
my @files = glob "$path/*.SOC";
|
for my $p (@files){
|
for my $p (@files){
|
my ($soc,$r,$err) = regen_object($p);
|
my ($soc,$r,$err) = regen_object($p);
|
# Read
|
# Read
|
if ($r){
|
if ($r){
|
add_info($info,"**Error reading $p file: $err\n");
|
add_info($info,"**Error reading $p file: $err\n");
|
next;
|
next;
|
}
|
}
|
my $top=$soc->soc_get_top();
|
my $top=$soc->soc_get_top();
|
if (defined $top){
|
if (defined $top){
|
my @instance_list=$top->top_get_all_instances();
|
my @instance_list=$top->top_get_all_instances();
|
#check if the soc has ni port
|
#check if the soc has ni port
|
foreach my $instanc(@instance_list){
|
foreach my $instanc(@instance_list){
|
my $category=$top->top_get_def_of_instance($instanc,'category');
|
my $category=$top->top_get_def_of_instance($instanc,'category');
|
if($category eq 'NoC')
|
if($category eq 'NoC')
|
{
|
{
|
my $name=$soc->object_get_attribute('soc_name');
|
my $name=$soc->object_get_attribute('soc_name');
|
#get old tile parameter setting
|
#get old tile parameter setting
|
my $old_top = $mpsoc->mpsoc_get_soc($name);
|
my $old_top = $mpsoc->mpsoc_get_soc($name);
|
copy_back_custom_soc_param($top,$old_top) if(defined $old_top);
|
copy_back_custom_soc_param($top,$old_top) if(defined $old_top);
|
$mpsoc->mpsoc_add_soc($name,$top);
|
$mpsoc->mpsoc_add_soc($name,$top);
|
#print" $name\n";
|
#print" $name\n";
|
}
|
}
|
}
|
}
|
|
|
}
|
}
|
}# files
|
}# files
|
|
|
# initial default soc parameter
|
# initial default soc parameter
|
initial_default_param($mpsoc);
|
initial_default_param($mpsoc);
|
return $mpsoc->mpsoc_get_soc_list;
|
return $mpsoc->mpsoc_get_soc_list;
|
}
|
}
|
|
|
sub copy_back_custom_soc_param{
|
sub copy_back_custom_soc_param{
|
my ($new,$old)=@_;
|
my ($new,$old)=@_;
|
my @tiles = $old->top_get_custom_tile_list();
|
my @tiles = $old->top_get_custom_tile_list();
|
foreach my $tile (@tiles){
|
foreach my $tile (@tiles){
|
my %l =$old->top_get_custom_soc_param($tile);
|
my %l =$old->top_get_custom_soc_param($tile);
|
$new->top_add_custom_soc_param (\%l,$tile);
|
$new->top_add_custom_soc_param (\%l,$tile);
|
}
|
}
|
|
|
}
|
}
|
|
|
sub get_NI_instance_list {
|
sub get_NI_instance_list {
|
my $top=shift;
|
my $top=shift;
|
my @nis;
|
my @nis;
|
return if (!defined $top);
|
return if (!defined $top);
|
my @instance_list=$top->top_get_all_instances();
|
my @instance_list=$top->top_get_all_instances();
|
#check if the soc has ni port
|
#check if the soc has ni port
|
foreach my $instanc(@instance_list){
|
foreach my $instanc(@instance_list){
|
my $category=$top->top_get_def_of_instance($instanc,'category');
|
my $category=$top->top_get_def_of_instance($instanc,'category');
|
push(@nis,$instanc) if($category eq 'NoC') ;
|
push(@nis,$instanc) if($category eq 'NoC') ;
|
}
|
}
|
return @nis;
|
return @nis;
|
}
|
}
|
|
|
####################
|
####################
|
# get_conflict_decision
|
# get_conflict_decision
|
###########################
|
###########################
|
|
|
|
|
sub get_conflict_decision{
|
sub get_conflict_decision{
|
my ($mpsoc,$name,$inserted,$conflicts,$msg)=@_;
|
my ($mpsoc,$name,$inserted,$conflicts,$msg)=@_;
|
$msg="\tThe inserted tile number(s) have been mapped previously to \n\t\t\"$msg\".\n\tDo you want to remove the conflicted tiles number(s) in newly \n\tinserted range or remove them from the previous ones? ";
|
$msg="\tThe inserted tile number(s) have been mapped previously to \n\t\t\"$msg\".\n\tDo you want to remove the conflicted tiles number(s) in newly \n\tinserted range or remove them from the previous ones? ";
|
|
|
my $wind=def_popwin_size(10,30,"warning",'percent');
|
my $wind=def_popwin_size(10,30,"warning",'percent');
|
my $label= gen_label_in_left($msg);
|
my $label= gen_label_in_left($msg);
|
my $table=def_table(2,6,FALSE);
|
my $table=def_table(2,6,FALSE);
|
$table->attach_defaults ($label , 0, 6, 0,1);
|
$table->attach_defaults ($label , 0, 6, 0,1);
|
$wind->add($table);
|
$wind->add($table);
|
|
|
my $b1= def_button("Remove Previous");
|
my $b1= def_button("Remove Previous");
|
my $b2= def_button("Remove Current");
|
my $b2= def_button("Remove Current");
|
my $b3= def_button("Cancel");
|
my $b3= def_button("Cancel");
|
|
|
$table->attach ($b1 , 0, 1, 1,2,'fill','fill',2,2);
|
$table->attach ($b1 , 0, 1, 1,2,'fill','fill',2,2);
|
$table->attach ($b2 , 3, 4, 1,2,'fill','fill',2,2);
|
$table->attach ($b2 , 3, 4, 1,2,'fill','fill',2,2);
|
$table->attach ($b3 , 5, 6, 1,2,'fill','fill',2,2);
|
$table->attach ($b3 , 5, 6, 1,2,'fill','fill',2,2);
|
|
|
|
|
$wind->show_all();
|
$wind->show_all();
|
|
|
$b1->signal_connect( "clicked"=> sub{ #Remove Previous
|
$b1->signal_connect( "clicked"=> sub{ #Remove Previous
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
foreach my $p (@socs){
|
foreach my $p (@socs){
|
if($p ne $name){
|
if($p ne $name){
|
my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);
|
my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);
|
my @diff=get_diff_array(\@taken_tiles,$inserted);
|
my @diff=get_diff_array(\@taken_tiles,$inserted);
|
$mpsoc->mpsoc_add_soc_tiles_num($p,\@diff) if(scalar @diff );
|
$mpsoc->mpsoc_add_soc_tiles_num($p,\@diff) if(scalar @diff );
|
$mpsoc->mpsoc_add_soc_tiles_num($p,undef) if(scalar @diff ==0 );
|
$mpsoc->mpsoc_add_soc_tiles_num($p,undef) if(scalar @diff ==0 );
|
}
|
}
|
}
|
}
|
$mpsoc->mpsoc_add_soc_tiles_num($name,$inserted) if(defined $inserted );
|
$mpsoc->mpsoc_add_soc_tiles_num($name,$inserted) if(defined $inserted );
|
#set_gui_status($mpsoc,"ref",1);
|
#set_gui_status($mpsoc,"ref",1);
|
$wind->destroy();
|
$wind->destroy();
|
get_soc_parameter_setting($mpsoc,$name, $inserted)if(defined $inserted );
|
get_soc_parameter_setting($mpsoc,$name, $inserted)if(defined $inserted );
|
|
|
});
|
});
|
|
|
$b2->signal_connect( "clicked"=> sub{#Remove Current
|
$b2->signal_connect( "clicked"=> sub{#Remove Current
|
my @new= get_diff_array($inserted,$conflicts);
|
my @new= get_diff_array($inserted,$conflicts);
|
$mpsoc->mpsoc_add_soc_tiles_num($name,\@new) if(scalar @new );
|
$mpsoc->mpsoc_add_soc_tiles_num($name,\@new) if(scalar @new );
|
$mpsoc->mpsoc_add_soc_tiles_num($name,undef) if(scalar @new ==0 );
|
$mpsoc->mpsoc_add_soc_tiles_num($name,undef) if(scalar @new ==0 );
|
#set_gui_status($mpsoc,"ref",1);
|
#set_gui_status($mpsoc,"ref",1);
|
$wind->destroy();
|
$wind->destroy();
|
get_soc_parameter_setting($mpsoc,$name, \@new) if(scalar @new );
|
get_soc_parameter_setting($mpsoc,$name, \@new) if(scalar @new );
|
|
|
});
|
});
|
|
|
$b3->signal_connect( "clicked"=> sub{
|
$b3->signal_connect( "clicked"=> sub{
|
$wind->destroy();
|
$wind->destroy();
|
|
|
});
|
});
|
}
|
}
|
|
|
|
|
#############
|
#############
|
# check_inserted_ip_nums
|
# check_inserted_ip_nums
|
##########
|
##########
|
sub check_inserted_ip_nums{
|
sub check_inserted_ip_nums{
|
my ($mpsoc,$name,$str)=@_;
|
my ($mpsoc,$name,$str)=@_;
|
my @all_num=();
|
my @all_num=();
|
$str= remove_all_white_spaces ($str);
|
$str= remove_all_white_spaces ($str);
|
|
|
if($str !~ /^[0-9.:,]+$/){ message_dialog ("The Ip numbers contains invalid character" ); return; }
|
if($str !~ /^[0-9.:,]+$/){ message_dialog ("The Ip numbers contains invalid character" ); return; }
|
my @chunks=split(/\s*,\s*/,$str);
|
my @chunks=split(/\s*,\s*/,$str);
|
foreach my $p (@chunks){
|
foreach my $p (@chunks){
|
my @range=split(':',$p);
|
my @range=split(':',$p);
|
my $size= scalar @range;
|
my $size= scalar @range;
|
if($size==1){ # its a number
|
if($size==1){ # its a number
|
if ( grep( /^$range[0]$/, @all_num ) ) { message_dialog ("Multiple definition for IP number $range[0]" ); return; }
|
if ( grep( /^$range[0]$/, @all_num ) ) { message_dialog ("Multiple definition for IP number $range[0]" ); return; }
|
push(@all_num,$range[0]);
|
push(@all_num,$range[0]);
|
}elsif($size ==2){# its a range
|
}elsif($size ==2){# its a range
|
my($min,$max)=@range;
|
my($min,$max)=@range;
|
if($min>$max) {message_dialog ("invalid range: [$p]",'error' ); return;}
|
if($min>$max) {message_dialog ("invalid range: [$p]",'error' ); return;}
|
for (my $i=$min; $i<=$max; $i++){
|
for (my $i=$min; $i<=$max; $i++){
|
if ( grep( /^$i$/, @all_num ) ) { message_dialog ("Multiple definition for IP number $i in $p" ); return; }
|
if ( grep( /^$i$/, @all_num ) ) { message_dialog ("Multiple definition for IP number $i in $p" ); return; }
|
push(@all_num,$i);
|
push(@all_num,$i);
|
|
|
}
|
}
|
|
|
}else{message_dialog ("invalid range: [$p]" ); return; }
|
}else{message_dialog ("invalid range: [$p]" ); return; }
|
|
|
}
|
}
|
#check if range does not exceed the tile numbers
|
#check if range does not exceed the tile numbers
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
my $max_tile_num=$NE;
|
my $max_tile_num=$NE;
|
|
|
my @f=sort { $a <=> $b } @all_num;
|
my @f=sort { $a <=> $b } @all_num;
|
my @l;
|
my @l;
|
foreach my $num (@f){
|
foreach my $num (@f){
|
push(@l,$num) if($num<$max_tile_num);
|
push(@l,$num) if($num<$max_tile_num);
|
|
|
}
|
}
|
@all_num=@l;
|
@all_num=@l;
|
|
|
#check if any ip number exists in the rest
|
#check if any ip number exists in the rest
|
my $conflicts_msg;
|
my $conflicts_msg;
|
my @conflicts;
|
my @conflicts;
|
|
|
|
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
foreach my $p (@socs){
|
foreach my $p (@socs){
|
if($p ne $name){
|
if($p ne $name){
|
my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);
|
my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);
|
my @c=get_common_array(\@all_num,\@taken_tiles);
|
my @c=get_common_array(\@all_num,\@taken_tiles);
|
if (scalar @c) {
|
if (scalar @c) {
|
my $str=join(',', @c);
|
my $str=join(',', @c);
|
$conflicts_msg = (defined $conflicts_msg)? "$conflicts_msg\n\t\t $str->$p" : "$str->$p";
|
$conflicts_msg = (defined $conflicts_msg)? "$conflicts_msg\n\t\t $str->$p" : "$str->$p";
|
@conflicts= (defined $conflicts_msg)? (@conflicts,@c): @c;
|
@conflicts= (defined $conflicts_msg)? (@conflicts,@c): @c;
|
}
|
}
|
}#if
|
}#if
|
}
|
}
|
if (defined $conflicts_msg) {
|
if (defined $conflicts_msg) {
|
get_conflict_decision($mpsoc,$name,\@all_num,\@conflicts,$conflicts_msg);
|
get_conflict_decision($mpsoc,$name,\@all_num,\@conflicts,$conflicts_msg);
|
|
|
|
|
}else {
|
}else {
|
#save the entered ips
|
#save the entered ips
|
if( scalar @all_num>0){
|
if( scalar @all_num>0){
|
$mpsoc->mpsoc_add_soc_tiles_num($name,\@all_num);
|
$mpsoc->mpsoc_add_soc_tiles_num($name,\@all_num);
|
return \@all_num;
|
return \@all_num;
|
}
|
}
|
else {
|
else {
|
$mpsoc->mpsoc_add_soc_tiles_num($name,undef);
|
$mpsoc->mpsoc_add_soc_tiles_num($name,undef);
|
return undef;
|
return undef;
|
}
|
}
|
#set_gui_status($mpsoc,"ref",1);
|
#set_gui_status($mpsoc,"ref",1);
|
}
|
}
|
return undef;
|
return undef;
|
}
|
}
|
|
|
|
|
#################
|
#################
|
# get_soc_parameter_setting
|
# get_soc_parameter_setting
|
################
|
################
|
|
|
|
|
|
|
|
|
sub get_soc_parameter_setting{
|
sub get_soc_parameter_setting{
|
my ($mpsoc,$soc_name,$tiles_ref)=@_;
|
my ($mpsoc,$soc_name,$tiles_ref)=@_;
|
my @tiles = @{$tiles_ref} if defined ($tiles_ref);
|
my @tiles = @{$tiles_ref} if defined ($tiles_ref);
|
my $string = join (',',@tiles );
|
my $string = join (',',@tiles );
|
my $window = def_popwin_size(40,40,"Parameter setting for $soc_name mapped to tile( $string ) ",'percent');
|
my $window = def_popwin_size(40,40,"Parameter setting for $soc_name mapped to tile( $string ) ",'percent');
|
my $table = get_soc_parameter_setting_table($mpsoc,$soc_name,$window,$tiles_ref);
|
my $table = get_soc_parameter_setting_table($mpsoc,$soc_name,$window,$tiles_ref);
|
$window->add($table);
|
$window->add($table);
|
$window->show_all;
|
$window->show_all;
|
}
|
}
|
|
|
|
|
sub get_soc_parameter_setting_table{
|
sub get_soc_parameter_setting_table{
|
my ($mpsoc,$soc_name,$window,$tiles_ref)=@_;
|
my ($mpsoc,$soc_name,$window,$tiles_ref)=@_;
|
my @tiles;
|
my @tiles;
|
@tiles = @{$tiles_ref} if defined ($tiles_ref);
|
@tiles = @{$tiles_ref} if defined ($tiles_ref);
|
# my $window = def_popwin_size(40,40,"Parameter setting for $soc_name mapped to tile(@tiles) ",'percent');
|
# my $window = def_popwin_size(40,40,"Parameter setting for $soc_name mapped to tile(@tiles) ",'percent');
|
my $table = def_table(10, 7, FALSE);
|
my $table = def_table(10, 7, FALSE);
|
|
|
my $scrolled_win = add_widget_to_scrolled_win($table);
|
my $scrolled_win = add_widget_to_scrolled_win($table);
|
my $row=0;
|
my $row=0;
|
my $column=0;
|
my $column=0;
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
|
|
#read soc parameters
|
#read soc parameters
|
my %param_value=(scalar @tiles ==1 ) ? $top->top_get_custom_soc_param($tiles[0]) : $top->top_get_default_soc_param();
|
my %param_value=(scalar @tiles ==1 ) ? $top->top_get_custom_soc_param($tiles[0]) : $top->top_get_default_soc_param();
|
$mpsoc->object_add_attribute('current_tile_param',undef,\%param_value);
|
$mpsoc->object_add_attribute('current_tile_param',undef,\%param_value);
|
|
|
my @insts=$top->top_get_all_instances();
|
my @insts=$top->top_get_all_instances();
|
my @exceptions=get_NI_instance_list($top);
|
my @exceptions=get_NI_instance_list($top);
|
@insts=get_diff_array(\@insts,\@exceptions);
|
@insts=get_diff_array(\@insts,\@exceptions);
|
foreach my $inst (@insts){
|
foreach my $inst (@insts){
|
my @params=$top->top_get_parameter_list($inst);
|
my @params=$top->top_get_parameter_list($inst);
|
foreach my $p (@params){
|
foreach my $p (@params){
|
my ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);
|
my ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);
|
my $show = ($type ne "Fixed");
|
my $show = ($type ne "Fixed");
|
$default= $param_value{$p} if(defined $param_value{$p});
|
$default= $param_value{$p} if(defined $param_value{$p});
|
($row,$column)=add_param_widget($mpsoc,$p,$p, $default,$type,$content,$info, $table,$row,$column,$show,'current_tile_param',undef,undef,'vertical');
|
($row,$column)=add_param_widget($mpsoc,$p,$p, $default,$type,$content,$info, $table,$row,$column,$show,'current_tile_param',undef,undef,'vertical');
|
}
|
}
|
|
|
|
|
# if ($type eq "Entry"){
|
# if ($type eq "Entry"){
|
# my $entry=gen_entry($param_value{$p});
|
# my $entry=gen_entry($param_value{$p});
|
# $table->attach_defaults ($entry, 3, 6, $row, $row+1);
|
# $table->attach_defaults ($entry, 3, 6, $row, $row+1);
|
# $entry-> signal_connect("changed" => sub{$param_value{$p}=$entry->get_text();});
|
# $entry-> signal_connect("changed" => sub{$param_value{$p}=$entry->get_text();});
|
# }
|
# }
|
# elsif ($type eq "Combo-box"){
|
# elsif ($type eq "Combo-box"){
|
# my @combo_list=split(/\s*,\s*/,$content);
|
# my @combo_list=split(/\s*,\s*/,$content);
|
# my $pos=get_item_pos($param_value{$p}, @combo_list) if(defined $param_value{$p});
|
# my $pos=get_item_pos($param_value{$p}, @combo_list) if(defined $param_value{$p});
|
# my $combo=gen_combo(\@combo_list, $pos);
|
# my $combo=gen_combo(\@combo_list, $pos);
|
# $table->attach_defaults ($combo, 3, 6, $row, $row+1);
|
# $table->attach_defaults ($combo, 3, 6, $row, $row+1);
|
# $combo-> signal_connect("changed" => sub{$param_value{$p}=$combo->get_active_text();});
|
# $combo-> signal_connect("changed" => sub{$param_value{$p}=$combo->get_active_text();});
|
#
|
#
|
# }
|
# }
|
# elsif ($type eq "Spin-button"){
|
# elsif ($type eq "Spin-button"){
|
# my ($min,$max,$step)=split(/\s*,\s*/,$content);
|
# my ($min,$max,$step)=split(/\s*,\s*/,$content);
|
# $param_value{$p}=~ s/\D//g;
|
# $param_value{$p}=~ s/\D//g;
|
# $min=~ s/\D//g;
|
# $min=~ s/\D//g;
|
# $max=~ s/\D//g;
|
# $max=~ s/\D//g;
|
# $step=~ s/\D//g;
|
# $step=~ s/\D//g;
|
# my $spin=gen_spin($min,$max,$step);
|
# my $spin=gen_spin($min,$max,$step);
|
# $spin->set_value($param_value{$p});
|
# $spin->set_value($param_value{$p});
|
# $table->attach_defaults ($spin, 3, 4, $row, $row+1);
|
# $table->attach_defaults ($spin, 3, 4, $row, $row+1);
|
# $spin-> signal_connect("value_changed" => sub{$param_value{$p}=$spin->get_value_as_int();});
|
# $spin-> signal_connect("value_changed" => sub{$param_value{$p}=$spin->get_value_as_int();});
|
#
|
#
|
# # $box=def_label_spin_help_box ($param,$info, $value,$min,$max,$step, 2);
|
# # $box=def_label_spin_help_box ($param,$info, $value,$min,$max,$step, 2);
|
# }
|
# }
|
# my $label =gen_label_in_center($p);
|
# my $label =gen_label_in_center($p);
|
# $table->attach_defaults ($label, 0, 3, $row, $row+1);
|
# $table->attach_defaults ($label, 0, 3, $row, $row+1);
|
# if (defined $info){
|
# if (defined $info){
|
# my $info_button=def_image_button('icons/help.png');
|
# my $info_button=def_image_button('icons/help.png');
|
# $table->attach_defaults ($info_button, 6, 7, $row, $row+1);
|
# $table->attach_defaults ($info_button, 6, 7, $row, $row+1);
|
# $info_button->signal_connect('clicked'=>sub{
|
# $info_button->signal_connect('clicked'=>sub{
|
# message_dialog($info);
|
# message_dialog($info);
|
#
|
#
|
# });
|
# });
|
#
|
#
|
# }
|
# }
|
# $row++;
|
# $row++;
|
#
|
#
|
#
|
#
|
# }
|
# }
|
}
|
}
|
|
|
my $ok = def_image_button('icons/select.png','OK');
|
my $ok = def_image_button('icons/select.png','OK');
|
my $okbox=def_hbox(TRUE,0);
|
my $okbox=def_hbox(TRUE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
|
|
|
|
my $mtable = def_table(10, 1, TRUE);
|
my $mtable = def_table(10, 1, TRUE);
|
|
|
$mtable->attach_defaults($scrolled_win,0,1,0,9);
|
$mtable->attach_defaults($scrolled_win,0,1,0,9);
|
$mtable->attach_defaults($okbox,0,1,9,10);
|
$mtable->attach_defaults($okbox,0,1,9,10);
|
|
|
|
|
|
|
$ok-> signal_connect("clicked" => sub{
|
$ok-> signal_connect("clicked" => sub{
|
$window->destroy if(defined $window);
|
$window->destroy if(defined $window);
|
#save new values
|
#save new values
|
my $ref=$mpsoc->object_get_attribute('current_tile_param');
|
my $ref=$mpsoc->object_get_attribute('current_tile_param');
|
%param_value=%{$ref};
|
%param_value=%{$ref};
|
|
|
# if(!defined $tile ) {
|
# if(!defined $tile ) {
|
# $top->top_add_default_soc_param(\%param_value);
|
# $top->top_add_default_soc_param(\%param_value);
|
# $mpsoc->object_add_attribute('soc_param',"default",\%param_value);
|
# $mpsoc->object_add_attribute('soc_param',"default",\%param_value);
|
# }
|
# }
|
# else {
|
# else {
|
foreach my $tile (@tiles){
|
foreach my $tile (@tiles){
|
$top->top_add_custom_soc_param(\%param_value,$tile);
|
$top->top_add_custom_soc_param(\%param_value,$tile);
|
$mpsoc->object_add_attribute('soc_param',"custom_${soc_name}",\%param_value);
|
$mpsoc->object_add_attribute('soc_param',"custom_${soc_name}",\%param_value);
|
}
|
}
|
$mpsoc->object_add_attribute('current_tile_param',undef,undef);
|
$mpsoc->object_add_attribute('current_tile_param',undef,undef);
|
set_gui_status($mpsoc,"refresh_soc",1);
|
set_gui_status($mpsoc,"refresh_soc",1);
|
|
|
|
|
});
|
});
|
$mtable->show_all();
|
$mtable->show_all();
|
return $mtable;
|
return $mtable;
|
}
|
}
|
|
|
################
|
################
|
# tile_set_widget
|
# tile_set_widget
|
################
|
################
|
|
|
sub tile_set_widget{
|
sub tile_set_widget{
|
my ($mpsoc,$soc_name,$num,$table,$show,$row)=@_;
|
my ($mpsoc,$soc_name,$num,$table,$show,$row)=@_;
|
#my $label=gen_label_in_left($soc);
|
#my $label=gen_label_in_left($soc);
|
my @all_num= $mpsoc->mpsoc_get_soc_tiles_num($soc_name);
|
my @all_num= $mpsoc->mpsoc_get_soc_tiles_num($soc_name);
|
my $init=compress_nums(@all_num);
|
my $init=compress_nums(@all_num);
|
my $entry;
|
my $entry;
|
if (defined $init){$entry=gen_entry($init) ;}
|
if (defined $init){$entry=gen_entry($init) ;}
|
else {$entry=gen_entry();}
|
else {$entry=gen_entry();}
|
my $set= def_image_button('icons/right.png');
|
my $set= def_image_button('icons/right.png');
|
my $remove= def_image_button('icons/cancel.png');
|
my $remove= def_image_button('icons/cancel.png');
|
#my $setting= def_image_button('icons/setting.png','setting');
|
#my $setting= def_image_button('icons/setting.png','setting');
|
|
|
|
|
my $button = def_colored_button($soc_name,$num);
|
my $button = def_colored_button($soc_name,$num);
|
$button->signal_connect("clicked"=> sub{
|
$button->signal_connect("clicked"=> sub{
|
# get_soc_parameter_setting($mpsoc,$soc_name,undef);
|
# get_soc_parameter_setting($mpsoc,$soc_name,undef);
|
});
|
});
|
|
|
$set->signal_connect("clicked"=> sub{
|
$set->signal_connect("clicked"=> sub{
|
my $data=$entry->get_text();
|
my $data=$entry->get_text();
|
my $r=check_inserted_ip_nums($mpsoc,$soc_name,$data);
|
my $r=check_inserted_ip_nums($mpsoc,$soc_name,$data);
|
if(defined $r){
|
if(defined $r){
|
my @all_num = @{$r};
|
my @all_num = @{$r};
|
get_soc_parameter_setting($mpsoc,$soc_name,\@all_num);
|
get_soc_parameter_setting($mpsoc,$soc_name,\@all_num);
|
}
|
}
|
});
|
});
|
|
|
$remove->signal_connect("clicked"=> sub{
|
$remove->signal_connect("clicked"=> sub{
|
$mpsoc->mpsoc_remove_soc($soc_name);
|
$mpsoc->mpsoc_remove_soc($soc_name);
|
set_gui_status($mpsoc,"ref",1);
|
set_gui_status($mpsoc,"ref",1);
|
});
|
});
|
|
|
|
|
if($show){
|
if($show){
|
$table->attach ( $button, 0, 1, $row,$row+1,'fill','fill',2,2);
|
$table->attach ( $button, 0, 1, $row,$row+1,'fill','fill',2,2);
|
$table->attach ( $remove, 1, 2, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $remove, 1, 2, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $entry , 2, 3, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $entry , 2, 3, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $set, 3, 4, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $set, 3, 4, $row,$row+1,'fill','shrink',2,2);
|
|
|
|
|
|
|
$row++;
|
$row++;
|
}
|
}
|
|
|
return $row;
|
return $row;
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
##################
|
##################
|
# defualt_tilles_setting
|
# defualt_tilles_setting
|
###################
|
###################
|
|
|
sub defualt_tilles_setting {
|
sub defualt_tilles_setting {
|
my ($mpsoc,$table,$show,$row,$info)=@_;
|
my ($mpsoc,$table,$show,$row,$info)=@_;
|
|
|
#title
|
#title
|
my $separator1 = gen_Hsep();
|
my $separator1 = gen_Hsep();
|
my $separator2 = gen_Hsep();
|
my $separator2 = gen_Hsep();
|
my $title2=gen_label_in_center("Tile Configuration");
|
my $title2=gen_label_in_center("Tile Configuration");
|
my $box1=def_vbox(FALSE, 1);
|
my $box1=def_vbox(FALSE, 1);
|
$box1->pack_start( $separator1, FALSE, FALSE, 3);
|
$box1->pack_start( $separator1, FALSE, FALSE, 3);
|
$box1->pack_start( $title2, FALSE, FALSE, 3);
|
$box1->pack_start( $title2, FALSE, FALSE, 3);
|
$box1->pack_start( $separator2, FALSE, FALSE, 3);
|
$box1->pack_start( $separator2, FALSE, FALSE, 3);
|
if($show){$table->attach_defaults ($box1 ,0,4, $row,$row+1);$row++;}
|
if($show){$table->attach_defaults ($box1 ,0,4, $row,$row+1);$row++;}
|
|
|
|
|
my $label = gen_label_in_left("Tiles path:");
|
my $label = gen_label_in_left("Tiles path:");
|
my $entry = gen_entry();
|
my $entry = gen_entry();
|
my $browse= def_image_button("icons/browse.png");
|
my $browse= def_image_button("icons/browse.png");
|
my $file= $mpsoc->object_get_attribute('setting','soc_path');
|
my $file= $mpsoc->object_get_attribute('setting','soc_path');
|
if(defined $file){$entry->set_text($file);}
|
if(defined $file){$entry->set_text($file);}
|
|
|
|
|
$browse->signal_connect("clicked"=> sub{
|
$browse->signal_connect("clicked"=> sub{
|
my $entry_ref=$_[1];
|
my $entry_ref=$_[1];
|
my $file;
|
my $file;
|
my $dialog = gen_folder_dialog('Select tile directory');
|
my $dialog = gen_folder_dialog('Select tile directory');
|
if ( "ok" eq $dialog->run ) {
|
if ( "ok" eq $dialog->run ) {
|
$file = $dialog->get_filename;
|
$file = $dialog->get_filename;
|
$$entry_ref->set_text($file);
|
$$entry_ref->set_text($file);
|
$mpsoc->object_add_attribute('setting','soc_path',$file);
|
$mpsoc->object_add_attribute('setting','soc_path',$file);
|
$mpsoc->mpsoc_remove_all_soc();
|
$mpsoc->mpsoc_remove_all_soc();
|
set_gui_status($mpsoc,"ref",1);
|
set_gui_status($mpsoc,"ref",1);
|
#check_input_file($file,$socgen,$info);
|
#check_input_file($file,$socgen,$info);
|
#print "file = $file\n";
|
#print "file = $file\n";
|
}
|
}
|
$dialog->destroy;
|
$dialog->destroy;
|
|
|
} , \$entry);
|
} , \$entry);
|
|
|
|
|
$entry->signal_connect("activate"=>sub{
|
$entry->signal_connect("activate"=>sub{
|
my $file_name=$entry->get_text();
|
my $file_name=$entry->get_text();
|
$mpsoc->object_add_attribute('setting','soc_path',$file_name);
|
$mpsoc->object_add_attribute('setting','soc_path',$file_name);
|
$mpsoc->mpsoc_remove_all_soc();
|
$mpsoc->mpsoc_remove_all_soc();
|
set_gui_status($mpsoc,"ref",1);
|
set_gui_status($mpsoc,"ref",1);
|
#check_input_file($file_name,$socgen,$info);
|
#check_input_file($file_name,$socgen,$info);
|
});
|
});
|
|
|
|
|
|
|
if($show){
|
if($show){
|
my $tmp=gen_label_in_left(" ");
|
my $tmp=gen_label_in_left(" ");
|
$table->attach ($label, 0, 1 , $row,$row+1,'fill','shrink',2,2);
|
$table->attach ($label, 0, 1 , $row,$row+1,'fill','shrink',2,2);
|
$table->attach ($tmp, 1, 2 , $row,$row+1,'fill','shrink',2,2);
|
$table->attach ($tmp, 1, 2 , $row,$row+1,'fill','shrink',2,2);
|
$table->attach ($entry, 2, 3 , $row,$row+1,'fill','shrink',2,2);
|
$table->attach ($entry, 2, 3 , $row,$row+1,'fill','shrink',2,2);
|
$table->attach ($browse, 3, 4, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ($browse, 3, 4, $row,$row+1,'fill','shrink',2,2);
|
$row++;
|
$row++;
|
}
|
}
|
|
|
|
|
|
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
if( scalar @socs == 0){
|
if( scalar @socs == 0){
|
@socs=get_soc_list($mpsoc,$info);
|
@socs=get_soc_list($mpsoc,$info);
|
|
|
}
|
}
|
@socs=$mpsoc->mpsoc_get_soc_list();
|
@socs=$mpsoc->mpsoc_get_soc_list();
|
|
|
|
|
|
|
my $lab1=gen_label_in_center(' Tile name');
|
my $lab1=gen_label_in_center(' Tile name');
|
|
|
my $lab2=gen_label_help('Define the tile numbers that each IP is mapped to.
|
my $lab2=gen_label_help('Define the tile numbers that each IP is mapped to.
|
you can add individual numbers or ranges as follow
|
you can add individual numbers or ranges as follow
|
e.g. individual numbers: 5,6,7,8,9,10
|
e.g. individual numbers: 5,6,7,8,9,10
|
e.g. range: 5:10
|
e.g. range: 5:10
|
', ' Tile numbers ');
|
', ' Tile numbers ');
|
if($show){
|
if($show){
|
$table->attach_defaults ($lab1 ,0,1, $row,$row+1);
|
$table->attach_defaults ($lab1 ,0,1, $row,$row+1);
|
$table->attach_defaults ($lab2 ,2,3, $row,$row+1);$row++;
|
$table->attach_defaults ($lab2 ,2,3, $row,$row+1);$row++;
|
}
|
}
|
|
|
my $soc_num=0;
|
my $soc_num=0;
|
foreach my $soc_name (@socs){
|
foreach my $soc_name (@socs){
|
$row=tile_set_widget ($mpsoc,$soc_name,$soc_num,$table,$show,$row);
|
$row=tile_set_widget ($mpsoc,$soc_name,$soc_num,$table,$show,$row);
|
$soc_num++;
|
$soc_num++;
|
|
|
}
|
}
|
return $row;
|
return $row;
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
#######################
|
#######################
|
# noc_config
|
# noc_config
|
######################
|
######################
|
|
|
|
|
sub noc_topology_setting_gui {
|
sub noc_topology_setting_gui {
|
my ($mpsoc,$table,$txview,$row,$show_noc)=@_;
|
my ($mpsoc,$table,$txview,$row,$show_noc)=@_;
|
my $coltmp=0;
|
my $coltmp=0;
|
# topology
|
# topology
|
my $label='Topology';
|
my $label='Topology';
|
my $param='TOPOLOGY';
|
my $param='TOPOLOGY';
|
my $default='"MESH"';
|
my $default='"MESH"';
|
my $content='"MESH","FMESH","TORUS","RING","LINE","FATTREE","TREE","STAR","CUSTOM"';
|
my $content='"MESH","FMESH","TORUS","RING","LINE","FATTREE","TREE","STAR","CUSTOM"';
|
my $type='Combo-box';
|
my $type='Combo-box';
|
my $info="NoC topology";
|
my $info="NoC topology";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
|
|
if($topology ne '"CUSTOM"' ){
|
if($topology ne '"CUSTOM"' ){
|
#topology T1 parameter
|
#topology T1 parameter
|
$label=
|
$label=
|
($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'K' :
|
($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'K' :
|
($topology eq '"STAR"')? "Total Endpoint number" : 'Routers per row';
|
($topology eq '"STAR"')? "Total Endpoint number" : 'Routers per row';
|
$param= 'T1';
|
$param= 'T1';
|
$default= '2';
|
$default= '2';
|
$content=
|
$content=
|
($topology eq '"MESH"' || $topology eq '"TORUS"') ? '2,16,1':
|
($topology eq '"MESH"' || $topology eq '"TORUS"') ? '2,16,1':
|
($topology eq '"FMESH"')? '1,16,1':
|
($topology eq '"FMESH"')? '1,16,1':
|
($topology eq '"FATTREE"' || $topology eq '"TREE"' )? '2,6,1':'2,64,1';
|
($topology eq '"FATTREE"' || $topology eq '"TREE"' )? '2,6,1':'2,64,1';
|
$info= ($topology eq '"FATTREE"' || $topology eq '"TREE"' )? 'number of last level individual router`s endpoints.' :'Number of NoC routers in row (X dimension)';
|
$info= ($topology eq '"FATTREE"' || $topology eq '"TREE"' )? 'number of last level individual router`s endpoints.' :'Number of NoC routers in row (X dimension)';
|
$type= 'Spin-button';
|
$type= 'Spin-button';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
|
|
|
#Topology T2 parameter
|
#Topology T2 parameter
|
if($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"TORUS"' || $topology eq '"FATTREE"' || $topology eq '"TREE"' ) {
|
if($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"TORUS"' || $topology eq '"FATTREE"' || $topology eq '"TREE"' ) {
|
$label= ($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'L' :'Routers per column';
|
$label= ($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'L' :'Routers per column';
|
$param= 'T2';
|
$param= 'T2';
|
$default='2';
|
$default='2';
|
$content= ($topology eq '"FMESH"')? '1,16,1': '2,16,1';
|
$content= ($topology eq '"FMESH"')? '1,16,1': '2,16,1';
|
$info= ($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'Fattree layer number (The height of FT)':'Number of NoC routers in column (Y dimension)';
|
$info= ($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'Fattree layer number (The height of FT)':'Number of NoC routers in column (Y dimension)';
|
$type= 'Spin-button';
|
$type= 'Spin-button';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
} else {
|
} else {
|
$mpsoc->object_add_attribute('noc_param','T2',1);
|
$mpsoc->object_add_attribute('noc_param','T2',1);
|
}
|
}
|
|
|
#Topology T3 parameter
|
#Topology T3 parameter
|
if($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"TORUS"' || $topology eq '"RING"' || $topology eq '"LINE"') {
|
if($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"TORUS"' || $topology eq '"RING"' || $topology eq '"LINE"') {
|
$label="Router's endpoint number";
|
$label="Router's endpoint number";
|
$param= 'T3';
|
$param= 'T3';
|
$default='1';
|
$default='1';
|
$content='1,4,1';
|
$content='1,4,1';
|
$info= "In $topology topology, each router can have up to 4 endpoint processing tile.";
|
$info= "In $topology topology, each router can have up to 4 endpoint processing tile.";
|
$type= 'Spin-button';
|
$type= 'Spin-button';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
}
|
}
|
|
|
|
|
|
|
|
|
}else{#its a custom Topology
|
}else{#its a custom Topology
|
($row,$coltmp)=config_custom_topology_gui($mpsoc,$table,$txview,$row);
|
($row,$coltmp)=config_custom_topology_gui($mpsoc,$table,$txview,$row);
|
}
|
}
|
return ($row,$coltmp);
|
return ($row,$coltmp);
|
|
|
}
|
}
|
|
|
|
|
|
|
sub noc_config{
|
sub noc_config{
|
my ($mpsoc,$table,$txview)=@_;
|
my ($mpsoc,$table,$txview)=@_;
|
|
|
#title
|
#title
|
my $row=0;
|
my $row=0;
|
my $title=gen_label_in_center("NoC Configuration");
|
my $title=gen_label_in_center("NoC Configuration");
|
$table->attach ($title , 0, 4, $row, $row+1,'expand','shrink',2,2); $row++;
|
$table->attach ($title , 0, 4, $row, $row+1,'expand','shrink',2,2); $row++;
|
add_Hsep_to_table ($table,0,4,$row); $row++;
|
add_Hsep_to_table ($table,0,4,$row); $row++;
|
|
|
my $label;
|
my $label;
|
my $param;
|
my $param;
|
my $default;
|
my $default;
|
my $type;
|
my $type;
|
my $content;
|
my $content;
|
my $info;
|
my $info;
|
|
|
|
|
#parameter start
|
#parameter start
|
my $b1;
|
my $b1;
|
my $show_noc=$mpsoc->object_get_attribute('setting','show_noc_setting');
|
my $show_noc=$mpsoc->object_get_attribute('setting','show_noc_setting');
|
if(!defined $show_noc){
|
if(!defined $show_noc){
|
$show_noc=1;
|
$show_noc=1;
|
$mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
|
$mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
|
|
|
}
|
}
|
if($show_noc == 0){
|
if($show_noc == 0){
|
$b1= def_image_button("icons/down.png","NoC Parameters");
|
$b1= def_image_button("icons/down.png","NoC Parameters");
|
$label=gen_label_in_center(' ');
|
$label=gen_label_in_center(' ');
|
$table->attach ( $label , 2, 3, $row,$row+1 ,'fill','shrink',2,2);
|
$table->attach ( $label , 2, 3, $row,$row+1 ,'fill','shrink',2,2);
|
$table->attach ( $b1 , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $b1 , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$row++;
|
$row++;
|
}
|
}
|
|
|
my $coltmp=0;
|
my $coltmp=0;
|
|
|
#Router type
|
#Router type
|
$label='Router Type';
|
$label='Router Type';
|
$param='ROUTER_TYPE';
|
$param='ROUTER_TYPE';
|
$default='"VC_BASED"';
|
$default='"VC_BASED"';
|
$content='"INPUT_QUEUED","VC_BASED"';
|
$content='"INPUT_QUEUED","VC_BASED"';
|
$type='Combo-box';
|
$type='Combo-box';
|
$info=" Input-queued: simple router with low performance and does not support fully adaptive routing.
|
$info=" Input-queued: simple router with low performance and does not support fully adaptive routing.
|
VC-based routers offer higher performance, fully adaptive routing and traffic isolation for different packet classes.";
|
VC-based routers offer higher performance, fully adaptive routing and traffic isolation for different packet classes.";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_type',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_type',1);
|
my $router_type=$mpsoc->object_get_attribute('noc_type',"ROUTER_TYPE");
|
my $router_type=$mpsoc->object_get_attribute('noc_type',"ROUTER_TYPE");
|
|
|
|
|
($row,$coltmp) =noc_topology_setting_gui($mpsoc,$table,$txview,$row,$show_noc);
|
($row,$coltmp) =noc_topology_setting_gui($mpsoc,$table,$txview,$row,$show_noc);
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
|
|
#VC number per port
|
#VC number per port
|
if($router_type eq '"VC_BASED"'){
|
if($router_type eq '"VC_BASED"'){
|
my $v=$mpsoc->object_get_attribute('noc_param','V');
|
my $v=$mpsoc->object_get_attribute('noc_param','V');
|
if(defined $v){ $mpsoc->object_add_attribute('noc_param','V',2) if($v eq 1);}
|
if(defined $v){ $mpsoc->object_add_attribute('noc_param','V',2) if($v eq 1);}
|
$label='VC number per port';
|
$label='VC number per port';
|
$param='V';
|
$param='V';
|
$default='2';
|
$default='2';
|
$type='Spin-button';
|
$type='Spin-button';
|
$content='2,16,1';
|
$content='2,16,1';
|
$info='Number of Virtual chanel per each router port';
|
$info='Number of Virtual chanel per each router port';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
} else {
|
} else {
|
$mpsoc->object_add_attribute('noc_param','V',1);
|
$mpsoc->object_add_attribute('noc_param','V',1);
|
$mpsoc->object_add_attribute('noc_param','C',0);
|
$mpsoc->object_add_attribute('noc_param','C',0);
|
}
|
}
|
|
|
#buffer width per VC
|
#buffer width per VC
|
$label=($router_type eq '"VC_BASED"')? 'Buffer flits per VC': "Buffer flits";
|
$label=($router_type eq '"VC_BASED"')? 'Buffer flits per VC': "Buffer flits";
|
$param='B';
|
$param='B';
|
$default='4';
|
$default='4';
|
$content='2,256,1';
|
$content='2,256,1';
|
$type='Spin-button';
|
$type='Spin-button';
|
$info=($router_type eq '"VC_BASED"')? 'Buffer queue size per VC in flits' : 'Buffer queue size in flits';
|
$info=($router_type eq '"VC_BASED"')? 'Buffer queue size per VC in flits' : 'Buffer queue size in flits';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',undef);
|
|
|
|
|
#Local port buffer width per VC
|
#Local port buffer width per VC
|
$label=($router_type eq '"VC_BASED"')? 'Local port Buffer flits per VC': "Local Port Buffer flits";
|
$label=($router_type eq '"VC_BASED"')? 'Local port Buffer flits per VC': "Local Port Buffer flits";
|
$param='LB';
|
$param='LB';
|
$default='4';
|
$default='4';
|
$content='2,256,1';
|
$content='2,256,1';
|
$type='Spin-button';
|
$type='Spin-button';
|
$info = "The Local router ports buffer width (LB) is the width of the ports connected to the endpoints and can take different buffer sizes than other routers ports buffer width (B) connected to neighboring routers .It is valid only for MESH,FMESH, TORUS,LINE and RING topologies. In FMESH topology, this parameter does not affect the width of extra endpoints connected to edge routers.";
|
$info = "The Local router ports buffer width (LB) is the width of the ports connected to the endpoints and can take different buffer sizes than other routers ports buffer width (B) connected to neighboring routers .It is valid only for MESH,FMESH, TORUS,LINE and RING topologies. In FMESH topology, this parameter does not affect the width of extra endpoints connected to edge routers.";
|
|
|
if ($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"TORUS"' || $topology eq '"RING"' || $topology eq '"LINE"'){
|
if ($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"TORUS"' || $topology eq '"RING"' || $topology eq '"LINE"'){
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',undef);
|
}else{
|
}else{
|
$mpsoc->object_add_attribute('noc_param','LB','B');
|
$mpsoc->object_add_attribute('noc_param','LB','B');
|
}
|
}
|
|
|
|
|
|
|
|
|
#packet payload width
|
#packet payload width
|
$label='Payload width';
|
$label='Payload width';
|
$param='Fpay';
|
$param='Fpay';
|
$default='32';
|
$default='32';
|
$content='32,256,32';
|
$content='32,256,32';
|
$type='Spin-button';
|
$type='Spin-button';
|
$info="The packet payload width in bits";
|
$info="The packet payload width in bits";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info,$table,$row,undef,$show_noc,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info,$table,$row,undef,$show_noc,'noc_param',undef);
|
|
|
if($topology ne '"CUSTOM"' ){
|
if($topology ne '"CUSTOM"' ){
|
#routing algorithm
|
#routing algorithm
|
$label='Routing Algorithm';
|
$label='Routing Algorithm';
|
$param="ROUTE_NAME";
|
$param="ROUTE_NAME";
|
$type="Combo-box";
|
$type="Combo-box";
|
if($router_type eq '"VC_BASED"'){
|
if($router_type eq '"VC_BASED"'){
|
$content=($topology eq '"MESH"' || $topology eq '"FMESH"')? '"XY","WEST_FIRST","NORTH_LAST","NEGETIVE_FIRST","ODD_EVEN","DUATO"' :
|
$content=($topology eq '"MESH"' || $topology eq '"FMESH"')? '"XY","WEST_FIRST","NORTH_LAST","NEGETIVE_FIRST","ODD_EVEN","DUATO"' :
|
($topology eq '"TORUS"')? '"TRANC_XY","TRANC_WEST_FIRST","TRANC_NORTH_LAST","TRANC_NEGETIVE_FIRST","TRANC_DUATO"':
|
($topology eq '"TORUS"')? '"TRANC_XY","TRANC_WEST_FIRST","TRANC_NORTH_LAST","TRANC_NEGETIVE_FIRST","TRANC_DUATO"':
|
($topology eq '"RING"')? '"TRANC_XY"' :
|
($topology eq '"RING"')? '"TRANC_XY"' :
|
($topology eq '"LINE"')? '"XY"':
|
($topology eq '"LINE"')? '"XY"':
|
($topology eq '"FATTREE"')? '"NCA_RND_UP","NCA_STRAIGHT_UP","NCA_DST_UP"':
|
($topology eq '"FATTREE"')? '"NCA_RND_UP","NCA_STRAIGHT_UP","NCA_DST_UP"':
|
($topology eq '"TREE"')? '"NCA"' : '"UNKNOWN"';
|
($topology eq '"TREE"')? '"NCA"' : '"UNKNOWN"';
|
}else{
|
}else{
|
$content=($topology eq '"MESH"' || $topology eq '"FMESH"')? '"XY","WEST_FIRST","NORTH_LAST","NEGETIVE_FIRST","ODD_EVEN"' :
|
$content=($topology eq '"MESH"' || $topology eq '"FMESH"')? '"XY","WEST_FIRST","NORTH_LAST","NEGETIVE_FIRST","ODD_EVEN"' :
|
($topology eq '"TORUS"')? '"TRANC_XY","TRANC_WEST_FIRST","TRANC_NORTH_LAST","TRANC_NEGETIVE_FIRST"':
|
($topology eq '"TORUS"')? '"TRANC_XY","TRANC_WEST_FIRST","TRANC_NORTH_LAST","TRANC_NEGETIVE_FIRST"':
|
($topology eq '"RING"')? '"TRANC_XY"' :
|
($topology eq '"RING"')? '"TRANC_XY"' :
|
($topology eq '"LINE"')? '"XY"':
|
($topology eq '"LINE"')? '"XY"':
|
($topology eq '"FATTREE"')? '"NCA_RND_UP","NCA_STRAIGHT_UP","NCA_DST_UP"' :
|
($topology eq '"FATTREE"')? '"NCA_RND_UP","NCA_STRAIGHT_UP","NCA_DST_UP"' :
|
($topology eq '"TREE"')? '"NCA"' : '"UNKNOWN"';
|
($topology eq '"TREE"')? '"NCA"' : '"UNKNOWN"';
|
|
|
}
|
}
|
$default=($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"LINE"' )? '"XY"':
|
$default=($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"LINE"' )? '"XY"':
|
($topology eq '"TORUS"'|| $topology eq '"RING"')? '"TRANC_XY"' :
|
($topology eq '"TORUS"'|| $topology eq '"RING"')? '"TRANC_XY"' :
|
($topology eq '"FATTREE"')? '"NCA_STRAIGHT_UP"' :
|
($topology eq '"FATTREE"')? '"NCA_STRAIGHT_UP"' :
|
($topology eq '"TREE"')? '"NCA"' : '"UNKNOWN"';
|
($topology eq '"TREE"')? '"NCA"' : '"UNKNOWN"';
|
|
|
my $info_mesh="Select the routing algorithm: XY(DoR) , partially adaptive (Turn models). Fully adaptive (Duato) ";
|
my $info_mesh="Select the routing algorithm: XY(DoR) , partially adaptive (Turn models). Fully adaptive (Duato) ";
|
my $info_fat="Nearest common ancestor (NCA) where the up port is selected randomly (RND), based on destination endpoint address (DST) or it is the top port that is located in front of the port which has received the packet (STRAIGHT) ";
|
my $info_fat="Nearest common ancestor (NCA) where the up port is selected randomly (RND), based on destination endpoint address (DST) or it is the top port that is located in front of the port which has received the packet (STRAIGHT) ";
|
|
|
$info=($topology eq '"FATTREE"')? $info_fat :
|
$info=($topology eq '"FATTREE"')? $info_fat :
|
($topology eq '"TREE"') ? "Nearest common ancestor": $info_mesh;
|
($topology eq '"TREE"') ? "Nearest common ancestor": $info_mesh;
|
my $show_routing =($topology eq '"STAR"' )? 0 : $show_noc;
|
my $show_routing =($topology eq '"STAR"' )? 0 : $show_noc;
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_routing,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_routing,'noc_param',1);
|
|
|
}
|
}
|
|
|
#PCK_TYPE
|
#PCK_TYPE
|
$label='Packet type';
|
$label='Packet type';
|
$param='PCK_TYPE';
|
$param='PCK_TYPE';
|
$default='"MULTI_FLIT"';
|
$default='"MULTI_FLIT"';
|
$content='"MULTI_FLIT","SINGLE_FLIT"';
|
$content='"MULTI_FLIT","SINGLE_FLIT"';
|
$type="Combo-box";
|
$type="Combo-box";
|
$info="Define packet type: SINGLE_FLIT: all packets send to NoC are single-flit sized.
|
$info="Define packet type: SINGLE_FLIT: all packets send to NoC are single-flit sized.
|
Multi-flit: packets can be consists of one or several flits. A multi-flit packet can be
|
Multi-flit: packets can be consists of one or several flits. A multi-flit packet can be
|
a)single-flit sized : both headr and tail flag must be asserted for this flit,
|
a)single-flit sized : both headr and tail flag must be asserted for this flit,
|
b)two-flit sized: a header flit and a tail flit, or
|
b)two-flit sized: a header flit and a tail flit, or
|
c)more than 2 fits: start with a headr flit, continued with one or more body flits and end up with a tail flit
|
c)more than 2 fits: start with a headr flit, continued with one or more body flits and end up with a tail flit
|
For MULTI-FLIT packet you need to defin ethe minum size of a paket that can be injecte to the NoC.
|
For MULTI-FLIT packet you need to defin ethe minum size of a paket that can be injecte to the NoC.
|
";
|
";
|
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
|
my $pck_type=$mpsoc->object_get_attribute('noc_param','PCK_TYPE');
|
my $pck_type=$mpsoc->object_get_attribute('noc_param','PCK_TYPE');
|
|
|
if($pck_type eq '"MULTI_FLIT"'){
|
if($pck_type eq '"MULTI_FLIT"'){
|
|
|
#MIN_PCK_SIZE
|
#MIN_PCK_SIZE
|
# 2 //minimum packet size in flits. The minimum value is 1.
|
# 2 //minimum packet size in flits. The minimum value is 1.
|
$label='Minimum packet size';
|
$label='Minimum packet size';
|
$param='MIN_PCK_SIZE';
|
$param='MIN_PCK_SIZE';
|
$default='2';
|
$default='2';
|
$content='1,65535,1';
|
$content='1,65535,1';
|
$type='Spin-button';
|
$type='Spin-button';
|
$info="The minimum packet size in flits. In atomic VC re-allocation, it is just important to define if the single-flit sized packets are allowed to be injected to the NoC by defining this parameter value as one. Setting any larger value than one results in the same architecture and the NoC works correctly even if it receives smaller packets size as while as they are not single flit -sized packets. However, for non-atomic VC reallocation NoCs, you have to define the exact value as it defines the NoC control registers' internal buffers. The NoC may crash once it receives packets having smaler size than the defined minimum packet size.";
|
$info="The minimum packet size in flits. In atomic VC re-allocation, it is just important to define if the single-flit sized packets are allowed to be injected to the NoC by defining this parameter value as one. Setting any larger value than one results in the same architecture and the NoC works correctly even if it receives smaller packets size as while as they are not single flit -sized packets. However, for non-atomic VC reallocation NoCs, you have to define the exact value as it defines the NoC control registers' internal buffers. The NoC may crash once it receives packets having smaler size than the defined minimum packet size.";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',undef);
|
}else{
|
}else{
|
$mpsoc->object_add_attribute('noc_param','MIN_PCK_SIZE',1);
|
$mpsoc->object_add_attribute('noc_param','MIN_PCK_SIZE',1);
|
}
|
}
|
|
|
# BYTE_EN
|
# BYTE_EN
|
$label='Byte Enable';
|
$label='Byte Enable';
|
$param='BYTE_EN';
|
$param='BYTE_EN';
|
$default= 0;
|
$default= 0;
|
$info='0:disable, 1: enable. Add byte enable (BE) filed to header flit which shows the location of last valid byte in tail flit. It is needed once the send data unit is smaller than Fpay.';
|
$info='0:disable, 1: enable. Add byte enable (BE) filed to header flit which shows the location of last valid byte in tail flit. It is needed once the send data unit is smaller than Fpay.';
|
$content='0,1';
|
$content='0,1';
|
$type="Combo-box";
|
$type="Combo-box";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param');
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param');
|
|
|
if($show_noc == 1){
|
|
$b1= def_image_button("icons/up.png","NoC Parameters");
|
|
$table->attach ( $b1 , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
|
$row++;
|
|
|
#CAST_TYPE
|
|
$label='Casting Type';
|
|
$param='CAST_TYPE';
|
|
$default= '"UNICAST"';
|
|
$info='Configure a NoC as Unicast, Multicast, or Broadcast NoC. In Unicast NoC, a packet can be sent to only one destination. In Multicast, a single packet can have multiple target destination nodes, whereas, Broadcast packets are sent to all other destination nodes. For Multicast and Broadcast NoC, only one copy of a packet must be injected into the source router. The routers in the path then fork the packets to different output ports when necessary. Multicast and Broadcast can be selected as FULL, where all destinations can be included in packet destination list, or as PARTIAL where a user-defined subset of nodes (defined with MCAST_ENDP_LIST parameter) can be targeted in destination lists. The other nodes not marked in MCAST_ENDP_LIST can only receive unicast packets. ';
|
|
$content='"UNICAST","MULTICAST_PARTIAL","MULTICAST_FULL","BROADCAST_PARTIAL","BROADCAST_FULL"';
|
|
$type="Combo-box";
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
|
|
|
|
my $cast_type=$mpsoc->object_get_attribute('noc_param','CAST_TYPE');
|
|
my ($NE, $NR, $RAw, $EAw, $Fw) = get_topology_info($mpsoc);
|
|
|
|
my $cast = $mpsoc->object_get_attribute('noc_param',"MCAST_ENDP_LIST");
|
|
if(!defined $cast){
|
|
my $h=0;
|
|
my $n="";
|
|
for (my $i=0; $i<$NE; $i++){
|
|
$h+= (1<<$i%4);
|
|
if(($i+1) % 4==0){
|
|
$n="$h".$n if($h<10);
|
|
$n=chr($h-10+97).$n if($h>9);
|
|
$h=0;
|
|
}
|
|
}
|
|
$n="$h".$n if($h!=0);
|
|
$n="'h".$n;
|
|
$mpsoc->object_add_attribute('noc_param',"MCAST_ENDP_LIST",$n);
|
|
$mpsoc->object_add_attribute_order('noc_param',"MCAST_ENDP_LIST");
|
|
# $mpsoc->object_add_attribute('noc_param',"MCAST_PRTLw",$NE);
|
|
# $mpsoc->object_add_attribute_order('noc_param',"MCAST_PRTLw");
|
|
$cast=$n;
|
}
|
}
|
$b1->signal_connect("clicked" => sub{
|
|
$show_noc=($show_noc==1)?0:1;
|
|
$mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
|
|
set_gui_status($mpsoc,"ref",1);
|
|
});
|
|
|
|
#advance parameter start
|
if($cast_type eq '"MULTICAST_PARTIAL"' || $cast_type eq '"BROADCAST_PARTIAL"') {
|
my $advc;
|
#$table->attach ( gen_label_help($info,"Muticast Node list"),0 , 2, $row,$row+1,'fill','shrink',2,2);
|
my $adv_set=$mpsoc->object_get_attribute('setting','show_adv_setting');
|
$info='MCAST_ENDP_LIST is a one-hot coded number where the asserted bit indicates that the corresponding destination ID can be targeted in multicast/broadcast packets. The corresponding destinations with zero bit can only receive unicast packets.';
|
if($adv_set == 0){
|
|
$advc= def_image_button("icons/down.png","Advance Parameters");
|
my $b1= def_image_button("icons/setting.png","Set");
|
$table->attach ( $advc , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
my $bb= def_pack_hbox(FALSE,0,gen_label_in_left("$cast"),$b1);
|
|
my $label=gen_label_in_left("Muticast Node list");
|
|
my $inf_bt= (defined $info)? gen_button_message ($info,"icons/help.png"):gen_label_in_left(" ");
|
|
attach_widget_to_table ($table,$row,$label,$inf_bt,$bb,0);
|
|
|
|
|
|
# $table->attach ( $bb , 2, 3, $row,$row+1,'fill','shrink',2,2);
|
$row++;
|
$row++;
|
|
|
|
$b1->signal_connect("clicked" => sub{
|
|
set_multicast_list($mpsoc);
|
|
|
|
});
|
}
|
}
|
|
|
|
|
|
|
|
#advance parameter start
|
|
# my $advc;
|
|
# my $adv_set=$mpsoc->object_get_attribute('setting','show_adv_setting');
|
|
#
|
|
# if($adv_set == 0){
|
|
# $advc= def_image_button("icons/down.png","Advance Parameters");
|
|
# $table->attach ( $advc , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
|
# $row++;
|
|
# }
|
|
|
|
my $adv_set= $show_noc;
|
#SSA
|
#SSA
|
$label='SSA Enable';
|
$label='SSA Enable';
|
$param='SSA_EN';
|
$param='SSA_EN';
|
$default='"NO"';
|
$default='"NO"';
|
$content='"YES","NO"';
|
$content='"YES","NO"';
|
$type='Combo-box';
|
$type='Combo-box';
|
$info="Enable single cycle latency on packets traversing in the same direction using static straight allocator (SSA)";
|
$info="Enable single cycle latency on packets traversing in the same direction using static straight allocator (SSA)";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
|
|
#SMART
|
#SMART
|
$label='Max Straight Bypass';
|
$label='Max Straight Bypass';
|
$param='SMART_MAX';
|
$param='SMART_MAX';
|
$default='0';
|
$default='0';
|
$content="0,1,2,3,4,5,6,7,8,9";
|
$content="0,1,2,3,4,5,6,7,8,9";
|
$type='Combo-box';
|
$type='Combo-box';
|
$info="If Max Straight Bypass (SMART_MAX) is defined as n>0 then packets are allowed to bypass Maximum of n routers in Straight direction in single cycle.";
|
$info="If Max Straight Bypass (SMART_MAX) is defined as n>0 then packets are allowed to bypass Maximum of n routers in Straight direction in single cycle.";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
|
|
|
|
|
|
#Fully and partially adaptive routing setting
|
#Fully and partially adaptive routing setting
|
my $route=$mpsoc->object_get_attribute('noc_param',"ROUTE_NAME");
|
my $route=$mpsoc->object_get_attribute('noc_param',"ROUTE_NAME");
|
$label="Congestion index";
|
$label="Congestion index";
|
$param="CONGESTION_INDEX";
|
$param="CONGESTION_INDEX";
|
$type="Spin-button";
|
$type="Spin-button";
|
$content="0,12,1";
|
$content="0,12,1";
|
$info="Congestion index determines how congestion information is collected from neighboring routers. Please refer to the usere manual for more information";
|
$info="Congestion index determines how congestion information is collected from neighboring routers. Please refer to the usere manual for more information";
|
$default=3;
|
$default=3;
|
if($topology ne '"CUSTOM"' && $route ne '"XY"' && $route ne '"TRANC_XY"' ){
|
if($topology ne '"CUSTOM"' && $route ne '"XY"' && $route ne '"TRANC_XY"' ){
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
} else {
|
} else {
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param',undef);
|
}
|
}
|
|
|
#Fully adaptive routing setting
|
#Fully adaptive routing setting
|
my $v=$mpsoc->object_get_attribute('noc_param',"V");
|
my $v=$mpsoc->object_get_attribute('noc_param',"V");
|
$label="Select Escap VC";
|
$label="Select Escap VC";
|
$param="ESCAP_VC_MASK";
|
$param="ESCAP_VC_MASK";
|
$type="Check-box";
|
$type="Check-box";
|
$content=$v;
|
$content=$v;
|
$default="$v\'b";
|
$default="$v\'b";
|
for (my $i=1; $i<=$v-1; $i++){$default= "${default}0";}
|
for (my $i=1; $i<=$v-1; $i++){$default= "${default}0";}
|
$default= "${default}1";
|
$default= "${default}1";
|
$info="Select the escap VC for fully adaptive routing.";
|
$info="Select the escap VC for fully adaptive routing.";
|
if( $route eq '"TRANC_DUATO"' or $route eq '"DUATO"' ){
|
if( $route eq '"TRANC_DUATO"' or $route eq '"DUATO"' ){
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set, 'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set, 'noc_param',undef);
|
}
|
}
|
else{
|
else{
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0, 'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0, 'noc_param',undef);
|
}
|
}
|
|
|
# VC reallocation type
|
# VC reallocation type
|
$label=($router_type eq '"VC_BASED"')? 'VC reallocation type': 'Queue reallocation type';
|
$label=($router_type eq '"VC_BASED"')? 'VC reallocation type': 'Queue reallocation type';
|
$param='VC_REALLOCATION_TYPE';
|
$param='VC_REALLOCATION_TYPE';
|
$info="VC reallocation type: If set as atomic only empty VCs can be allocated for new packets. Whereas, in non-atomic a non-empty VC which has received the last packet tail flit can accept a new packet";
|
$info="VC reallocation type: If set as atomic only empty VCs can be allocated for new packets. Whereas, in non-atomic a non-empty VC which has received the last packet tail flit can accept a new packet";
|
$default='"NONATOMIC"';
|
$default='"NONATOMIC"';
|
$content='"ATOMIC","NONATOMIC"';
|
$content='"ATOMIC","NONATOMIC"';
|
$type='Combo-box';
|
$type='Combo-box';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
|
|
|
|
#vc/sw allocator type
|
#vc/sw allocator type
|
$label = 'VC/SW combination type';
|
$label = 'VC/SW combination type';
|
$param='COMBINATION_TYPE';
|
$param='COMBINATION_TYPE';
|
$default='"COMB_NONSPEC"';
|
$default='"COMB_NONSPEC"';
|
$content='"BASELINE","COMB_SPEC1","COMB_SPEC2","COMB_NONSPEC"';
|
$content='"BASELINE","COMB_SPEC1","COMB_SPEC2","COMB_NONSPEC"';
|
$type='Combo-box';
|
$type='Combo-box';
|
$info="The joint VC/ switch allocator type. using canonical combination is not recommended";
|
$info="The joint VC/ switch allocator type. using canonical combination is not recommended";
|
if ($router_type eq '"VC_BASED"'){
|
if ($router_type eq '"VC_BASED"'){
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
} else{
|
} else{
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param',undef);
|
}
|
}
|
|
|
# Crossbar mux type
|
# Crossbar mux type
|
$label='Crossbar mux type';
|
$label='Crossbar mux type';
|
$param='MUX_TYPE';
|
$param='MUX_TYPE';
|
$default='"BINARY"';
|
$default='"BINARY"';
|
$content='"ONE_HOT","BINARY"';
|
$content='"ONE_HOT","BINARY"';
|
$type='Combo-box';
|
$type='Combo-box';
|
$info="Crossbar multiplexer type";
|
$info="Crossbar multiplexer type";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',undef);
|
|
|
#class
|
#class
|
if($router_type eq '"VC_BASED"'){
|
if($router_type eq '"VC_BASED"'){
|
$label='class number';
|
$label='class number';
|
$param='C';
|
$param='C';
|
$default= 0;
|
$default= 0;
|
$info='Number of message classes. Each specific class can use different set of VC';
|
$info='Number of message classes. Each specific class can use different set of VC';
|
$content='0,16,1';
|
$content='0,16,1';
|
$type='Spin-button';
|
$type='Spin-button';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',5);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',5);
|
|
|
|
|
my $class=$mpsoc->object_get_attribute('noc_param',"C");
|
my $class=$mpsoc->object_get_attribute('noc_param',"C");
|
my $v=$mpsoc->object_get_attribute('noc_param',"V");
|
my $v=$mpsoc->object_get_attribute('noc_param',"V");
|
$default= "$v\'b";
|
$default= "$v\'b";
|
for (my $i=1; $i<=$v; $i++){
|
for (my $i=1; $i<=$v; $i++){
|
$default= "${default}1";
|
$default= "${default}1";
|
}
|
}
|
#print "\$default=$default\n";
|
#print "\$default=$default\n";
|
for (my $i=0; $i<=$class-1; $i++){
|
for (my $i=0; $i<=$class-1; $i++){
|
|
|
$label="Class $i Permitted VCs";
|
$label="Class $i Permitted VCs";
|
$param="Cn_$i";
|
$param="Cn_$i";
|
$type="Check-box";
|
$type="Check-box";
|
$content=$v;
|
$content=$v;
|
$info="Select the permitted VCs which the message class $i can be sent via them.";
|
$info="Select the permitted VCs which the message class $i can be sent via them.";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'class_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'class_param',undef);
|
}
|
}
|
|
|
}#($router_type eq '"VC_BASED"')
|
}#($router_type eq '"VC_BASED"')
|
|
|
|
|
|
|
#simulation debuge enable
|
#simulation debuge enable
|
$label='Debug enable';
|
$label='Debug enable';
|
$param='DEBUG_EN';
|
$param='DEBUG_EN';
|
$info= "Add extra Verilog code for debugging NoC for simulation";
|
$info= "Add extra Verilog code for debugging NoC for simulation";
|
$default='0';
|
$default='0';
|
$content='0,1';
|
$content='0,1';
|
$type='Combo-box';
|
$type='Combo-box';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param');
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param');
|
|
|
|
|
#pipeline reg
|
#pipeline reg
|
$label="Add pipeline reg after crossbar";
|
$label="Add pipeline reg after crossbar";
|
$param="ADD_PIPREG_AFTER_CROSSBAR";
|
$param="ADD_PIPREG_AFTER_CROSSBAR";
|
$type="Check-box";
|
$type="Check-box";
|
$content=1;
|
$content=1;
|
$default="1\'b0";
|
$default="1\'b0";
|
$info="If is enabled it adds a pipeline register at the output port of the router.";
|
$info="If is enabled it adds a pipeline register at the output port of the router.";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param');
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param');
|
|
|
|
|
#MAX_SMART_NUM = 4 //
|
#MAX_SMART_NUM = 4 //
|
$label="Number of multiple router bypassing ";
|
$label="Number of multiple router bypassing ";
|
$param="MAX_SMART_NUM ";
|
$param="MAX_SMART_NUM ";
|
$type='Spin-button';
|
$type='Spin-button';
|
$content='0,1,1';
|
$content='0,1,1';
|
$default=0;
|
$default=0;
|
$info="maximum number of routers which a packet can by pass during one clock cycle. Define it as zero will disable bypassing.";
|
$info="maximum number of routers which a packet can by pass during one clock cycle. Define it as zero will disable bypassing.";
|
#($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
|
#($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
|
|
|
|
|
#FIRST_ARBITER_EXT_P_EN
|
#FIRST_ARBITER_EXT_P_EN
|
$label='Swich allocator first level
|
$label='Swich allocator first level
|
arbiters external priority enable';
|
arbiters external priority enable';
|
$param='FIRST_ARBITER_EXT_P_EN';
|
$param='FIRST_ARBITER_EXT_P_EN';
|
$default= 1;
|
$default= 1;
|
$info='If set as 1 then the switch allocator\'s input (first) arbiters\' priority registers are enabled only when a request get both input and output arbiters\' grants';
|
$info='If set as 1 then the switch allocator\'s input (first) arbiters\' priority registers are enabled only when a request get both input and output arbiters\' grants';
|
$content='0,1';
|
$content='0,1';
|
$type="Combo-box";
|
$type="Combo-box";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info,$table,$row,undef,$adv_set,'noc_param');
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info,$table,$row,undef,$adv_set,'noc_param');
|
|
|
|
|
#Arbiter type
|
#Arbiter type
|
$label='SW allocator arbitration type';
|
$label='SW allocator arbitration type';
|
$param='SWA_ARBITER_TYPE';
|
$param='SWA_ARBITER_TYPE';
|
$default='"RRA"';
|
$default='"RRA"';
|
$content='"RRA","WRRA"'; #,"WRRA_CLASSIC"';
|
$content='"RRA","WRRA"'; #,"WRRA_CLASSIC"';
|
$type='Combo-box';
|
$type='Combo-box';
|
$info="Switch allocator arbiter type:
|
$info="Switch allocator arbiter type:
|
RRA: Round robin arbiter. Only local fairness in a router.
|
RRA: Round robin arbiter. Only local fairness in a router.
|
WRRA: Weighted round robin arbiter. Results in global fairness in the NoC.
|
WRRA: Weighted round robin arbiter. Results in global fairness in the NoC.
|
Switch allocation requests are grated according to their weight which increases due to contention";
|
Switch allocation requests are grated according to their weight which increases due to contention";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',1);
|
|
|
|
|
|
|
my $arbiter=$mpsoc->object_get_attribute('noc_param',"SWA_ARBITER_TYPE");
|
my $arbiter=$mpsoc->object_get_attribute('noc_param',"SWA_ARBITER_TYPE");
|
my $wrra_show = ($arbiter ne '"RRA"' && $adv_set == 1 )? 1 : 0;
|
my $wrra_show = ($arbiter ne '"RRA"' && $adv_set == 1 )? 1 : 0;
|
# weight width
|
# weight width
|
$label='Weight width';
|
$label='Weight width';
|
$param='WEIGHTw';
|
$param='WEIGHTw';
|
$default='4';
|
$default='4';
|
$content='2,7,1';
|
$content='2,7,1';
|
$info= 'Maximum weight width';
|
$info= 'Maximum weight width';
|
$type= 'Spin-button';
|
$type= 'Spin-button';
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$wrra_show,'noc_param',undef);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$wrra_show,'noc_param',undef);
|
|
|
|
|
|
|
$label='Self loop enable';
|
$label='Self loop enable';
|
$param='SELF_LOOP_EN';
|
$param='SELF_LOOP_EN';
|
$default='"NO"';
|
$default='"NO"';
|
$content='"NO","YES"';
|
$content='"NO","YES"';
|
$type='Combo-box';
|
$type='Combo-box';
|
$info="If the self loop is enabled, it allows a router input port sends packet to its own output port. Enabling it allows a tile to be able to sent packet to itself too.";
|
$info="If the self loop is enabled, it allows a router input port sends packet to its own output port. Enabling it allows a tile to be able to sent packet to itself too.";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$adv_set,'noc_param',1);
|
|
|
|
|
|
|
#WRRA_CONFIG_INDEX
|
#WRRA_CONFIG_INDEX
|
$label='Weight configuration index';
|
$label='Weight configuration index';
|
$param='WRRA_CONFIG_INDEX';
|
$param='WRRA_CONFIG_INDEX';
|
$default='0';
|
$default='0';
|
$content='0,7,1';
|
$content='0,7,1';
|
$info= 'WRRA_CONFIG_INDEX:
|
$info= 'WRRA_CONFIG_INDEX:
|
|
|
';
|
';
|
$type= 'Spin-button';
|
$type= 'Spin-button';
|
#($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$wrra_show,'noc_param',undef);
|
#($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$wrra_show,'noc_param',undef);
|
|
|
|
|
|
if($show_noc == 1){
|
if($adv_set == 1){
|
$b1= def_image_button("icons/up.png","NoC Parameters");
|
$advc= def_image_button("icons/up.png","Advance Parameters");
|
$table->attach ( $b1 , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $advc , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
|
$row++;
|
$row++;
|
}
|
}
|
$advc->signal_connect("clicked" => sub{
|
$b1->signal_connect("clicked" => sub{
|
$adv_set=($adv_set==1)?0:1;
|
$show_noc=($show_noc==1)?0:1;
|
$mpsoc->object_add_attribute('setting','show_adv_setting',$adv_set);
|
$mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
|
set_gui_status($mpsoc,"ref",1);
|
set_gui_status($mpsoc,"ref",1);
|
});
|
});
|
|
|
|
|
|
|
|
|
|
# if($adv_set == 1){
|
|
# $advc= def_image_button("icons/up.png","Advance Parameters");
|
|
# $table->attach ( $advc , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
|
# $row++;
|
|
# }
|
|
# $advc->signal_connect("clicked" => sub{
|
|
# $adv_set=($adv_set==1)?0:1;
|
|
# $mpsoc->object_add_attribute('setting','show_adv_setting',$adv_set);
|
|
# set_gui_status($mpsoc,"ref",1);
|
|
# });
|
|
|
|
|
#other fixed parameters
|
#other fixed parameters
|
|
|
|
|
# AVC_ATOMIC_EN
|
# AVC_ATOMIC_EN
|
$label='AVC_ATOMIC_EN';
|
$label='AVC_ATOMIC_EN';
|
$param='AVC_ATOMIC_EN';
|
$param='AVC_ATOMIC_EN';
|
$default= 0;
|
$default= 0;
|
$info='AVC_ATOMIC_EN';
|
$info='AVC_ATOMIC_EN';
|
$content='0,1';
|
$content='0,1';
|
$type="Combo-box";
|
$type="Combo-box";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param');
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param');
|
|
|
|
|
#ROUTE_SUBFUNC
|
#ROUTE_SUBFUNC
|
#$label='ROUTE_SUBFUNC';
|
#$label='ROUTE_SUBFUNC';
|
#$param='ROUTE_SUBFUNC';
|
#$param='ROUTE_SUBFUNC';
|
#$default= '"XY"';
|
#$default= '"XY"';
|
#$info='ROUTE_SUBFUNC';
|
#$info='ROUTE_SUBFUNC';
|
#$content='"XY"';
|
#$content='"XY"';
|
#$type="Combo-box";
|
#$type="Combo-box";
|
#($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param');
|
#($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,0,'noc_param');
|
|
|
return $row;
|
return $row;
|
}
|
}
|
|
|
|
|
|
|
|
|
|
sub set_multicast_list{
|
|
my($mpsoc)=@_;
|
|
my $window = def_popwin_size(50,40,"Select nodes invlove in multicasting ",'percent');
|
|
my $table= def_table(10,10,FALSE);
|
|
my $row=0;
|
|
my $col=0;
|
|
|
|
my $init = $mpsoc->object_get_attribute('noc_param',"MCAST_ENDP_LIST");
|
|
$init =~ s/'h//g;
|
|
my @arr= reverse split (//, $init);
|
|
|
|
|
|
my $label = "Multicast Node list (hex fromat)";
|
|
my ($Ebox,$entry) = def_h_labeled_entry ($label);
|
|
$entry->set_sensitive (FALSE);
|
|
|
|
my @sel_options= ("Select","All","None","2n","3n","4n","2n+1","3n+1","3n+2","4n+1","4n+2","4n+3");
|
|
my $combo= gen_combo(\@sel_options, 0);
|
|
$table->attach ($combo , 0, 1, $row,$row+1,'fill','shrink',2,2);
|
|
#get the number of endpoints
|
|
my ($NE, $NR, $RAw, $EAw, $Fw) = get_topology_info($mpsoc);
|
|
my @check;
|
|
|
|
|
|
|
|
my $sel_val="Init";
|
|
for (my $i=0; $i<$NE; $i++){
|
|
if($i%10 == 0){ $row++;$col=0;}
|
|
my $box;
|
|
my $l=$NE -$i-1;
|
|
|
|
my $char = $arr[$l/4];
|
|
$char=0 if (!defined $char);
|
|
my $hex = hex($char);
|
|
my $bit = ($hex >> ($l%4)) & 1;
|
|
($box,$check[$l])=def_h_labeled_checkbutton("$l");
|
|
$table->attach ($box , $col, $col+1, $row,$row+1,'fill','shrink',2,2);
|
|
$col++;
|
|
|
|
if($bit==1){
|
|
$check[$l]->set_active(TRUE);
|
|
}
|
|
|
|
$check[$l]-> signal_connect("toggled" => sub{
|
|
get_multicast_val ($mpsoc,$entry,$NE,@check)if($sel_val eq "Select");
|
|
});
|
|
}
|
|
$row++;
|
|
$col=0;
|
|
|
|
$sel_val="Select";
|
|
get_multicast_val ($mpsoc,$entry,$NE,@check);
|
|
|
|
$combo-> signal_connect("changed" => sub{
|
|
$sel_val=$combo->get_active_text();
|
|
my $n=1;
|
|
my $r=0;
|
|
return if ($sel_val eq "Select");
|
|
if ($sel_val eq "None"){
|
|
for (my $i=0; $i<$NE; $i++){$check[$i]->set_active(FALSE)};
|
|
get_multicast_val ($mpsoc,$entry,$NE,@check);
|
|
$combo->set_active(0);
|
|
return;
|
|
}
|
|
($n,$r)=sscanf("%dn+%d",$sel_val);
|
|
if(!defined $r){
|
|
($n,$r)=sscanf("%dn",$sel_val);
|
|
$r=0;
|
|
$n=1 if(!defined $n);
|
|
}
|
|
|
|
for (my $i=0; $i<$NE; $i++){
|
|
if($i % $n == $r){ $check[$i]->set_active(TRUE);}
|
|
}
|
|
$combo->set_active(0);
|
|
get_multicast_val ($mpsoc,$entry,$NE,@check);
|
|
|
|
});
|
|
|
|
|
|
|
|
$table->attach ($Ebox , 0, 10, $row,$row+1,'fill','shrink',2,2);$row++;
|
|
|
|
my $main_table=def_table(10,10,FALSE);
|
|
|
|
my $ok = def_image_button('icons/select.png','OK');
|
|
$main_table->attach_defaults ($table , 0, 12, 0,11);
|
|
$main_table->attach ($ok,5, 6, 11,12,'shrink','shrink',0,0);
|
|
|
|
$ok->signal_connect('clicked', sub {
|
|
my $s=get_multicast_val ($mpsoc,$entry,$NE,@check);
|
|
my $n=$entry->get_text( );
|
|
$mpsoc->object_add_attribute('noc_param',"MCAST_ENDP_LIST",$n);
|
|
# $mpsoc->object_add_attribute('noc_param',"MCAST_PRTLw",$s);
|
|
set_gui_status($mpsoc,"ref",1);
|
|
$window->destroy;
|
|
});
|
|
|
|
|
|
|
|
|
|
my $scrolled_win = gen_scr_win_with_adjst($mpsoc,'gen_multicast');
|
|
add_widget_to_scrolled_win($main_table,$scrolled_win);
|
|
$window->add($scrolled_win);
|
|
$window->show_all();
|
|
}
|
|
|
|
sub get_multicast_val {
|
|
my ($mpsoc,$entry,$NE,@check)=@_;
|
|
my $n="";
|
|
my $h=0;
|
|
my $s=0;
|
|
for (my $i=0; $i<$NE; $i++){
|
|
if($check[$i]->get_active()){$h+= (1<<$i%4);$s++;}
|
|
if(($i+1) % 4==0){
|
|
$n="$h".$n if($h<10);
|
|
$n=chr($h-10+97).$n if($h>9);
|
|
$h=0;
|
|
}
|
|
}
|
|
|
|
$n="$h".$n if($NE%4!=0);
|
|
$n="'h".$n;
|
|
$entry->set_text("$n");
|
|
return $s;
|
|
|
|
}
|
#############
|
#############
|
# config_custom_topology_gui
|
# config_custom_topology_gui
|
############
|
############
|
|
|
sub config_custom_topology_gui{
|
sub config_custom_topology_gui{
|
my($mpsoc,$table,$txview,$row)=@_;
|
my($mpsoc,$table,$txview,$row)=@_;
|
|
|
my $coltmp=0;
|
my $coltmp=0;
|
#read param.obj file to load cutom topology info
|
#read param.obj file to load cutom topology info
|
my $dir =get_project_dir()."/mpsoc/rtl/src_topolgy";
|
my $dir =get_project_dir()."/mpsoc/rtl/src_topolgy";
|
my $file="$dir/param.obj";
|
my $file="$dir/param.obj";
|
unless (-f $file){
|
unless (-f $file){
|
add_colored_info($txview,"No Custom topology find in $dir. You can define a Custom Topology using ProNoC Topology maker.\n",'red');
|
add_colored_info($txview,"No Custom topology find in $dir. You can define a Custom Topology using ProNoC Topology maker.\n",'red');
|
return;
|
return;
|
}
|
}
|
|
|
my %param;
|
my %param;
|
my ($pp,$r,$err) = regen_object($file );
|
my ($pp,$r,$err) = regen_object($file );
|
if ($r){
|
if ($r){
|
add_colored_info($txview,"Error: cannot open $file file: $err\n",'red');
|
add_colored_info($txview,"Error: cannot open $file file: $err\n",'red');
|
return;
|
return;
|
}
|
}
|
|
|
%param=%{$pp};
|
%param=%{$pp};
|
my @topologies=sort keys %param;
|
my @topologies=sort keys %param;
|
|
|
my $label='Topology_name';
|
my $label='Topology_name';
|
my $param='CUSTOM_TOPOLOGY_NAME';
|
my $param='CUSTOM_TOPOLOGY_NAME';
|
my $default=$topologies[0];
|
my $default=$topologies[0];
|
my $content= join(",", @topologies);
|
my $content= join(",", @topologies);
|
my $type='Combo-box';
|
my $type='Combo-box';
|
my $info="Custom topology name";
|
my $info="Custom topology name";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,1,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,1,'noc_param',1);
|
|
|
my $topology_name=$mpsoc->object_get_attribute('noc_param','CUSTOM_TOPOLOGY_NAME');
|
my $topology_name=$mpsoc->object_get_attribute('noc_param','CUSTOM_TOPOLOGY_NAME');
|
|
|
|
|
$label='Routing Algorithm';
|
$label='Routing Algorithm';
|
$param="ROUTE_NAME";
|
$param="ROUTE_NAME";
|
$type="Combo-box";
|
$type="Combo-box";
|
$content=$param{$topology_name}{'ROUTE_NAME'};
|
$content=$param{$topology_name}{'ROUTE_NAME'};
|
my @rr=split(/\s*,\s*/,$content);
|
my @rr=split(/\s*,\s*/,$content);
|
$default=$rr[0];
|
$default=$rr[0];
|
$info="Select the routing algorithm";
|
$info="Select the routing algorithm";
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,1,'noc_param',1);
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,1,'noc_param',1);
|
|
|
$mpsoc->object_add_attribute('noc_param','T1',$param{$topology_name}{'T1'});
|
$mpsoc->object_add_attribute('noc_param','T1',$param{$topology_name}{'T1'});
|
$mpsoc->object_add_attribute('noc_param','T2',$param{$topology_name}{'T2'});
|
$mpsoc->object_add_attribute('noc_param','T2',$param{$topology_name}{'T2'});
|
$mpsoc->object_add_attribute('noc_param','T3',$param{$topology_name}{'T3'});
|
$mpsoc->object_add_attribute('noc_param','T3',$param{$topology_name}{'T3'});
|
$mpsoc->object_add_attribute('noc_connection','er_addr',$param{$topology_name}{'er_addr'});
|
$mpsoc->object_add_attribute('noc_connection','er_addr',$param{$topology_name}{'er_addr'});
|
|
|
|
|
return ($row,$coltmp);
|
return ($row,$coltmp);
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
#######################
|
#######################
|
# get_config
|
# get_config
|
######################
|
######################
|
|
|
sub get_config{
|
sub get_config{
|
my ($mpsoc,$info)=@_;
|
my ($mpsoc,$info)=@_;
|
my $table=def_table(20,10,FALSE);# my ($row,$col,$homogeneous)=@_;
|
my $table=def_table(20,10,FALSE);# my ($row,$col,$homogeneous)=@_;
|
|
|
|
|
#noc_setting
|
#noc_setting
|
my $row=noc_config ($mpsoc,$table,$info);
|
my $row=noc_config ($mpsoc,$table,$info);
|
|
|
|
|
#tiles setting
|
#tiles setting
|
my $tile_set;
|
my $tile_set;
|
my $show=$mpsoc->object_get_attribute('setting','show_tile_setting');
|
my $show=$mpsoc->object_get_attribute('setting','show_tile_setting');
|
|
|
if($show == 0){
|
if($show == 0){
|
$tile_set= def_image_button("icons/down.png","Tiles setting");
|
$tile_set= def_image_button("icons/down.png","Tiles setting");
|
$table->attach ( $tile_set , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $tile_set , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$row++;
|
$row++;
|
|
|
}
|
}
|
|
|
$row=defualt_tilles_setting($mpsoc,$table,$show,$row,$info);
|
$row=defualt_tilles_setting($mpsoc,$table,$show,$row,$info);
|
|
|
|
|
#end tile setting
|
#end tile setting
|
if($show == 1){
|
if($show == 1){
|
$tile_set= def_image_button("icons/up.png","Tiles setting");
|
$tile_set= def_image_button("icons/up.png","Tiles setting");
|
$table->attach ( $tile_set , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $tile_set , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$row++;
|
$row++;
|
}
|
}
|
$tile_set->signal_connect("clicked" => sub{
|
$tile_set->signal_connect("clicked" => sub{
|
$show=($show==1)?0:1;
|
$show=($show==1)?0:1;
|
$mpsoc->object_add_attribute('setting','show_tile_setting',$show);
|
$mpsoc->object_add_attribute('setting','show_tile_setting',$show);
|
set_gui_status($mpsoc,"ref",1);
|
set_gui_status($mpsoc,"ref",1);
|
|
|
|
|
});
|
});
|
|
|
my $scrolled_win = gen_scr_win_with_adjst($mpsoc,'get_config_adj');
|
my $scrolled_win = gen_scr_win_with_adjst($mpsoc,'get_config_adj');
|
add_widget_to_scrolled_win($table,$scrolled_win);
|
add_widget_to_scrolled_win($table,$scrolled_win);
|
return $scrolled_win;
|
return $scrolled_win;
|
}
|
}
|
|
|
|
|
#############
|
#############
|
# gen_all_tiles
|
# gen_all_tiles
|
###########
|
###########
|
|
|
sub gen_all_tiles{
|
sub gen_all_tiles{
|
my ($mpsoc,$info, $hw_dir,$sw_dir)=@_;
|
my ($mpsoc,$info, $hw_dir,$sw_dir)=@_;
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
my @generated_tiles;
|
my @generated_tiles;
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
#print "$tile_num\n";
|
#print "$tile_num\n";
|
my ($soc_name,$num)= $mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
my ($soc_name,$num)= $mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
next if(!defined $soc_name);
|
next if(!defined $soc_name);
|
|
|
|
|
my $path=$mpsoc->object_get_attribute('setting','soc_path');
|
my $path=$mpsoc->object_get_attribute('setting','soc_path');
|
$path=~ s/ /\\ /g;
|
$path=~ s/ /\\ /g;
|
my $p = "$path/$soc_name.SOC";
|
my $p = "$path/$soc_name.SOC";
|
my ($soc,$r,$err) = regen_object($p);
|
my ($soc,$r,$err) = regen_object($p);
|
if ($r){
|
if ($r){
|
show_info($info,"**Error reading $p file: $err\n");
|
show_info($info,"**Error reading $p file: $err\n");
|
next;
|
next;
|
}
|
}
|
|
|
#update core id
|
#update core id
|
$soc->object_add_attribute('global_param','CORE_ID',$tile_num);
|
$soc->object_add_attribute('global_param','CORE_ID',$tile_num);
|
#update NoC param
|
#update NoC param
|
#my %nocparam = %{$mpsoc->object_get_attribute('noc_param',undef)};
|
#my %nocparam = %{$mpsoc->object_get_attribute('noc_param',undef)};
|
my $nocparam =$mpsoc->object_get_attribute('noc_param',undef);
|
my $nocparam =$mpsoc->object_get_attribute('noc_param',undef);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my @nis=get_NI_instance_list($top);
|
my @nis=get_NI_instance_list($top);
|
$soc->soc_add_instance_param($nis[0] ,$nocparam );
|
$soc->soc_add_instance_param($nis[0] ,$nocparam );
|
my %z;
|
my %z;
|
foreach my $p (sort keys %{$nocparam}){
|
foreach my $p (sort keys %{$nocparam}){
|
$z{$p}="Parameter";
|
$z{$p}="Parameter";
|
}
|
}
|
$soc->soc_add_instance_param_type($nis[0] ,\%z);
|
$soc->soc_add_instance_param_type($nis[0] ,\%z);
|
#foreach my $p ( sort keys %nocparam ) {
|
#foreach my $p ( sort keys %nocparam ) {
|
|
|
# print "$p = $nocparam{$p} \n";
|
# print "$p = $nocparam{$p} \n";
|
#}
|
#}
|
|
|
my $sw_path = "$sw_dir/tile$tile_num";
|
my $sw_path = "$sw_dir/tile$tile_num";
|
#print "$sw_path\n";
|
#print "$sw_path\n";
|
if( grep (/^$soc_name$/,@generated_tiles)){ # This soc is generated before only create the software file
|
if( grep (/^$soc_name$/,@generated_tiles)){ # This soc is generated before only create the software file
|
generate_soc($soc,$info,$target_dir,$hw_dir,$sw_path,0,0,undef,1);
|
generate_soc($soc,$info,$target_dir,$hw_dir,$sw_path,0,0,undef,1);
|
}else{
|
}else{
|
generate_soc($soc,$info,$target_dir,$hw_dir,$sw_path,0,1,"merge",1);
|
generate_soc($soc,$info,$target_dir,$hw_dir,$sw_path,0,1,"merge",1);
|
move ("$hw_dir/$soc_name.sv","$hw_dir/tiles/");
|
move ("$hw_dir/$soc_name.sv","$hw_dir/tiles/");
|
my @tmp= ("$hw_dir/tiles/$soc_name.sv");
|
my @tmp= ("$hw_dir/tiles/$soc_name.sv");
|
add_to_project_file_list(\@tmp,"$hw_dir/tiles",$hw_dir);
|
add_to_project_file_list(\@tmp,"$hw_dir/tiles",$hw_dir);
|
|
|
}
|
}
|
}#$tile_num
|
}#$tile_num
|
|
|
|
|
}
|
}
|
|
|
|
|
################
|
################
|
# generate_soc
|
# generate_soc
|
#################
|
#################
|
|
|
sub generate_soc_files{
|
sub generate_soc_files{
|
my ($mpsoc,$soc,$info)=@_;
|
my ($mpsoc,$soc,$info)=@_;
|
my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $soc_name=$soc->object_get_attribute('soc_name');
|
my $soc_name=$soc->object_get_attribute('soc_name');
|
|
|
# copy all files in project work directory
|
# copy all files in project work directory
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $project_dir = abs_path("$dir/../../");
|
my $project_dir = abs_path("$dir/../../");
|
#make target dir
|
#make target dir
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
mkpath("$target_dir/src_verilog/lib/",1,0755);
|
mkpath("$target_dir/src_verilog/lib/",1,0755);
|
mkpath("$target_dir/src_verilog/tiles/",1,0755);
|
mkpath("$target_dir/src_verilog/tiles/",1,0755);
|
mkpath("$target_dir/sw",1,0755);
|
mkpath("$target_dir/sw",1,0755);
|
|
|
my ($file_v,$tmp)=soc_generate_verilog($soc,"$target_dir/sw",$info);
|
my ($file_v,$tmp)=soc_generate_verilog($soc,"$target_dir/sw",$info);
|
|
|
# Write object file
|
# Write object file
|
open(FILE, ">lib/soc/$soc_name.SOC") || die "Can not open: $!";
|
open(FILE, ">lib/soc/$soc_name.SOC") || die "Can not open: $!";
|
print FILE perl_file_header("$soc_name.SOC");
|
print FILE perl_file_header("$soc_name.SOC");
|
print FILE Data::Dumper->Dump([\%$soc],['soc']);
|
print FILE Data::Dumper->Dump([\%$soc],['soc']);
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
# Write verilog file
|
# Write verilog file
|
open(FILE, ">lib/verilog/$soc_name.sv") || die "Can not open: $!";
|
open(FILE, ">lib/verilog/$soc_name.sv") || die "Can not open: $!";
|
print FILE $file_v;
|
print FILE $file_v;
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
|
|
|
#copy hdl codes in src_verilog
|
#copy hdl codes in src_verilog
|
my ($hdl_ref,$warnings)= get_all_files_list($soc,"hdl_files");
|
my ($hdl_ref,$warnings)= get_all_files_list($soc,"hdl_files");
|
my ($sim_ref,$warnings2)= get_all_files_list($soc,"hdl_files_ticked");
|
my ($sim_ref,$warnings2)= get_all_files_list($soc,"hdl_files_ticked");
|
#hdl_ref-sim_ref
|
#hdl_ref-sim_ref
|
my @n= get_diff_array($hdl_ref,$sim_ref);
|
my @n= get_diff_array($hdl_ref,$sim_ref);
|
$hdl_ref=\@n;
|
$hdl_ref=\@n;
|
|
|
foreach my $f(@{$hdl_ref}){
|
foreach my $f(@{$hdl_ref}){
|
my $n="$project_dir$f";
|
my $n="$project_dir$f";
|
if (-f "$n") {
|
if (-f "$n") {
|
copy ("$n","$target_dir/src_verilog/lib");
|
copy ("$n","$target_dir/src_verilog/lib");
|
}elsif(-f "$f" ){
|
}elsif(-f "$f" ){
|
copy ("$f","$target_dir/src_verilog/lib");
|
copy ("$f","$target_dir/src_verilog/lib");
|
}
|
}
|
}
|
}
|
show_colored_info($info,$warnings,'green') if(defined $warnings);
|
show_colored_info($info,$warnings,'green') if(defined $warnings);
|
|
|
|
|
|
|
foreach my $f(@{$sim_ref}){
|
foreach my $f(@{$sim_ref}){
|
my $n="$project_dir$f";
|
my $n="$project_dir$f";
|
if (-f "$n") {
|
if (-f "$n") {
|
copy ("$n","$target_dir/src_sim");
|
copy ("$n","$target_dir/src_sim");
|
}elsif(-f "$f" ){
|
}elsif(-f "$f" ){
|
copy ("$f","$target_dir/src_sim");
|
copy ("$f","$target_dir/src_sim");
|
}
|
}
|
}
|
}
|
show_colored_info($info,$warnings2,'green') if(defined $warnings2);
|
show_colored_info($info,$warnings2,'green') if(defined $warnings2);
|
|
|
|
|
#save project hdl file/folder list
|
#save project hdl file/folder list
|
my @new_file_ref;
|
my @new_file_ref;
|
foreach my $f(@{$hdl_ref}){
|
foreach my $f(@{$hdl_ref}){
|
my ($name,$path,$suffix) = fileparse("$f",qr"\..[^.]*$");
|
my ($name,$path,$suffix) = fileparse("$f",qr"\..[^.]*$");
|
push(@new_file_ref,"$target_dir/src_verilog/lib/$name$suffix");
|
push(@new_file_ref,"$target_dir/src_verilog/lib/$name$suffix");
|
}
|
}
|
foreach my $f(@{$sim_ref}){
|
foreach my $f(@{$sim_ref}){
|
my ($name,$path,$suffix) = fileparse("$f",qr"\..[^.]*$");
|
my ($name,$path,$suffix) = fileparse("$f",qr"\..[^.]*$");
|
push(@new_file_ref,"$target_dir/src_sim/$name$suffix");
|
push(@new_file_ref,"$target_dir/src_sim/$name$suffix");
|
}
|
}
|
open(FILE, ">$target_dir/src_verilog/file_list") || die "Can not open: $!";
|
open(FILE, ">$target_dir/src_verilog/file_list") || die "Can not open: $!";
|
print FILE Data::Dumper->Dump([\@new_file_ref],['files']);
|
print FILE Data::Dumper->Dump([\@new_file_ref],['files']);
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
|
|
|
|
|
move ("$dir/lib/verilog/$soc_name.sv","$target_dir/src_verilog/tiles/");
|
move ("$dir/lib/verilog/$soc_name.sv","$target_dir/src_verilog/tiles/");
|
copy_noc_files($project_dir,"$target_dir/src_verilog/lib");
|
copy_noc_files($project_dir,"$target_dir/src_verilog/lib");
|
|
|
|
|
# Write header file
|
# Write header file
|
generate_header_file($soc,$project_dir,$target_dir,$target_dir,$dir);
|
generate_header_file($soc,$project_dir,$target_dir,$target_dir,$dir);
|
#use File::Copy::Recursive qw(dircopy);
|
#use File::Copy::Recursive qw(dircopy);
|
#dircopy("$dir/../src_processor/aeMB/compiler","$target_dir/sw/") or die("$!\n");
|
#dircopy("$dir/../src_processor/aeMB/compiler","$target_dir/sw/") or die("$!\n");
|
my $msg="SoC \"$soc_name\" has been created successfully at $target_dir/ ";
|
my $msg="SoC \"$soc_name\" has been created successfully at $target_dir/ ";
|
return $msg;
|
return $msg;
|
}
|
}
|
|
|
|
|
sub generate_mpsoc_lib_file {
|
sub generate_mpsoc_lib_file {
|
my ($mpsoc,$info) = @_;
|
my ($mpsoc,$info) = @_;
|
my $tmp = $mpsoc;
|
my $tmp = $mpsoc;
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
|
open(FILE, ">lib/mpsoc/$name.MPSOC") || die "Can not open: $!";
|
open(FILE, ">lib/mpsoc/$name.MPSOC") || die "Can not open: $!";
|
print FILE perl_file_header("$name.MPSOC");
|
print FILE perl_file_header("$name.MPSOC");
|
print FILE Data::Dumper->Dump([\%$tmp],['mpsoc']);
|
print FILE Data::Dumper->Dump([\%$tmp],['mpsoc']);
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
#get_soc_list($mpsoc,$info);
|
#get_soc_list($mpsoc,$info);
|
|
|
}
|
}
|
|
|
sub check_mpsoc_name {
|
sub check_mpsoc_name {
|
my ($name,$info)= @_;
|
my ($name,$info)= @_;
|
my $error = check_verilog_identifier_syntax($name);
|
my $error = check_verilog_identifier_syntax($name);
|
if ( defined $error ){
|
if ( defined $error ){
|
#message_dialog("The \"$name\" is given with an unacceptable formatting. The mpsoc name will be used as top level verilog module name so it must follow Verilog identifier declaration formatting:\n $error");
|
#message_dialog("The \"$name\" is given with an unacceptable formatting. The mpsoc name will be used as top level verilog module name so it must follow Verilog identifier declaration formatting:\n $error");
|
my $message = "The \"$name\" is given with an unacceptable formatting. The mpsoc name will be used as top level Verilog module name so it must follow Verilog identifier declaration formatting:\n $error";
|
my $message = "The \"$name\" is given with an unacceptable formatting. The mpsoc name will be used as top level Verilog module name so it must follow Verilog identifier declaration formatting:\n $error";
|
add_colored_info($info, $message,'red' );
|
add_colored_info($info, $message,'red' );
|
return 1;
|
return 1;
|
}
|
}
|
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 MPSoC name!");
|
message_dialog("Please define the MPSoC name!");
|
return 1;
|
return 1;
|
}
|
}
|
return 0;
|
return 0;
|
}
|
}
|
|
|
|
|
################
|
################
|
# generate_mpsoc
|
# generate_mpsoc
|
#################
|
#################
|
|
|
sub generate_mpsoc{
|
sub generate_mpsoc{
|
my ($mpsoc,$info,$show_sucess_msg)=@_;
|
my ($mpsoc,$info,$show_sucess_msg)=@_;
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
return 0 if (check_mpsoc_name($name,$info));
|
return 0 if (check_mpsoc_name($name,$info));
|
|
|
# make target dir
|
# make target dir
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $hw_dir = "$target_dir/src_verilog";
|
my $hw_dir = "$target_dir/src_verilog";
|
my $sw_dir = "$target_dir/sw";
|
my $sw_dir = "$target_dir/sw";
|
|
|
# rmtree ($hw_dir);
|
# rmtree ($hw_dir);
|
mkpath("$hw_dir",1,01777);
|
mkpath("$hw_dir",1,01777);
|
mkpath("$hw_dir/lib/",1,0755);
|
mkpath("$hw_dir/lib/",1,0755);
|
mkpath("$hw_dir/tiles",1,0755);
|
mkpath("$hw_dir/tiles",1,0755);
|
mkpath("$sw_dir",1,0755);
|
mkpath("$sw_dir",1,0755);
|
|
|
#remove old rtl files that were copied by ProNoC
|
#remove old rtl files that were copied by ProNoC
|
my ($old_file_ref,$r,$err) = regen_object("$hw_dir/file_list");
|
my ($old_file_ref,$r,$err) = regen_object("$hw_dir/file_list");
|
if (defined $old_file_ref){
|
if (defined $old_file_ref){
|
remove_file_and_folders($old_file_ref,$target_dir);
|
remove_file_and_folders($old_file_ref,$target_dir);
|
}
|
}
|
unlink "$hw_dir/file_list";
|
unlink "$hw_dir/file_list";
|
|
|
#generate/copy all tiles HDL/SW codes
|
#generate/copy all tiles HDL/SW codes
|
gen_all_tiles($mpsoc,$info, $hw_dir,$sw_dir );
|
gen_all_tiles($mpsoc,$info, $hw_dir,$sw_dir );
|
|
|
#copy clk setting hdl codes in src_verilog
|
#copy clk setting hdl codes in src_verilog
|
my $project_dir = abs_path("$dir/../../");
|
my $project_dir = abs_path("$dir/../../");
|
my $sc_soc =get_source_set_top($mpsoc,'mpsoc');
|
my $sc_soc =get_source_set_top($mpsoc,'mpsoc');
|
my ($file_ref,$warnings)= get_all_files_list($sc_soc,"hdl_files");
|
my ($file_ref,$warnings)= get_all_files_list($sc_soc,"hdl_files");
|
my ($sim_ref,$warnings2)= get_all_files_list($sc_soc,"hdl_files_ticked");
|
my ($sim_ref,$warnings2)= get_all_files_list($sc_soc,"hdl_files_ticked");
|
#file_ref-sim_ref
|
#file_ref-sim_ref
|
my @n= get_diff_array($file_ref,$sim_ref);
|
my @n= get_diff_array($file_ref,$sim_ref);
|
$file_ref=\@n;
|
$file_ref=\@n;
|
|
|
copy_file_and_folders($file_ref,$project_dir,"$hw_dir/lib");
|
copy_file_and_folders($file_ref,$project_dir,"$hw_dir/lib");
|
show_colored_info($info,$warnings,'green') if(defined $warnings);
|
show_colored_info($info,$warnings,'green') if(defined $warnings);
|
add_to_project_file_list($file_ref,"$hw_dir/lib/",$hw_dir);
|
add_to_project_file_list($file_ref,"$hw_dir/lib/",$hw_dir);
|
|
|
copy_file_and_folders($sim_ref,$project_dir,"$hw_dir/../src_sim");
|
copy_file_and_folders($sim_ref,$project_dir,"$hw_dir/../src_sim");
|
show_colored_info($info,$warnings2,'green') if(defined $warnings2);
|
show_colored_info($info,$warnings2,'green') if(defined $warnings2);
|
add_to_project_file_list($sim_ref,"$hw_dir/../src_sim",$hw_dir);
|
add_to_project_file_list($sim_ref,"$hw_dir/../src_sim",$hw_dir);
|
|
|
|
|
|
|
#generate header file containig the tiles physical addresses
|
#generate header file containig the tiles physical addresses
|
gen_tiles_physical_addrsses_header_file($mpsoc,"$sw_dir/phy_addr.h");
|
gen_tiles_physical_addrsses_header_file($mpsoc,"$sw_dir/phy_addr.h");
|
|
|
#copy all NoC HDL files
|
#copy all NoC HDL files
|
#my @files = glob( "$dir/../rtl/src_noc/*.v" );
|
#my @files = glob( "$dir/../rtl/src_noc/*.v" );
|
#copy_file_and_folders(\@files,$project_dir,"$hw_dir/lib/");
|
#copy_file_and_folders(\@files,$project_dir,"$hw_dir/lib/");
|
#add_to_project_file_list(\@files,"$hw_dir/lib/",$hw_dir);
|
#add_to_project_file_list(\@files,"$hw_dir/lib/",$hw_dir);
|
my ($file_v,$top_v, $noc_param_v)=mpsoc_generate_verilog($mpsoc,$sw_dir,$info);
|
my ($file_v,$top_v, $noc_param_v)=mpsoc_generate_verilog($mpsoc,$sw_dir,$info);
|
|
|
#if Topology is custom copy custom topology files
|
#if Topology is custom copy custom topology files
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
if ($topology eq '"CUSTOM"'){
|
if ($topology eq '"CUSTOM"'){
|
my $Tname=$mpsoc->object_get_attribute('noc_param','CUSTOM_TOPOLOGY_NAME');
|
my $Tname=$mpsoc->object_get_attribute('noc_param','CUSTOM_TOPOLOGY_NAME');
|
$Tname=~s/["]//gs;
|
$Tname=~s/["]//gs;
|
my $dir1= get_project_dir()."/mpsoc/rtl/src_topolgy/$Tname";
|
my $dir1= get_project_dir()."/mpsoc/rtl/src_topolgy/$Tname";
|
my $dir2= get_project_dir()."/mpsoc/rtl/src_topolgy/common";
|
my $dir2= get_project_dir()."/mpsoc/rtl/src_topolgy/common";
|
my @files = File::Find::Rule->file()
|
my @files = File::Find::Rule->file()
|
->name( '*.v','*.V')
|
->name( '*.v','*.V')
|
->in( "$dir1" );
|
->in( "$dir1" );
|
copy_file_and_folders (\@files,$project_dir,"$hw_dir/lib/");
|
copy_file_and_folders (\@files,$project_dir,"$hw_dir/lib/");
|
|
|
@files = File::Find::Rule->file()
|
@files = File::Find::Rule->file()
|
->name( '*.v','*.V')
|
->name( '*.v','*.V')
|
->in( "$dir2" );
|
->in( "$dir2" );
|
|
|
copy_file_and_folders (\@files,$project_dir,"$hw_dir/lib/");
|
copy_file_and_folders (\@files,$project_dir,"$hw_dir/lib/");
|
}
|
}
|
|
|
|
|
# Write object file
|
# Write object file
|
generate_mpsoc_lib_file($mpsoc,$info);
|
generate_mpsoc_lib_file($mpsoc,$info);
|
|
|
# Write verilog file
|
# Write verilog file
|
open(FILE, ">$target_dir/src_verilog/$name.sv") || die "Can not open: $!";
|
open(FILE, ">$target_dir/src_verilog/$name.sv") || die "Can not open: $!";
|
print FILE $file_v;
|
print FILE $file_v;
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
my $l=autogen_warning().get_license_header("${name}_top.v");
|
my $l=autogen_warning().get_license_header("${name}_top.v");
|
open(FILE, ">$target_dir/src_verilog/${name}_top.v") || die "Can not open: $!";
|
open(FILE, ">$target_dir/src_verilog/${name}_top.v") || die "Can not open: $!";
|
print FILE "$l\n$top_v";
|
print FILE "$l\n$top_v";
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
gen_noc_localparam_v_file($mpsoc,"$target_dir/src_verilog/lib/src_noc");
|
gen_noc_localparam_v_file($mpsoc,"$target_dir/src_verilog/lib/src_noc");
|
|
|
|
|
|
|
|
|
|
|
|
|
# $l=autogen_warning().get_license_header("${name}_mp.v");
|
# $l=autogen_warning().get_license_header("${name}_mp.v");
|
# open(FILE, ">$target_dir/src_verilog/${name}_mp.v") || die "Can not open: $!";
|
# open(FILE, ">$target_dir/src_verilog/${name}_mp.v") || die "Can not open: $!";
|
# print FILE "$l\n$mp_v";
|
# print FILE "$l\n$mp_v";
|
# close(FILE) || die "Error closing file: $!";
|
# close(FILE) || die "Error closing file: $!";
|
|
|
|
|
#generate makefile
|
#generate makefile
|
open(FILE, ">$sw_dir/Makefile") || die "Can not open: $!";
|
open(FILE, ">$sw_dir/Makefile") || die "Can not open: $!";
|
print FILE mpsoc_sw_make();
|
print FILE mpsoc_sw_make();
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
my $m_chain = $mpsoc->object_get_attribute('JTAG','M_CHAIN');
|
my $m_chain = $mpsoc->object_get_attribute('JTAG','M_CHAIN');
|
|
|
#generate prog_mem
|
#generate prog_mem
|
open(FILE, ">$sw_dir/program.sh") || die "Can not open: $!";
|
open(FILE, ">$sw_dir/program.sh") || die "Can not open: $!";
|
print FILE mpsoc_mem_prog($m_chain);
|
print FILE mpsoc_mem_prog($m_chain);
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
|
|
my @ff= ("$target_dir/src_verilog/$name.sv","$target_dir/src_verilog/${name}_top.v");
|
my @ff= ("$target_dir/src_verilog/$name.sv","$target_dir/src_verilog/${name}_top.v");
|
add_to_project_file_list(\@ff,"$hw_dir/lib/",$hw_dir);
|
add_to_project_file_list(\@ff,"$hw_dir/lib/",$hw_dir);
|
|
|
#write perl_object_file
|
#write perl_object_file
|
mkpath("$target_dir/perl_lib/",1,01777);
|
mkpath("$target_dir/perl_lib/",1,01777);
|
open(FILE, ">$target_dir/perl_lib/$name.MPSOC") || die "Can not open: $!";
|
open(FILE, ">$target_dir/perl_lib/$name.MPSOC") || die "Can not open: $!";
|
print FILE perl_file_header("$name.MPSOC");
|
print FILE perl_file_header("$name.MPSOC");
|
print FILE Data::Dumper->Dump([\%$mpsoc],['mpsoc']);
|
print FILE Data::Dumper->Dump([\%$mpsoc],['mpsoc']);
|
|
|
#regenerate linker var file
|
#regenerate linker var file
|
create_linker_var_file($mpsoc);
|
create_linker_var_file($mpsoc);
|
|
|
|
|
message_dialog("MPSoC \"$name\" has been created successfully at $target_dir/ " ) if($show_sucess_msg);
|
message_dialog("MPSoC \"$name\" has been created successfully at $target_dir/ " ) if($show_sucess_msg);
|
return 1;
|
return 1;
|
}
|
}
|
|
|
sub mpsoc_sw_make {
|
sub mpsoc_sw_make {
|
my $make="TOPTARGETS := all clean
|
my $make="TOPTARGETS := all clean
|
SUBDIRS := \$(wildcard */.)
|
SUBDIRS := \$(wildcard */.)
|
\$(TOPTARGETS): \$(SUBDIRS)
|
\$(TOPTARGETS): \$(SUBDIRS)
|
\$(SUBDIRS):
|
\$(SUBDIRS):
|
\t\$(MAKE) -C \$@ \$(MAKECMDGOALS)
|
\t\$(MAKE) -C \$@ \$(MAKECMDGOALS)
|
|
|
.PHONY: \$(TOPTARGETS) \$(SUBDIRS)
|
.PHONY: \$(TOPTARGETS) \$(SUBDIRS)
|
";
|
";
|
return $make;
|
return $make;
|
}
|
}
|
|
|
|
|
sub mpsoc_mem_prog {
|
sub mpsoc_mem_prog {
|
my $chain=shift;
|
my $chain=shift;
|
|
|
my $string="#!/bin/bash
|
my $string="#!/bin/bash
|
|
|
|
|
#JTAG_INTFC=\"\$PRONOC_WORK/toolchain/bin/JTAG_INTFC\"
|
#JTAG_INTFC=\"\$PRONOC_WORK/toolchain/bin/JTAG_INTFC\"
|
source ./jtag_intfc.sh
|
source ./jtag_intfc.sh
|
|
|
|
|
#reset and disable cpus, then release the reset but keep the cpus disabled
|
#reset and disable cpus, then release the reset but keep the cpus disabled
|
|
|
\$JTAG_INTFC -t $chain -n 127 -d \"I:1,D:2:3,D:2:2,I:0\"
|
\$JTAG_INTFC -t $chain -n 127 -d \"I:1,D:2:3,D:2:2,I:0\"
|
|
|
# jtag instruction
|
# jtag instruction
|
# 0: bypass
|
# 0: bypass
|
# 1: getting data
|
# 1: getting data
|
# jtag data :
|
# jtag data :
|
# bit 0 is reset
|
# bit 0 is reset
|
# bit 1 is disable
|
# bit 1 is disable
|
# I:1 set jtag_enable in active mode
|
# I:1 set jtag_enable in active mode
|
# D:2:3 load jtag_enable data register with 0x3 reset=1 disable=1
|
# D:2:3 load jtag_enable data register with 0x3 reset=1 disable=1
|
# D:2:2 load jtag_enable data register with 0x2 reset=0 disable=1
|
# D:2:2 load jtag_enable data register with 0x2 reset=0 disable=1
|
# I:0 set jtag_enable in bypass mode
|
# I:0 set jtag_enable in bypass mode
|
|
|
|
|
|
|
#programe the memory
|
#programe the memory
|
for i in \$(ls -d */); do
|
for i in \$(ls -d */); do
|
echo \"Enter \${i\%\%/}\"
|
echo \"Enter \${i\%\%/}\"
|
cd \${i\%\%/}
|
cd \${i\%\%/}
|
bash write_memory.sh
|
bash write_memory.sh
|
cd ..
|
cd ..
|
done
|
done
|
|
|
#Enable the cpu
|
#Enable the cpu
|
\$JTAG_INTFC -t $chain -n 127 -d \"I:1,D:2:0,I:0\"
|
\$JTAG_INTFC -t $chain -n 127 -d \"I:1,D:2:0,I:0\"
|
# I:1 set jtag_enable in active mode
|
# I:1 set jtag_enable in active mode
|
# D:2:0 load jtag_enable data register with 0x0 reset=0 disable=0
|
# D:2:0 load jtag_enable data register with 0x0 reset=0 disable=0
|
# I:0 set jtag_enable in bypass mode
|
# I:0 set jtag_enable in bypass mode
|
";
|
";
|
return $string;
|
return $string;
|
}
|
}
|
|
|
|
|
sub get_tile_LIST{
|
sub get_tile_LIST{
|
my ($mpsoc,$x,$y,$soc_num,$row,$table)=@_;
|
my ($mpsoc,$x,$y,$soc_num,$row,$table)=@_;
|
my $instance_name=$mpsoc->mpsoc_get_instance_info($soc_num);
|
my $instance_name=$mpsoc->mpsoc_get_instance_info($soc_num);
|
if(!defined $instance_name){
|
if(!defined $instance_name){
|
$mpsoc->mpsoc_set_default_ip($soc_num);
|
$mpsoc->mpsoc_set_default_ip($soc_num);
|
$instance_name=$mpsoc->mpsoc_get_instance_info($soc_num);
|
$instance_name=$mpsoc->mpsoc_get_instance_info($soc_num);
|
}
|
}
|
|
|
#ipname
|
#ipname
|
my $col=0;
|
my $col=0;
|
my $label=gen_label_in_left("IP_$soc_num($x,$y)");
|
my $label=gen_label_in_left("IP_$soc_num($x,$y)");
|
$table->attach_defaults ( $label, $col, $col+1 , $row, $row+1);$col+=2;
|
$table->attach_defaults ( $label, $col, $col+1 , $row, $row+1);$col+=2;
|
#instance name
|
#instance name
|
my $entry=gen_entry($instance_name);
|
my $entry=gen_entry($instance_name);
|
$table->attach_defaults ( $entry, $col, $col+1 , $row, $row+1);$col+=2;
|
$table->attach_defaults ( $entry, $col, $col+1 , $row, $row+1);$col+=2;
|
$entry->signal_connect( 'changed'=> sub{
|
$entry->signal_connect( 'changed'=> sub{
|
my $new_instance=$entry->get_text();
|
my $new_instance=$entry->get_text();
|
$mpsoc->mpsoc_set_ip_inst_name($soc_num,$new_instance);
|
$mpsoc->mpsoc_set_ip_inst_name($soc_num,$new_instance);
|
set_gui_status($mpsoc,"ref",20);
|
set_gui_status($mpsoc,"ref",20);
|
print "changed to $new_instance\n ";
|
print "changed to $new_instance\n ";
|
});
|
});
|
|
|
#combo box
|
#combo box
|
my @list=('A','B');
|
my @list=('A','B');
|
my $combo=gen_combo(\@list,0);
|
my $combo=gen_combo(\@list,0);
|
$table->attach_defaults ( $combo, $col, $col+1 , $row, $row+1);$col+=2;
|
$table->attach_defaults ( $combo, $col, $col+1 , $row, $row+1);$col+=2;
|
#setting
|
#setting
|
my $setting= def_image_button("icons/setting.png","Browse");
|
my $setting= def_image_button("icons/setting.png","Browse");
|
$table->attach_defaults ( $setting, $col, $col+1 , $row, $row+1);$col+=2;
|
$table->attach_defaults ( $setting, $col, $col+1 , $row, $row+1);$col+=2;
|
}
|
}
|
|
|
sub get_tile{
|
sub get_tile{
|
my ($mpsoc,$tile)=@_;
|
my ($mpsoc,$tile)=@_;
|
my ($soc_name,$num)= $mpsoc->mpsoc_get_tile_soc_name($tile);
|
my ($soc_name,$num)= $mpsoc->mpsoc_get_tile_soc_name($tile);
|
my $button;
|
my $button;
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
|
|
if( defined $soc_name){
|
if( defined $soc_name){
|
my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile);
|
my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile);
|
$button=($setting eq 'Custom')? def_colored_button("Tile $tile*\n$soc_name",$num) : def_colored_button("Tile $tile\n$soc_name",$num) ;
|
$button=($setting eq 'Custom')? def_colored_button("Tile $tile*\n$soc_name",$num) : def_colored_button("Tile $tile\n$soc_name",$num) ;
|
}else {
|
}else {
|
$button =def_colored_button("Tile $tile\n",50) if(! defined $soc_name);
|
$button =def_colored_button("Tile $tile\n",50) if(! defined $soc_name);
|
}
|
}
|
|
|
$button->signal_connect("clicked" => sub{
|
$button->signal_connect("clicked" => sub{
|
get_tile_setting ($mpsoc,$tile);
|
get_tile_setting ($mpsoc,$tile);
|
});
|
});
|
|
|
#$button->show_all;
|
#$button->show_all;
|
return $button;
|
return $button;
|
}
|
}
|
|
|
sub define_empty_param_setting {
|
sub define_empty_param_setting {
|
my ($mpsoc,$window)=@_;
|
my ($mpsoc,$window)=@_;
|
my $ok = def_image_button('icons/select.png','OK');
|
my $ok = def_image_button('icons/select.png','OK');
|
my $okbox=def_hbox(TRUE,0);
|
my $okbox=def_hbox(TRUE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
$okbox->pack_start($ok, FALSE, FALSE,0);
|
$ok-> signal_connect("clicked" => sub{
|
$ok-> signal_connect("clicked" => sub{
|
set_gui_status($mpsoc,"refresh_soc",1);
|
set_gui_status($mpsoc,"refresh_soc",1);
|
$window->destroy;
|
$window->destroy;
|
|
|
});
|
});
|
my $param_table = def_table(1, 1, TRUE);
|
my $param_table = def_table(1, 1, TRUE);
|
$param_table->attach_defaults($okbox,0,1,3,4);
|
$param_table->attach_defaults($okbox,0,1,3,4);
|
return $param_table;
|
return $param_table;
|
|
|
|
|
}
|
}
|
|
|
sub get_tile_setting {
|
sub get_tile_setting {
|
my($mpsoc,$tile)=@_;
|
my($mpsoc,$tile)=@_;
|
my $window = def_popwin_size(50,40,"Parameter setting for Tile $tile ",'percent');
|
my $window = def_popwin_size(50,40,"Parameter setting for Tile $tile ",'percent');
|
my $table = def_table(6, 2, FALSE);
|
my $table = def_table(6, 2, FALSE);
|
|
|
my $scrolled_win = add_widget_to_scrolled_win($table);
|
my $scrolled_win = add_widget_to_scrolled_win($table);
|
my $row=0;
|
my $row=0;
|
my ($soc_name,$g,$t)=$mpsoc->mpsoc_get_tile_soc_name($tile);
|
my ($soc_name,$g,$t)=$mpsoc->mpsoc_get_tile_soc_name($tile);
|
|
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
my @list=(' ',@socs);
|
my @list=(' ',@socs);
|
my $pos=(defined $soc_name)? get_scolar_pos($soc_name,@list): 0;
|
my $pos=(defined $soc_name)? get_scolar_pos($soc_name,@list): 0;
|
my $combo=gen_combo(\@list, $pos);
|
my $combo=gen_combo(\@list, $pos);
|
my $label=gen_label_in_left(" Processing tile name:");
|
my $label=gen_label_in_left(" Processing tile name:");
|
$table->attach($label,0,2,$row,$row+1,'shrink','shrink',2,2);
|
$table->attach($label,0,2,$row,$row+1,'shrink','shrink',2,2);
|
$table->attach($combo,2,3,$row,$row+1,'shrink','shrink',2,2);$row++;
|
$table->attach($combo,2,3,$row,$row+1,'shrink','shrink',2,2);$row++;
|
add_Hsep_to_table($table,0,3,$row);$row++;
|
add_Hsep_to_table($table,0,3,$row);$row++;
|
$soc_name = ' ' if (!defined $soc_name);
|
$soc_name = ' ' if (!defined $soc_name);
|
my $param_table = ($soc_name eq ' ')? define_empty_param_setting($mpsoc,$window) :
|
my $param_table = ($soc_name eq ' ')? define_empty_param_setting($mpsoc,$window) :
|
get_soc_parameter_setting_table($mpsoc,$soc_name,$window,[$tile]);
|
get_soc_parameter_setting_table($mpsoc,$soc_name,$window,[$tile]);
|
|
|
$table->attach_defaults($param_table,0,3,2,3);
|
$table->attach_defaults($param_table,0,3,2,3);
|
|
|
|
|
$combo->signal_connect('changed'=>sub{
|
$combo->signal_connect('changed'=>sub{
|
my $new_soc=$combo->get_active_text();
|
my $new_soc=$combo->get_active_text();
|
if ($new_soc eq ' '){
|
if ($new_soc eq ' '){
|
#unconnect tile
|
#unconnect tile
|
$mpsoc->mpsoc_set_tile_free($tile);
|
$mpsoc->mpsoc_set_tile_free($tile);
|
$param_table->destroy;
|
$param_table->destroy;
|
$param_table= define_empty_param_setting($mpsoc,$window);
|
$param_table= define_empty_param_setting($mpsoc,$window);
|
$table->attach_defaults($param_table,0,3,2,3);
|
$table->attach_defaults($param_table,0,3,2,3);
|
$window->show_all;
|
$window->show_all;
|
}else {
|
}else {
|
$mpsoc->mpsoc_set_tile_soc_name($tile,$new_soc);
|
$mpsoc->mpsoc_set_tile_soc_name($tile,$new_soc);
|
$param_table->destroy;
|
$param_table->destroy;
|
$param_table = get_soc_parameter_setting_table($mpsoc,$new_soc,$window,[$tile]);
|
$param_table = get_soc_parameter_setting_table($mpsoc,$new_soc,$window,[$tile]);
|
$table->attach_defaults($param_table,0,3,2,3);
|
$table->attach_defaults($param_table,0,3,2,3);
|
$window->show_all;
|
$window->show_all;
|
}
|
}
|
});
|
});
|
$window->add($scrolled_win);
|
$window->add($scrolled_win);
|
$window->show_all;
|
$window->show_all;
|
}
|
}
|
|
|
|
|
##########
|
##########
|
# gen_tiles
|
# gen_tiles
|
#########
|
#########
|
sub gen_tiles{
|
sub gen_tiles{
|
my ($mpsoc)=@_;
|
my ($mpsoc)=@_;
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
my $table;
|
my $table;
|
my $dim_y = floor(sqrt($NE));
|
my $dim_y = floor(sqrt($NE));
|
$table=def_table($NE%8,$NE/8,FALSE);# my ($row,$col,$homogeneous)=@_;
|
$table=def_table($NE%8,$NE/8,FALSE);# my ($row,$col,$homogeneous)=@_;
|
for (my $i=0; $i<$NE;$i++){
|
for (my $i=0; $i<$NE;$i++){
|
my $tile=get_tile($mpsoc,$i);
|
my $tile=get_tile($mpsoc,$i);
|
my $y= int($i/$dim_y);
|
my $y= int($i/$dim_y);
|
my $x= $i % $dim_y;
|
my $x= $i % $dim_y;
|
$table->attach_defaults ($tile, $x, $x+1 , $y, $y+1);
|
$table->attach_defaults ($tile, $x, $x+1 , $y, $y+1);
|
}
|
}
|
|
|
my $scrolled_win = gen_scr_win_with_adjst($mpsoc,'gen_tiles_adj');
|
my $scrolled_win = gen_scr_win_with_adjst($mpsoc,'gen_tiles_adj');
|
add_widget_to_scrolled_win($table,$scrolled_win);
|
add_widget_to_scrolled_win($table,$scrolled_win);
|
return $scrolled_win;
|
return $scrolled_win;
|
}
|
}
|
|
|
|
|
sub get_elf_file_addr_range {
|
sub get_elf_file_addr_range {
|
my ($file,$tview)=@_;
|
my ($file,$tview)=@_;
|
#my $command= "size -A $file";
|
#my $command= "size -A $file";
|
my $command= "nm $file";
|
my $command= "nm $file";
|
#add_info($tview,"$command\n");
|
#add_info($tview,"$command\n");
|
my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout($command);
|
my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout($command);
|
if(length $stderr>1){
|
if(length $stderr>1){
|
add_colored_info($tview,"$stderr\n",'red');
|
add_colored_info($tview,"$stderr\n",'red');
|
add_colored_info($tview,"$command was not run successfully!\n",'red');
|
add_colored_info($tview,"$command was not run successfully!\n",'red');
|
return ("Err","Err");
|
return ("Err","Err");
|
}
|
}
|
if($exit){
|
if($exit){
|
add_colored_info($tview,"$stdout\n",'red');
|
add_colored_info($tview,"$stdout\n",'red');
|
add_colored_info($tview,"$command was not run successfully!\n",'red');
|
add_colored_info($tview,"$command was not run successfully!\n",'red');
|
return ("Err","Err");
|
return ("Err","Err");
|
}
|
}
|
|
|
my @lines = split ("\n" ,$stdout);
|
my @lines = split ("\n" ,$stdout);
|
my $max_addr=0;
|
my $max_addr=0;
|
my $sec_name;
|
my $sec_name;
|
|
|
foreach my $p (@lines ){
|
foreach my $p (@lines ){
|
$p =~ s/\s+/ /g; # remove extra spaces
|
$p =~ s/\s+/ /g; # remove extra spaces
|
$p =~ s/^\s+//; #ltrim
|
$p =~ s/^\s+//; #ltrim
|
my ($addr,$type,$name)= sscanf("%x %s %s","$p");
|
my ($addr,$type,$name)= sscanf("%x %s %s","$p");
|
if(defined $addr && defined $name){
|
if(defined $addr && defined $name){
|
if($max_addr < $addr) {
|
if($max_addr < $addr) {
|
$max_addr = $addr;
|
$max_addr = $addr;
|
$sec_name = $name;
|
$sec_name = $name;
|
}
|
}
|
}
|
}
|
}
|
}
|
return ($max_addr,$sec_name);
|
return ($max_addr,$sec_name);
|
}
|
}
|
|
|
|
|
sub show_reqired_brams{
|
sub show_reqired_brams{
|
my ($self,$tview)=@_;
|
my ($self,$tview)=@_;
|
my $win=def_popwin_size (50,50,"BRAM info", 'percent');
|
my $win=def_popwin_size (50,50,"BRAM info", 'percent');
|
my $sc_win = gen_scr_win_with_adjst($self,'liststore');
|
my $sc_win = gen_scr_win_with_adjst($self,'liststore');
|
my $table= def_table(10,10,FALSE);
|
my $table= def_table(10,10,FALSE);
|
add_widget_to_scrolled_win($table,$sc_win);
|
add_widget_to_scrolled_win($table,$sc_win);
|
my $row=0;
|
my $row=0;
|
my $col=0;
|
my $col=0;
|
|
|
my @clmns =('Tile#', 'Section located in Upper Bound Address (UBA) ','UBA in Bytes','UBA in Words','Minimum Memory Address Width');
|
my @clmns =('Tile#', 'Section located in Upper Bound Address (UBA) ','UBA in Bytes','UBA in Words','Minimum Memory Address Width');
|
my $target_dir;
|
my $target_dir;
|
my @data;
|
my @data;
|
|
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
if(defined $mpsoc_name){#it is an soc
|
if(defined $mpsoc_name){#it is an soc
|
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
|
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
|
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
my $ram_file = "$target_dir/sw/tile$tile_num/image";
|
my $ram_file = "$target_dir/sw/tile$tile_num/image";
|
my ($size,$sec) = get_elf_file_addr_range($ram_file,$tview);
|
my ($size,$sec) = get_elf_file_addr_range($ram_file,$tview);
|
my %clmn;
|
my %clmn;
|
$clmn{0}="tile$tile_num";
|
$clmn{0}="tile$tile_num";
|
$clmn{1}= "$sec";
|
$clmn{1}= "$sec";
|
$clmn{2}="$size";
|
$clmn{2}="$size";
|
my $w=$size/4;
|
my $w=$size/4;
|
$clmn{3}="$w";
|
$clmn{3}="$w";
|
$clmn{4}=ceil(log($w)/log(2));
|
$clmn{4}=ceil(log($w)/log(2));
|
push(@data,\%clmn);
|
push(@data,\%clmn);
|
|
|
}#$tile_num
|
}#$tile_num
|
}
|
}
|
else
|
else
|
{
|
{
|
my $soc_name=$self->object_get_attribute('soc_name');
|
my $soc_name=$self->object_get_attribute('soc_name');
|
$target_dir = "$ENV{'PRONOC_WORK'}/SOC/$soc_name";
|
$target_dir = "$ENV{'PRONOC_WORK'}/SOC/$soc_name";
|
my $ram_file = "$target_dir/sw/image";
|
my $ram_file = "$target_dir/sw/image";
|
my ($size,$sec) = get_elf_file_addr_range($ram_file,$tview);
|
my ($size,$sec) = get_elf_file_addr_range($ram_file,$tview);
|
my %clmn;
|
my %clmn;
|
$clmn{0}="$soc_name";
|
$clmn{0}="$soc_name";
|
$clmn{1}= "$sec";
|
$clmn{1}= "$sec";
|
$clmn{2}="$size";
|
$clmn{2}="$size";
|
my $w=$size/4;
|
my $w=$size/4;
|
$clmn{3}="$w";
|
$clmn{3}="$w";
|
$clmn{4}=ceil(log($w)/log(2));
|
$clmn{4}=ceil(log($w)/log(2));
|
push(@data,\%clmn);
|
push(@data,\%clmn);
|
}
|
}
|
|
|
my @clmn_type = (#'Glib::Boolean', # => G_TYPE_BOOLEAN
|
my @clmn_type = (#'Glib::Boolean', # => G_TYPE_BOOLEAN
|
#'Glib::Uint', # => G_TYPE_UINT
|
#'Glib::Uint', # => G_TYPE_UINT
|
'Glib::String', # => G_TYPE_STRING
|
'Glib::String', # => G_TYPE_STRING
|
'Glib::String',
|
'Glib::String',
|
'Glib::String',
|
'Glib::String',
|
'Glib::String',
|
'Glib::String',
|
'Glib::String'); # you get the idea
|
'Glib::String'); # you get the idea
|
|
|
my $list= gen_list_store (\@data,\@clmn_type,\@clmns);
|
my $list= gen_list_store (\@data,\@clmn_type,\@clmns);
|
$table-> attach ($list, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
$table-> attach ($list, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
|
$win->add($sc_win);
|
$win->add($sc_win);
|
$win->show_all();
|
$win->show_all();
|
}
|
}
|
|
|
sub check_conflict {
|
sub check_conflict {
|
my ($self,$tile_num,$label)=@_;
|
my ($self,$tile_num,$label)=@_;
|
|
|
my $r1 =$self->object_get_attribute("ROM$tile_num",'end');
|
my $r1 =$self->object_get_attribute("ROM$tile_num",'end');
|
my $r2 =$self->object_get_attribute("RAM$tile_num",'start');
|
my $r2 =$self->object_get_attribute("RAM$tile_num",'start');
|
|
|
if(defined $r1 && defined $r2){
|
if(defined $r1 && defined $r2){
|
if(hex($r1)> hex($r2)){
|
if(hex($r1)> hex($r2)){
|
$label->set_markup("<span foreground= 'red' ><b>RAM-ROM range Conflict</b></span>");
|
$label->set_markup("<span foreground= 'red' ><b>RAM-ROM range Conflict</b></span>");
|
|
|
}else {
|
}else {
|
$label->set_label(" ");
|
$label->set_label(" ");
|
|
|
}
|
}
|
}else {
|
}else {
|
$label->set_label(" ");
|
$label->set_label(" ");
|
|
|
}
|
}
|
}
|
}
|
|
|
|
|
sub update_ram_rom_size {
|
sub update_ram_rom_size {
|
my ($self,$tile_num,$name,$label,$start,$end,$conflict)=@_;
|
my ($self,$tile_num,$name,$label,$start,$end,$conflict)=@_;
|
my $s = $start->get_value();
|
my $s = $start->get_value();
|
my $e = $end->get_value();
|
my $e = $end->get_value();
|
|
|
$self->object_add_attribute($name.$tile_num,'start',$start->get_value());
|
$self->object_add_attribute($name.$tile_num,'start',$start->get_value());
|
$self->object_add_attribute($name.$tile_num,'end',$end->get_value());
|
$self->object_add_attribute($name.$tile_num,'end',$end->get_value());
|
if($e <= $s){
|
if($e <= $s){
|
#$label->set_label("Invalid range" );
|
#$label->set_label("Invalid range" );
|
$label->set_markup("<span foreground= 'red' ><b>Invalid range</b></span>");
|
$label->set_markup("<span foreground= 'red' ><b>Invalid range</b></span>");
|
|
|
}else {
|
}else {
|
$label->set_label( metric_conversion($e - $s) . "B");
|
$label->set_label( metric_conversion($e - $s) . "B");
|
|
|
}
|
}
|
|
|
check_conflict($self,$tile_num,$conflict);
|
check_conflict($self,$tile_num,$conflict);
|
|
|
|
|
|
|
}
|
}
|
|
|
sub get_tile_peripheral_patameter {
|
sub get_tile_peripheral_patameter {
|
my ($mpsoc,$tile_num,$peripheral,$param_name)=@_;
|
my ($mpsoc,$tile_num,$peripheral,$param_name)=@_;
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
if(defined $soc_name) {
|
if(defined $soc_name) {
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my @insts=$top->top_get_all_instances();
|
my @insts=$top->top_get_all_instances();
|
foreach my $id (@insts){
|
foreach my $id (@insts){
|
if ($id =~/$peripheral[0-9]/){
|
if ($id =~/$peripheral[0-9]/){
|
my $name=$top->top_get_def_of_instance($id,'instance');
|
my $name=$top->top_get_def_of_instance($id,'instance');
|
|
|
my %params;
|
my %params;
|
my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile_num);
|
my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile_num);
|
#if ($setting eq 'Custom'){
|
#if ($setting eq 'Custom'){
|
%params= $top->top_get_custom_soc_param($tile_num);
|
%params= $top->top_get_custom_soc_param($tile_num);
|
#}else{
|
#}else{
|
# %params=$top->top_get_default_soc_param();
|
# %params=$top->top_get_default_soc_param();
|
#}
|
#}
|
return $params{"${name}_$param_name"};
|
return $params{"${name}_$param_name"};
|
}
|
}
|
}
|
}
|
}
|
}
|
return undef;
|
return undef;
|
|
|
}
|
}
|
|
|
sub get_soc_peripheral_parameter {
|
sub get_soc_peripheral_parameter {
|
my ($soc,$peripheral,$param_nam)=@_;
|
my ($soc,$peripheral,$param_nam)=@_;
|
my @instances=$soc->soc_get_all_instances();
|
my @instances=$soc->soc_get_all_instances();
|
foreach my $id (@instances){
|
foreach my $id (@instances){
|
if ($id =~/$peripheral[0-9]/){
|
if ($id =~/$peripheral[0-9]/){
|
return $soc->soc_get_module_param_value ($id,$param_nam) if (defined $param_nam);
|
return $soc->soc_get_module_param_value ($id,$param_nam) if (defined $param_nam);
|
}
|
}
|
}
|
}
|
return undef;
|
return undef;
|
}
|
}
|
|
|
|
|
sub linker_initial_setting {
|
sub linker_initial_setting {
|
my ($self,$tview)=@_;
|
my ($self,$tview)=@_;
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $tnum;
|
my $tnum;
|
my $target_dir;
|
my $target_dir;
|
if(defined $mpsoc_name){#it is an mpsoc
|
if(defined $mpsoc_name){#it is an mpsoc
|
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
|
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
|
|
my $v=get_tile_peripheral_patameter($self,$tile_num,"_ram","Aw");
|
my $v=get_tile_peripheral_patameter($self,$tile_num,"_ram","Aw");
|
$v = 13 if (!defined $v);
|
$v = 13 if (!defined $v);
|
$self->object_add_attribute('MEM'.$tile_num,'width',$v);
|
$self->object_add_attribute('MEM'.$tile_num,'width',$v);
|
$self->object_add_attribute('MEM'.$tile_num,'percent',75);
|
$self->object_add_attribute('MEM'.$tile_num,'percent',75);
|
|
|
my $s =(1 << ($v+2)) ;
|
my $s =(1 << ($v+2)) ;
|
my $p = 75;
|
my $p = 75;
|
|
|
my $rom_start = 0;
|
my $rom_start = 0;
|
my $rom_end= int ( ($s*$p)/100);
|
my $rom_end= int ( ($s*$p)/100);
|
my $ram_start= int (($s*$p)/100);
|
my $ram_start= int (($s*$p)/100);
|
my $ram_end= $s;
|
my $ram_end= $s;
|
|
|
$self->object_add_attribute('ROM'.$tile_num,'start',$rom_start);
|
$self->object_add_attribute('ROM'.$tile_num,'start',$rom_start);
|
$self->object_add_attribute('ROM'.$tile_num,'end',$rom_end);
|
$self->object_add_attribute('ROM'.$tile_num,'end',$rom_end);
|
$self->object_add_attribute('RAM'.$tile_num,'start',$ram_start);
|
$self->object_add_attribute('RAM'.$tile_num,'start',$ram_start);
|
$self->object_add_attribute('RAM'.$tile_num,'end',$ram_end);
|
$self->object_add_attribute('RAM'.$tile_num,'end',$ram_end);
|
|
|
|
|
}
|
}
|
|
|
|
|
}
|
}
|
else
|
else
|
{
|
{
|
my $v=get_soc_peripheral_parameter ($self,"_ram","Aw");
|
my $v=get_soc_peripheral_parameter ($self,"_ram","Aw");
|
$v = 13 if (!defined $v);
|
$v = 13 if (!defined $v);
|
$self->object_add_attribute('MEM0','width',$v);
|
$self->object_add_attribute('MEM0','width',$v);
|
$self->object_add_attribute('MEM0','percent',75);
|
$self->object_add_attribute('MEM0','percent',75);
|
my $s =(1 << ($v+2)) ;
|
my $s =(1 << ($v+2)) ;
|
my $p = 75;
|
my $p = 75;
|
|
|
my $rom_start = 0;
|
my $rom_start = 0;
|
my $rom_end= int ( ($s*$p)/100);
|
my $rom_end= int ( ($s*$p)/100);
|
my $ram_start= int (($s*$p)/100);
|
my $ram_start= int (($s*$p)/100);
|
my $ram_end= $s;
|
my $ram_end= $s;
|
|
|
$self->object_add_attribute('ROM0','start',$rom_start);
|
$self->object_add_attribute('ROM0','start',$rom_start);
|
$self->object_add_attribute('ROM0','end',$rom_end);
|
$self->object_add_attribute('ROM0','end',$rom_end);
|
$self->object_add_attribute('RAM0','start',$ram_start);
|
$self->object_add_attribute('RAM0','start',$ram_start);
|
$self->object_add_attribute('RAM0','end',$ram_end);
|
$self->object_add_attribute('RAM0','end',$ram_end);
|
}
|
}
|
|
|
|
|
}
|
}
|
|
|
|
|
|
|
sub linker_setting{
|
sub linker_setting{
|
my ($self,$tview)=@_;
|
my ($self,$tview)=@_;
|
my $win=def_popwin_size (80,50,"BRAM info", 'percent');
|
my $win=def_popwin_size (80,50,"BRAM info", 'percent');
|
my $sc_win = gen_scr_win_with_adjst($self,'liststore');
|
my $sc_win = gen_scr_win_with_adjst($self,'liststore');
|
my $table= def_table(10,10,FALSE);
|
my $table= def_table(10,10,FALSE);
|
|
|
|
|
my $row=0;
|
my $row=0;
|
my $col=0;
|
my $col=0;
|
|
|
$table-> attach (gen_label_in_center("Tile"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("Tile"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("Memory Addr"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("Memory Addr"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("ROM/(ROM+RAM)"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("ROM/(ROM+RAM)"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
|
|
$table-> attach (gen_label_in_center("ROM index addr (hex)"), $col, $col+2, $row, $row+1,'shrink','shrink',2,2); $col+=3;
|
$table-> attach (gen_label_in_center("ROM index addr (hex)"), $col, $col+2, $row, $row+1,'shrink','shrink',2,2); $col+=3;
|
$table-> attach (gen_label_in_center("RAM index addr (hex)"), $col, $col+2, $row, $row+1,'shrink','shrink',2,2); $col+=3;
|
$table-> attach (gen_label_in_center("RAM index addr (hex)"), $col, $col+2, $row, $row+1,'shrink','shrink',2,2); $col+=3;
|
|
|
|
|
$col=0;$row++;
|
$col=0;$row++;
|
$table-> attach (gen_label_in_center("#"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("#"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("Width"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("Width"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("(%)"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("(%)"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
$table-> attach (gen_label_in_center("Beginning"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("Beginning"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("End"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("End"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("Size"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("Size"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
$table-> attach (gen_label_in_center("Beginning"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("Beginning"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col+=1;
|
$table-> attach (gen_label_in_center("End"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("End"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("Size"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (gen_label_in_center("Size"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
|
$col=0;$row++;
|
$col=0;$row++;
|
|
|
my $target_dir;
|
my $target_dir;
|
my @data;
|
my @data;
|
|
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $tnum;
|
my $tnum;
|
if(defined $mpsoc_name){#it is an mpsoc
|
if(defined $mpsoc_name){#it is an mpsoc
|
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
$tnum=$NE;
|
$tnum=$NE;
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
}
|
}
|
else
|
else
|
{
|
{
|
my $soc_name=$self->object_get_attribute('soc_name');
|
my $soc_name=$self->object_get_attribute('soc_name');
|
$target_dir = "$ENV{'PRONOC_WORK'}/SOC/$soc_name";
|
$target_dir = "$ENV{'PRONOC_WORK'}/SOC/$soc_name";
|
$tnum=1;
|
$tnum=1;
|
}
|
}
|
for (my $j=0;$j<$tnum;$j++){
|
for (my $j=0;$j<$tnum;$j++){
|
my $tile_num=$j;
|
my $tile_num=$j;
|
my $conflict =gen_label_in_center(" ") ;
|
my $conflict =gen_label_in_center(" ") ;
|
|
|
$table-> attach (gen_label_in_center("$tile_num"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2);$col++;
|
$table-> attach (gen_label_in_center("$tile_num"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2);$col++;
|
my $ram_width = gen_spin(2,64,1);
|
my $ram_width = gen_spin(2,64,1);
|
my $width = $self->object_get_attribute('MEM'.$tile_num,'width');
|
my $width = $self->object_get_attribute('MEM'.$tile_num,'width');
|
if(!defined $width){
|
if(!defined $width){
|
linker_initial_setting ($self,$tview);
|
linker_initial_setting ($self,$tview);
|
$width = $self->object_get_attribute('MEM'.$tile_num,'width');
|
$width = $self->object_get_attribute('MEM'.$tile_num,'width');
|
}
|
}
|
$ram_width->set_value($width);
|
$ram_width->set_value($width);
|
my $size =gen_label_in_center(metric_conversion(1 << 15). "B") ;
|
my $size =gen_label_in_center(metric_conversion(1 << 15). "B") ;
|
|
|
|
|
$table-> attach (def_pack_hbox('FALSE',0,$ram_width,$size), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (def_pack_hbox('FALSE',0,$ram_width,$size), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
|
|
|
|
|
my $percent = gen_spin_float(6.25,93.75,6.25,2);
|
my $percent = gen_spin_float(6.25,93.75,6.25,2);
|
my $p=$self->object_get_attribute('MEM'.$tile_num,'percent');
|
my $p=$self->object_get_attribute('MEM'.$tile_num,'percent');
|
$percent->set_value($p);
|
$percent->set_value($p);
|
|
|
my $enter= def_image_button("icons/enter.png");
|
my $enter= def_image_button("icons/enter.png");
|
$table-> attach (def_pack_hbox('FALSE',0,$percent,$enter), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach (def_pack_hbox('FALSE',0,$percent,$enter), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
my $rom_start_v =$self->object_get_attribute('ROM'.$tile_num,'start');
|
my $rom_start_v =$self->object_get_attribute('ROM'.$tile_num,'start');
|
my $rom_end_v = $self->object_get_attribute('ROM'.$tile_num,'end');
|
my $rom_end_v = $self->object_get_attribute('ROM'.$tile_num,'end');
|
my $ram_start_v = $self->object_get_attribute('RAM'.$tile_num,'start');
|
my $ram_start_v = $self->object_get_attribute('RAM'.$tile_num,'start');
|
my $ram_end_v = $self->object_get_attribute('RAM'.$tile_num,'end');
|
my $ram_end_v = $self->object_get_attribute('RAM'.$tile_num,'end');
|
|
|
|
|
|
|
my $rom_start = HexSpin->new ( $rom_start_v, 0, 0xffffffff ,4);
|
my $rom_start = HexSpin->new ( $rom_start_v, 0, 0xffffffff ,4);
|
$rom_start->set_digits(8);
|
$rom_start->set_digits(8);
|
$table-> attach ($rom_start, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($rom_start, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
|
|
|
my $rom_end = HexSpin->new ( $rom_end_v, 0, 0xffffffff ,4);
|
my $rom_end = HexSpin->new ( $rom_end_v, 0, 0xffffffff ,4);
|
$rom_end->set_digits(8);
|
$rom_end->set_digits(8);
|
$table-> attach ($rom_end, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($rom_end, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
my $rom_size =gen_label_in_center(" ") ;
|
my $rom_size =gen_label_in_center(" ") ;
|
$table-> attach ($rom_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($rom_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);
|
update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);
|
$rom_start->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);});
|
$rom_start->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);});
|
$rom_end->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);});
|
$rom_end->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);});
|
|
|
my $ram_start = HexSpin->new ( $ram_start_v, 0, 0xffffffff ,4);
|
my $ram_start = HexSpin->new ( $ram_start_v, 0, 0xffffffff ,4);
|
$ram_start->set_digits(8);
|
$ram_start->set_digits(8);
|
$table-> attach ($ram_start, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($ram_start, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
|
my $ram_end = HexSpin->new ( $ram_end_v, 0, 0xffffffff ,4);
|
my $ram_end = HexSpin->new ( $ram_end_v, 0, 0xffffffff ,4);
|
$ram_end->set_digits(8);
|
$ram_end->set_digits(8);
|
$table-> attach ($ram_end, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($ram_end, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
my $ram_size =gen_label_in_center(" ") ;
|
my $ram_size =gen_label_in_center(" ") ;
|
$table-> attach ($ram_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($ram_size, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
|
|
|
|
|
update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);
|
update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);
|
|
|
$ram_start->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);});
|
$ram_start->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);});
|
$ram_end->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);});
|
$ram_end->signal_connect ( 'changed', sub {update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);});
|
|
|
$ram_width->signal_connect("value_changed" => sub{
|
$ram_width->signal_connect("value_changed" => sub{
|
my $w=$ram_width->get_value();
|
my $w=$ram_width->get_value();
|
$self->object_add_attribute('MEM'.$tile_num,'width',$w);
|
$self->object_add_attribute('MEM'.$tile_num,'width',$w);
|
$size->set_label (metric_conversion(1 << ($w+2)). "B") ;
|
$size->set_label (metric_conversion(1 << ($w+2)). "B") ;
|
$size->show_all;
|
$size->show_all;
|
$enter->clicked;
|
$enter->clicked;
|
});
|
});
|
$percent->signal_connect("value_changed" => sub{
|
$percent->signal_connect("value_changed" => sub{
|
$self->object_add_attribute('MEM'.$tile_num,'percent',$percent->get_value());
|
$self->object_add_attribute('MEM'.$tile_num,'percent',$percent->get_value());
|
});
|
});
|
|
|
$table-> attach ($conflict, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
$table-> attach ($conflict, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
|
|
|
|
|
$enter-> signal_connect ( 'clicked' , sub {
|
$enter-> signal_connect ( 'clicked' , sub {
|
my $w=$ram_width->get_value();
|
my $w=$ram_width->get_value();
|
my $s =(1 << ($w+2));
|
my $s =(1 << ($w+2));
|
my $p = $percent->get_value();
|
my $p = $percent->get_value();
|
|
|
my $rom_start_v = 0;
|
my $rom_start_v = 0;
|
my $rom_end_v= int ( ($s*$p)/100);
|
my $rom_end_v= int ( ($s*$p)/100);
|
my $ram_start_v= int (($s*$p)/100);
|
my $ram_start_v= int (($s*$p)/100);
|
my $ram_end_v= $s;
|
my $ram_end_v= $s;
|
|
|
$rom_start->set_value($rom_start_v);
|
$rom_start->set_value($rom_start_v);
|
$rom_end->set_value($rom_end_v);
|
$rom_end->set_value($rom_end_v);
|
$ram_start->set_value($ram_start_v);
|
$ram_start->set_value($ram_start_v);
|
$ram_end->set_value($ram_end_v);
|
$ram_end->set_value($ram_end_v);
|
update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);
|
update_ram_rom_size($self,$tile_num,'ROM',$rom_size,$rom_start,$rom_end,$conflict);
|
update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);
|
update_ram_rom_size($self,$tile_num,'RAM',$ram_size,$ram_start,$ram_end,$conflict);
|
|
|
});
|
});
|
|
|
$col=0; $row++;
|
$col=0; $row++;
|
|
|
}#$tile_num
|
}#$tile_num
|
|
|
my $main_table=def_table(10,10,FALSE);
|
my $main_table=def_table(10,10,FALSE);
|
|
|
my $ok = def_image_button('icons/select.png','OK');
|
my $ok = def_image_button('icons/select.png','OK');
|
$main_table->attach_defaults ($table , 0, 12, 0,11);
|
$main_table->attach_defaults ($table , 0, 12, 0,11);
|
$main_table->attach ($ok,5, 6, 11,12,'shrink','shrink',0,0);
|
$main_table->attach ($ok,5, 6, 11,12,'shrink','shrink',0,0);
|
|
|
$ok->signal_connect('clicked', sub {
|
$ok->signal_connect('clicked', sub {
|
for (my $t=0;$t<$tnum;$t++){
|
for (my $t=0;$t<$tnum;$t++){
|
my $r0 =$self->object_get_attribute("ROM$t",'start');
|
my $r0 =$self->object_get_attribute("ROM$t",'start');
|
my $r1 =$self->object_get_attribute("ROM$t",'end');
|
my $r1 =$self->object_get_attribute("ROM$t",'end');
|
my $r2 =$self->object_get_attribute("RAM$t",'start');
|
my $r2 =$self->object_get_attribute("RAM$t",'start');
|
my $r3 =$self->object_get_attribute("RAM$t",'end');
|
my $r3 =$self->object_get_attribute("RAM$t",'end');
|
if(hex($r1) <hex($r0) || hex($r3) <hex($r2) ){
|
if(hex($r1) <hex($r0) || hex($r3) <hex($r2) ){
|
message_dialog("Please fix tile $t invalid range !");
|
message_dialog("Please fix tile $t invalid range !");
|
return ;
|
return ;
|
|
|
}
|
}
|
|
|
if(hex($r1) > hex($r2) ){
|
if(hex($r1) > hex($r2) ){
|
message_dialog("Please fix tile $t conflict range !");
|
message_dialog("Please fix tile $t conflict range !");
|
return ;
|
return ;
|
|
|
}
|
}
|
|
|
|
|
|
|
}
|
}
|
create_linker_var_file($self);
|
create_linker_var_file($self);
|
$win->destroy();
|
$win->destroy();
|
|
|
|
|
});
|
});
|
|
|
|
|
add_widget_to_scrolled_win($main_table,$sc_win);
|
add_widget_to_scrolled_win($main_table,$sc_win);
|
$win->add($sc_win);
|
$win->add($sc_win);
|
$win->show_all();
|
$win->show_all();
|
|
|
}
|
}
|
|
|
|
|
sub create_linker_var_file{
|
sub create_linker_var_file{
|
my ($self)=@_;
|
my ($self)=@_;
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
my $tnum;
|
my $tnum;
|
|
|
my $width = $self->object_get_attribute('MEM0','width');
|
my $width = $self->object_get_attribute('MEM0','width');
|
if(!defined $width){
|
if(!defined $width){
|
linker_initial_setting ($self);
|
linker_initial_setting ($self);
|
}
|
}
|
|
|
if(defined $mpsoc_name){#it is an mpsoc
|
if(defined $mpsoc_name){#it is an mpsoc
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
$tnum=$NE;
|
$tnum=$NE;
|
}
|
}
|
else
|
else
|
{
|
{
|
|
|
$tnum=1;
|
$tnum=1;
|
}
|
}
|
|
|
for (my $t=0;$t<$tnum;$t++){
|
for (my $t=0;$t<$tnum;$t++){
|
my $r0 =$self->object_get_attribute("ROM$t",'start');
|
my $r0 =$self->object_get_attribute("ROM$t",'start');
|
my $r1 =$self->object_get_attribute("ROM$t",'end');
|
my $r1 =$self->object_get_attribute("ROM$t",'end');
|
my $r2 =$self->object_get_attribute("RAM$t",'start');
|
my $r2 =$self->object_get_attribute("RAM$t",'start');
|
my $r3 =$self->object_get_attribute("RAM$t",'end');
|
my $r3 =$self->object_get_attribute("RAM$t",'end');
|
|
|
my $file=sprintf("
|
my $file=sprintf("
|
|
|
MEMORY
|
MEMORY
|
{
|
{
|
rom (rx) : ORIGIN = 0x%x , LENGTH = 0x%x /* %s B- Rom space */
|
rom (rx) : ORIGIN = 0x%x , LENGTH = 0x%x /* %s B- Rom space */
|
ram (wrx) : ORIGIN = 0x%x , LENGTH = 0x%x /* %s B- Ram space */
|
ram (wrx) : ORIGIN = 0x%x , LENGTH = 0x%x /* %s B- Ram space */
|
}
|
}
|
|
|
",$r0,$r1 - $r0, metric_conversion($r1 - $r0),$r2,$r3- $r2,metric_conversion($r3 - $r2));
|
",$r0,$r1 - $r0, metric_conversion($r1 - $r0),$r2,$r3- $r2,metric_conversion($r3 - $r2));
|
|
|
if(defined $mpsoc_name){
|
if(defined $mpsoc_name){
|
save_file ("$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name/sw/tile$t/linkvar.ld",$file) if(-d "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name/sw/tile$t/");
|
save_file ("$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name/sw/tile$t/linkvar.ld",$file) if(-d "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name/sw/tile$t/");
|
}else{
|
}else{
|
my $soc_name=$self->object_get_attribute('soc_name');
|
my $soc_name=$self->object_get_attribute('soc_name');
|
my $p1="$ENV{'PRONOC_WORK'}/SOC/$soc_name/sw/";
|
my $p1="$ENV{'PRONOC_WORK'}/SOC/$soc_name/sw/";
|
mkpath("$p1",1,0755) unless (-d "$p1");
|
mkpath("$p1",1,0755) unless (-d "$p1");
|
save_file ("$p1/linkvar.ld",$file)
|
save_file ("$p1/linkvar.ld",$file)
|
}
|
}
|
}
|
}
|
|
|
}
|
}
|
|
|
|
|
sub software_edit_mpsoc {
|
sub software_edit_mpsoc {
|
my $self=shift;
|
my $self=shift;
|
my $name=$self->object_get_attribute('mpsoc_name');
|
my $name=$self->object_get_attribute('mpsoc_name');
|
if (length($name)==0){
|
if (length($name)==0){
|
message_dialog("Please define the MPSoC name!");
|
message_dialog("Please define the MPSoC name!");
|
return ;
|
return ;
|
}
|
}
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $sw = "$target_dir/sw";
|
my $sw = "$target_dir/sw";
|
|
|
my $orcc_page=select_orcc_generated_srcs($self);
|
my $orcc_page=select_orcc_generated_srcs($self);
|
my $orcc_lable=def_image_label('icons/orcc.png','Auto-generate Software using ORCC');
|
my $orcc_lable=def_image_label('icons/orcc.png','Auto-generate Software using ORCC');
|
my @pages=($orcc_page);
|
my @pages=($orcc_page);
|
my @pages_lables=($orcc_lable);
|
my @pages_lables=($orcc_lable);
|
my ($app,$table,$tview) = software_main($sw,undef,\@pages,\@pages_lables);
|
my ($app,$table,$tview) = software_main($sw,undef,\@pages,\@pages_lables);
|
|
|
my $prog= def_image_button('icons/write.png','Program FPGA\'s BRAMs');
|
my $prog= def_image_button('icons/write.png','Program FPGA\'s BRAMs');
|
my $linker = def_image_button('icons/setting.png','LD Linker',FALSE,1);
|
my $linker = def_image_button('icons/setting.png','LD Linker',FALSE,1);
|
my $make = def_image_button('icons/gen.png','_Compile',FALSE,1);
|
my $make = def_image_button('icons/gen.png','_Compile',FALSE,1);
|
my $ram = def_image_button('icons/info.png',"Required BRAMs\' size",FALSE,1);
|
my $ram = def_image_button('icons/info.png',"Required BRAMs\' size",FALSE,1);
|
|
|
$table->attach ($ram,0, 1, 1,2,'shrink','shrink',0,0);
|
$table->attach ($ram,0, 1, 1,2,'shrink','shrink',0,0);
|
$table->attach ($linker,4, 5, 1,2,'shrink','shrink',0,0);
|
$table->attach ($linker,4, 5, 1,2,'shrink','shrink',0,0);
|
$table->attach ($make,5, 6, 1,2,'shrink','shrink',0,0);
|
$table->attach ($make,5, 6, 1,2,'shrink','shrink',0,0);
|
$table->attach ($prog,9, 10, 1,2,'shrink','shrink',0,0);
|
$table->attach ($prog,9, 10, 1,2,'shrink','shrink',0,0);
|
|
|
$ram -> signal_connect("clicked" => sub{
|
$ram -> signal_connect("clicked" => sub{
|
show_reqired_brams($self,$tview);
|
show_reqired_brams($self,$tview);
|
});
|
});
|
|
|
my $load;
|
my $load;
|
|
|
$make -> signal_connect("clicked" => sub{
|
$make -> signal_connect("clicked" => sub{
|
$load->destroy if(defined $load);
|
$load->destroy if(defined $load);
|
$load= show_gif("icons/load.gif");
|
$load= show_gif("icons/load.gif");
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$load->show_all;
|
$load->show_all;
|
$app->ask_to_save_changes();
|
$app->ask_to_save_changes();
|
add_info($tview,' ');
|
add_info($tview,' ');
|
unless (run_make_file($sw,$tview,'clean')){
|
unless (run_make_file($sw,$tview,'clean')){
|
$load->destroy;
|
$load->destroy;
|
$load=def_icon("icons/cancel.png");
|
$load=def_icon("icons/cancel.png");
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$load->show_all;
|
$load->show_all;
|
return;
|
return;
|
};
|
};
|
unless (run_make_file($sw,$tview)){
|
unless (run_make_file($sw,$tview)){
|
$load->destroy;
|
$load->destroy;
|
$load=def_icon("icons/cancel.png");
|
$load=def_icon("icons/cancel.png");
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$load->show_all;
|
$load->show_all;
|
return;
|
return;
|
}
|
}
|
$load->destroy;
|
$load->destroy;
|
$load=def_icon("icons/button_ok.png");
|
$load=def_icon("icons/button_ok.png");
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
$load->show_all;
|
$load->show_all;
|
|
|
|
|
});
|
});
|
|
|
#Programe the board
|
#Programe the board
|
$prog-> signal_connect("clicked" => sub{
|
$prog-> signal_connect("clicked" => sub{
|
my $error = 0;
|
my $error = 0;
|
my $bash_file="$sw/program.sh";
|
my $bash_file="$sw/program.sh";
|
my $jtag_intfc="$sw/jtag_intfc.sh";
|
my $jtag_intfc="$sw/jtag_intfc.sh";
|
|
|
add_info($tview,"Program the board using quartus_pgm and $bash_file file\n");
|
add_info($tview,"Program the board using quartus_pgm and $bash_file file\n");
|
#check if the programming file exists
|
#check if the programming file exists
|
unless (-f $bash_file) {
|
unless (-f $bash_file) {
|
add_colored_info($tview,"\tThe $bash_file does not exists! \n", 'red');
|
add_colored_info($tview,"\tThe $bash_file does not exists! \n", 'red');
|
$error=1;
|
$error=1;
|
}
|
}
|
#check if the jtag_intfc.sh file exists
|
#check if the jtag_intfc.sh file exists
|
unless (-f $jtag_intfc) {
|
unless (-f $jtag_intfc) {
|
add_colored_info($tview,"\tThe $jtag_intfc does not exists!. Press the compile button and select your FPGA board first to generate $jtag_intfc file\n", 'red');
|
add_colored_info($tview,"\tThe $jtag_intfc does not exists!. Press the compile button and select your FPGA board first to generate $jtag_intfc file\n", 'red');
|
$error=1;
|
$error=1;
|
}
|
}
|
|
|
return if($error);
|
return if($error);
|
my $command = "cd $sw; bash program.sh";
|
my $command = "cd $sw; bash program.sh";
|
add_info($tview,"$command\n");
|
add_info($tview,"$command\n");
|
my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout($command);
|
my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout($command);
|
if(length $stderr>1){
|
if(length $stderr>1){
|
add_colored_info($tview,"$stderr\n",'red');
|
add_colored_info($tview,"$stderr\n",'red');
|
add_colored_info($tview,"Memory was not programmed successfully!\n",'red');
|
add_colored_info($tview,"Memory was not programmed successfully!\n",'red');
|
}else {
|
}else {
|
|
|
if($exit){
|
if($exit){
|
add_colored_info($tview,"$stdout\n",'red');
|
add_colored_info($tview,"$stdout\n",'red');
|
add_colored_info($tview,"Memory was not programmed successfully!\n",'red');
|
add_colored_info($tview,"Memory was not programmed successfully!\n",'red');
|
}else{
|
}else{
|
add_info($tview,"$stdout\n");
|
add_info($tview,"$stdout\n");
|
add_colored_info($tview,"Memory is programmed successfully!\n",'blue');
|
add_colored_info($tview,"Memory is programmed successfully!\n",'blue');
|
|
|
}
|
}
|
|
|
}
|
}
|
});
|
});
|
|
|
|
|
$linker -> signal_connect("clicked" => sub{
|
$linker -> signal_connect("clicked" => sub{
|
linker_setting($self,$tview);
|
linker_setting($self,$tview);
|
});
|
});
|
|
|
}
|
}
|
|
|
|
|
|
|
#############
|
#############
|
# load_mpsoc
|
# load_mpsoc
|
#############
|
#############
|
|
|
sub load_mpsoc{
|
sub load_mpsoc{
|
my ($mpsoc,$info)=@_;
|
my ($mpsoc,$info)=@_;
|
my $file;
|
my $file;
|
my $dialog = gen_file_dialog (undef, 'MPSOC');
|
my $dialog = gen_file_dialog (undef, 'MPSOC');
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
$dialog->set_current_folder ("$dir/lib/mpsoc") ;
|
$dialog->set_current_folder ("$dir/lib/mpsoc") ;
|
my @newsocs=$mpsoc->mpsoc_get_soc_list();
|
my @newsocs=$mpsoc->mpsoc_get_soc_list();
|
add_info($info,'');
|
add_info($info,'');
|
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 '.MPSOC'){
|
if($suffix eq '.MPSOC'){
|
my ($pp,$r,$err) = regen_object($file );
|
my ($pp,$r,$err) = regen_object($file );
|
if ($r){
|
if ($r){
|
add_info($info,"**Error: cannot open $file file: $err\n");
|
add_info($info,"**Error: cannot open $file file: $err\n");
|
$dialog->destroy;
|
$dialog->destroy;
|
return;
|
return;
|
}
|
}
|
|
|
|
|
clone_obj($mpsoc,$pp);
|
clone_obj($mpsoc,$pp);
|
#read save mpsoc socs
|
#read save mpsoc socs
|
my @oldsocs=$mpsoc->mpsoc_get_soc_list();
|
my @oldsocs=$mpsoc->mpsoc_get_soc_list();
|
#add existing SoCs and add them to mpsoc
|
#add existing SoCs and add them to mpsoc
|
|
|
my $error;
|
my $error;
|
#print "old: @oldsocs\n new @newsocs \n";
|
#print "old: @oldsocs\n new @newsocs \n";
|
foreach my $p (@oldsocs) {
|
foreach my $p (@oldsocs) {
|
#print "$p\n";
|
#print "$p\n";
|
my @num= $mpsoc->mpsoc_get_soc_tiles_num($p);
|
my @num= $mpsoc->mpsoc_get_soc_tiles_num($p);
|
if (scalar @num && ( grep (/^$p$/,@newsocs)==0)){
|
if (scalar @num && ( grep (/^$p$/,@newsocs)==0)){
|
my $m="Processing tile $p that has been used for ties @num but is not located in library anymore\n";
|
my $m="Processing tile $p that has been used for ties @num but is not located in library anymore\n";
|
$error = (defined $error ) ? "$error $m" : $m;
|
$error = (defined $error ) ? "$error $m" : $m;
|
}
|
}
|
$mpsoc->mpsoc_remove_soc ($p) if (grep (/^$p$/,@newsocs)==0);
|
$mpsoc->mpsoc_remove_soc ($p) if (grep (/^$p$/,@newsocs)==0);
|
|
|
|
|
}
|
}
|
@newsocs=get_soc_list($mpsoc,$info); # add all existing socs
|
@newsocs=get_soc_list($mpsoc,$info); # add all existing socs
|
add_info($info,"**Error: \n $error\n") if(defined $error);
|
add_info($info,"**Error: \n $error\n") if(defined $error);
|
|
|
set_gui_status($mpsoc,"load_file",0);
|
set_gui_status($mpsoc,"load_file",0);
|
|
|
}
|
}
|
}
|
}
|
$dialog->destroy;
|
$dialog->destroy;
|
}
|
}
|
|
|
#######
|
#######
|
# CLK setting
|
# CLK setting
|
#######
|
#######
|
|
|
sub clk_setting_win1{
|
sub clk_setting_win1{
|
my ($self,$info,$type)=@_;
|
my ($self,$info,$type)=@_;
|
|
|
my $window = def_popwin_size(80,80,"CLK setting",'percent');
|
my $window = def_popwin_size(80,80,"CLK setting",'percent');
|
|
|
my $next=def_image_button('icons/right.png','Next');
|
my $next=def_image_button('icons/right.png','Next');
|
my $mtable = def_table(10, 1, FALSE);
|
my $mtable = def_table(10, 1, FALSE);
|
#get the list of all tiles clk sources
|
#get the list of all tiles clk sources
|
|
|
my @sources=('clk','reset');
|
my @sources=('clk','reset');
|
|
|
my $table = def_table(10, 7, FALSE);
|
my $table = def_table(10, 7, FALSE);
|
my $notebook = gen_notebook();
|
my $notebook = gen_notebook();
|
$notebook->set_scrollable(TRUE);
|
$notebook->set_scrollable(TRUE);
|
#$notebook->can_focus(FALSE);
|
#$notebook->can_focus(FALSE);
|
$notebook->set_tab_pos ('left');
|
$notebook->set_tab_pos ('left');
|
|
|
|
|
|
|
my($row,$column)=(0,0);
|
my($row,$column)=(0,0);
|
|
|
my %all = ($type eq 'mpsoc') ? get_all_tiles_clk_sources_list($self): get_soc_clk_source_list($self) ;
|
my %all = ($type eq 'mpsoc') ? get_all_tiles_clk_sources_list($self): get_soc_clk_source_list($self) ;
|
foreach my $s (@sources){
|
foreach my $s (@sources){
|
my $spin;
|
my $spin;
|
($row,$column,$spin)= add_param_widget($self,"$s number","${s}_number", 1,'Spin-button',"1,1024,1","Define total number of ${s} input ports mpsoc", $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
($row,$column,$spin)= add_param_widget($self,"$s number","${s}_number", 1,'Spin-button',"1,1024,1","Define total number of ${s} input ports mpsoc", $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
|
|
my $w=get_source_assignment_win($self,$s,$all{$s},$type);
|
my $w=get_source_assignment_win($self,$s,$all{$s},$type);
|
my $box=def_hbox(FALSE,0);
|
my $box=def_hbox(FALSE,0);
|
$box->pack_start($w, TRUE, TRUE, 0);
|
$box->pack_start($w, TRUE, TRUE, 0);
|
$notebook->append_page ($box,gen_label_in_center ($s));
|
$notebook->append_page ($box,gen_label_in_center ($s));
|
$spin->signal_connect("value_changed" => sub{
|
$spin->signal_connect("value_changed" => sub{
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",1);
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",1);
|
$w->destroy;
|
$w->destroy;
|
$w=get_source_assignment_win($self,$s,$all{$s},$type);
|
$w=get_source_assignment_win($self,$s,$all{$s},$type);
|
$box->pack_start($w, TRUE, TRUE, 0);
|
$box->pack_start($w, TRUE, TRUE, 0);
|
$box->show_all;
|
$box->show_all;
|
|
|
});
|
});
|
|
|
}
|
}
|
|
|
$mtable->attach_defaults($table,0,1,0,1);
|
$mtable->attach_defaults($table,0,1,0,1);
|
$mtable->attach_defaults( $notebook,0,1,1,20);
|
$mtable->attach_defaults( $notebook,0,1,1,20);
|
$mtable->attach($next,0,1,20,21,'expand','fill',2,2);
|
$mtable->attach($next,0,1,20,21,'expand','fill',2,2);
|
$window->add ($mtable);
|
$window->add ($mtable);
|
$window->show_all();
|
$window->show_all();
|
$next-> signal_connect("clicked" => sub{
|
$next-> signal_connect("clicked" => sub{
|
clk_setting_win2($self,$info,$type);
|
clk_setting_win2($self,$info,$type);
|
$window->destroy;
|
$window->destroy;
|
|
|
});
|
});
|
|
|
}
|
}
|
|
|
|
|
sub update_wave_form {
|
sub update_wave_form {
|
my ($period,$rise,$fall,$r_lab,$f_lab)=@_;
|
my ($period,$rise,$fall,$r_lab,$f_lab)=@_;
|
my $p =$period->get_value();
|
my $p =$period->get_value();
|
my $n =$rise->get_value();
|
my $n =$rise->get_value();
|
my $v= ($p * $n)/100;
|
my $v= ($p * $n)/100;
|
$r_lab->set_text("=$v ns");
|
$r_lab->set_text("=$v ns");
|
$n =$fall->get_value();
|
$n =$fall->get_value();
|
$v= ($p * $n)/100;
|
$v= ($p * $n)/100;
|
$f_lab->set_text("=$v ns");
|
$f_lab->set_text("=$v ns");
|
}
|
}
|
|
|
sub get_source_assignment_win{
|
sub get_source_assignment_win{
|
my ($mpsoc,$s,$ports_ref,$type)=@_;
|
my ($mpsoc,$s,$ports_ref,$type)=@_;
|
my$row=0;
|
my$row=0;
|
my $column=0;
|
my $column=0;
|
my $num = $mpsoc->object_get_attribute('SOURCE_SET',"${s}_number");
|
my $num = $mpsoc->object_get_attribute('SOURCE_SET',"${s}_number");
|
my $table1 = def_table(20, 20, FALSE);
|
my $table1 = def_table(20, 20, FALSE);
|
my $win1=add_widget_to_scrolled_win($table1);
|
my $win1=add_widget_to_scrolled_win($table1);
|
my $win2;
|
my $win2;
|
my $v2;
|
my $v2;
|
|
|
#if($s eq 'clk'){
|
#if($s eq 'clk'){
|
# my @labels=("clk name", 'Frequency MHz', 'Period ns', 'rise edge times ns', 'fall edge times ns');
|
# my @labels=("clk name", 'Frequency MHz', 'Period ns', 'rise edge times ns', 'fall edge times ns');
|
# foreach my $l (@labels){
|
# foreach my $l (@labels){
|
# $table1->attach (gen_label_in_center($l),$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column+=5;
|
# $table1->attach (gen_label_in_center($l),$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column+=5;
|
# }
|
# }
|
#$row++;
|
#$row++;
|
#$column=0;
|
#$column=0;
|
#}
|
#}
|
|
|
#get source signal names
|
#get source signal names
|
my $loc = 'vertical';
|
my $loc = 'vertical';
|
for(my $n=0;$n<$num; $n++ ){
|
for(my $n=0;$n<$num; $n++ ){
|
my $entry;
|
my $entry;
|
my $enter= def_image_button("icons/enter.png");
|
my $enter= def_image_button("icons/enter.png");
|
my $box=def_hbox(FALSE,0);
|
my $box=def_hbox(FALSE,0);
|
$box->pack_start( $enter, FALSE, FALSE, 0);
|
$box->pack_start( $enter, FALSE, FALSE, 0);
|
|
|
($row,$column,$entry)= add_param_widget($mpsoc,"$n-","${s}_${n}_name", "${s}$n",'Entry',undef,undef, $table1,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
($row,$column,$entry)= add_param_widget($mpsoc,"$n-","${s}_${n}_name", "${s}$n",'Entry',undef,undef, $table1,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
$table1->attach ($box,$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column++;
|
$table1->attach ($box,$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column++;
|
|
|
$enter->signal_connect ("clicked" => sub{
|
$enter->signal_connect ("clicked" => sub{
|
$mpsoc->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",1);
|
$mpsoc->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",1);
|
$win2->destroy;
|
$win2->destroy;
|
$win2= get_source_assignment_win2($mpsoc,$s,$ports_ref,$type);
|
$win2= get_source_assignment_win2($mpsoc,$s,$ports_ref,$type);
|
$v2-> pack2($win2, TRUE, TRUE);
|
$v2-> pack2($win2, TRUE, TRUE);
|
$v2->show_all;
|
$v2->show_all;
|
});
|
});
|
|
|
|
|
if($s eq 'clk'){
|
if($s eq 'clk'){
|
($column,$row)=get_clk_constrain_widget($mpsoc,$table1,$column,$row, $s,$n);
|
($column,$row)=get_clk_constrain_widget($mpsoc,$table1,$column,$row, $s,$n);
|
}
|
}
|
|
|
|
|
|
|
# if((($n+1) % 4)==0){
|
# if((($n+1) % 4)==0){
|
$column=0;
|
$column=0;
|
$row++;
|
$row++;
|
#}
|
#}
|
}
|
}
|
|
|
#source assigmnmet
|
#source assigmnmet
|
$win2= get_source_assignment_win2($mpsoc,$s,$ports_ref,$type);
|
$win2= get_source_assignment_win2($mpsoc,$s,$ports_ref,$type);
|
$v2=gen_vpaned($win1,.2,$win2);
|
$v2=gen_vpaned($win1,.2,$win2);
|
return $v2;
|
return $v2;
|
}
|
}
|
|
|
|
|
sub get_clk_constrain_widget {
|
sub get_clk_constrain_widget {
|
my ($self,$table,$column,$row, $s,$n)=@_;
|
my ($self,$table,$column,$row, $s,$n)=@_;
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
return ($column,$row);
|
return ($column,$row);
|
my $frequency;
|
my $frequency;
|
($row,$column,$frequency)= add_param_widget($self,"Frequency(MHz)","${s}_${n}_mhz", 100,'Spin-button',"1,1024,0.01",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
($row,$column,$frequency)= add_param_widget($self,"Frequency(MHz)","${s}_${n}_mhz", 100,'Spin-button',"1,1024,0.01",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
my $period;
|
my $period;
|
($row,$column,$period)= add_param_widget($self,"Period(ns)","${s}_${n}_period", 10,'Spin-button',"0,1024,0.01",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
($row,$column,$period)= add_param_widget($self,"Period(ns)","${s}_${n}_period", 10,'Spin-button',"0,1024,0.01",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
my $rise;
|
my $rise;
|
($row,$column,$rise)= add_param_widget($self,"rising edge(%)","${s}_${n}_rise", 0,'Spin-button',"0,100,0.1",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
($row,$column,$rise)= add_param_widget($self,"rising edge(%)","${s}_${n}_rise", 0,'Spin-button',"0,100,0.1",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
my $r_lab=gen_label_in_center('=0 ns');
|
my $r_lab=gen_label_in_center('=0 ns');
|
$table->attach ($r_lab,$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column+=1;
|
$table->attach ($r_lab,$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column+=1;
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
my $fall;
|
my $fall;
|
($row,$column,$fall)= add_param_widget($self,"falling edge(%)","${s}_${n}_fall", 50,'Spin-button',"0,100,0.1",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
($row,$column,$fall)= add_param_widget($self,"falling edge(%)","${s}_${n}_fall", 50,'Spin-button',"0,100,0.1",undef, $table,$row,$column,1,'SOURCE_SET',undef,undef,'horizontal');
|
my $f_lab=gen_label_in_center('=5 ns');
|
my $f_lab=gen_label_in_center('=5 ns');
|
$table->attach ($f_lab,$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column+=1;
|
$table->attach ($f_lab,$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column+=1;
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
$frequency-> signal_connect("value_changed" => sub{
|
$frequency-> signal_connect("value_changed" => sub{
|
my $fr =$frequency->get_value();
|
my $fr =$frequency->get_value();
|
my $p = 1000/$fr;
|
my $p = 1000/$fr;
|
$period->set_value($p);
|
$period->set_value($p);
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
});
|
});
|
$period-> signal_connect("value_changed" => sub{
|
$period-> signal_connect("value_changed" => sub{
|
my $p =$period->get_value();
|
my $p =$period->get_value();
|
my $fr = 1000/$p;
|
my $fr = 1000/$p;
|
$frequency->set_value($fr);
|
$frequency->set_value($fr);
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
});
|
});
|
$rise-> signal_connect("value_changed" => sub{
|
$rise-> signal_connect("value_changed" => sub{
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
});
|
});
|
$fall-> signal_connect("value_changed" => sub{
|
$fall-> signal_connect("value_changed" => sub{
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
});
|
});
|
return ($column,$row);
|
return ($column,$row);
|
}
|
}
|
|
|
|
|
|
|
sub get_source_assignment_win2{
|
sub get_source_assignment_win2{
|
my ($mpsoc,$s,$ports_ref,$type)=@_;
|
my ($mpsoc,$s,$ports_ref,$type)=@_;
|
my $num = $mpsoc->object_get_attribute('SOURCE_SET',"${s}_number");
|
my $num = $mpsoc->object_get_attribute('SOURCE_SET',"${s}_number");
|
my $table2 = def_table(10, 7, FALSE);
|
my $table2 = def_table(10, 7, FALSE);
|
my $win2=add_widget_to_scrolled_win($table2);
|
my $win2=add_widget_to_scrolled_win($table2);
|
my %ports = %{$ports_ref} if(defined $ports_ref);
|
my %ports = %{$ports_ref} if(defined $ports_ref);
|
|
|
my $contents;
|
my $contents;
|
for(my $n=0;$n<$num; $n++ ){
|
for(my $n=0;$n<$num; $n++ ){
|
my $m=$mpsoc->object_get_attribute('SOURCE_SET',"${s}_${n}_name");
|
my $m=$mpsoc->object_get_attribute('SOURCE_SET',"${s}_${n}_name");
|
$contents=(defined $contents)? "$contents,$m":$m;
|
$contents=(defined $contents)? "$contents,$m":$m;
|
}
|
}
|
my $default=$mpsoc->object_get_attribute('SOURCE_SET',"${s}_0_name");
|
my $default=$mpsoc->object_get_attribute('SOURCE_SET',"${s}_0_name");
|
my $n=0;
|
my $n=0;
|
my($row,$column)=(0,0);
|
my($row,$column)=(0,0);
|
if($type eq 'mpsoc' ) {
|
if($type eq 'mpsoc' ) {
|
add_param_widget($mpsoc," NoC $s","NoC_${s}", $default,'Combo-box',$contents,undef, $table2,$row,$column,1,'SOURCE_SET_CONNECT',undef,undef,'horizontal');
|
add_param_widget($mpsoc," NoC $s","NoC_${s}", $default,'Combo-box',$contents,undef, $table2,$row,$column,1,'SOURCE_SET_CONNECT',undef,undef,'horizontal');
|
($row,$column)=(1,0);
|
($row,$column)=(1,0);
|
}
|
}
|
|
|
foreach my $p (sort keys %ports){
|
foreach my $p (sort keys %ports){
|
my @array=@{$ports{$p}};
|
my @array=@{$ports{$p}};
|
foreach my $q (@array){
|
foreach my $q (@array){
|
my $param="${p}_$q";
|
my $param="${p}_$q";
|
my $label=" ${p}_$q";
|
my $label=" ${p}_$q";
|
($row,$column)= add_param_widget($mpsoc,$label,$param, $default,'Combo-box',$contents,undef, $table2,$row,$column,1,'SOURCE_SET_CONNECT',undef,undef,'horizontal');
|
($row,$column)= add_param_widget($mpsoc,$label,$param, $default,'Combo-box',$contents,undef, $table2,$row,$column,1,'SOURCE_SET_CONNECT',undef,undef,'horizontal');
|
if((($n+1) % 4)==0){$column=0;$row++;}$n++;
|
if((($n+1) % 4)==0){$column=0;$row++;}$n++;
|
}
|
}
|
}
|
}
|
return $win2;
|
return $win2;
|
|
|
}
|
}
|
|
|
|
|
sub get_all_tiles_clk_sources_list{
|
sub get_all_tiles_clk_sources_list{
|
my $mpsoc=shift;
|
my $mpsoc=shift;
|
my ($NE, $NR, $RAw, $EAw, $Fw)= get_topology_info ($mpsoc);
|
my ($NE, $NR, $RAw, $EAw, $Fw)= get_topology_info ($mpsoc);
|
my %all_sources;
|
my %all_sources;
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
next if(!defined $soc_name);
|
next if(!defined $soc_name);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my @intfcs=$top->top_get_intfc_list();
|
my @intfcs=$top->top_get_intfc_list();
|
|
|
my @sources=('clk','reset');
|
my @sources=('clk','reset');
|
|
|
foreach my $intfc (@intfcs){
|
foreach my $intfc (@intfcs){
|
my($type,$name,$num)= split("[:\[ \\]]", $intfc);
|
my($type,$name,$num)= split("[:\[ \\]]", $intfc);
|
foreach my $s (@sources){
|
foreach my $s (@sources){
|
if ($intfc =~ /plug:$s/){
|
if ($intfc =~ /plug:$s/){
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
$all_sources{$s}{"T$tile_num"}=\@ports;
|
$all_sources{$s}{"T$tile_num"}=\@ports;
|
}
|
}
|
}
|
}
|
|
|
}
|
}
|
}
|
}
|
return %all_sources;
|
return %all_sources;
|
}
|
}
|
|
|
|
|
|
|
sub clk_setting_win2{
|
sub clk_setting_win2{
|
my ($self,$info,$type)=@_;
|
my ($self,$info,$type)=@_;
|
|
|
my $window = def_popwin_size(70,70,"CLK setting",'percent');
|
my $window = def_popwin_size(70,70,"CLK setting",'percent');
|
my $table = def_table(10, 7, FALSE);
|
my $table = def_table(10, 7, FALSE);
|
my $scrolled_win=add_widget_to_scrolled_win($table);
|
my $scrolled_win=add_widget_to_scrolled_win($table);
|
my $ok = def_image_button('icons/select.png','OK');
|
my $ok = def_image_button('icons/select.png','OK');
|
my $back = def_image_button('icons/left.png',undef);
|
my $back = def_image_button('icons/left.png',undef);
|
my $diagram = def_image_button('icons/diagram.png','Diagram');
|
my $diagram = def_image_button('icons/diagram.png','Diagram');
|
my $ip = ip->lib_new ();
|
my $ip = ip->lib_new ();
|
#print "get_top_ip(\$self,$type);\n";
|
#print "get_top_ip(\$self,$type);\n";
|
my $mpsoc_ip=get_top_ip($self,$type);
|
my $mpsoc_ip=get_top_ip($self,$type);
|
|
|
$ip->add_ip($mpsoc_ip);
|
$ip->add_ip($mpsoc_ip);
|
my $soc =get_source_set_top($self,$type);
|
my $soc =get_source_set_top($self,$type);
|
my $infc = interface->interface_new();
|
my $infc = interface->interface_new();
|
|
|
|
|
set_gui_status($soc,"ideal",0);
|
set_gui_status($soc,"ideal",0);
|
# A tree view for holding a library
|
# A tree view for holding a library
|
my %tree_text;
|
my %tree_text;
|
my @categories= ('Source');
|
my @categories= ('Source');
|
foreach my $p (@categories)
|
foreach my $p (@categories)
|
{
|
{
|
my @modules= $ip->get_modules($p);
|
my @modules= $ip->get_modules($p);
|
$tree_text{$p}=\@modules;
|
$tree_text{$p}=\@modules;
|
}
|
}
|
|
|
my $tree_box = create_tree ($soc,'IP list', $info,\%tree_text,\&tmp,\&add_module_to_mpsoc);
|
my $tree_box = create_tree ($soc,'IP list', $info,\%tree_text,\&tmp,\&add_module_to_mpsoc);
|
my $device_win=show_active_dev($soc,$ip,$infc,$info);
|
my $device_win=show_active_dev($soc,$ip,$infc,$info);
|
my $h1=gen_hpaned($tree_box,.15,$device_win);
|
my $h1=gen_hpaned($tree_box,.15,$device_win);
|
$table->attach_defaults ($h1,0, 10, 0, 10);
|
$table->attach_defaults ($h1,0, 10, 0, 10);
|
|
|
my $event =Event->timer (after => 1, interval => 1, cb => sub {
|
my $event =Event->timer (after => 1, interval => 1, cb => sub {
|
|
|
my ($state,$timeout)= get_gui_status($soc);
|
my ($state,$timeout)= get_gui_status($soc);
|
|
|
|
|
if ($timeout>0){
|
if ($timeout>0){
|
$timeout--;
|
$timeout--;
|
set_gui_status($soc,$state,$timeout);
|
set_gui_status($soc,$state,$timeout);
|
}
|
}
|
elsif( $state ne "ideal" ){
|
elsif( $state ne "ideal" ){
|
|
|
#check if top is removed add it
|
#check if top is removed add it
|
my @instances=$soc->soc_get_all_instances();
|
my @instances=$soc->soc_get_all_instances();
|
my $redefine =1;
|
my $redefine =1;
|
foreach my $inst (@instances){
|
foreach my $inst (@instances){
|
$redefine = 0 if ($inst eq 'TOP');
|
$redefine = 0 if ($inst eq 'TOP');
|
}
|
}
|
if($redefine == 1){
|
if($redefine == 1){
|
my $ip = ip->lib_new ();
|
my $ip = ip->lib_new ();
|
#print "get_top_ip(\$self,$type);\n";
|
#print "get_top_ip(\$self,$type);\n";
|
my $mpsoc_ip=get_top_ip($self,$type);
|
my $mpsoc_ip=get_top_ip($self,$type);
|
|
|
$ip->add_ip($mpsoc_ip);
|
$ip->add_ip($mpsoc_ip);
|
$soc ->object_add_attribute('SOURCE_SET',"IP",$mpsoc_ip);
|
$soc ->object_add_attribute('SOURCE_SET',"IP",$mpsoc_ip);
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",0);
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",0);
|
add_mpsoc_to_device($soc,$ip);
|
add_mpsoc_to_device($soc,$ip);
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
}
|
}
|
|
|
$device_win->destroy;
|
$device_win->destroy;
|
|
|
$device_win=show_active_dev($soc,$ip,$infc,$info);
|
$device_win=show_active_dev($soc,$ip,$infc,$info);
|
$h1 -> pack2($device_win, TRUE, TRUE);
|
$h1 -> pack2($device_win, TRUE, TRUE);
|
$h1 -> show_all;
|
$h1 -> show_all;
|
$table->show_all();
|
$table->show_all();
|
$device_win->show_all();
|
$device_win->show_all();
|
|
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
set_gui_status($soc,"ideal",0);
|
set_gui_status($soc,"ideal",0);
|
|
|
}
|
}
|
return TRUE;
|
return TRUE;
|
|
|
|
|
});
|
});
|
|
|
my $mtable = def_table(10, 5, FALSE);
|
my $mtable = def_table(10, 5, FALSE);
|
$mtable->attach_defaults($scrolled_win,0,5,0,9);
|
$mtable->attach_defaults($scrolled_win,0,5,0,9);
|
$mtable->attach($back,0,1,9,10,'expand','fill',2,2) if($type ne 'soc');
|
$mtable->attach($back,0,1,9,10,'expand','fill',2,2) if($type ne 'soc');
|
$mtable->attach($diagram,2,4,9,10,'expand','fill',2,2);
|
$mtable->attach($diagram,2,4,9,10,'expand','fill',2,2);
|
$mtable->attach($ok,4,5,9,10,'expand','fill',2,2);
|
$mtable->attach($ok,4,5,9,10,'expand','fill',2,2);
|
|
|
$window->add ($mtable);
|
$window->add ($mtable);
|
$window->show_all();
|
$window->show_all();
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
$back-> signal_connect("clicked" => sub{
|
$back-> signal_connect("clicked" => sub{
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
clk_setting_win1($self,$info,$type);
|
clk_setting_win1($self,$info,$type);
|
$window->destroy;
|
$window->destroy;
|
$event->cancel;
|
$event->cancel;
|
});
|
});
|
|
|
$diagram-> signal_connect("clicked" => sub{
|
$diagram-> signal_connect("clicked" => sub{
|
show_tile_diagram ($soc);
|
show_tile_diagram ($soc);
|
});
|
});
|
|
|
$ok-> signal_connect("clicked" => sub{
|
$ok-> signal_connect("clicked" => sub{
|
set_gui_status($self,"ref",1);
|
set_gui_status($self,"ref",1);
|
$window->destroy;
|
$window->destroy;
|
$event->cancel;
|
$event->cancel;
|
});
|
});
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
}
|
|
|
sub tmp{
|
sub tmp{
|
|
|
}
|
}
|
|
|
sub add_module_to_mpsoc{
|
sub add_module_to_mpsoc{
|
my ($soc,$category,$module,$info)=@_;
|
my ($soc,$category,$module,$info)=@_;
|
my $ip = ip->lib_new ();
|
my $ip = ip->lib_new ();
|
|
|
my ($instance_id,$id)= get_instance_id($soc,$category,$module);
|
my ($instance_id,$id)= get_instance_id($soc,$category,$module);
|
|
|
#add module instance
|
#add module instance
|
my $result=$soc->soc_add_instance($instance_id,$category,$module,$ip);
|
my $result=$soc->soc_add_instance($instance_id,$category,$module,$ip);
|
|
|
if($result == 0){
|
if($result == 0){
|
my $info_text= "Failed to add \"$instance_id\" to SoC. $instance_id is already exist.";
|
my $info_text= "Failed to add \"$instance_id\" to SoC. $instance_id is already exist.";
|
show_info($info,$info_text);
|
show_info($info,$info_text);
|
return;
|
return;
|
}
|
}
|
$soc->soc_add_instance_order($instance_id);
|
$soc->soc_add_instance_order($instance_id);
|
# Add IP version
|
# Add IP version
|
my $v=$ip->ip_get($category,$module,"version");
|
my $v=$ip->ip_get($category,$module,"version");
|
$v = 0 if(!defined $v);
|
$v = 0 if(!defined $v);
|
#print "$v\n";
|
#print "$v\n";
|
$soc->object_add_attribute($instance_id,"version",$v);
|
$soc->object_add_attribute($instance_id,"version",$v);
|
# Read default parameter from lib and add them to soc
|
# Read default parameter from lib and add them to soc
|
my %param_default= $ip->get_param_default($category,$module);
|
my %param_default= $ip->get_param_default($category,$module);
|
|
|
my $rr=$soc->soc_add_instance_param($instance_id,\%param_default);
|
my $rr=$soc->soc_add_instance_param($instance_id,\%param_default);
|
if($rr == 0){
|
if($rr == 0){
|
my $info_text= "Failed to add default parameter to \"$instance_id\". $instance_id does not exist.";
|
my $info_text= "Failed to add default parameter to \"$instance_id\". $instance_id does not exist.";
|
show_info($info,$info_text);
|
show_info($info,$info_text);
|
return;
|
return;
|
}
|
}
|
my @r=$ip->ip_get_param_order($category,$module);
|
my @r=$ip->ip_get_param_order($category,$module);
|
$soc->soc_add_instance_param_order($instance_id,\@r);
|
$soc->soc_add_instance_param_order($instance_id,\@r);
|
|
|
get_module_parameter($soc,$ip,$instance_id);
|
get_module_parameter($soc,$ip,$instance_id);
|
undef $ip;
|
undef $ip;
|
set_gui_status($soc,"refresh_soc",0);
|
set_gui_status($soc,"refresh_soc",0);
|
}
|
}
|
|
|
|
|
|
|
|
|
#$mpsoc,$top_ip,$sw_dir,$soc_name,$id,$soc_num,$txview
|
#$mpsoc,$top_ip,$sw_dir,$soc_name,$id,$soc_num,$txview
|
sub get_top_ip{
|
sub get_top_ip{
|
my ($self,$type)=@_;
|
my ($self,$type)=@_;
|
|
|
my $mpsoc_ip=ip_gen->ip_gen_new();
|
my $mpsoc_ip=ip_gen->ip_gen_new();
|
$mpsoc_ip->ipgen_add("module_name",'TOP');
|
$mpsoc_ip->ipgen_add("module_name",'TOP');
|
$mpsoc_ip->ipgen_add("ip_name",'TOP');
|
$mpsoc_ip->ipgen_add("ip_name",'TOP');
|
$mpsoc_ip->ipgen_add("category",'TOP');
|
$mpsoc_ip->ipgen_add("category",'TOP');
|
$mpsoc_ip->ipgen_add('GUI_REMOVE_SET','DISABLE');
|
$mpsoc_ip->ipgen_add('GUI_REMOVE_SET','DISABLE');
|
if($type eq 'mpsoc'){
|
if($type eq 'mpsoc'){
|
my @sources=('clk','reset');
|
my @sources=('clk','reset');
|
foreach my $s (@sources){
|
foreach my $s (@sources){
|
my $num = $self->object_get_attribute('SOURCE_SET',"${s}_number");
|
my $num = $self->object_get_attribute('SOURCE_SET',"${s}_number");
|
$num=1 if(!defined $num);
|
$num=1 if(!defined $num);
|
$mpsoc_ip->ipgen_add_plug("$s",'num',$num);
|
$mpsoc_ip->ipgen_add_plug("$s",'num',$num);
|
for (my $n=0; $n<$num; $n++ ){
|
for (my $n=0; $n<$num; $n++ ){
|
|
|
my $name=$self->object_get_attribute('SOURCE_SET',"${s}_${n}_name");
|
my $name=$self->object_get_attribute('SOURCE_SET',"${s}_${n}_name");
|
$mpsoc_ip->ipgen_set_plug_name($s,$n,$name);
|
$mpsoc_ip->ipgen_set_plug_name($s,$n,$name);
|
$mpsoc_ip->ipgen_add_port($name,undef,'input',"plug:${s}\[$n\]","${s}_i");
|
$mpsoc_ip->ipgen_add_port($name,undef,'input',"plug:${s}\[$n\]","${s}_i");
|
|
|
}
|
}
|
}
|
}
|
# add_mpsoc_ip_other_interfaces($mpsoc,$mpsoc_ip);
|
# add_mpsoc_ip_other_interfaces($mpsoc,$mpsoc_ip);
|
}
|
}
|
else{
|
else{
|
my %sources = get_soc_clk_source_list($self);
|
my %sources = get_soc_clk_source_list($self);
|
foreach my $s (sort keys %sources){
|
foreach my $s (sort keys %sources){
|
my @ports = @{$sources{$s}} if (defined $sources{$s});
|
my @ports = @{$sources{$s}} if (defined $sources{$s});
|
my $num=scalar @ports;
|
my $num=scalar @ports;
|
$mpsoc_ip->ipgen_add_plug("$s",'num',$num);
|
$mpsoc_ip->ipgen_add_plug("$s",'num',$num);
|
my $n=0;
|
my $n=0;
|
foreach my $p (@ports){
|
foreach my $p (@ports){
|
$mpsoc_ip->ipgen_set_plug_name($s,$n,$p);
|
$mpsoc_ip->ipgen_set_plug_name($s,$n,$p);
|
$mpsoc_ip->ipgen_add_port($p,undef,'input',"plug:${s}\[$n\]","${s}_i");
|
$mpsoc_ip->ipgen_add_port($p,undef,'input',"plug:${s}\[$n\]","${s}_i");
|
$n++;
|
$n++;
|
}
|
}
|
}
|
}
|
}
|
}
|
return $mpsoc_ip;
|
return $mpsoc_ip;
|
}
|
}
|
|
|
|
|
sub add_mpsoc_ip_other_interfaces{
|
sub add_mpsoc_ip_other_interfaces{
|
my ($mpsoc,$mpsoc_ip)=@_;
|
my ($mpsoc,$mpsoc_ip)=@_;
|
my ($NE, $NR, $RAw, $EAw, $Fw)= get_topology_info ($mpsoc);
|
my ($NE, $NR, $RAw, $EAw, $Fw)= get_topology_info ($mpsoc);
|
my $processors_en=0;
|
my $processors_en=0;
|
my %intfc_num;
|
my %intfc_num;
|
my @parameters_order;
|
my @parameters_order;
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
|
|
|
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
my @nis=get_NI_instance_list($top);
|
my @nis=get_NI_instance_list($top);
|
my @noc_param=$top->top_get_parameter_list($nis[0]);
|
my @noc_param=$top->top_get_parameter_list($nis[0]);
|
my $inst_name=$top->top_get_def_of_instance($nis[0],'instance');
|
my $inst_name=$top->top_get_def_of_instance($nis[0],'instance');
|
|
|
#other parameters
|
#other parameters
|
my %params=$top->top_get_default_soc_param();
|
my %params=$top->top_get_default_soc_param();
|
|
|
my @intfcs=$top->top_get_intfc_list();
|
my @intfcs=$top->top_get_intfc_list();
|
|
|
my $i=0;
|
my $i=0;
|
|
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
my $soc_file="$target_dir/src_verilog/tiles/$soc_name.sv";
|
my $soc_file="$target_dir/src_verilog/tiles/$soc_name.sv";
|
|
|
my $vdb =read_verilog_file($soc_file);
|
my $vdb =read_verilog_file($soc_file);
|
|
|
my %soc_localparam = $vdb->get_modules_parameters($soc_name);
|
my %soc_localparam = $vdb->get_modules_parameters($soc_name);
|
|
|
|
|
foreach my $intfc (@intfcs){
|
foreach my $intfc (@intfcs){
|
|
|
# Auto connected/not connected interface
|
# Auto connected/not connected interface
|
if( $intfc eq 'socket:ni[0]' || ($intfc =~ /plug:clk\[/) || ( $intfc =~ /plug:reset\[/)|| ($intfc =~ /socket:RxD_sim\[/ ) || $intfc =~ /plug:enable\[/){
|
if( $intfc eq 'socket:ni[0]' || ($intfc =~ /plug:clk\[/) || ( $intfc =~ /plug:reset\[/)|| ($intfc =~ /socket:RxD_sim\[/ ) || $intfc =~ /plug:enable\[/){
|
#do nothing
|
#do nothing
|
}
|
}
|
elsif( $intfc eq 'IO' ){
|
elsif( $intfc eq 'IO' ){
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
foreach my $p (@ports){
|
foreach my $p (@ports){
|
my ($io_port,$type,$new_range,$intfc_name,$intfc_port)= get_top_port_io_info($top,$p,$tile_num,\%params,\%soc_localparam);
|
my ($io_port,$type,$new_range,$intfc_name,$intfc_port)= get_top_port_io_info($top,$p,$tile_num,\%params,\%soc_localparam);
|
$mpsoc_ip->ipgen_add_port($io_port,$new_range,$type,'IO','IO');
|
$mpsoc_ip->ipgen_add_port($io_port,$new_range,$type,'IO','IO');
|
|
|
|
|
}
|
}
|
|
|
}
|
}
|
|
|
else {
|
else {
|
#other interface
|
#other interface
|
my($if_type,$if_name,$if_num)= split("[:\[ \\]]", $intfc);
|
my($if_type,$if_name,$if_num)= split("[:\[ \\]]", $intfc);
|
print "my($if_type,$if_name,$if_num)= split(, $intfc); \n";
|
print "my($if_type,$if_name,$if_num)= split(, $intfc); \n";
|
my $num = (defined $intfc_num{"$if_type:$if_name"})? $intfc_num{"$if_type:$if_name"}+1:0;
|
my $num = (defined $intfc_num{"$if_type:$if_name"})? $intfc_num{"$if_type:$if_name"}+1:0;
|
$intfc_num{"$if_type:$if_name"}=$num;
|
$intfc_num{"$if_type:$if_name"}=$num;
|
$mpsoc_ip->ipgen_add_plug("$if_name",'num',$num) if ($if_type eq 'plug');
|
$mpsoc_ip->ipgen_add_plug("$if_name",'num',$num) if ($if_type eq 'plug');
|
$mpsoc_ip->ipgen_add_soket("$if_name",'num',$num) if ($if_type eq 'socket');
|
$mpsoc_ip->ipgen_add_soket("$if_name",'num',$num) if ($if_type eq 'socket');
|
|
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
foreach my $p (@ports){
|
foreach my $p (@ports){
|
my ($io_port,$type,$new_range,$intfc_name,$intfc_port)= get_top_port_io_info($top,$p,$tile_num,\%params,\%soc_localparam);
|
my ($io_port,$type,$new_range,$intfc_name,$intfc_port)= get_top_port_io_info($top,$p,$tile_num,\%params,\%soc_localparam);
|
$mpsoc_ip->ipgen_add_port($io_port,$new_range,$type,"$if_type:$if_name\[$num\]",$intfc_port);
|
$mpsoc_ip->ipgen_add_port($io_port,$new_range,$type,"$if_type:$if_name\[$num\]",$intfc_port);
|
|
|
}
|
}
|
}
|
}
|
}
|
}
|
|
|
|
|
my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile_num);
|
my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile_num);
|
#if ($setting eq 'Custom'){
|
#if ($setting eq 'Custom'){
|
%params= $top->top_get_custom_soc_param($tile_num);
|
%params= $top->top_get_custom_soc_param($tile_num);
|
#}else{
|
#}else{
|
# %params=$top->top_get_default_soc_param();
|
# %params=$top->top_get_default_soc_param();
|
#}
|
#}
|
|
|
foreach my $p (sort keys %params){
|
foreach my $p (sort keys %params){
|
$params{$p}=add_instantc_name_to_parameters(\%params,"T$tile_num",$params{$p});
|
$params{$p}=add_instantc_name_to_parameters(\%params,"T$tile_num",$params{$p});
|
$params{$p}=add_instantc_name_to_parameters(\%soc_localparam,"T$tile_num",$params{$p});
|
$params{$p}=add_instantc_name_to_parameters(\%soc_localparam,"T$tile_num",$params{$p});
|
my $pname="T${tile_num}_$p";
|
my $pname="T${tile_num}_$p";
|
$mpsoc_ip-> ipgen_add_parameter ($pname,$params{$p},'Fixed',undef,undef,'Localparam',1);
|
$mpsoc_ip-> ipgen_add_parameter ($pname,$params{$p},'Fixed',undef,undef,'Localparam',1);
|
push (@parameters_order,$pname);
|
push (@parameters_order,$pname);
|
|
|
}
|
}
|
foreach my $p (sort keys %soc_localparam){
|
foreach my $p (sort keys %soc_localparam){
|
$soc_localparam{$p}=add_instantc_name_to_parameters(\%params,"T$tile_num",$soc_localparam{$p});
|
$soc_localparam{$p}=add_instantc_name_to_parameters(\%params,"T$tile_num",$soc_localparam{$p});
|
$soc_localparam{$p}=add_instantc_name_to_parameters(\%soc_localparam,"T$tile_num",$soc_localparam{$p});
|
$soc_localparam{$p}=add_instantc_name_to_parameters(\%soc_localparam,"T$tile_num",$soc_localparam{$p});
|
my $pname="T${tile_num}_$p";
|
my $pname="T${tile_num}_$p";
|
$mpsoc_ip-> ipgen_add_parameter ($pname,$soc_localparam{$p},'Fixed',undef,undef,'Localparam',0);
|
$mpsoc_ip-> ipgen_add_parameter ($pname,$soc_localparam{$p},'Fixed',undef,undef,'Localparam',0);
|
push (@parameters_order,$pname);
|
push (@parameters_order,$pname);
|
|
|
}
|
}
|
|
|
|
|
|
|
}
|
}
|
#TODO get parameter order
|
#TODO get parameter order
|
$mpsoc_ip->ipgen_add("parameters_order",\@parameters_order);
|
$mpsoc_ip->ipgen_add("parameters_order",\@parameters_order);
|
|
|
}
|
}
|
|
|
sub get_source_set_top{
|
sub get_source_set_top{
|
my ($self,$type)=@_;
|
my ($self,$type)=@_;
|
my $soc =$self->object_get_attribute('SOURCE_SET',"SOC");
|
my $soc =$self->object_get_attribute('SOURCE_SET',"SOC");
|
my $redefine =$self->object_get_attribute('SOURCE_SET',"REDEFINE_TOP");
|
my $redefine =$self->object_get_attribute('SOURCE_SET',"REDEFINE_TOP");
|
$redefine=1 if(!defined $redefine);
|
$redefine=1 if(!defined $redefine);
|
if(!defined $soc){
|
if(!defined $soc){
|
$soc = soc->soc_new();
|
$soc = soc->soc_new();
|
$soc->object_add_attribute('soc_name','TOP');
|
$soc->object_add_attribute('soc_name','TOP');
|
$redefine=1;
|
$redefine=1;
|
}
|
}
|
if($redefine==1){
|
if($redefine==1){
|
my $ip = ip->lib_new ();
|
my $ip = ip->lib_new ();
|
#print "get_top_ip(\$self,$type);\n";
|
#print "get_top_ip(\$self,$type);\n";
|
my $mpsoc_ip=get_top_ip($self,$type);
|
my $mpsoc_ip=get_top_ip($self,$type);
|
|
|
$ip->add_ip($mpsoc_ip);
|
$ip->add_ip($mpsoc_ip);
|
$soc ->object_add_attribute('SOURCE_SET',"IP",$mpsoc_ip);
|
$soc ->object_add_attribute('SOURCE_SET',"IP",$mpsoc_ip);
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",0);
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",0);
|
add_mpsoc_to_device($soc,$ip);
|
add_mpsoc_to_device($soc,$ip);
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
}
|
}
|
return $soc;
|
return $soc;
|
}
|
}
|
|
|
|
|
sub add_mpsoc_to_device{
|
sub add_mpsoc_to_device{
|
my ($soc,$ip)=@_;
|
my ($soc,$ip)=@_;
|
my $category='TOP';
|
my $category='TOP';
|
my $module='TOP';
|
my $module='TOP';
|
my ($instance_id,$id) =('TOP',1);
|
my ($instance_id,$id) =('TOP',1);
|
|
|
#my ($instance_id,$id)= get_instance_id($soc,$category,$module);
|
#my ($instance_id,$id)= get_instance_id($soc,$category,$module);
|
|
|
remove_instance_from_soc($soc,$instance_id);
|
remove_instance_from_soc($soc,$instance_id);
|
|
|
#add module instanance
|
#add module instanance
|
my $result=$soc->soc_add_instance($instance_id,$category,$module,$ip);
|
my $result=$soc->soc_add_instance($instance_id,$category,$module,$ip);
|
|
|
if($result == 0){
|
if($result == 0){
|
my $info_text= "Failed to add \"$instance_id\" to SoC. $instance_id is already exist.";
|
my $info_text= "Failed to add \"$instance_id\" to SoC. $instance_id is already exist.";
|
# show_info($info,$info_text);
|
# show_info($info,$info_text);
|
return;
|
return;
|
}
|
}
|
$soc->soc_add_instance_order($instance_id);
|
$soc->soc_add_instance_order($instance_id);
|
# Add IP version
|
# Add IP version
|
my $v=$ip->ip_get($category,$module,"version");
|
my $v=$ip->ip_get($category,$module,"version");
|
$v = 0 if(!defined $v);
|
$v = 0 if(!defined $v);
|
#print "$v\n";
|
#print "$v\n";
|
$soc->object_add_attribute($instance_id,"version",$v);
|
$soc->object_add_attribute($instance_id,"version",$v);
|
# Read default parameter from lib and add them to soc
|
# Read default parameter from lib and add them to soc
|
my %param_default= $ip->get_param_default($category,$module);
|
my %param_default= $ip->get_param_default($category,$module);
|
|
|
my $rr=$soc->soc_add_instance_param($instance_id,\%param_default);
|
my $rr=$soc->soc_add_instance_param($instance_id,\%param_default);
|
if($rr == 0){
|
if($rr == 0){
|
my $info_text= "Failed to add default parameter to \"$instance_id\". $instance_id does not exist.";
|
my $info_text= "Failed to add default parameter to \"$instance_id\". $instance_id does not exist.";
|
# show_info($info,$info_text);
|
# show_info($info,$info_text);
|
return;
|
return;
|
}
|
}
|
my @r=$ip->ip_get_param_order($category,$module);
|
my @r=$ip->ip_get_param_order($category,$module);
|
$soc->soc_add_instance_param_order($instance_id,\@r);
|
$soc->soc_add_instance_param_order($instance_id,\@r);
|
|
|
#get_module_parameter($soc,$ip,$instance_id);
|
#get_module_parameter($soc,$ip,$instance_id);
|
undef $ip;
|
undef $ip;
|
set_gui_status($soc,"refresh_soc",0);
|
set_gui_status($soc,"refresh_soc",0);
|
}
|
}
|
|
|
######
|
######
|
# ctrl
|
# ctrl
|
######
|
######
|
|
|
sub ctrl_box{
|
sub ctrl_box{
|
my ($mpsoc,$info)=@_;
|
my ($mpsoc,$info)=@_;
|
my $table = def_table (1, 12, FALSE);
|
my $table = def_table (1, 12, FALSE);
|
my $generate = def_image_button('icons/gen.png','_Generate RTL',FALSE,1);
|
my $generate = def_image_button('icons/gen.png','_Generate RTL',FALSE,1);
|
my $open = def_image_button('icons/browse.png','_Load MPSoC',FALSE,1);
|
my $open = def_image_button('icons/browse.png','_Load MPSoC',FALSE,1);
|
my $compile = def_image_button('icons/gate.png','_Compile RTL',FALSE,1);
|
my $compile = def_image_button('icons/gate.png','_Compile RTL',FALSE,1);
|
my $software = def_image_button('icons/binary.png','_Software',FALSE,1);
|
my $software = def_image_button('icons/binary.png','_Software',FALSE,1);
|
my $entry=gen_entry_object($mpsoc,'mpsoc_name',undef,undef,undef,undef);
|
my $entry=gen_entry_object($mpsoc,'mpsoc_name',undef,undef,undef,undef);
|
my $entrybox=gen_label_info(" MPSoC name:",$entry);
|
my $entrybox=gen_label_info(" MPSoC name:",$entry);
|
my $save = def_image_button('icons/save.png');
|
my $save = def_image_button('icons/save.png');
|
my $open_dir = def_image_button('icons/open-folder.png');
|
my $open_dir = def_image_button('icons/open-folder.png');
|
set_tip($save, "Save current MPSoC configuration setting");
|
set_tip($save, "Save current MPSoC configuration setting");
|
set_tip($open_dir, "Open target MPSoC folder");
|
set_tip($open_dir, "Open target MPSoC folder");
|
|
|
$entrybox->pack_start( $save, FALSE, FALSE, 0);
|
$entrybox->pack_start( $save, FALSE, FALSE, 0);
|
$entrybox->pack_start( $open_dir , FALSE, FALSE, 0);
|
$entrybox->pack_start( $open_dir , FALSE, FALSE, 0);
|
my $diagram = def_image_button('icons/diagram.png','Diagram');
|
my $diagram = def_image_button('icons/diagram.png','Diagram');
|
my $clk= def_image_button('icons/clk.png','CLK setting');
|
my $clk= def_image_button('icons/clk.png','CLK setting');
|
|
|
my $row=0;
|
my $row=0;
|
$table->attach ($open,$row, $row+2, 0,1,'expand','shrink',2,2);$row+=2;
|
$table->attach ($open,$row, $row+2, 0,1,'expand','shrink',2,2);$row+=2;
|
$table->attach ($entrybox,$row, $row+2, 0,1,'expand','shrink',2,2);$row+=2;
|
$table->attach ($entrybox,$row, $row+2, 0,1,'expand','shrink',2,2);$row+=2;
|
$table->attach ($diagram, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($diagram, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($clk, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($clk, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($generate, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($generate, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($software, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($software, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($compile, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
$table->attach ($compile, $row, $row+1, 0,1,'expand','shrink',2,2);$row++;
|
|
|
$generate-> signal_connect("clicked" => sub{
|
$generate-> signal_connect("clicked" => sub{
|
generate_mpsoc($mpsoc,$info,1);
|
generate_mpsoc($mpsoc,$info,1);
|
set_gui_status($mpsoc,"refresh_soc",1);
|
set_gui_status($mpsoc,"refresh_soc",1);
|
});
|
});
|
|
|
$save-> signal_connect("clicked" => sub{
|
$save-> signal_connect("clicked" => sub{
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
return if (check_mpsoc_name($name,$info));
|
return if (check_mpsoc_name($name,$info));
|
generate_mpsoc_lib_file($mpsoc,$info);
|
generate_mpsoc_lib_file($mpsoc,$info);
|
message_dialog("MPSOC \"$name\" is saved as lib/mpsoc/$name.MPSOC.");
|
message_dialog("MPSOC \"$name\" is saved as lib/mpsoc/$name.MPSOC.");
|
|
|
});
|
});
|
|
|
|
|
$open-> signal_connect("clicked" => sub{
|
$open-> signal_connect("clicked" => sub{
|
set_gui_status($mpsoc,"ref",5);
|
set_gui_status($mpsoc,"ref",5);
|
load_mpsoc($mpsoc,$info);
|
load_mpsoc($mpsoc,$info);
|
});
|
});
|
|
|
|
|
$compile -> signal_connect("clicked" => sub{
|
$compile -> signal_connect("clicked" => sub{
|
$mpsoc->object_add_attribute('compile','compilers',"QuartusII,Vivado,Verilator,Modelsim");
|
$mpsoc->object_add_attribute('compile','compilers',"QuartusII,Vivado,Verilator,Modelsim");
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
$name="" if (!defined $name);
|
$name="" if (!defined $name);
|
if (length($name)==0){
|
if (length($name)==0){
|
message_dialog("Please define the MPSoC name!");
|
message_dialog("Please define the MPSoC name!");
|
return ;
|
return ;
|
}
|
}
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $top_file = "$target_dir/src_verilog/${name}_top.v";
|
my $top_file = "$target_dir/src_verilog/${name}_top.v";
|
if (-f $top_file){
|
if (-f $top_file){
|
my $answer = yes_no_dialog ("Do you want to Regenearte the MPSoC RTL code too?");
|
my $answer = yes_no_dialog ("Do you want to Regenearte the MPSoC RTL code too?");
|
generate_mpsoc($mpsoc,$info,0) if ($answer eq 'yes');
|
generate_mpsoc($mpsoc,$info,0) if ($answer eq 'yes');
|
select_compiler($mpsoc,$name,$top_file,$target_dir);
|
select_compiler($mpsoc,$name,$top_file,$target_dir);
|
} else {
|
} else {
|
message_dialog("Cannot find $top_file file. Please run RTL Generator first!");
|
message_dialog("Cannot find $top_file file. Please run RTL Generator first!");
|
return;
|
return;
|
}
|
}
|
});
|
});
|
|
|
$software -> signal_connect("clicked" => sub{
|
$software -> signal_connect("clicked" => sub{
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
$name="" if (!defined $name);
|
$name="" if (!defined $name);
|
if (length($name)==0){
|
if (length($name)==0){
|
message_dialog("Please define the MPSoC name!");
|
message_dialog("Please define the MPSoC name!");
|
return ;
|
return ;
|
}
|
}
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $sw_folder = "$target_dir/sw";
|
my $sw_folder = "$target_dir/sw";
|
unless (-d $sw_folder){
|
unless (-d $sw_folder){
|
message_dialog("Cannot find $sw_folder. Please run RTL Generator first!");
|
message_dialog("Cannot find $sw_folder. Please run RTL Generator first!");
|
return;
|
return;
|
}
|
}
|
software_edit_mpsoc($mpsoc);
|
software_edit_mpsoc($mpsoc);
|
|
|
});
|
});
|
|
|
$diagram-> signal_connect("clicked" => sub{
|
$diagram-> signal_connect("clicked" => sub{
|
show_topology_diagram ($mpsoc);
|
show_topology_diagram ($mpsoc);
|
});
|
});
|
|
|
|
|
$clk-> signal_connect("clicked" => sub{
|
$clk-> signal_connect("clicked" => sub{
|
clk_setting_win1($mpsoc,$info,'mpsoc');
|
clk_setting_win1($mpsoc,$info,'mpsoc');
|
});
|
});
|
|
|
$open_dir-> signal_connect("clicked" => sub{
|
$open_dir-> signal_connect("clicked" => sub{
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
$name="" if (!defined $name);
|
$name="" if (!defined $name);
|
if (length($name)==0){
|
if (length($name)==0){
|
message_dialog("Please define the MPSoC name!");
|
message_dialog("Please define the MPSoC name!");
|
return ;
|
return ;
|
}
|
}
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
unless (-d $target_dir){
|
unless (-d $target_dir){
|
message_dialog("Cannot find $target_dir.\n Please run RTL Generator first!",'error');
|
message_dialog("Cannot find $target_dir.\n Please run RTL Generator first!",'error');
|
return;
|
return;
|
}
|
}
|
system "xdg-open $target_dir";
|
system "xdg-open $target_dir";
|
|
|
});
|
});
|
|
|
|
|
return $table;
|
return $table;
|
}
|
}
|
|
|
############
|
############
|
# main
|
# main
|
############
|
############
|
sub mpsocgen_main{
|
sub mpsocgen_main{
|
my $infc = interface->interface_new();
|
my $infc = interface->interface_new();
|
my $soc = ip->lib_new ();
|
my $soc = ip->lib_new ();
|
my $mpsoc= mpsoc->mpsoc_new();
|
my $mpsoc= mpsoc->mpsoc_new();
|
|
|
set_gui_status($mpsoc,"ideal",0);
|
set_gui_status($mpsoc,"ideal",0);
|
my $main_table = def_table (25, 12, FALSE);
|
my $main_table = def_table (25, 12, FALSE);
|
|
|
# The box which holds the info, warning, error ... messages
|
# The box which holds the info, warning, error ... messages
|
my ($infobox,$info)= create_txview();
|
my ($infobox,$info)= create_txview();
|
|
|
my $noc_conf_box=get_config ($mpsoc,$info);
|
my $noc_conf_box=get_config ($mpsoc,$info);
|
my $noc_tiles=gen_tiles($mpsoc);
|
my $noc_tiles=gen_tiles($mpsoc);
|
|
|
|
|
$main_table->set_row_spacings (4);
|
$main_table->set_row_spacings (4);
|
$main_table->set_col_spacings (1);
|
$main_table->set_col_spacings (1);
|
my $ctrl=ctrl_box($mpsoc,$info);
|
my $ctrl=ctrl_box($mpsoc,$info);
|
my $h1=gen_hpaned($noc_conf_box,.3,$noc_tiles);
|
my $h1=gen_hpaned($noc_conf_box,.3,$noc_tiles);
|
my $v2=gen_vpaned($h1,.55,$infobox);
|
my $v2=gen_vpaned($h1,.55,$infobox);
|
my $row=0;
|
my $row=0;
|
$main_table->attach_defaults ($v2 , 0, 12, 0,24);
|
$main_table->attach_defaults ($v2 , 0, 12, 0,24);
|
#$main_table->attach_defaults ($ctrl,0, 12, 24,25);
|
#$main_table->attach_defaults ($ctrl,0, 12, 24,25);
|
$main_table->attach ($ctrl,0, 12, 24,25, 'fill','fill',2,2);
|
$main_table->attach ($ctrl,0, 12, 24,25, 'fill','fill',2,2);
|
|
|
#check soc status every 0.5 second. refresh device table if there is any changes
|
#check soc status every 0.5 second. refresh device table if there is any changes
|
Glib::Timeout->add (100, sub{
|
Glib::Timeout->add (100, sub{
|
my ($state,$timeout)= get_gui_status($mpsoc);
|
my ($state,$timeout)= get_gui_status($mpsoc);
|
if ($timeout>0){
|
if ($timeout>0){
|
$timeout--;
|
$timeout--;
|
set_gui_status($mpsoc,$state,$timeout);
|
set_gui_status($mpsoc,$state,$timeout);
|
}elsif ($state eq 'save_project'){
|
}elsif ($state eq 'save_project'){
|
# Write object file
|
# Write object file
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
open(FILE, ">lib/mpsoc/$name.MPSOC") || die "Can not open: $!";
|
open(FILE, ">lib/mpsoc/$name.MPSOC") || die "Can not open: $!";
|
print FILE perl_file_header("$name.MPSOC");
|
print FILE perl_file_header("$name.MPSOC");
|
print FILE Data::Dumper->Dump([\%$mpsoc],[$name]);
|
print FILE Data::Dumper->Dump([\%$mpsoc],[$name]);
|
close(FILE) || die "Error closing file: $!";
|
close(FILE) || die "Error closing file: $!";
|
set_gui_status($mpsoc,"ideal",0);
|
set_gui_status($mpsoc,"ideal",0);
|
}
|
}
|
elsif( $state ne "ideal" ){
|
elsif( $state ne "ideal" ){
|
$noc_conf_box->destroy();
|
$noc_conf_box->destroy();
|
$noc_conf_box=get_config ($mpsoc,$info);
|
$noc_conf_box=get_config ($mpsoc,$info);
|
$noc_tiles->destroy();
|
$noc_tiles->destroy();
|
$noc_tiles=gen_tiles($mpsoc);
|
$noc_tiles=gen_tiles($mpsoc);
|
$h1 -> pack1($noc_conf_box, TRUE, TRUE);
|
$h1 -> pack1($noc_conf_box, TRUE, TRUE);
|
$h1 -> pack2($noc_tiles, TRUE, TRUE);
|
$h1 -> pack2($noc_tiles, TRUE, TRUE);
|
$v2-> pack1($h1, TRUE, TRUE);
|
$v2-> pack1($h1, TRUE, TRUE);
|
$h1->show_all;
|
$h1->show_all;
|
$ctrl->destroy;
|
$ctrl->destroy;
|
$ctrl=ctrl_box($mpsoc,$info);
|
$ctrl=ctrl_box($mpsoc,$info);
|
$main_table->attach ($ctrl,0, 12, 24,25,'fill','fill',2,2);
|
$main_table->attach ($ctrl,0, 12, 24,25,'fill','fill',2,2);
|
$main_table->show_all();
|
$main_table->show_all();
|
|
|
|
|
set_gui_status($mpsoc,"ideal",0);
|
set_gui_status($mpsoc,"ideal",0);
|
|
|
|
|
}
|
}
|
return TRUE;
|
return TRUE;
|
|
|
} );
|
} );
|
|
|
my $sc_win = add_widget_to_scrolled_win($main_table);
|
my $sc_win = add_widget_to_scrolled_win($main_table);
|
|
|
return $sc_win;
|
return $sc_win;
|
}
|
}
|
|
|
|
|
|
|
