Line 1... |
Line 1... |
#! /usr/bin/perl -w
|
#! /usr/bin/perl -w
|
use Glib qw/TRUE FALSE/;
|
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 Event; # any order
|
|
|
use Gtk2;
|
|
use Gtk2::Pango;
|
|
|
|
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 "diagram.pl";
|
require "diagram.pl";
|
|
require "orcc.pl";
|
sub get_pos{
|
|
my ($item,@list)=@_;
|
|
my $pos=0;
|
|
foreach my $p (@list){
|
|
#print "$p eq $item\n";
|
|
if ($p eq $item){return $pos;}
|
|
$pos++;
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
|
|
|
|
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);
|
Line 57... |
Line 41... |
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);
|
|
|
|
|
|
|
#save default and custom parameter values
|
|
my $a= $mpsoc->object_get_attribute("soc_params_${soc_name}",undef);
|
|
return if(! defined $a);
|
|
my %r = %{$a};
|
|
foreach my $p (sort keys %r ){
|
|
my $params= $mpsoc->object_get_attribute("soc_params_${soc_name}","$p");
|
|
|
|
if ($p eq 'default'){
|
|
$top->top_add_default_soc_param($params);
|
|
} else {
|
|
$top->top_add_custom_soc_param($params,$p);
|
|
|
|
}
|
|
|
|
# $mpsoc->object_add_attribute("soc_params_${soc_name}","$tile",\%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();
|
Line 113... |
Line 71... |
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
|
|
my $old_top = $mpsoc->mpsoc_get_soc($name);
|
|
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";
|
}
|
}
|
}
|
}
|
|
|
Line 126... |
Line 87... |
# 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{
|
|
my ($new,$old)=@_;
|
|
my @tiles = $old->top_get_custom_tile_list();
|
|
foreach my $tile (@tiles){
|
|
my %l =$old->top_get_custom_soc_param($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);
|
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') ;
|
Line 142... |
Line 113... |
}
|
}
|
|
|
####################
|
####################
|
# get_conflict_decision
|
# get_conflict_decision
|
###########################
|
###########################
|
sub b_box{
|
|
# create a new button
|
|
my @label=@_;
|
|
my $button = Gtk2::Button->new_from_stock(@label);
|
|
my $box=def_vbox(FALSE,5);
|
|
$box->pack_start($button, FALSE, FALSE,0);
|
|
|
|
return ($box,$button);
|
|
|
|
}
|
|
|
|
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\tinsterd 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 ($box1,$b1)= b_box("Remove Previous");
|
my $b1= def_button("Remove Previous");
|
my ($box2,$b2)= b_box("Remove Current");
|
my $b2= def_button("Remove Current");
|
my ($box3,$b3)= b_box("Cancel");
|
my $b3= def_button("Cancel");
|
|
|
$table->attach_defaults ($box1 , 0, 1, 1,2);
|
$table->attach ($b1 , 0, 1, 1,2,'fill','fill',2,2);
|
$table->attach_defaults ($box2 , 3, 4, 1,2);
|
$table->attach ($b2 , 3, 4, 1,2,'fill','fill',2,2);
|
$table->attach_defaults ($box3 , 5, 6, 1,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();
|
Line 184... |
Line 147... |
$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 );
|
|
|
});
|
});
|
|
|
$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 );
|
|
|
});
|
});
|
|
|
$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(',',$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]" ); 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 ($max_tile_num)=get_topology_info($mpsoc);
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
|
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);
|
Line 268... |
Line 230... |
}#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){ $mpsoc->mpsoc_add_soc_tiles_num($name,\@all_num);}
|
if( scalar @all_num>0){
|
else {$mpsoc->mpsoc_add_soc_tiles_num($name,undef);}
|
$mpsoc->mpsoc_add_soc_tiles_num($name,\@all_num);
|
set_gui_status($mpsoc,"ref",1);
|
return \@all_num;
|
|
}
|
|
else {
|
|
$mpsoc->mpsoc_add_soc_tiles_num($name,undef);
|
|
return undef;
|
|
}
|
|
#set_gui_status($mpsoc,"ref",1);
|
}
|
}
|
|
return undef;
|
}
|
}
|
|
|
|
|
#################
|
#################
|
# get_soc_parameter_setting
|
# get_soc_parameter_setting
|
################
|
################
|
|
|
|
|
|
|
|
|
sub get_soc_parameter_setting{
|
sub get_soc_parameter_setting{
|
my ($mpsoc,$soc_name,$tile)=@_;
|
my ($mpsoc,$soc_name,$tiles_ref)=@_;
|
|
my @tiles = @{$tiles_ref} if defined ($tiles_ref);
|
|
my $string = join (',',@tiles );
|
|
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);
|
|
$window->add($table);
|
|
$window->show_all;
|
|
}
|
|
|
my $window = (defined $tile)? def_popwin_size(40,40,"Parameter setting for $soc_name located in tile($tile) ",'percent'):def_popwin_size(40,40,"Default Parameter setting for $soc_name ",'percent');
|
|
my $table = def_table(10, 7, TRUE);
|
|
|
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
sub get_soc_parameter_setting_table{
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
my ($mpsoc,$soc_name,$window,$tiles_ref)=@_;
|
$scrolled_win->add_with_viewport($table);
|
my @tiles;
|
my $row=0;
|
@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 $table = def_table(10, 7, FALSE);
|
|
|
|
my $scrolled_win = add_widget_to_scrolled_win($table);
|
|
my $row=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=(defined $tile) ? $top->top_get_custom_soc_param($tile) : $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);
|
|
|
|
|
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");
|
if ($type eq "Entry"){
|
$default= $param_value{$p} if(defined $param_value{$p});
|
my $entry=gen_entry($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');
|
$table->attach_defaults ($entry, 3, 6, $row, $row+1);
|
|
$entry-> signal_connect("changed" => sub{$param_value{$p}=$entry->get_text();});
|
|
}
|
|
elsif ($type eq "Combo-box"){
|
|
my @combo_list=split(",",$content);
|
|
my $pos=get_item_pos($param_value{$p}, @combo_list) if(defined $param_value{$p});
|
|
my $combo=gen_combo(\@combo_list, $pos);
|
|
$table->attach_defaults ($combo, 3, 6, $row, $row+1);
|
|
$combo-> signal_connect("changed" => sub{$param_value{$p}=$combo->get_active_text();});
|
|
|
|
}
|
|
elsif ($type eq "Spin-button"){
|
|
my ($min,$max,$step)=split(",",$content);
|
|
$param_value{$p}=~ s/\D//g;
|
|
$min=~ s/\D//g;
|
|
$max=~ s/\D//g;
|
|
$step=~ s/\D//g;
|
|
my $spin=gen_spin($min,$max,$step);
|
|
$spin->set_value($param_value{$p});
|
|
$table->attach_defaults ($spin, 3, 4, $row, $row+1);
|
|
$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);
|
|
}
|
|
my $label =gen_label_in_center($p);
|
|
$table->attach_defaults ($label, 0, 3, $row, $row+1);
|
|
if (defined $info){
|
|
my $info_button=def_image_button('icons/help.png');
|
|
$table->attach_defaults ($info_button, 6, 7, $row, $row+1);
|
|
$info_button->signal_connect('clicked'=>sub{
|
|
message_dialog($info);
|
|
|
|
});
|
|
|
|
}
|
}
|
$row++;
|
|
|
|
|
|
|
# if ($type eq "Entry"){
|
|
# my $entry=gen_entry($param_value{$p});
|
|
# $table->attach_defaults ($entry, 3, 6, $row, $row+1);
|
|
# $entry-> signal_connect("changed" => sub{$param_value{$p}=$entry->get_text();});
|
|
# }
|
|
# elsif ($type eq "Combo-box"){
|
|
# my @combo_list=split(/\s*,\s*/,$content);
|
|
# my $pos=get_item_pos($param_value{$p}, @combo_list) if(defined $param_value{$p});
|
|
# my $combo=gen_combo(\@combo_list, $pos);
|
|
# $table->attach_defaults ($combo, 3, 6, $row, $row+1);
|
|
# $combo-> signal_connect("changed" => sub{$param_value{$p}=$combo->get_active_text();});
|
|
#
|
|
# }
|
|
# elsif ($type eq "Spin-button"){
|
|
# my ($min,$max,$step)=split(/\s*,\s*/,$content);
|
|
# $param_value{$p}=~ s/\D//g;
|
|
# $min=~ s/\D//g;
|
|
# $max=~ s/\D//g;
|
|
# $step=~ s/\D//g;
|
|
# my $spin=gen_spin($min,$max,$step);
|
|
# $spin->set_value($param_value{$p});
|
|
# $table->attach_defaults ($spin, 3, 4, $row, $row+1);
|
|
# $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);
|
|
# }
|
|
# my $label =gen_label_in_center($p);
|
|
# $table->attach_defaults ($label, 0, 3, $row, $row+1);
|
|
# if (defined $info){
|
|
# my $info_button=def_image_button('icons/help.png');
|
|
# $table->attach_defaults ($info_button, 6, 7, $row, $row+1);
|
|
# $info_button->signal_connect('clicked'=>sub{
|
|
# message_dialog($info);
|
|
#
|
|
# });
|
|
#
|
|
# }
|
|
# $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);
|
|
|
Line 363... |
Line 347... |
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);
|
|
|
$window->add ($mtable);
|
|
$window->show_all();
|
|
|
|
$ok-> signal_connect("clicked" => sub{
|
$ok-> signal_connect("clicked" => sub{
|
$window->destroy;
|
$window->destroy if(defined $window);
|
#save new values
|
#save new values
|
if(!defined $tile ) {
|
my $ref=$mpsoc->object_get_attribute('current_tile_param');
|
$top->top_add_default_soc_param(\%param_value);
|
%param_value=%{$ref};
|
$mpsoc->object_add_attribute("soc_params_${soc_name}","default",\%param_value);
|
|
}
|
# if(!defined $tile ) {
|
else {
|
# $top->top_add_default_soc_param(\%param_value);
|
|
# $mpsoc->object_add_attribute('soc_param',"default",\%param_value);
|
|
# }
|
|
# else {
|
|
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_params_${soc_name}","$tile",\%param_value);
|
$mpsoc->object_add_attribute('soc_param',"custom_${soc_name}",\%param_value);
|
}
|
}
|
#set_gui_status($mpsoc,"refresh_soc",1);
|
$mpsoc->object_add_attribute('current_tile_param',undef,undef);
|
#$$refresh_soc->clicked;
|
set_gui_status($mpsoc,"refresh_soc",1);
|
|
|
|
|
|
|
|
|
});
|
});
|
|
$mtable->show_all();
|
|
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 $lable=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();}
|
Line 414... |
Line 392... |
#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();
|
check_inserted_ip_nums($mpsoc,$soc_name,$data);
|
my $r=check_inserted_ip_nums($mpsoc,$soc_name,$data);
|
|
if(defined $r){
|
|
my @all_num = @{$r};
|
|
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);
|
Line 452... |
Line 429... |
}
|
}
|
|
|
|
|
|
|
|
|
|
|
##################
|
##################
|
# 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 = Gtk2::HSeparator->new;
|
my $separator1 = gen_Hsep();
|
my $separator2 = Gtk2::HSeparator->new;
|
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 = Gtk2::Entry->new;
|
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 = Gtk2::FileChooserDialog->new(
|
|
'Select tile directory', undef,
|
|
# 'open',
|
|
'select-folder',
|
|
'gtk-cancel' => 'cancel',
|
|
'gtk-ok' => 'ok',
|
|
);
|
|
|
|
|
|
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();
|
Line 504... |
Line 469... |
#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);
|
Line 545... |
Line 506... |
|
|
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
|
eg: 0,2,5:10
|
e.g. individual numbers: 5,6,7,8,9,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++;
|
}
|
}
|
Line 569... |
Line 531... |
|
|
#######################
|
#######################
|
# noc_config
|
# noc_config
|
######################
|
######################
|
|
|
sub noc_config{
|
|
my ($mpsoc,$table)=@_;
|
sub noc_topology_setting_gui {
|
|
my ($mpsoc,$table,$txview,$row,$show_noc)=@_;
|
|
my $coltmp=0;
|
|
# topology
|
|
my $label='Topology';
|
|
my $param='TOPOLOGY';
|
|
my $default='"MESH"';
|
|
my $content='"MESH","FMESH","TORUS","RING","LINE","FATTREE","TREE","STAR","CUSTOM"';
|
|
my $type='Combo-box';
|
|
my $info="NoC topology";
|
|
($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');
|
|
|
|
if($topology ne '"CUSTOM"' ){
|
|
#topology T1 parameter
|
|
$label=
|
|
($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'K' :
|
|
($topology eq '"STAR"')? "Total Endpoint number" : 'Routers per row';
|
|
$param= 'T1';
|
|
$default= '2';
|
|
$content=
|
|
($topology eq '"MESH"' || $topology eq '"TORUS"') ? '2,16,1':
|
|
($topology eq '"FMESH"')? '1,16,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)';
|
|
$type= 'Spin-button';
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
|
|
|
|
#Topology T2 parameter
|
|
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';
|
|
$param= 'T2';
|
|
$default='2';
|
|
$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)';
|
|
$type= 'Spin-button';
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
} else {
|
|
$mpsoc->object_add_attribute('noc_param','T2',1);
|
|
}
|
|
|
|
#Topology T3 parameter
|
|
if($topology eq '"MESH"' || $topology eq '"FMESH"' || $topology eq '"TORUS"' || $topology eq '"RING"' || $topology eq '"LINE"') {
|
|
$label="Router's endpoint number";
|
|
$param= 'T3';
|
|
$default='1';
|
|
$content='1,4,1';
|
|
$info= "In $topology topology, each router can have up to 4 endpoint processing tile.";
|
|
$type= 'Spin-button';
|
|
($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
|
|
($row,$coltmp)=config_custom_topology_gui($mpsoc,$table,$txview,$row);
|
|
}
|
|
return ($row,$coltmp);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub noc_config{
|
|
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++;
|
my $separator = Gtk2::HSeparator->new;
|
add_Hsep_to_table ($table,0,4,$row); $row++;
|
$table->attach ($separator , 0, 4 , $row, $row+1,'fill','fill',2,2); $row++;
|
|
|
|
my $label;
|
my $label;
|
my $param;
|
my $param;
|
my $default;
|
my $default;
|
my $type;
|
my $type;
|
Line 618... |
Line 644... |
$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");
|
|
|
#topology
|
|
$label='Topology';
|
|
$param='TOPOLOGY';
|
|
$default='"MESH"';
|
|
$content='"MESH","TORUS","RING","LINE","FATTREE","TREE"';
|
|
$type='Combo-box';
|
|
$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) =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');
|
|
|
#topology T1 parameter
|
|
$label= ($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'K' : 'Routers per row';
|
|
$param= 'T1';
|
|
$default= '2';
|
|
$content=($topology eq '"MESH"' || $topology eq '"TORUS"') ? '2,16,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 dimention)';
|
|
$type= 'Spin-button';
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
|
|
|
|
|
|
#Topology T2 parameter
|
|
if($topology eq '"MESH"' || $topology eq '"TORUS"' || $topology eq '"FATTREE"' || $topology eq '"TREE"' ) {
|
|
$label= ($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'L' :'Routers per column';
|
|
$param= 'T2';
|
|
$default='2';
|
|
$content='2,16,1';
|
|
$info= ($topology eq '"FATTREE"' || $topology eq '"TREE"')? 'Fattree layer number (The height of FT)':'Number of NoC routers in column (Y dimention)';
|
|
$type= 'Spin-button';
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
} else {
|
|
$mpsoc->object_add_attribute('noc_param','T2',1);
|
|
}
|
|
|
|
#Topology T3 parameter
|
|
if($topology eq '"MESH"' || $topology eq '"TORUS"' || $topology eq '"RING"' || $topology eq '"LINE"') {
|
|
$label="Router's endpoint number";
|
|
$param= 'T3';
|
|
$default='1';
|
|
$content='1,4,1';
|
|
$info= "In $topology topology, each router can have up to 4 endpoint processing tile.";
|
|
$type= 'Spin-button';
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',1);
|
|
}
|
|
|
|
#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 Channel 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);
|
}
|
}
|
Line 690... |
Line 673... |
$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
|
|
$label=($router_type eq '"VC_BASED"')? 'Local port Buffer flits per VC': "Local Port Buffer flits";
|
|
$param='LB';
|
|
$default='4';
|
|
$content='2,256,1';
|
|
$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.";
|
|
|
|
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);
|
|
}else{
|
|
$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"' ){
|
#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"')? '"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"')? '"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 '"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 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;
|
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_routing,'noc_param',1);
|
|
|
|
}
|
|
|
|
#PCK_TYPE
|
|
$label='Packet type';
|
|
$param='PCK_TYPE';
|
|
$default='"MULTI_FLIT"';
|
|
$content='"MULTI_FLIT","SINGLE_FLIT"';
|
|
$type="Combo-box";
|
|
$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
|
|
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
|
|
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.
|
|
";
|
|
|
($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');
|
|
|
|
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{
|
|
$mpsoc->object_add_attribute('noc_param','MIN_PCK_SIZE',1);
|
|
}
|
|
|
|
# BYTE_EN
|
#SSA
|
$label='Byte Enable';
|
$label='SSA Ebable';
|
$param='BYTE_EN';
|
$param='SSA_EN';
|
$default= 0;
|
$default='"NO"';
|
$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='"YES","NO"';
|
$content='0,1';
|
$type='Combo-box';
|
$type="Combo-box";
|
$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,$show_noc,'noc_param');
|
($row,$coltmp)=add_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,undef,$show_noc,'noc_param',undef);
|
|
|
|
|
|
|
|
|
|
if($show_noc == 1){
|
if($show_noc == 1){
|
$b1= def_image_button("icons/up.png","NoC Parameters");
|
$b1= def_image_button("icons/up.png","NoC Parameters");
|
$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++;
|
Line 768... |
Line 789... |
$show_noc=($show_noc==1)?0:1;
|
$show_noc=($show_noc==1)?0:1;
|
$mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
|
$mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
|
set_gui_status($mpsoc,"ref",1);
|
set_gui_status($mpsoc,"ref",1);
|
});
|
});
|
|
|
|
|
#advance parameter start
|
#advance parameter start
|
my $advc;
|
my $advc;
|
my $adv_set=$mpsoc->object_get_attribute('setting','show_adv_setting');
|
my $adv_set=$mpsoc->object_get_attribute('setting','show_adv_setting');
|
if($adv_set == 0){
|
if($adv_set == 0){
|
$advc= def_image_button("icons/down.png","Advance Parameters");
|
$advc= def_image_button("icons/down.png","Advance Parameters");
|
$table->attach ( $advc , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$table->attach ( $advc , 0, 2, $row,$row+1,'fill','shrink',2,2);
|
$row++;
|
$row++;
|
}
|
}
|
|
|
|
|
|
#SSA
|
|
$label='SSA Enable';
|
|
$param='SSA_EN';
|
|
$default='"NO"';
|
|
$content='"YES","NO"';
|
|
$type='Combo-box';
|
|
$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);
|
|
|
|
#SMART
|
|
$label='Max Straight Bypass';
|
|
$param='SMART_MAX';
|
|
$default='0';
|
|
$content="0,1,2,3,4,5,6,7,8,9";
|
|
$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.";
|
|
($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($route ne '"XY"' and $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);
|
}
|
}
|
|
|
Line 826... |
Line 866... |
$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 recommanded";
|
$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);
|
}
|
}
|
Line 877... |
Line 917... |
|
|
|
|
#simulation debuge enable
|
#simulation debuge enable
|
$label='Debug enable';
|
$label='Debug enable';
|
$param='DEBUG_EN';
|
$param='DEBUG_EN';
|
$info= "Add extra verilog code for debuging 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');
|
|
|
Line 890... |
Line 930... |
$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 enabeled it adds a pipline 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_SBP_NUM = 4 //
|
#MAX_SMART_NUM = 4 //
|
$label="Number of multiple router bypassing ";
|
$label="Number of multiple router bypassing ";
|
$param="MAX_SBP_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');
|
Line 921... |
Line 961... |
$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 arbitertion 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 acording 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");
|
Line 940... |
Line 980... |
$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';
|
|
$param='SELF_LOOP_EN';
|
|
$default='"NO"';
|
|
$content='"NO","YES"';
|
|
$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.";
|
|
($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';
|
Line 991... |
Line 1043... |
|
|
return $row;
|
return $row;
|
}
|
}
|
|
|
|
|
#######################
|
#############
|
# get_config
|
# config_custom_topology_gui
|
######################
|
############
|
|
|
sub get_config{
|
sub config_custom_topology_gui{
|
my ($mpsoc,$info)=@_;
|
my($mpsoc,$table,$txview,$row)=@_;
|
my $table=def_table(20,10,FALSE);# my ($row,$col,$homogeneous)=@_;
|
|
#my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
#$scrolled_win->set_policy( "automatic", "automatic" );
|
|
#$scrolled_win->add_with_viewport($table);
|
|
|
|
#noc_setting
|
my $coltmp=0;
|
my $row=noc_config ($mpsoc,$table);
|
#read param.obj file to load cutom topology info
|
|
my $dir =get_project_dir()."/mpsoc/rtl/src_topolgy";
|
|
my $file="$dir/param.obj";
|
|
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');
|
|
return;
|
|
}
|
|
|
|
my %param;
|
|
my ($pp,$r,$err) = regen_object($file );
|
|
if ($r){
|
|
add_colored_info($txview,"Error: cannot open $file file: $err\n",'red');
|
|
return;
|
|
}
|
|
|
|
%param=%{$pp};
|
|
my @topologies=sort keys %param;
|
|
|
|
my $label='Topology_name';
|
|
my $param='CUSTOM_TOPOLOGY_NAME';
|
|
my $default=$topologies[0];
|
|
my $content= join(",", @topologies);
|
|
my $type='Combo-box';
|
|
my $info="Custom topology name";
|
|
($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');
|
|
|
|
|
|
$label='Routing Algorithm';
|
|
$param="ROUTE_NAME";
|
|
$type="Combo-box";
|
|
$content=$param{$topology_name}{'ROUTE_NAME'};
|
|
my @rr=split(/\s*,\s*/,$content);
|
|
$default=$rr[0];
|
|
$info="Select the routing algorithm";
|
|
($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','T2',$param{$topology_name}{'T2'});
|
|
$mpsoc->object_add_attribute('noc_param','T3',$param{$topology_name}{'T3'});
|
|
$mpsoc->object_add_attribute('noc_connection','er_addr',$param{$topology_name}{'er_addr'});
|
|
|
|
|
|
return ($row,$coltmp);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
#######################
|
|
# get_config
|
|
######################
|
|
|
|
sub get_config{
|
|
my ($mpsoc,$info)=@_;
|
|
my $table=def_table(20,10,FALSE);# my ($row,$col,$homogeneous)=@_;
|
|
|
|
|
|
#noc_setting
|
|
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');
|
Line 1034... |
Line 1143... |
set_gui_status($mpsoc,"ref",1);
|
set_gui_status($mpsoc,"ref",1);
|
|
|
|
|
});
|
});
|
|
|
|
my $scrolled_win = gen_scr_win_with_adjst($mpsoc,'get_config_adj');
|
|
add_widget_to_scrolled_win($table,$scrolled_win);
|
|
return $scrolled_win;
|
#for(my $i=$row; $i<25; $i++){
|
|
#my $empty_col=gen_label_in_left(' ');
|
|
#$table->attach_defaults ($empty_col , 0, 1, $i,$i+1);
|
|
|
|
#}
|
|
return $table;
|
|
}
|
}
|
|
|
|
|
#############
|
#############
|
# 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";
|
Line 1070... |
Line 1170... |
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);
|
Line 1082... |
Line 1182... |
#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;
|
|
foreach my $p (sort keys %{$nocparam}){
|
|
$z{$p}="Parameter";
|
|
}
|
|
$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);
|
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");
|
generate_soc($soc,$info,$target_dir,$hw_dir,$sw_path,0,1,"merge",1);
|
move ("$hw_dir/$soc_name.v","$hw_dir/tiles/");
|
move ("$hw_dir/$soc_name.sv","$hw_dir/tiles/");
|
my @tmp= ("$hw_dir/tiles/$soc_name.v");
|
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
|
|
|
Line 1122... |
Line 1227... |
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");
|
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.v") || 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");
|
foreach my $f(@{$hdl_ref}){
|
my ($sim_ref,$warnings2)= get_all_files_list($soc,"hdl_files_ticked");
|
|
#hdl_ref-sim_ref
|
|
my @n= get_diff_array($hdl_ref,$sim_ref);
|
|
$hdl_ref=\@n;
|
|
|
|
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);
|
|
|
|
|
|
|
|
foreach my $f(@{$sim_ref}){
|
|
my $n="$project_dir$f";
|
|
if (-f "$n") {
|
|
copy ("$n","$target_dir/src_sim");
|
|
}elsif(-f "$f" ){
|
|
copy ("$f","$target_dir/src_sim");
|
|
}
|
}
|
}
|
show_info(\$info,$warnings) if(defined $warnings);
|
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}){
|
|
my ($name,$path,$suffix) = fileparse("$f",qr"\..[^.]*$");
|
|
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: $!";
|
|
|
#my @pathes=("$dir/../src_peripheral","$dir/../src_noc","$dir/../src_processor");
|
|
#foreach my $p(@pathes){
|
|
# find(
|
|
# sub {
|
|
# return unless ( -f $_ );
|
|
# $_ =~ /\.v$/ && copy( $File::Find::name, "$target_dir/src_verilog/lib/" );
|
|
# },
|
|
# $p
|
|
# );
|
|
#}
|
|
|
|
|
|
move ("$dir/lib/verilog/$soc_name.v","$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;
|
}
|
}
|
|
|
######
|
|
# generate_mpsoc_lib_file
|
|
# remove soc libs from saved mpsoc file
|
|
######
|
|
sub generate_mpsoc_lib_file {
|
sub generate_mpsoc_lib_file {
|
my ($mpsoc,$info) = @_;
|
my ($mpsoc,$info) = @_;
|
|
my $tmp = $mpsoc;
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
$mpsoc->mpsoc_remove_all_soc_tops();
|
|
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],['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 {
|
|
my ($name,$info)= @_;
|
|
|
################
|
|
# generate_mpsoc
|
|
#################
|
|
|
|
sub generate_mpsoc{
|
|
my ($mpsoc,$info,$show_sucess_msg)=@_;
|
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
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 0;
|
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 0;
|
return 0;
|
}
|
}
|
|
|
|
|
|
################
|
|
# generate_mpsoc
|
|
#################
|
|
|
|
sub generate_mpsoc{
|
|
my ($mpsoc,$info,$show_sucess_msg)=@_;
|
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
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";
|
Line 1254... |
Line 1355... |
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
|
|
my $project_dir = abs_path("$dir/../../");
|
|
my $sc_soc =get_source_set_top($mpsoc,'mpsoc');
|
|
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");
|
|
#file_ref-sim_ref
|
|
my @n= get_diff_array($file_ref,$sim_ref);
|
|
$file_ref=\@n;
|
|
|
|
copy_file_and_folders($file_ref,$project_dir,"$hw_dir/lib");
|
|
show_colored_info($info,$warnings,'green') if(defined $warnings);
|
|
add_to_project_file_list($file_ref,"$hw_dir/lib/",$hw_dir);
|
|
|
|
copy_file_and_folders($sim_ref,$project_dir,"$hw_dir/../src_sim");
|
|
show_colored_info($info,$warnings2,'green') if(defined $warnings2);
|
|
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/../src_noc/*.v" );
|
#my @files = glob( "$dir/../rtl/src_noc/*.v" );
|
copy_file_and_folders(\@files,$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)=mpsoc_generate_verilog($mpsoc,$sw_dir);
|
my ($file_v,$top_v, $noc_param_v)=mpsoc_generate_verilog($mpsoc,$sw_dir,$info);
|
|
|
|
#if Topology is custom copy custom topology files
|
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
|
if ($topology eq '"CUSTOM"'){
|
|
my $Tname=$mpsoc->object_get_attribute('noc_param','CUSTOM_TOPOLOGY_NAME');
|
|
$Tname=~s/["]//gs;
|
|
my $dir1= get_project_dir()."/mpsoc/rtl/src_topolgy/$Tname";
|
|
my $dir2= get_project_dir()."/mpsoc/rtl/src_topolgy/common";
|
|
my @files = File::Find::Rule->file()
|
|
->name( '*.v','*.V')
|
|
->in( "$dir1" );
|
|
copy_file_and_folders (\@files,$project_dir,"$hw_dir/lib/");
|
|
|
|
@files = File::Find::Rule->file()
|
|
->name( '*.v','*.V')
|
|
->in( "$dir2" );
|
|
|
# Write object file
|
copy_file_and_folders (\@files,$project_dir,"$hw_dir/lib/");
|
generate_mpsoc_lib_file($mpsoc,$info);
|
}
|
|
|
# Write verilog file
|
|
open(FILE, ">lib/verilog/$name.v") || die "Can not open: $!";
|
|
print FILE $file_v;
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
my $l=autogen_warning().get_license_header("${name}_top.v");
|
# Write object file
|
open(FILE, ">lib/verilog/${name}_top.v") || die "Can not open: $!";
|
generate_mpsoc_lib_file($mpsoc,$info);
|
print FILE "$l\n$top_v";
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
|
# Write verilog file
|
|
open(FILE, ">$target_dir/src_verilog/$name.sv") || die "Can not open: $!";
|
|
print FILE $file_v;
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
#gen_socs($mpsoc,$info);
|
my $l=autogen_warning().get_license_header("${name}_top.v");
|
move ("$dir/lib/verilog/$name.v","$target_dir/src_verilog/");
|
open(FILE, ">$target_dir/src_verilog/${name}_top.v") || die "Can not open: $!";
|
move ("$dir/lib/verilog/${name}_top.v","$target_dir/src_verilog/");
|
print FILE "$l\n$top_v";
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
gen_noc_localparam_v_file($mpsoc,"$target_dir/src_verilog/lib/src_noc");
|
|
|
#generate makefile
|
|
open(FILE, ">$sw_dir/Makefile") || die "Can not open: $!";
|
|
print FILE mpsoc_sw_make();
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
#generate prog_mem
|
|
open(FILE, ">$sw_dir/program.sh") || die "Can not open: $!";
|
|
print FILE mpsoc_mem_prog();
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
my @ff= ("$target_dir/src_verilog/$name.v","$target_dir/src_verilog/${name}_top.v");
|
|
add_to_project_file_list(\@ff,"$hw_dir/lib/",$hw_dir);
|
|
|
|
|
|
#write perl_object_file
|
|
mkpath("$target_dir/perl_lib/",1,01777);
|
|
open(FILE, ">$target_dir/perl_lib/$name.SOC") || die "Can not open: $!";
|
|
print FILE perl_file_header("$name.MPSOC");
|
|
print FILE Data::Dumper->Dump([\%$mpsoc],['mpsoc']);
|
|
|
|
|
# $l=autogen_warning().get_license_header("${name}_mp.v");
|
|
# open(FILE, ">$target_dir/src_verilog/${name}_mp.v") || die "Can not open: $!";
|
|
# print FILE "$l\n$mp_v";
|
|
# close(FILE) || die "Error closing file: $!";
|
|
|
|
|
|
#generate makefile
|
|
open(FILE, ">$sw_dir/Makefile") || die "Can not open: $!";
|
|
print FILE mpsoc_sw_make();
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
my $m_chain = $mpsoc->object_get_attribute('JTAG','M_CHAIN');
|
|
|
|
#generate prog_mem
|
|
open(FILE, ">$sw_dir/program.sh") || die "Can not open: $!";
|
|
print FILE mpsoc_mem_prog($m_chain);
|
|
close(FILE) || die "Error closing file: $!";
|
|
|
|
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);
|
|
|
message_dialog("MPSoC \"$name\" has been created successfully at $target_dir/ " ) if($show_sucess_msg);
|
#write perl_object_file
|
|
mkpath("$target_dir/perl_lib/",1,01777);
|
|
open(FILE, ">$target_dir/perl_lib/$name.MPSOC") || die "Can not open: $!";
|
|
print FILE perl_file_header("$name.MPSOC");
|
|
print FILE Data::Dumper->Dump([\%$mpsoc],['mpsoc']);
|
|
|
|
#regenerate linker var file
|
|
create_linker_var_file($mpsoc);
|
|
|
|
|
|
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="SUBDIRS := \$(wildcard */.)
|
my $make="TOPTARGETS := all clean
|
all: \$(SUBDIRS)
|
SUBDIRS := \$(wildcard */.)
|
|
\$(TOPTARGETS): \$(SUBDIRS)
|
\$(SUBDIRS):
|
\$(SUBDIRS):
|
\t\$(MAKE) -C \$@
|
\t\$(MAKE) -C \$@ \$(MAKECMDGOALS)
|
|
|
.PHONY: all \$(SUBDIRS)
|
.PHONY: \$(TOPTARGETS) \$(SUBDIRS)
|
|
|
clean:
|
|
\t\$(MAKE) -C \$(CODE_DIR) clean
|
|
";
|
";
|
return $make;
|
return $make;
|
|
|
}
|
}
|
|
|
|
|
sub mpsoc_mem_prog {
|
sub mpsoc_mem_prog {
|
my $string='#!/bin/bash
|
my $chain=shift;
|
|
|
|
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 -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 :
|
Line 1368... |
Line 1509... |
# 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 -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)");
|
Line 1407... |
Line 1546... |
$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);
|
Line 1441... |
Line 1571... |
}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{
|
my $window = def_popwin_size(40,40,"Parameter setting for Tile $tile ",'percent');
|
get_tile_setting ($mpsoc,$tile);
|
my $table = def_table(6, 2, TRUE);
|
});
|
|
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
|
$scrolled_win->add_with_viewport($table);
|
|
my $row=0;
|
|
my ($soc_name,$g,$t)=$mpsoc->mpsoc_get_tile_soc_name($tile);
|
|
|
|
|
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
#$button->show_all;
|
my @list=(' ',@socs);
|
return $button;
|
my $pos=(defined $soc_name)? get_scolar_pos($soc_name,@list): 0;
|
}
|
my $combo=gen_combo(\@list, $pos);
|
|
my $lable=gen_label_in_left(" Processing tile name:");
|
|
$table->attach_defaults($lable,0,3,$row,$row+1);
|
|
$table->attach_defaults($combo,3,7,$row,$row+1);$row++;
|
|
my $separator1 = Gtk2::HSeparator->new;
|
|
$table->attach_defaults($separator1,0,7,$row,$row+1);$row++;
|
|
|
|
|
sub define_empty_param_setting {
|
|
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{
|
|
set_gui_status($mpsoc,"refresh_soc",1);
|
|
$window->destroy;
|
|
|
|
});
|
|
my $param_table = def_table(1, 1, TRUE);
|
|
$param_table->attach_defaults($okbox,0,1,3,4);
|
|
return $param_table;
|
|
|
|
|
my $param_setting=$mpsoc->mpsoc_get_tile_param_setting($tile);
|
}
|
@list=('Default','Custom');
|
|
$pos=(defined $param_setting)? get_scolar_pos($param_setting,@list): 0;
|
|
my $nn=(defined $soc_name)? $soc_name : 'soc';
|
|
my ($box2,$combo2)=gen_combo_help("Defualt: the tail will get defualt parameter setting of $nn.\n Custom: it will allow custom parameter setting for this tile only." , \@list, $pos);
|
|
my $lable2=gen_label_in_left(" Parameter Setting:");
|
|
$table->attach_defaults($lable2,0,3,$row,$row+1);
|
|
$table->attach_defaults($box2,3,7,$row,$row+1);$row++;
|
|
$combo2->signal_connect('changed'=>sub{
|
|
my $in=$combo2->get_active_text();
|
|
$mpsoc->mpsoc_set_tile_param_setting($tile,$in);
|
|
|
|
|
|
});
|
sub get_tile_setting {
|
|
my($mpsoc,$tile)=@_;
|
|
my $window = def_popwin_size(50,40,"Parameter setting for Tile $tile ",'percent');
|
|
my $table = def_table(6, 2, FALSE);
|
|
|
|
my $scrolled_win = add_widget_to_scrolled_win($table);
|
|
my $row=0;
|
|
my ($soc_name,$g,$t)=$mpsoc->mpsoc_get_tile_soc_name($tile);
|
|
|
|
my @socs=$mpsoc->mpsoc_get_soc_list();
|
|
my @list=(' ',@socs);
|
|
my $pos=(defined $soc_name)? get_scolar_pos($soc_name,@list): 0;
|
|
my $combo=gen_combo(\@list, $pos);
|
|
my $label=gen_label_in_left(" Processing tile name:");
|
|
$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++;
|
|
add_Hsep_to_table($table,0,3,$row);$row++;
|
|
$soc_name = ' ' if (!defined $soc_name);
|
|
my $param_table = ($soc_name eq ' ')? define_empty_param_setting($mpsoc,$window) :
|
|
get_soc_parameter_setting_table($mpsoc,$soc_name,$window,[$tile]);
|
|
|
|
$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= define_empty_param_setting($mpsoc,$window);
|
|
$table->attach_defaults($param_table,0,3,2,3);
|
|
$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 = get_soc_parameter_setting_table($mpsoc,$new_soc,$window,[$tile]);
|
|
$table->attach_defaults($param_table,0,3,2,3);
|
|
$window->show_all;
|
|
}
|
|
});
|
|
$window->add($scrolled_win);
|
|
$window->show_all;
|
}
|
}
|
|
|
|
|
|
##########
|
|
# gen_tiles
|
|
#########
|
|
sub gen_tiles{
|
|
my ($mpsoc)=@_;
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
|
my $table;
|
|
my $dim_y = floor(sqrt($NE));
|
|
$table=def_table($NE%8,$NE/8,FALSE);# my ($row,$col,$homogeneous)=@_;
|
|
for (my $i=0; $i<$NE;$i++){
|
|
my $tile=get_tile($mpsoc,$i);
|
|
my $y= int($i/$dim_y);
|
|
my $x= $i % $dim_y;
|
|
$table->attach_defaults ($tile, $x, $x+1 , $y, $y+1);
|
|
}
|
|
|
});
|
my $scrolled_win = gen_scr_win_with_adjst($mpsoc,'gen_tiles_adj');
|
|
add_widget_to_scrolled_win($table,$scrolled_win);
|
|
return $scrolled_win;
|
|
}
|
|
|
|
|
|
sub get_elf_file_addr_range {
|
|
my ($file,$tview)=@_;
|
|
#my $command= "size -A $file";
|
|
my $command= "nm $file";
|
|
#add_info($tview,"$command\n");
|
|
my ($stdout,$exit,$stderr)=run_cmd_in_back_ground_get_stdout($command);
|
|
if(length $stderr>1){
|
|
add_colored_info($tview,"$stderr\n",'red');
|
|
add_colored_info($tview,"$command was not run successfully!\n",'red');
|
|
return ("Err","Err");
|
|
}
|
|
if($exit){
|
|
add_colored_info($tview,"$stdout\n",'red');
|
|
add_colored_info($tview,"$command was not run successfully!\n",'red');
|
|
return ("Err","Err");
|
|
}
|
|
|
|
my @lines = split ("\n" ,$stdout);
|
|
my $max_addr=0;
|
|
my $sec_name;
|
|
|
my $mtable = def_table(10, 1, TRUE);
|
foreach my $p (@lines ){
|
|
$p =~ s/\s+/ /g; # remove extra spaces
|
|
$p =~ s/^\s+//; #ltrim
|
|
my ($addr,$type,$name)= sscanf("%x %s %s","$p");
|
|
if(defined $addr && defined $name){
|
|
if($max_addr < $addr) {
|
|
$max_addr = $addr;
|
|
$sec_name = $name;
|
|
}
|
|
}
|
|
}
|
|
return ($max_addr,$sec_name);
|
|
}
|
|
|
$mtable->attach_defaults($scrolled_win,0,1,0,9);
|
|
$mtable->attach_defaults($okbox,0,1,9,10);
|
|
|
|
$window->add ($mtable);
|
sub show_reqired_brams{
|
$window->show_all();
|
my ($self,$tview)=@_;
|
|
my $win=def_popwin_size (50,50,"BRAM info", 'percent');
|
|
my $sc_win = gen_scr_win_with_adjst($self,'liststore');
|
|
my $table= def_table(10,10,FALSE);
|
|
add_widget_to_scrolled_win($table,$sc_win);
|
|
my $row=0;
|
|
my $col=0;
|
|
|
$ok-> signal_connect("clicked" => sub{
|
my @clmns =('Tile#', 'Section located in Upper Bound Address (UBA) ','UBA in Bytes','UBA in Words','Minimum Memory Address Width');
|
$window->destroy;
|
my $target_dir;
|
set_gui_status($mpsoc,"refresh_soc",1);
|
my @data;
|
my $soc_name=$combo->get_active_text();
|
|
my $setting=$combo2->get_active_text();
|
|
if ($soc_name ne ' ' && $setting ne 'Default'){
|
|
get_soc_parameter_setting ($mpsoc,$soc_name,$tile);
|
|
|
|
}
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
#save new values
|
if(defined $mpsoc_name){#it is an soc
|
#$top->top_add_default_soc_param(\%param_value);
|
|
#set_gui_status($mpsoc,"refresh_soc",1);
|
|
#$$refresh_soc->clicked;
|
|
|
|
});
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
|
|
});
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
|
|
#$button->show_all;
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
return $button;
|
my $ram_file = "$target_dir/sw/tile$tile_num/image";
|
|
my ($size,$sec) = get_elf_file_addr_range($ram_file,$tview);
|
|
my %clmn;
|
|
$clmn{0}="tile$tile_num";
|
|
$clmn{1}= "$sec";
|
|
$clmn{2}="$size";
|
|
my $w=$size/4;
|
|
$clmn{3}="$w";
|
|
$clmn{4}=ceil(log($w)/log(2));
|
|
push(@data,\%clmn);
|
|
|
|
}#$tile_num
|
}
|
}
|
|
else
|
|
{
|
|
my $soc_name=$self->object_get_attribute('soc_name');
|
|
$target_dir = "$ENV{'PRONOC_WORK'}/SOC/$soc_name";
|
|
my $ram_file = "$target_dir/sw/image";
|
|
my ($size,$sec) = get_elf_file_addr_range($ram_file,$tview);
|
|
my %clmn;
|
|
$clmn{0}="$soc_name";
|
|
$clmn{1}= "$sec";
|
|
$clmn{2}="$size";
|
|
my $w=$size/4;
|
|
$clmn{3}="$w";
|
|
$clmn{4}=ceil(log($w)/log(2));
|
|
push(@data,\%clmn);
|
|
}
|
|
|
|
my @clmn_type = (#'Glib::Boolean', # => G_TYPE_BOOLEAN
|
|
#'Glib::Uint', # => G_TYPE_UINT
|
|
'Glib::String', # => G_TYPE_STRING
|
|
'Glib::String',
|
|
'Glib::String',
|
|
'Glib::String',
|
|
'Glib::String'); # you get the idea
|
|
|
|
my $list= gen_list_store (\@data,\@clmn_type,\@clmns);
|
|
$table-> attach ($list, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
|
|
$win->add($sc_win);
|
|
$win->show_all();
|
|
}
|
|
|
|
sub check_conflict {
|
|
my ($self,$tile_num,$label)=@_;
|
|
|
|
my $r1 =$self->object_get_attribute("ROM$tile_num",'end');
|
|
my $r2 =$self->object_get_attribute("RAM$tile_num",'start');
|
|
|
|
if(defined $r1 && defined $r2){
|
|
if(hex($r1)> hex($r2)){
|
|
$label->set_markup("<span foreground= 'red' ><b>RAM-ROM range Conflict</b></span>");
|
|
|
|
}else {
|
|
$label->set_label(" ");
|
|
|
|
}
|
|
}else {
|
|
$label->set_label(" ");
|
|
|
|
}
|
|
}
|
|
|
|
|
|
sub update_ram_rom_size {
|
|
my ($self,$tile_num,$name,$label,$start,$end,$conflict)=@_;
|
|
my $s = $start->get_value();
|
|
my $e = $end->get_value();
|
|
|
##########
|
$self->object_add_attribute($name.$tile_num,'start',$start->get_value());
|
# gen_tiles
|
$self->object_add_attribute($name.$tile_num,'end',$end->get_value());
|
#########
|
if($e <= $s){
|
|
#$label->set_label("Invalid range" );
|
|
$label->set_markup("<span foreground= 'red' ><b>Invalid range</b></span>");
|
|
|
sub gen_tiles{
|
}else {
|
my ($mpsoc)=@_;
|
$label->set_label( metric_conversion($e - $s) . "B");
|
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($mpsoc);
|
}
|
my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
|
|
my $table;
|
|
|
|
my $dim_y = floor(sqrt($NE));
|
check_conflict($self,$tile_num,$conflict);
|
|
|
|
|
|
|
$table=def_table($NE%8,$NE/8,FALSE);# my ($row,$col,$homogeneous)=@_;
|
|
for (my $i=0; $i<$NE;$i++){
|
|
my $tile=get_tile($mpsoc,$i);
|
|
my $y= int($i/$dim_y);
|
|
my $x= $i % $dim_y;
|
|
$table->attach_defaults ($tile, $x, $x+1 , $y, $y+1);
|
|
}
|
}
|
|
|
return $table;
|
sub get_tile_peripheral_patameter {
|
|
my ($mpsoc,$tile_num,$peripheral,$param_name)=@_;
|
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
|
if(defined $soc_name) {
|
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
|
my @insts=$top->top_get_all_instances();
|
|
foreach my $id (@insts){
|
|
if ($id =~/$peripheral[0-9]/){
|
|
my $name=$top->top_get_def_of_instance($id,'instance');
|
|
|
|
my %params;
|
|
my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile_num);
|
|
#if ($setting eq 'Custom'){
|
|
%params= $top->top_get_custom_soc_param($tile_num);
|
|
#}else{
|
|
# %params=$top->top_get_default_soc_param();
|
|
#}
|
|
return $params{"${name}_$param_name"};
|
|
}
|
}
|
}
|
|
}
|
|
return undef;
|
|
|
|
}
|
|
|
|
sub get_soc_peripheral_parameter {
|
|
my ($soc,$peripheral,$param_nam)=@_;
|
|
my @instances=$soc->soc_get_all_instances();
|
|
foreach my $id (@instances){
|
|
if ($id =~/$peripheral[0-9]/){
|
|
return $soc->soc_get_module_param_value ($id,$param_nam) if (defined $param_nam);
|
|
}
|
|
}
|
|
return undef;
|
|
}
|
|
|
|
|
|
sub linker_initial_setting {
|
|
my ($self,$tview)=@_;
|
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
|
my $tnum;
|
|
my $target_dir;
|
|
if(defined $mpsoc_name){#it is an mpsoc
|
|
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
|
|
sub software_edit_mpsoc {
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
my $self=shift;
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
my $name=$self->object_get_attribute('mpsoc_name');
|
|
if (length($name)==0){
|
|
message_dialog("Please define the MPSoC name!");
|
|
return ;
|
|
}
|
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
|
my $sw = "$target_dir/sw";
|
|
my ($app,$table,$tview) = software_main($sw);
|
|
|
|
|
my $v=get_tile_peripheral_patameter($self,$tile_num,"_ram","Aw");
|
|
$v = 13 if (!defined $v);
|
|
$self->object_add_attribute('MEM'.$tile_num,'width',$v);
|
|
$self->object_add_attribute('MEM'.$tile_num,'percent',75);
|
|
|
|
my $s =(1 << ($v+2)) ;
|
|
my $p = 75;
|
|
|
|
my $rom_start = 0;
|
|
my $rom_end= int ( ($s*$p)/100);
|
|
my $ram_start= int (($s*$p)/100);
|
|
my $ram_end= $s;
|
|
|
my $make = def_image_button('icons/gen.png','Compile');
|
$self->object_add_attribute('ROM'.$tile_num,'start',$rom_start);
|
my $prog= def_image_button('icons/write.png','Program the memories');
|
$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,'end',$ram_end);
|
|
|
|
|
$table->attach ($make,5, 6, 1,2,'shrink','shrink',0,0);
|
}
|
|
|
|
|
|
}
|
|
else
|
|
{
|
|
my $v=get_soc_peripheral_parameter ($self,"_ram","Aw");
|
|
$v = 13 if (!defined $v);
|
|
$self->object_add_attribute('MEM0','width',$v);
|
|
$self->object_add_attribute('MEM0','percent',75);
|
|
my $s =(1 << ($v+2)) ;
|
|
my $p = 75;
|
|
|
|
my $rom_start = 0;
|
|
my $rom_end= int ( ($s*$p)/100);
|
|
my $ram_start= int (($s*$p)/100);
|
|
my $ram_end= $s;
|
|
|
|
$self->object_add_attribute('ROM0','start',$rom_start);
|
|
$self->object_add_attribute('ROM0','end',$rom_end);
|
|
$self->object_add_attribute('RAM0','start',$ram_start);
|
|
$self->object_add_attribute('RAM0','end',$ram_end);
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
sub linker_setting{
|
|
my ($self,$tview)=@_;
|
|
my $win=def_popwin_size (80,50,"BRAM info", 'percent');
|
|
my $sc_win = gen_scr_win_with_adjst($self,'liststore');
|
|
my $table= def_table(10,10,FALSE);
|
|
|
|
|
|
my $row=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("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 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++;
|
|
$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("(%)"), $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("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("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("Size"), $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
|
|
$col=0;$row++;
|
|
|
|
my $target_dir;
|
|
my @data;
|
|
|
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
|
my $tnum;
|
|
if(defined $mpsoc_name){#it is an mpsoc
|
|
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
|
$tnum=$NE;
|
|
$target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
|
}
|
|
else
|
|
{
|
|
my $soc_name=$self->object_get_attribute('soc_name');
|
|
$target_dir = "$ENV{'PRONOC_WORK'}/SOC/$soc_name";
|
|
$tnum=1;
|
|
}
|
|
for (my $j=0;$j<$tnum;$j++){
|
|
my $tile_num=$j;
|
|
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++;
|
|
my $ram_width = gen_spin(2,64,1);
|
|
my $width = $self->object_get_attribute('MEM'.$tile_num,'width');
|
|
if(!defined $width){
|
|
linker_initial_setting ($self,$tview);
|
|
$width = $self->object_get_attribute('MEM'.$tile_num,'width');
|
|
}
|
|
$ram_width->set_value($width);
|
|
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++;
|
|
|
|
|
|
|
|
|
|
my $percent = gen_spin_float(6.25,93.75,6.25,2);
|
|
my $p=$self->object_get_attribute('MEM'.$tile_num,'percent');
|
|
$percent->set_value($p);
|
|
|
|
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++;
|
|
|
|
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 $ram_start_v = $self->object_get_attribute('RAM'.$tile_num,'start');
|
|
my $ram_end_v = $self->object_get_attribute('RAM'.$tile_num,'end');
|
|
|
|
|
|
|
|
my $rom_start = HexSpin->new ( $rom_start_v, 0, 0xffffffff ,4);
|
|
$rom_start->set_digits(8);
|
|
$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);
|
|
$rom_end->set_digits(8);
|
|
$table-> attach ($rom_end, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
my $rom_size =gen_label_in_center(" ") ;
|
|
$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);
|
|
$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);});
|
|
|
|
my $ram_start = HexSpin->new ( $ram_start_v, 0, 0xffffffff ,4);
|
|
$ram_start->set_digits(8);
|
|
$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);
|
|
$ram_end->set_digits(8);
|
|
$table-> attach ($ram_end, $col, $col+1, $row, $row+1,'shrink','shrink',2,2); $col++;
|
|
|
|
my $ram_size =gen_label_in_center(" ") ;
|
|
$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);
|
|
|
|
$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_width->signal_connect("value_changed" => sub{
|
|
my $w=$ram_width->get_value();
|
|
$self->object_add_attribute('MEM'.$tile_num,'width',$w);
|
|
$size->set_label (metric_conversion(1 << ($w+2)). "B") ;
|
|
$size->show_all;
|
|
$enter->clicked;
|
|
});
|
|
$percent->signal_connect("value_changed" => sub{
|
|
$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++;
|
|
|
|
|
|
|
|
|
|
$enter-> signal_connect ( 'clicked' , sub {
|
|
my $w=$ram_width->get_value();
|
|
my $s =(1 << ($w+2));
|
|
my $p = $percent->get_value();
|
|
|
|
my $rom_start_v = 0;
|
|
my $rom_end_v= int ( ($s*$p)/100);
|
|
my $ram_start_v= int (($s*$p)/100);
|
|
my $ram_end_v= $s;
|
|
|
|
$rom_start->set_value($rom_start_v);
|
|
$rom_end->set_value($rom_end_v);
|
|
$ram_start->set_value($ram_start_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,'RAM',$ram_size,$ram_start,$ram_end,$conflict);
|
|
|
|
});
|
|
|
|
$col=0; $row++;
|
|
|
|
}#$tile_num
|
|
|
|
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 {
|
|
for (my $t=0;$t<$tnum;$t++){
|
|
my $r0 =$self->object_get_attribute("ROM$t",'start');
|
|
my $r1 =$self->object_get_attribute("ROM$t",'end');
|
|
my $r2 =$self->object_get_attribute("RAM$t",'start');
|
|
my $r3 =$self->object_get_attribute("RAM$t",'end');
|
|
if(hex($r1) <hex($r0) || hex($r3) <hex($r2) ){
|
|
message_dialog("Please fix tile $t invalid range !");
|
|
return ;
|
|
|
|
}
|
|
|
|
if(hex($r1) > hex($r2) ){
|
|
message_dialog("Please fix tile $t conflict range !");
|
|
return ;
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
create_linker_var_file($self);
|
|
$win->destroy();
|
|
|
|
|
|
});
|
|
|
|
|
|
add_widget_to_scrolled_win($main_table,$sc_win);
|
|
$win->add($sc_win);
|
|
$win->show_all();
|
|
|
|
}
|
|
|
|
|
|
sub create_linker_var_file{
|
|
my ($self)=@_;
|
|
my $mpsoc_name=$self->object_get_attribute('mpsoc_name');
|
|
my $tnum;
|
|
|
|
my $width = $self->object_get_attribute('MEM0','width');
|
|
if(!defined $width){
|
|
linker_initial_setting ($self);
|
|
}
|
|
|
|
if(defined $mpsoc_name){#it is an mpsoc
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)=get_topology_info($self);
|
|
$tnum=$NE;
|
|
}
|
|
else
|
|
{
|
|
|
|
$tnum=1;
|
|
}
|
|
|
|
for (my $t=0;$t<$tnum;$t++){
|
|
my $r0 =$self->object_get_attribute("ROM$t",'start');
|
|
my $r1 =$self->object_get_attribute("ROM$t",'end');
|
|
my $r2 =$self->object_get_attribute("RAM$t",'start');
|
|
my $r3 =$self->object_get_attribute("RAM$t",'end');
|
|
|
|
my $file=sprintf("
|
|
|
|
MEMORY
|
|
{
|
|
rom (rx) : ORIGIN = 0x%x , LENGTH = 0x%x /* %s B- Rom 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));
|
|
|
|
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/");
|
|
}else{
|
|
my $soc_name=$self->object_get_attribute('soc_name');
|
|
my $p1="$ENV{'PRONOC_WORK'}/SOC/$soc_name/sw/";
|
|
mkpath("$p1",1,0755) unless (-d "$p1");
|
|
save_file ("$p1/linkvar.ld",$file)
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
|
|
sub software_edit_mpsoc {
|
|
my $self=shift;
|
|
my $name=$self->object_get_attribute('mpsoc_name');
|
|
if (length($name)==0){
|
|
message_dialog("Please define the MPSoC name!");
|
|
return ;
|
|
}
|
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
|
my $sw = "$target_dir/sw";
|
|
|
|
my $orcc_page=select_orcc_generated_srcs($self);
|
|
my $orcc_lable=def_image_label('icons/orcc.png','Auto-generate Software using ORCC');
|
|
my @pages=($orcc_page);
|
|
my @pages_lables=($orcc_lable);
|
|
my ($app,$table,$tview) = software_main($sw,undef,\@pages,\@pages_lables);
|
|
|
|
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 $make = def_image_button('icons/gen.png','_Compile',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 ($linker,4, 5, 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{
|
|
show_reqired_brams($self,$tview);
|
|
});
|
|
|
|
my $load;
|
|
|
$make -> signal_connect("clicked" => sub{
|
$make -> signal_connect("clicked" => sub{
|
my $load= show_gif("icons/load.gif");
|
$load->destroy if(defined $load);
|
|
$load= show_gif("icons/load.gif");
|
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
|
$load->show_all;
|
|
$app->ask_to_save_changes();
|
|
add_info($tview,' ');
|
|
unless (run_make_file($sw,$tview,'clean')){
|
|
$load->destroy;
|
|
$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;
|
$app->do_save();
|
return;
|
append_to_textview($tview,' ');
|
};
|
run_make_file($sw,$tview);
|
unless (run_make_file($sw,$tview)){
|
|
$load->destroy;
|
|
$load=def_icon("icons/cancel.png");
|
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
|
$load->show_all;
|
|
return;
|
|
}
|
$load->destroy;
|
$load->destroy;
|
|
$load=def_icon("icons/button_ok.png");
|
|
$table->attach ($load,7, 8, 1,2,'shrink','shrink',0,0);
|
|
$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,"Programe 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 programed 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 programed 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 programed successfully!\n",'blue');
|
add_colored_info($tview,"Memory is programmed successfully!\n",'blue');
|
|
|
}
|
}
|
|
|
}
|
}
|
});
|
});
|
|
|
|
|
|
$linker -> signal_connect("clicked" => sub{
|
|
linker_setting($self,$tview);
|
|
});
|
|
|
}
|
}
|
|
|
|
|
|
|
#############
|
#############
|
Line 1652... |
Line 2270... |
#############
|
#############
|
|
|
sub load_mpsoc{
|
sub load_mpsoc{
|
my ($mpsoc,$info)=@_;
|
my ($mpsoc,$info)=@_;
|
my $file;
|
my $file;
|
my $dialog = Gtk2::FileChooserDialog->new(
|
my $dialog = gen_file_dialog (undef, 'MPSOC');
|
'Select a File', undef,
|
|
'open',
|
|
'gtk-cancel' => 'cancel',
|
|
'gtk-ok' => 'ok',
|
|
);
|
|
|
|
my $filter = Gtk2::FileFilter->new();
|
|
$filter->set_name("MPSoC");
|
|
$filter->add_pattern("*.MPSOC");
|
|
$dialog->add_filter ($filter);
|
|
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 exsiting 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 librray 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;
|
}
|
}
|
|
|
############
|
#######
|
# main
|
# CLK setting
|
############
|
#######
|
sub mpsocgen_main{
|
|
|
|
my $infc = interface->interface_new();
|
sub clk_setting_win1{
|
my $soc = ip->lib_new ();
|
my ($self,$info,$type)=@_;
|
my $mpsoc= mpsoc->mpsoc_new();
|
|
|
|
|
my $window = def_popwin_size(80,80,"CLK setting",'percent');
|
|
|
set_gui_status($mpsoc,"ideal",0);
|
my $next=def_image_button('icons/right.png','Next');
|
|
my $mtable = def_table(10, 1, FALSE);
|
|
#get the list of all tiles clk sources
|
|
|
my $main_table = Gtk2::Table->new (25, 12, FALSE);
|
my @sources=('clk','reset');
|
|
|
# The box which holds the info, warning, error ... mesages
|
my $table = def_table(10, 7, FALSE);
|
my ($infobox,$info)= create_text();
|
my $notebook = gen_notebook();
|
|
$notebook->set_scrollable(TRUE);
|
|
#$notebook->can_focus(FALSE);
|
|
$notebook->set_tab_pos ('left');
|
|
|
my $noc_conf_box=get_config ($mpsoc,$info);
|
|
my $noc_tiles=gen_tiles($mpsoc);
|
|
|
|
my $scr_conf = new Gtk2::ScrolledWindow (undef, undef);
|
|
$scr_conf->set_policy( "automatic", "automatic" );
|
|
$scr_conf->add_with_viewport($noc_conf_box);
|
|
|
|
my $scr_tile = new Gtk2::ScrolledWindow (undef, undef);
|
|
$scr_tile->set_policy( "automatic", "automatic" );
|
|
$scr_tile->add_with_viewport($noc_tiles);
|
|
|
|
$main_table->set_row_spacings (4);
|
my($row,$column)=(0,0);
|
$main_table->set_col_spacings (1);
|
|
|
|
|
my %all = ($type eq 'mpsoc') ? get_all_tiles_clk_sources_list($self): get_soc_clk_source_list($self) ;
|
|
foreach my $s (@sources){
|
|
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');
|
|
|
my $generate = def_image_button('icons/gen.png','Generate RTL');
|
my $w=get_source_assignment_win($self,$s,$all{$s},$type);
|
my $open = def_image_button('icons/browse.png','Load MPSoC');
|
my $box=def_hbox(FALSE,0);
|
my $compile = def_image_button('icons/gate.png','Compile RTL');
|
$box->pack_start($w, TRUE, TRUE, 0);
|
my $software = def_image_button('icons/binary.png','Software');
|
$notebook->append_page ($box,gen_label_in_center ($s));
|
my $entry=gen_entry_object($mpsoc,'mpsoc_name',undef,undef,undef,undef);
|
$spin->signal_connect("value_changed" => sub{
|
my $entrybox=labele_widget_info(" MPSoC name:",$entry);
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",1);
|
|
$w->destroy;
|
|
$w=get_source_assignment_win($self,$s,$all{$s},$type);
|
|
$box->pack_start($w, TRUE, TRUE, 0);
|
|
$box->show_all;
|
|
|
|
});
|
|
|
|
}
|
|
|
|
$mtable->attach_defaults($table,0,1,0,1);
|
|
$mtable->attach_defaults( $notebook,0,1,1,20);
|
|
$mtable->attach($next,0,1,20,21,'expand','fill',2,2);
|
|
$window->add ($mtable);
|
|
$window->show_all();
|
|
$next-> signal_connect("clicked" => sub{
|
|
clk_setting_win2($self,$info,$type);
|
|
$window->destroy;
|
|
|
|
});
|
|
|
|
}
|
|
|
|
|
|
sub update_wave_form {
|
|
my ($period,$rise,$fall,$r_lab,$f_lab)=@_;
|
|
my $p =$period->get_value();
|
|
my $n =$rise->get_value();
|
|
my $v= ($p * $n)/100;
|
|
$r_lab->set_text("=$v ns");
|
|
$n =$fall->get_value();
|
|
$v= ($p * $n)/100;
|
|
$f_lab->set_text("=$v ns");
|
|
}
|
|
|
|
sub get_source_assignment_win{
|
|
my ($mpsoc,$s,$ports_ref,$type)=@_;
|
|
my$row=0;
|
|
my $column=0;
|
|
my $num = $mpsoc->object_get_attribute('SOURCE_SET',"${s}_number");
|
|
my $table1 = def_table(20, 20, FALSE);
|
|
my $win1=add_widget_to_scrolled_win($table1);
|
|
my $win2;
|
|
my $v2;
|
|
|
|
#if($s eq 'clk'){
|
|
# my @labels=("clk name", 'Frequency MHz', 'Period ns', 'rise edge times ns', 'fall edge times ns');
|
|
# foreach my $l (@labels){
|
|
# $table1->attach (gen_label_in_center($l),$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column+=5;
|
|
# }
|
|
#$row++;
|
|
#$column=0;
|
|
#}
|
|
|
|
#get source signal names
|
|
my $loc = 'vertical';
|
|
for(my $n=0;$n<$num; $n++ ){
|
|
my $entry;
|
|
my $enter= def_image_button("icons/enter.png");
|
|
my $box=def_hbox(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');
|
|
$table1->attach ($box,$column,$column+1,$row,$row+1,'fill','shrink',2,2);$column++;
|
|
|
|
$enter->signal_connect ("clicked" => sub{
|
|
$mpsoc->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",1);
|
|
$win2->destroy;
|
|
$win2= get_source_assignment_win2($mpsoc,$s,$ports_ref,$type);
|
|
$v2-> pack2($win2, TRUE, TRUE);
|
|
$v2->show_all;
|
|
});
|
|
|
|
|
|
if($s eq 'clk'){
|
|
($column,$row)=get_clk_constrain_widget($mpsoc,$table1,$column,$row, $s,$n);
|
|
}
|
|
|
|
|
|
|
|
# if((($n+1) % 4)==0){
|
|
$column=0;
|
|
$row++;
|
|
#}
|
|
}
|
|
|
|
#source assigmnmet
|
|
$win2= get_source_assignment_win2($mpsoc,$s,$ports_ref,$type);
|
|
$v2=gen_vpaned($win1,.2,$win2);
|
|
return $v2;
|
|
}
|
|
|
|
|
|
sub get_clk_constrain_widget {
|
|
my ($self,$table,$column,$row, $s,$n)=@_;
|
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
|
return ($column,$row);
|
|
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');
|
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
|
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');
|
|
$table->attach (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
|
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');
|
|
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 (gen_Vsep() , $column,$column+1,$row,$row+1,'fill','fill',2,2);$column+=1;
|
|
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');
|
|
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;
|
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
|
$frequency-> signal_connect("value_changed" => sub{
|
|
my $fr =$frequency->get_value();
|
|
my $p = 1000/$fr;
|
|
$period->set_value($p);
|
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
|
});
|
|
$period-> signal_connect("value_changed" => sub{
|
|
my $p =$period->get_value();
|
|
my $fr = 1000/$p;
|
|
$frequency->set_value($fr);
|
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
|
});
|
|
$rise-> signal_connect("value_changed" => sub{
|
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
|
});
|
|
$fall-> signal_connect("value_changed" => sub{
|
|
update_wave_form($period,$rise,$fall,$r_lab,$f_lab);
|
|
});
|
|
return ($column,$row);
|
|
}
|
|
|
|
|
|
|
|
sub get_source_assignment_win2{
|
|
my ($mpsoc,$s,$ports_ref,$type)=@_;
|
|
my $num = $mpsoc->object_get_attribute('SOURCE_SET',"${s}_number");
|
|
my $table2 = def_table(10, 7, FALSE);
|
|
my $win2=add_widget_to_scrolled_win($table2);
|
|
my %ports = %{$ports_ref} if(defined $ports_ref);
|
|
|
|
my $contents;
|
|
for(my $n=0;$n<$num; $n++ ){
|
|
my $m=$mpsoc->object_get_attribute('SOURCE_SET',"${s}_${n}_name");
|
|
$contents=(defined $contents)? "$contents,$m":$m;
|
|
}
|
|
my $default=$mpsoc->object_get_attribute('SOURCE_SET',"${s}_0_name");
|
|
my $n=0;
|
|
my($row,$column)=(0,0);
|
|
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');
|
|
($row,$column)=(1,0);
|
|
}
|
|
|
|
foreach my $p (sort keys %ports){
|
|
my @array=@{$ports{$p}};
|
|
foreach my $q (@array){
|
|
my $param="${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');
|
|
if((($n+1) % 4)==0){$column=0;$row++;}$n++;
|
|
}
|
|
}
|
|
return $win2;
|
|
|
|
}
|
|
|
|
|
|
sub get_all_tiles_clk_sources_list{
|
|
my $mpsoc=shift;
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)= get_topology_info ($mpsoc);
|
|
my %all_sources;
|
|
for (my $tile_num=0;$tile_num<$NE;$tile_num++){
|
|
my ($soc_name,$n,$soc_num)=$mpsoc->mpsoc_get_tile_soc_name($tile_num);
|
|
next if(!defined $soc_name);
|
|
my $top=$mpsoc->mpsoc_get_soc($soc_name);
|
|
my @intfcs=$top->top_get_intfc_list();
|
|
|
|
my @sources=('clk','reset');
|
|
|
|
foreach my $intfc (@intfcs){
|
|
my($type,$name,$num)= split("[:\[ \\]]", $intfc);
|
|
foreach my $s (@sources){
|
|
if ($intfc =~ /plug:$s/){
|
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
|
$all_sources{$s}{"T$tile_num"}=\@ports;
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
return %all_sources;
|
|
}
|
|
|
|
|
|
|
|
sub clk_setting_win2{
|
|
my ($self,$info,$type)=@_;
|
|
|
|
my $window = def_popwin_size(70,70,"CLK setting",'percent');
|
|
my $table = def_table(10, 7, FALSE);
|
|
my $scrolled_win=add_widget_to_scrolled_win($table);
|
|
my $ok = def_image_button('icons/select.png','OK');
|
|
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 ();
|
|
#print "get_top_ip(\$self,$type);\n";
|
|
my $mpsoc_ip=get_top_ip($self,$type);
|
|
|
my $h1=gen_hpaned($scr_conf,.3,$scr_tile);
|
$ip->add_ip($mpsoc_ip);
|
my $v2=gen_vpaned($h1,.55,$infobox);
|
my $soc =get_source_set_top($self,$type);
|
|
my $infc = interface->interface_new();
|
|
|
$main_table->attach_defaults ($v2 , 0, 12, 0,24);
|
|
$main_table->attach ($open,0, 3, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach_defaults ($entrybox,3, 6, 24,25);
|
|
$main_table->attach ($diagram, 6, 7, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($generate, 8, 9, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($software, 9, 10, 24,25,'expand','shrink',2,2);
|
|
$main_table->attach ($compile, 10, 12, 24,25,'expand','shrink',2,2);
|
|
|
|
|
set_gui_status($soc,"ideal",0);
|
|
# A tree view for holding a library
|
|
my %tree_text;
|
|
my @categories= ('Source');
|
|
foreach my $p (@categories)
|
|
{
|
|
my @modules= $ip->get_modules($p);
|
|
$tree_text{$p}=\@modules;
|
|
}
|
|
|
|
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 $h1=gen_hpaned($tree_box,.15,$device_win);
|
|
$table->attach_defaults ($h1,0, 10, 0, 10);
|
|
|
|
my $event =Event->timer (after => 1, interval => 1, cb => sub {
|
|
|
#check soc status every 0.5 second. referesh device table if there is any changes
|
my ($state,$timeout)= get_gui_status($soc);
|
Glib::Timeout->add (100, sub{
|
|
my ($state,$timeout)= get_gui_status($mpsoc);
|
|
|
|
|
|
if ($timeout>0){
|
if ($timeout>0){
|
$timeout--;
|
$timeout--;
|
set_gui_status($mpsoc,$state,$timeout);
|
set_gui_status($soc,$state,$timeout);
|
}elsif ($state eq 'save_project'){
|
|
# Write object file
|
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
open(FILE, ">lib/mpsoc/$name.MPSOC") || die "Can not open: $!";
|
|
print FILE perl_file_header("$name.MPSOC");
|
|
print FILE Data::Dumper->Dump([\%$mpsoc],[$name]);
|
|
close(FILE) || die "Error closing file: $!";
|
|
set_gui_status($mpsoc,"ideal",0);
|
|
}
|
}
|
elsif( $state ne "ideal" ){
|
elsif( $state ne "ideal" ){
|
$noc_conf_box->destroy();
|
|
$noc_conf_box=get_config ($mpsoc,$info);
|
#check if top is removed add it
|
$scr_conf->add_with_viewport($noc_conf_box);
|
my @instances=$soc->soc_get_all_instances();
|
$noc_tiles->destroy();
|
my $redefine =1;
|
$noc_tiles=gen_tiles($mpsoc);
|
foreach my $inst (@instances){
|
$scr_tile->add_with_viewport($noc_tiles);
|
$redefine = 0 if ($inst eq 'TOP');
|
$h1 -> pack1($scr_conf, TRUE, TRUE);
|
}
|
$h1 -> pack2($scr_tile, TRUE, TRUE);
|
if($redefine == 1){
|
$v2-> pack1($h1, TRUE, TRUE);
|
my $ip = ip->lib_new ();
|
|
#print "get_top_ip(\$self,$type);\n";
|
|
my $mpsoc_ip=get_top_ip($self,$type);
|
|
|
|
$ip->add_ip($mpsoc_ip);
|
|
$soc ->object_add_attribute('SOURCE_SET',"IP",$mpsoc_ip);
|
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",0);
|
|
add_mpsoc_to_device($soc,$ip);
|
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
|
}
|
|
|
|
$device_win->destroy;
|
|
|
|
$device_win=show_active_dev($soc,$ip,$infc,$info);
|
|
$h1 -> pack2($device_win, TRUE, TRUE);
|
$h1->show_all;
|
$h1->show_all;
|
$main_table->show_all();
|
$table->show_all();
|
my $saved_name=$mpsoc->object_get_attribute('mpsoc_name');
|
$device_win->show_all();
|
if(defined $saved_name) {$entry->set_text($saved_name);}
|
|
set_gui_status($mpsoc,"ideal",0);
|
|
|
|
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
|
set_gui_status($soc,"ideal",0);
|
|
|
}
|
}
|
return TRUE;
|
return TRUE;
|
|
|
|
|
|
});
|
|
|
|
my $mtable = def_table(10, 5, FALSE);
|
|
$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($diagram,2,4,9,10,'expand','fill',2,2);
|
|
$mtable->attach($ok,4,5,9,10,'expand','fill',2,2);
|
|
|
|
$window->add ($mtable);
|
|
$window->show_all();
|
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
|
$back-> signal_connect("clicked" => sub{
|
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
|
clk_setting_win1($self,$info,$type);
|
|
$window->destroy;
|
|
$event->cancel;
|
|
});
|
|
|
|
$diagram-> signal_connect("clicked" => sub{
|
|
show_tile_diagram ($soc);
|
|
});
|
|
|
|
$ok-> signal_connect("clicked" => sub{
|
|
set_gui_status($self,"ref",1);
|
|
$window->destroy;
|
|
$event->cancel;
|
} );
|
} );
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
sub tmp{
|
|
|
|
}
|
|
|
|
sub add_module_to_mpsoc{
|
|
my ($soc,$category,$module,$info)=@_;
|
|
my $ip = ip->lib_new ();
|
|
|
|
my ($instance_id,$id)= get_instance_id($soc,$category,$module);
|
|
|
|
#add module instance
|
|
my $result=$soc->soc_add_instance($instance_id,$category,$module,$ip);
|
|
|
|
if($result == 0){
|
|
my $info_text= "Failed to add \"$instance_id\" to SoC. $instance_id is already exist.";
|
|
show_info($info,$info_text);
|
|
return;
|
|
}
|
|
$soc->soc_add_instance_order($instance_id);
|
|
# Add IP version
|
|
my $v=$ip->ip_get($category,$module,"version");
|
|
$v = 0 if(!defined $v);
|
|
#print "$v\n";
|
|
$soc->object_add_attribute($instance_id,"version",$v);
|
|
# Read default parameter from lib and add them to soc
|
|
my %param_default= $ip->get_param_default($category,$module);
|
|
|
|
my $rr=$soc->soc_add_instance_param($instance_id,\%param_default);
|
|
if($rr == 0){
|
|
my $info_text= "Failed to add default parameter to \"$instance_id\". $instance_id does not exist.";
|
|
show_info($info,$info_text);
|
|
return;
|
|
}
|
|
my @r=$ip->ip_get_param_order($category,$module);
|
|
$soc->soc_add_instance_param_order($instance_id,\@r);
|
|
|
|
get_module_parameter($soc,$ip,$instance_id);
|
|
undef $ip;
|
|
set_gui_status($soc,"refresh_soc",0);
|
|
}
|
|
|
|
|
|
|
|
|
|
#$mpsoc,$top_ip,$sw_dir,$soc_name,$id,$soc_num,$txview
|
|
sub get_top_ip{
|
|
my ($self,$type)=@_;
|
|
|
|
my $mpsoc_ip=ip_gen->ip_gen_new();
|
|
$mpsoc_ip->ipgen_add("module_name",'TOP');
|
|
$mpsoc_ip->ipgen_add("ip_name",'TOP');
|
|
$mpsoc_ip->ipgen_add("category",'TOP');
|
|
$mpsoc_ip->ipgen_add('GUI_REMOVE_SET','DISABLE');
|
|
if($type eq 'mpsoc'){
|
|
my @sources=('clk','reset');
|
|
foreach my $s (@sources){
|
|
my $num = $self->object_get_attribute('SOURCE_SET',"${s}_number");
|
|
$num=1 if(!defined $num);
|
|
$mpsoc_ip->ipgen_add_plug("$s",'num',$num);
|
|
for (my $n=0; $n<$num; $n++ ){
|
|
|
|
my $name=$self->object_get_attribute('SOURCE_SET',"${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");
|
|
|
|
}
|
|
}
|
|
# add_mpsoc_ip_other_interfaces($mpsoc,$mpsoc_ip);
|
|
}
|
|
else{
|
|
my %sources = get_soc_clk_source_list($self);
|
|
foreach my $s (sort keys %sources){
|
|
my @ports = @{$sources{$s}} if (defined $sources{$s});
|
|
my $num=scalar @ports;
|
|
$mpsoc_ip->ipgen_add_plug("$s",'num',$num);
|
|
my $n=0;
|
|
foreach my $p (@ports){
|
|
$mpsoc_ip->ipgen_set_plug_name($s,$n,$p);
|
|
$mpsoc_ip->ipgen_add_port($p,undef,'input',"plug:${s}\[$n\]","${s}_i");
|
|
$n++;
|
|
}
|
|
}
|
|
}
|
|
return $mpsoc_ip;
|
|
}
|
|
|
|
|
|
sub add_mpsoc_ip_other_interfaces{
|
|
my ($mpsoc,$mpsoc_ip)=@_;
|
|
my ($NE, $NR, $RAw, $EAw, $Fw)= get_topology_info ($mpsoc);
|
|
my $processors_en=0;
|
|
my %intfc_num;
|
|
my @parameters_order;
|
|
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 $top=$mpsoc->mpsoc_get_soc($soc_name);
|
|
my @nis=get_NI_instance_list($top);
|
|
my @noc_param=$top->top_get_parameter_list($nis[0]);
|
|
my $inst_name=$top->top_get_def_of_instance($nis[0],'instance');
|
|
|
|
#other parameters
|
|
my %params=$top->top_get_default_soc_param();
|
|
|
|
my @intfcs=$top->top_get_intfc_list();
|
|
|
|
my $i=0;
|
|
|
|
my $dir = Cwd::getcwd();
|
|
my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$mpsoc_name";
|
|
my $soc_file="$target_dir/src_verilog/tiles/$soc_name.sv";
|
|
|
|
my $vdb =read_verilog_file($soc_file);
|
|
|
|
my %soc_localparam = $vdb->get_modules_parameters($soc_name);
|
|
|
|
|
|
foreach my $intfc (@intfcs){
|
|
|
|
# Auto connected/not connected interface
|
|
if( $intfc eq 'socket:ni[0]' || ($intfc =~ /plug:clk\[/) || ( $intfc =~ /plug:reset\[/)|| ($intfc =~ /socket:RxD_sim\[/ ) || $intfc =~ /plug:enable\[/){
|
|
#do nothing
|
|
}
|
|
elsif( $intfc eq 'IO' ){
|
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
|
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);
|
|
$mpsoc_ip->ipgen_add_port($io_port,$new_range,$type,'IO','IO');
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else {
|
|
#other interface
|
|
my($if_type,$if_name,$if_num)= split("[:\[ \\]]", $intfc);
|
|
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;
|
|
$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_soket("$if_name",'num',$num) if ($if_type eq 'socket');
|
|
|
|
my @ports=$top->top_get_intfc_ports_list($intfc);
|
|
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);
|
|
$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);
|
|
#if ($setting eq 'Custom'){
|
|
%params= $top->top_get_custom_soc_param($tile_num);
|
|
#}else{
|
|
# %params=$top->top_get_default_soc_param();
|
|
#}
|
|
|
|
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(\%soc_localparam,"T$tile_num",$params{$p});
|
|
my $pname="T${tile_num}_$p";
|
|
$mpsoc_ip-> ipgen_add_parameter ($pname,$params{$p},'Fixed',undef,undef,'Localparam',1);
|
|
push (@parameters_order,$pname);
|
|
|
|
}
|
|
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(\%soc_localparam,"T$tile_num",$soc_localparam{$p});
|
|
my $pname="T${tile_num}_$p";
|
|
$mpsoc_ip-> ipgen_add_parameter ($pname,$soc_localparam{$p},'Fixed',undef,undef,'Localparam',0);
|
|
push (@parameters_order,$pname);
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
#TODO get parameter order
|
|
$mpsoc_ip->ipgen_add("parameters_order",\@parameters_order);
|
|
|
|
}
|
|
|
|
sub get_source_set_top{
|
|
my ($self,$type)=@_;
|
|
my $soc =$self->object_get_attribute('SOURCE_SET',"SOC");
|
|
my $redefine =$self->object_get_attribute('SOURCE_SET',"REDEFINE_TOP");
|
|
$redefine=1 if(!defined $redefine);
|
|
if(!defined $soc){
|
|
$soc = soc->soc_new();
|
|
$soc->object_add_attribute('soc_name','TOP');
|
|
$redefine=1;
|
|
}
|
|
if($redefine==1){
|
|
my $ip = ip->lib_new ();
|
|
#print "get_top_ip(\$self,$type);\n";
|
|
my $mpsoc_ip=get_top_ip($self,$type);
|
|
|
|
$ip->add_ip($mpsoc_ip);
|
|
$soc ->object_add_attribute('SOURCE_SET',"IP",$mpsoc_ip);
|
|
$self->object_add_attribute('SOURCE_SET',"REDEFINE_TOP",0);
|
|
add_mpsoc_to_device($soc,$ip);
|
|
$self->object_add_attribute('SOURCE_SET',"SOC",$soc);
|
|
}
|
|
return $soc;
|
|
}
|
|
|
|
|
|
sub add_mpsoc_to_device{
|
|
my ($soc,$ip)=@_;
|
|
my $category='TOP';
|
|
my $module='TOP';
|
|
my ($instance_id,$id) =('TOP',1);
|
|
|
|
#my ($instance_id,$id)= get_instance_id($soc,$category,$module);
|
|
|
|
remove_instance_from_soc($soc,$instance_id);
|
|
|
|
#add module instanance
|
|
my $result=$soc->soc_add_instance($instance_id,$category,$module,$ip);
|
|
|
|
if($result == 0){
|
|
my $info_text= "Failed to add \"$instance_id\" to SoC. $instance_id is already exist.";
|
|
# show_info($info,$info_text);
|
|
return;
|
|
}
|
|
$soc->soc_add_instance_order($instance_id);
|
|
# Add IP version
|
|
my $v=$ip->ip_get($category,$module,"version");
|
|
$v = 0 if(!defined $v);
|
|
#print "$v\n";
|
|
$soc->object_add_attribute($instance_id,"version",$v);
|
|
# Read default parameter from lib and add them to soc
|
|
my %param_default= $ip->get_param_default($category,$module);
|
|
|
|
my $rr=$soc->soc_add_instance_param($instance_id,\%param_default);
|
|
if($rr == 0){
|
|
my $info_text= "Failed to add default parameter to \"$instance_id\". $instance_id does not exist.";
|
|
# show_info($info,$info_text);
|
|
return;
|
|
}
|
|
my @r=$ip->ip_get_param_order($category,$module);
|
|
$soc->soc_add_instance_param_order($instance_id,\@r);
|
|
|
|
#get_module_parameter($soc,$ip,$instance_id);
|
|
undef $ip;
|
|
set_gui_status($soc,"refresh_soc",0);
|
|
}
|
|
|
|
######
|
|
# ctrl
|
|
######
|
|
|
|
sub ctrl_box{
|
|
my ($mpsoc,$info)=@_;
|
|
my $table = def_table (1, 12, FALSE);
|
|
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 $compile = def_image_button('icons/gate.png','_Compile RTL',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 $entrybox=gen_label_info(" MPSoC name:",$entry);
|
|
my $save = def_image_button('icons/save.png');
|
|
my $open_dir = def_image_button('icons/open-folder.png');
|
|
set_tip($save, "Save current MPSoC configuration setting");
|
|
set_tip($open_dir, "Open target MPSoC folder");
|
|
|
|
$entrybox->pack_start( $save, FALSE, FALSE, 0);
|
|
$entrybox->pack_start( $open_dir , FALSE, FALSE, 0);
|
|
my $diagram = def_image_button('icons/diagram.png','Diagram');
|
|
my $clk= def_image_button('icons/clk.png','CLK setting');
|
|
|
|
my $row=0;
|
|
$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 ($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 ($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 ($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{
|
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
return if (check_mpsoc_name($name,$info));
|
|
generate_mpsoc_lib_file($mpsoc,$info);
|
|
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,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);
|
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){
|
generate_mpsoc($mpsoc,$info,0);
|
my $answer = yes_no_dialog ("Do you want to Regenearte the MPSoC RTL code too?");
|
|
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');
|
|
$name="" if (!defined $name);
|
|
if (length($name)==0){
|
|
message_dialog("Please define the MPSoC name!");
|
|
return ;
|
|
}
|
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
|
my $sw_folder = "$target_dir/sw";
|
|
unless (-d $sw_folder){
|
|
message_dialog("Cannot find $sw_folder. Please run RTL Generator first!");
|
|
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);
|
});
|
});
|
my $sc_win = new Gtk2::ScrolledWindow (undef, undef);
|
|
$sc_win->set_policy( "automatic", "automatic" );
|
|
$sc_win->add_with_viewport($main_table);
|
|
|
|
return $sc_win;
|
|
|
|
|
$clk-> signal_connect("clicked" => sub{
|
|
clk_setting_win1($mpsoc,$info,'mpsoc');
|
|
});
|
|
|
|
$open_dir-> signal_connect("clicked" => sub{
|
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
$name="" if (!defined $name);
|
|
if (length($name)==0){
|
|
message_dialog("Please define the MPSoC name!");
|
|
return ;
|
}
|
}
|
|
my $target_dir = "$ENV{'PRONOC_WORK'}/MPSOC/$name";
|
|
unless (-d $target_dir){
|
|
message_dialog("Cannot find $target_dir.\n Please run RTL Generator first!",'error');
|
|
return;
|
|
}
|
|
system "xdg-open $target_dir";
|
|
|
|
});
|
|
|
|
|
|
return $table;
|
|
}
|
|
|
|
############
|
|
# main
|
|
############
|
|
sub mpsocgen_main{
|
|
my $infc = interface->interface_new();
|
|
my $soc = ip->lib_new ();
|
|
my $mpsoc= mpsoc->mpsoc_new();
|
|
|
|
set_gui_status($mpsoc,"ideal",0);
|
|
my $main_table = def_table (25, 12, FALSE);
|
|
|
|
# The box which holds the info, warning, error ... messages
|
|
my ($infobox,$info)= create_txview();
|
|
|
|
my $noc_conf_box=get_config ($mpsoc,$info);
|
|
my $noc_tiles=gen_tiles($mpsoc);
|
|
|
|
|
|
$main_table->set_row_spacings (4);
|
|
$main_table->set_col_spacings (1);
|
|
my $ctrl=ctrl_box($mpsoc,$info);
|
|
my $h1=gen_hpaned($noc_conf_box,.3,$noc_tiles);
|
|
my $v2=gen_vpaned($h1,.55,$infobox);
|
|
my $row=0;
|
|
$main_table->attach_defaults ($v2 , 0, 12, 0,24);
|
|
#$main_table->attach_defaults ($ctrl,0, 12, 24,25);
|
|
$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
|
|
Glib::Timeout->add (100, sub{
|
|
my ($state,$timeout)= get_gui_status($mpsoc);
|
|
if ($timeout>0){
|
|
$timeout--;
|
|
set_gui_status($mpsoc,$state,$timeout);
|
|
}elsif ($state eq 'save_project'){
|
|
# Write object file
|
|
my $name=$mpsoc->object_get_attribute('mpsoc_name');
|
|
open(FILE, ">lib/mpsoc/$name.MPSOC") || die "Can not open: $!";
|
|
print FILE perl_file_header("$name.MPSOC");
|
|
print FILE Data::Dumper->Dump([\%$mpsoc],[$name]);
|
|
close(FILE) || die "Error closing file: $!";
|
|
set_gui_status($mpsoc,"ideal",0);
|
|
}
|
|
elsif( $state ne "ideal" ){
|
|
$noc_conf_box->destroy();
|
|
$noc_conf_box=get_config ($mpsoc,$info);
|
|
$noc_tiles->destroy();
|
|
$noc_tiles=gen_tiles($mpsoc);
|
|
$h1 -> pack1($noc_conf_box, TRUE, TRUE);
|
|
$h1 -> pack2($noc_tiles, TRUE, TRUE);
|
|
$v2-> pack1($h1, TRUE, TRUE);
|
|
$h1->show_all;
|
|
$ctrl->destroy;
|
|
$ctrl=ctrl_box($mpsoc,$info);
|
|
$main_table->attach ($ctrl,0, 12, 24,25,'fill','fill',2,2);
|
|
$main_table->show_all();
|
|
|
|
|
|
set_gui_status($mpsoc,"ideal",0);
|
|
|
|
|
|
}
|
|
return TRUE;
|
|
|
|
} );
|
|
|
|
my $sc_win = add_widget_to_scrolled_win($main_table);
|
|
|
|
return $sc_win;
|
|
}
|
|
|
|
|
|
|
No newline at end of file
|
No newline at end of file
|