URL https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk

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

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [mpsoc_gen.pl] - Blame information for rev 26

Go to most recent revision | Details | Compare with Previous | View Log


#! /usr/bin/perl -w
use Glib qw/TRUE FALSE/;
use strict;
use warnings;
 
use mpsoc;
use soc;
use ip;
use interface;
 
use POSIX 'strtol';
 
use File::Path;
use File::Find;
use File::Copy;
 
use Cwd 'abs_path';
 
 
use Gtk2;
use Gtk2::Pango;
 
 
 
 
require "widget.pl";
require "mpsoc_verilog_gen.pl";
require "hdr_file_gen.pl";
require "readme_gen.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 noc_param_widget{
         my ($mpsoc,$name,$param, $default,$type,$content,$info, $table,$row,$show,$attribut1,$ref_delay)=@_;
         my $label =gen_label_in_left(" $name");
         my $widget;
         my $value=$mpsoc->object_get_attribute($attribut1,$param);
         if(! defined $value) {
                        $mpsoc->object_add_attribute($attribut1,$param,$default);
                        $mpsoc->object_add_attribute_order($attribut1,$param);
                        $value=$default;
         }
         if( ! defined $ref_delay){
                $ref_delay=($type eq "Entry") ? 10 : 1;
 
         }
         if ($type eq "Entry"){
                $widget=gen_entry($value);
                $widget-> signal_connect("changed" => sub{
                        my $new_param_value=$widget->get_text();
                        $mpsoc->object_add_attribute($attribut1,$param,$new_param_value);
                        set_gui_status($mpsoc,"ref",$ref_delay);
 
 
                });
 
 
         }
         elsif ($type eq "Combo-box"){
                 my @combo_list=split(",",$content);
                 my $pos=get_pos($value, @combo_list) if(defined $value);
                 if(!defined $pos){
                        $mpsoc->object_add_attribute($attribut1,$param,$default);
                        $pos=get_item_pos($default, @combo_list) if (defined $default);
 
                 }
                #print " my $pos=get_item_pos($value, @combo_list);\n";
                 $widget=gen_combo(\@combo_list, $pos);
                 $widget-> signal_connect("changed" => sub{
                 my $new_param_value=$widget->get_active_text();
                 $mpsoc->object_add_attribute($attribut1,$param,$new_param_value);
                 set_gui_status($mpsoc,"ref",$ref_delay);
 
 
                 });
 
         }
         elsif  ($type eq "Spin-button"){
                  my ($min,$max,$step)=split(",",$content);
                  $value=~ s/\D//g;
                  $min=~ s/\D//g;
                  $max=~ s/\D//g;
                  $step=~ s/\D//g;
                  $widget=gen_spin($min,$max,$step);
                  $widget->set_value($value);
                  $widget-> signal_connect("value_changed" => sub{
                  my $new_param_value=$widget->get_value_as_int();
                  $mpsoc->object_add_attribute($attribut1,$param,$new_param_value);
                  set_gui_status($mpsoc,"ref",$ref_delay);
 
                  });
 
                 # $box=def_label_spin_help_box ($param,$info, $value,$min,$max,$step, 2);
         }
 
        elsif ( $type eq "Check-box"){
                $widget = def_hbox(FALSE,0);
                my @check;
                for (my $i=0;$i<$content;$i++){
                        $check[$i]= Gtk2::CheckButton->new;
                }
                for (my $i=0;$i<$content;$i++){
                        $widget->pack_end(  $check[$i], FALSE, FALSE, 0);
 
                        my @chars = split("",$value);
                        #check if saved value match the size of check box
                        if($chars[0] ne $content ) {
                                $mpsoc->object_add_attribute($attribut1,$param,$default);
                                $value=$default;
                                @chars = split("",$value);
                        }
                        #set initial value
 
                        #print "\@chars=@chars\n";
                        for (my $i=0;$i<$content;$i++){
                                my $loc= (scalar @chars) -($i+1);
                                        if( $chars[$loc] eq '1') {$check[$i]->set_active(TRUE);}
                                        else {$check[$i]->set_active(FALSE);}
                        }
 
 
                        #get new value
                        $check[$i]-> signal_connect("toggled" => sub{
                                my $new_val="$content\'b";
 
                                for (my $i=$content-1; $i >= 0; $i--){
                                        if($check[$i]->get_active()) {$new_val="${new_val}1" ;}
                                        else {$new_val="${new_val}0" ;}
                                }
                                $mpsoc->object_add_attribute($attribut1,$param,$new_val);
                                #print "\$new_val=$new_val\n";
                                set_gui_status($mpsoc,"ref",$ref_delay);
                        });
                }
 
 
 
 
        }
        elsif ( $type eq "DIR_path"){
                        $widget =get_dir_in_object ($mpsoc,$attribut1,$param,$value,'ref',10);
        }
 
 
 
        else {
                 $widget =gen_label_in_left("unsuported widget type!");
        }
 
        my $inf_bt= gen_button_message ($info,"icons/help.png");
        if($show==1){
                my $tmp=gen_label_in_left(" ");
                $table->attach_defaults ($label , 0, 4,  $row,$row+1);
                $table->attach_defaults ($inf_bt , 4, 5, $row,$row+1);
                $table->attach_defaults ($widget , 5, 9, $row,$row+1);
                $table->attach_defaults ($tmp , 9, 10, $row,$row+1);
                $row++;
        }
    return $row;
}
 
 
sub initial_default_param{
        my $mpsoc=shift;
        my @socs=$mpsoc->mpsoc_get_soc_list();
        foreach my $soc_name (@socs){
                my %param_value;
                my $top=$mpsoc->mpsoc_get_soc($soc_name);
                my @insts=$top->top_get_all_instances();
                my @exceptions=('ni0');
                @insts=get_diff_array(\@insts,\@exceptions);
                foreach my $inst (@insts){
                        my @params=$top->top_get_parameter_list($inst);
                        foreach my $p (@params){
                                my  ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);
                                $param_value{$p}=$default;
                        }
                }
                $top->top_add_default_soc_param(\%param_value);
        }
 
}
 
#############
#       get_soc_lists
############
 
sub get_soc_list {
        my ($mpsoc,$info)=@_;
 
 
        my $path=$mpsoc->object_get_attribute('setting','soc_path');
 
        $path =~ s/ /\\ /g;
        my @socs;
        my @files = glob "$path/*.SOC";
        for my $p (@files){
 
                # Read
                my  $soc = eval { do $p };
                 if ($@ || !defined $soc){
                        add_info(\$info,"**Error reading  $p file: $@\n");
                         next;
                }
                my $top=$soc->soc_get_top();
                if (defined $top){
                        my @instance_list=$top->top_get_all_instances();
                        #check if the soc has ni port
                        foreach my $instanc(@instance_list){
                                my $module=$top->top_get_def_of_instance($instanc,'module');
                                if($module eq 'ni')
                                {
                                        my $name=$soc->object_get_attribute('soc_name');
                                        $mpsoc->mpsoc_add_soc($name,$top);
                                        #print" $name\n";
                                }
                        }
 
                }
 
 
 
 
 
 
 
 
        }#files
 
        # initial  default soc parameter
        initial_default_param($mpsoc);
 
 
 
        return $mpsoc->mpsoc_get_soc_list;
 
 
 
}
####################
# 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{
        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? ";
 
        my $wind=def_popwin_size(100,300,"warning");
        my $label= gen_label_in_left($msg);
        my $table=def_table(2,6,FALSE);
        $table->attach_defaults ($label , 0, 6, 0,1);
        $wind->add($table);
 
        my ($box1,$b1)= b_box("Remove Previous");
        my ($box2,$b2)= b_box("Remove Current");
        my ($box3,$b3)= b_box("Cancel");
 
        $table->attach_defaults ($box1 , 0, 1, 1,2);
        $table->attach_defaults ($box2 , 3, 4, 1,2);
        $table->attach_defaults ($box3 , 5, 6, 1,2);
 
        $wind->show_all();
 
        $b1->signal_connect( "clicked"=> sub{ #Remove Previous
                my @socs=$mpsoc->mpsoc_get_soc_list();
                foreach my $p (@socs){
                        if($p ne $name){
                                my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);
                                my @diff=get_diff_array(\@taken_tiles,$inserted);
                                $mpsoc->mpsoc_add_soc_tiles_num($p,\@diff) if(scalar @diff  );
                                $mpsoc->mpsoc_add_soc_tiles_num($p,undef) if(scalar @diff ==0 );
                        }
                }
                $mpsoc->mpsoc_add_soc_tiles_num($name,$inserted) if(defined $inserted  );
                set_gui_status($mpsoc,"ref",1);
                $wind->destroy();
 
        });
 
        $b2->signal_connect( "clicked"=> sub{#Remove Current
                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,undef) if(scalar @new ==0 );
                set_gui_status($mpsoc,"ref",1);
                $wind->destroy();
 
        });
 
        $b3->signal_connect( "clicked"=> sub{
                $wind->destroy();
 
        });
 
}
 
 
 
#############
#       check_inserted_ip_nums
##########
 
 
sub check_inserted_ip_nums{
        my  ($mpsoc,$name,$str)=@_;
        my @all_num=();
        $str= remove_all_white_spaces ($str);
 
        if($str !~ /^[0-9.:,]+$/){ message_dialog ("The Ip numbers contains invalid character" ); return; }
        my @chunks=split(',',$str);
        foreach my $p (@chunks){
                my @range=split(':',$p);
                my $size= scalar @range;
                if($size==1){ # its a number
                        if ( grep( /^$range[0]$/, @all_num ) ) { message_dialog ("Multiple definition for Ip number $range[0]" ); return; }
                        push(@all_num,$range[0]);
                }elsif($size ==2){# its a range
                        my($min,$max)=@range;
                        if($min>$max) {message_dialog ("invalid range: [$p]" ); return;}
                        for (my $i=$min; $i<=$max; $i++){
                                if ( grep( /^$i$/, @all_num ) ) { message_dialog ("Multiple definition for Ip number $i in $p" ); return; }
                                push(@all_num,$i);
 
                        }
 
                }else{message_dialog ("invalid range: [$p]" ); return; }
 
        }
        #check if range does not exceed the tile numbers
        my $nx= $mpsoc->object_get_attribute('noc_param',"NX");
        my $ny= $mpsoc->object_get_attribute('noc_param',"NY");
 
        my $max_tile_num=$nx*$ny;
        my @f=sort { $a <=> $b }  @all_num;
        my @l;
        foreach my $num (@f){
                push(@l,$num) if($num<$max_tile_num);
 
        }
        @all_num=@l;
 
        #check if any ip number exists in the rest
        my $conflicts_msg;
        my @conflicts;
 
 
        my @socs=$mpsoc->mpsoc_get_soc_list();
        foreach my $p (@socs){
                if($p ne $name){
                        my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);
                        my @c=get_common_array(\@all_num,\@taken_tiles);
                        if (scalar @c) {
                                my $str=join(',', @c);
                                $conflicts_msg = (defined $conflicts_msg)? "$conflicts_msg\n\t\t $str->$p" : "$str->$p";
                                @conflicts= (defined $conflicts_msg)? (@conflicts,@c): @c;
                        }
                }#if
        }
        if (defined $conflicts_msg) {
                get_conflict_decision($mpsoc,$name,\@all_num,\@conflicts,$conflicts_msg);
 
        }else {
                #save the entered ips
                if( scalar @all_num>0){ $mpsoc->mpsoc_add_soc_tiles_num($name,\@all_num);}
                else {$mpsoc->mpsoc_add_soc_tiles_num($name,undef);}
                set_gui_status($mpsoc,"ref",1);
        }
 
 
 
}
 
 
 
 
#################
# get_soc_parameter_setting
################
 
sub get_soc_parameter_setting{
        my ($mpsoc,$soc_name,$tile)=@_;
 
        my $window = (defined $tile)? def_popwin_size(600,400,"Parameter setting for $soc_name located in tile($tile) "):def_popwin_size(600,400,"Default Parameter setting for $soc_name ");
        my $table = def_table(10, 7, 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 $top=$mpsoc->mpsoc_get_soc($soc_name);
 
        #read soc parameters
        my %param_value=(defined $tile) ? $top->top_get_custom_soc_param($tile)  : $top->top_get_default_soc_param();
 
 
 
        my @insts=$top->top_get_all_instances();
        my @exceptions=('ni0');
        @insts=get_diff_array(\@insts,\@exceptions);
        foreach my $inst (@insts){
                my @params=$top->top_get_parameter_list($inst);
                foreach my $p (@params){
                        my  ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);
 
                        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(",",$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++;
 
 
                }
        }
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
        my $ok = def_image_button('icons/select.png','OK');
        my $okbox=def_hbox(TRUE,0);
        $okbox->pack_start($ok, FALSE, FALSE,0);
 
 
        my $mtable = def_table(10, 1, TRUE);
 
        $mtable->attach_defaults($scrolled_win,0,1,0,9);
        $mtable->attach_defaults($okbox,0,1,9,10);
 
        $window->add ($mtable);
        $window->show_all();
 
        $ok-> signal_connect("clicked" => sub{
                $window->destroy;
                #save new values 
                if(!defined $tile ) {
                        $top->top_add_default_soc_param(\%param_value);
                }
                else {
                        $top->top_add_custom_soc_param(\%param_value,$tile);
 
                }
                #set_gui_status($mpsoc,"refresh_soc",1);
                #$$refresh_soc->clicked;
 
                });
 
 
 
}
 
 
 
 
 
 
 
################
#       tile_set_widget
################
 
sub tile_set_widget{
        my ($mpsoc,$soc_name,$num,$table,$show,$row)=@_;
        #my $lable=gen_label_in_left($soc);
        my @all_num= $mpsoc->mpsoc_get_soc_tiles_num($soc_name);
        my $init=compress_nums(@all_num);
        my $entry;
        if (defined $init){$entry=gen_entry($init) ;}
        else                      {$entry=gen_entry();}
        my $set= def_image_button('icons/right.png');
        my $remove= def_image_button('icons/cancel.png');
        #my $setting= def_image_button('icons/setting.png','setting');
 
 
        my $button = def_colored_button($soc_name,$num);
        $button->signal_connect("clicked"=> sub{
                get_soc_parameter_setting($mpsoc,$soc_name,undef);
 
        });
 
 
        $set->signal_connect("clicked"=> sub{
                my $data=$entry->get_text();
                check_inserted_ip_nums($mpsoc,$soc_name,$data);
 
 
 
        });
        $remove->signal_connect("clicked"=> sub{
                $mpsoc->mpsoc_remove_soc($soc_name);
                set_gui_status($mpsoc,"ref",1);
 
        });
 
 
if($show){
        $table->attach_defaults ( $button, 0, 4, $row,$row+1);
        $table->attach_defaults ( $remove, 4, 5, $row,$row+1);
        $table->attach_defaults ( $entry , 5, 9, $row,$row+1);
        $table->attach_defaults ( $set, 9, 10, $row,$row+1);
 
 
 
        $row++;
}
 
        return $row;
 
 
}
 
 
 
 
 
##################
#       defualt_tilles_setting
###################
 
sub defualt_tilles_setting {
        my ($mpsoc,$table,$show,$row,$info)=@_;
 
        #title  
        my $separator1 = Gtk2::HSeparator->new;
        my $separator2 = Gtk2::HSeparator->new;
        my $title2=gen_label_in_center("Tile Configuration");
        my $box1=def_vbox(FALSE, 1);
        $box1->pack_start( $separator1, FALSE, FALSE, 3);
        $box1->pack_start( $title2, FALSE, FALSE, 3);
        $box1->pack_start( $separator2, FALSE, FALSE, 3);
        if($show){$table->attach_defaults ($box1 ,0,10, $row,$row+1);$row++;}
 
 
 
 
        my $label = gen_label_in_left("Tiles path:");
        my $entry = Gtk2::Entry->new;
        my $browse= def_image_button("icons/browse.png");
        my $file= $mpsoc->object_get_attribute('setting','soc_path');
        if(defined $file){$entry->set_text($file);}
 
 
        $browse->signal_connect("clicked"=> sub{
                my $entry_ref=$_[1];
                my $file;
 
 
 
 
 
        my $dialog = Gtk2::FileChooserDialog->new(
                'Select tile directory', undef,
                #               'open',
                'select-folder',
                'gtk-cancel' => 'cancel',
                'gtk-ok'     => 'ok',
                );
 
 
                if ( "ok" eq $dialog->run ) {
                        $file = $dialog->get_filename;
                        $$entry_ref->set_text($file);
                        $mpsoc->object_add_attribute('setting','soc_path',$file);
                        $mpsoc->mpsoc_remove_all_soc();
                        set_gui_status($mpsoc,"ref",1);
                        #check_input_file($file,$socgen,$info);
                        #print "file = $file\n";
                 }
                $dialog->destroy;
 
 
 
        } , \$entry);
 
 
 
 
        $entry->signal_connect("activate"=>sub{
                my $file_name=$entry->get_text();
                $mpsoc->object_add_attribute('setting','soc_path',$file_name);
                $mpsoc->mpsoc_remove_all_soc();
                set_gui_status($mpsoc,"ref",1);
                #check_input_file($file_name,$socgen,$info);
        });
 
 
 
        if($show){
                my $tmp=gen_label_in_left(" ");
                $table->attach_defaults ($label, 0, 4 , $row,$row+1);
                $table->attach_defaults ($tmp, 4, 5 , $row,$row+1);
                $table->attach_defaults ($entry, 5, 9 , $row,$row+1);
                $table->attach_defaults ($browse, 9, 10, $row,$row+1);
                $row++;
        }
 
 
 
        my @socs=$mpsoc->mpsoc_get_soc_list();
        if( scalar @socs == 0){
                @socs=get_soc_list($mpsoc,$info);
 
        }
        @socs=$mpsoc->mpsoc_get_soc_list();
 
 
 
        my $lab1=gen_label_in_center(' Tile name');
 
        my $lab2=gen_label_help('Define the tile numbers that each IP is mapped to.
you can add individual numbers or ranges as follow
        eg: 0,2,5:10
        ', ' Tile numbers ');
        if($show){
                $table->attach_defaults ($lab1 ,0,3, $row,$row+1);
                $table->attach_defaults ($lab2 ,5,10, $row,$row+1);$row++;
        }
 
        my $soc_num=0;
        foreach my $soc_name (@socs){
                $row=tile_set_widget ($mpsoc,$soc_name,$soc_num,$table,$show,$row);
                $soc_num++;
 
        }
        return $row;
 
}
 
 
 
 
#######################
#   noc_config
######################
 
sub noc_config{
        my ($mpsoc,$table)=@_;
 
 
 
        #title  
        my $title=gen_label_in_center("NoC Configuration");
        my $box=def_vbox(FALSE, 1);
        $box->pack_start( $title, FALSE, FALSE, 3);
        my $separator = Gtk2::HSeparator->new;
        $box->pack_start( $separator, FALSE, FALSE, 3);
        $table->attach_defaults ($box , 0, 10, 0,1);
 
        my $label;
        my $param;
        my $default;
        my $type;
        my $content;
        my $info;
        my $row=1;
 
        #parameter start
        my $b1;
        my $show_noc=$mpsoc->object_get_attribute('setting','show_noc_setting');
        if(!defined $show_noc){
                $show_noc=1;
                $mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
 
        }
        if($show_noc == 0){
                $b1= def_image_button("icons/down.png","NoC Parameters");
                $label=gen_label_in_center(' ');
                $table->attach_defaults ( $label , 2, 10, $row,$row+1);
                $table->attach_defaults ( $b1 , 0, 4, $row,$row+1);$row++;
        }
 
 
        #Router type
        $label='Router Type';
        $param='ROUTER_TYPE';
        $default='"VC_BASED"';
        $content='"INPUT_QUEUED","VC_BASED"';
        $type='Combo-box';
    $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.";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_type');
        my $router_type=$mpsoc->object_get_attribute('noc_type',"ROUTER_TYPE");
 
 
 
        #Routers per row
        $label= 'Routers per row';
        $param= 'NX';
    $default=' 2';
        $content='2,16,1';
    $info= 'Number of NoC routers in row (X dimention)';
    $type= 'Spin-button';
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_param');
 
 
 
        #Routers per column
        $label= 'Routers per column';
        $param= 'NY';
    $default=' 2';
        $content='2,16,1';
    $info= 'Number of NoC routers in column (Y dimention)';
    $type= 'Spin-button';
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_param');
 
        if($router_type eq '"VC_BASED"'){
                #VC number per port
                my $v=$mpsoc->object_get_attribute('noc_param','V');
                if(defined $v){ $mpsoc->object_add_attribute('noc_param','V',2) if($v eq 1);}
                $label='VC number per port';
                $param='V';
                $default='2';
                $type='Spin-button';
                $content='2,16,1';
                $info='Number of Virtual Channel per each router port';
                $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_param');
        } else {
                $mpsoc->object_add_attribute('noc_param','V',1);
                $mpsoc->object_add_attribute('noc_param','C',0);
 
 
        }
 
        #buffer width per VC
        $label=($router_type eq '"VC_BASED"')? 'Buffer flits per VC': "Buffer flits";
        $param='B';
    $default='4';
    $content='2,256,1';
    $type='Spin-button';
        $info=($router_type eq '"VC_BASED"')?  'Buffer queue size per VC in flits' : 'Buffer queue size in flits';
    $row= noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_param');
 
        #packet payload width
        $label='payload width';
        $param='Fpay';
        $default='32';
        $content='32,256,32';
        $type='Spin-button';
    $info="The packet payload width in bits";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info,$table,$row,$show_noc,'noc_param');
 
        #topology
        $label='Topology';
        $param='TOPOLOGY';
        $default='"MESH"';
        $content='"MESH","TORUS"';
        $type='Combo-box';
    $info="NoC topology";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_param');
 
        #routing algorithm
        my $topology=$mpsoc->object_get_attribute('noc_param','TOPOLOGY');
        $label='Routing Algorithm';
        $param="ROUTE_NAME";
        $type="Combo-box";
        if($router_type eq '"VC_BASED"'){
                $content=($topology eq '"MESH"')?  '"XY","WEST_FIRST","NORTH_LAST","NEGETIVE_FIRST","DUATO"' :
                                                    '"TRANC_XY","TRANC_WEST_FIRST","TRANC_NORTH_LAST","TRANC_NEGETIVE_FIRST","TRANC_DUATO"';
 
        }else{
                $content=($topology eq '"MESH"')?  '"XY","WEST_FIRST","NORTH_LAST","NEGETIVE_FIRST"' :
                                                    '"TRANC_XY","TRANC_WEST_FIRST","TRANC_NORTH_LAST","TRANC_NEGETIVE_FIRST"';
 
 
        }
        $default=($topology eq '"MESH"')?  '"XY"':'"TRANC_XY"';
        $info="Select the routing algorithm: XY(DoR) , partially adaptive (Turn models). Fully adaptive (Duato) ";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_param');
 
 
        #SSA
        $label='SSA Ebable';
        $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=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$show_noc,'noc_param');
 
 
 
 
 
        if($show_noc == 1){
                $b1= def_image_button("icons/up.png","NoC Parameters");
                $table->attach_defaults ( $b1 , 0, 2, $row,$row+1);$row++;
        }
        $b1->signal_connect("clicked" => sub{
                $show_noc=($show_noc==1)?0:1;
                $mpsoc->object_add_attribute('setting','show_noc_setting',$show_noc);
                set_gui_status($mpsoc,"ref",1);
 
        });
 
        #advance parameter start
        my $advc;
        my $adv_set=$mpsoc->object_get_attribute('setting','show_adv_setting');
        if($adv_set == 0){
                $advc= def_image_button("icons/down.png","Advance Parameters");
                $table->attach_defaults ( $advc , 0, 4, $row,$row+1);$row++;
 
        }
 
 
 
        #Fully and partially adaptive routing setting
                my $route=$mpsoc->object_get_attribute('noc_param',"ROUTE_NAME");
                if($route ne '"XY"' and $route ne '"TRANC_XY"' ){
                        $label="Congestion index";
                        $param="CONGESTION_INDEX";
                        $type="Spin-button";
                        $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";
                    $default=3;
                        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
                }
                #Fully adaptive routing setting
                if( $route eq '"TRANC_DUATO"' or $route eq '"DUATO"'  ){
                         my $v=$mpsoc->object_get_attribute('noc_param',"V");
                         $label="Select Escap VC";
                         $param="ESCAP_VC_MASK";
                         $type="Check-box";
                         $content=$v;
                         $default="$v\'b";
                         for (my $i=1; $i<=$v-1; $i++){$default=  "${default}0";}
                         $default=  "${default}1";
 
 
                         $info="Select the escap VC for fully adaptive routing.";
                         $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,$adv_set,'noc_param');
 
                 }
 
        # VC reallocation type
                $label=($router_type eq '"VC_BASED"')? 'VC reallocation type': 'Queue reallocation type';
                $param='VC_REALLOCATION_TYPE';
                $info="VC reallocation type: If set as atomic only empty VCs can be allocated for new packets. Whereas, in non-atomic a non-empty VC which has received the last packet tail flit can accept a new  packet";
                $default='"NONATOMIC"';
                $content='"ATOMIC","NONATOMIC"';
                $type='Combo-box';
                $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
 
 
 
        if ($router_type eq '"VC_BASED"'){
        #vc/sw allocator type
                $label = 'VC/SW combination type';
                $param='COMBINATION_TYPE';
                $default='"COMB_NONSPEC"';
                $content='"BASELINE","COMB_SPEC1","COMB_SPEC2","COMB_NONSPEC"';
                $type='Combo-box';
                $info="The joint VC/ switch allocator type. using canonical combination is not recommanded";
                $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
        }
 
        # Crossbar mux type 
                $label='Crossbar mux type';
                $param='MUX_TYPE';
                $default='"BINARY"';
                $content='"ONE_HOT","BINARY"';
                $type='Combo-box';
                $info="Crossbar multiplexer type";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
        if($router_type eq '"VC_BASED"'){
        #class
                $label='class number';
                $param='C';
                $default= 0;
                $info='Number of message classes. Each specific class can use different set of VC';
                $content='0,16,1';
            $type='Spin-button';
            $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
 
                my $class=$mpsoc->object_get_attribute('noc_param',"C");
                my $v=$mpsoc->object_get_attribute('noc_param',"V");
                $default= "$v\'b";
                for (my $i=1; $i<=$v; $i++){
                        $default=  "${default}1";
                }
                #print "\$default=$default\n";
                for (my $i=0; $i<=$class-1; $i++){
 
                         $label="Class $i Permitted VCs";
                         $param="Cn_$i";
                         $type="Check-box";
                         $content=$v;
                         $info="Select the permitted VCs which the message class $i can be sent via them.";
                         $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
 
                }
 
 
 
        }#($router_type eq '"VC_BASED"')
 
 
 
         #simulation debuge enable     
                $label='Debug enable';
                $param='DEBUG_EN';
                $info= "Add extra verilog code for debuging NoC for simulation";
                $default='0';
                $content='0,1';
                $type='Combo-box';
                $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
 
 
 
 
        $label="Add pipeline reg after crossbar";
        $param="ADD_PIPREG_AFTER_CROSSBAR";
        $type="Check-box";
        $content=1;
        $default="1\'b0";
        $info="If ebabled it adds a pipline register at the output port of the router.";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,$adv_set,'noc_param');
 
 
 
 
 
 
        if($adv_set == 1){
                $advc= def_image_button("icons/up.png","Advance Parameters");
                $table->attach_defaults ( $advc , 0, 4, $row,$row+1);$row++;
        }
        $advc->signal_connect("clicked" => sub{
                $adv_set=($adv_set==1)?0:1;
                $mpsoc->object_add_attribute('setting','show_adv_setting',$adv_set);
                set_gui_status($mpsoc,"ref",1);
        });
 
 
        #other fixed parameters       
 
 
        #FIRST_ARBITER_EXT_P_EN
        $label='FIRST_ARBITER_EXT_P_EN';
        $param='FIRST_ARBITER_EXT_P_EN';
        $default= 0;
        $info='FIRST_ARBITER_EXT_P_EN';
        $content='0,1';
        $type="Combo-box";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info,$table,$row,0,'noc_param');
 
 
 
        # AVC_ATOMIC_EN
        $label='AVC_ATOMIC_EN';
        $param='AVC_ATOMIC_EN';
        $default= 0;
        $info='AVC_ATOMIC_EN';
        $content='0,1';
        $type="Combo-box";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,0,'noc_param');
 
 
        #ROUTE_SUBFUNC
        $label='ROUTE_SUBFUNC';
        $param='ROUTE_SUBFUNC';
        $default= '"XY"';
        $info='ROUTE_SUBFUNC';
        $content='"XY"';
        $type="Combo-box";
        $row=noc_param_widget ($mpsoc,$label,$param, $default,$type,$content,$info, $table,$row,0,'noc_param');
 
        return $row;
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
#######################
#   get_config
######################
 
sub get_config{
        my ($mpsoc,$info)=@_;
        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 $row=noc_config ($mpsoc,$table);
 
 
        #tile setting 
        my $tile_set;
        my $show=$mpsoc->object_get_attribute('setting','show_tile_setting');
 
        if($show == 0){
                $tile_set= def_image_button("icons/down.png","Tiles setting");
                $table->attach_defaults ( $tile_set , 0, 4, $row,$row+1);$row++;
 
        }
 
 
 
 
 
        $row=defualt_tilles_setting($mpsoc,$table,$show,$row,$info);
 
 
 
 
 
 
 
 
        #end tile setting
        if($show == 1){
                $tile_set= def_image_button("icons/up.png","Tiles setting");
                $table->attach_defaults ( $tile_set , 0, 1, $row,$row+1);$row++;
        }
        $tile_set->signal_connect("clicked" => sub{
                $show=($show==1)?0:1;
                $mpsoc->object_add_attribute('setting','show_tile_setting',$show);
                set_gui_status($mpsoc,"ref",1);
 
 
        });
 
 
 
 
        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  $scrolled_win;
 
}
 
 
#############
#
###########
 
sub gen_socs {
        my ($mpsoc,$info)=@_;
        my $path=$mpsoc->object_get_attribute('setting','soc_path');
        $path=~ s/ /\\ /g;
        my @socs;
        my @files = glob "$path/*.SOC";
        my @soc_list=$mpsoc-> mpsoc_get_soc_list();
        my @used_socs;
        foreach my $soc_name (@soc_list){
                my @n=$mpsoc->mpsoc_get_soc_tiles_num($soc_name);
                if(scalar @n){
                        #generate the verilog files of it
                        push(@used_socs,$soc_name);
                }
        }
 
        for my $p (@files){
                # Read
                my  $soc = eval { do $p };
                if ($@ || !defined $soc){
                        show_info(\$info,"**Error reading  $p file: $@\n");
                       next;
                }
                my  $name=$soc->object_get_attribute('soc_name');
                if( grep (/^$name$/,@used_socs)){
                #generate the soc
                generate_soc_files($mpsoc,$soc,$info);
 
 
 
 
                };
 
 
        }
 
 
}
 
################
#       generate_soc
#################
 
sub generate_soc_files{
        my ($mpsoc,$soc,$info)=@_;
        my $mpsoc_name=$mpsoc->object_get_attribute('mpsoc_name');
        my $soc_name=$soc->object_get_attribute('soc_name');
        my ($file_v,$tmp)=soc_generate_verilog($soc);
 
        # Write object file
        open(FILE,  ">lib/soc/$soc_name.SOC") || die "Can not open: $!";
        print FILE perl_file_header("$soc_name.SOC");
        print FILE Data::Dumper->Dump([\%$soc],[$soc_name]);
        close(FILE) || die "Error closing file: $!";
 
        # Write verilog file
        open(FILE,  ">lib/verilog/$soc_name.v") || die "Can not open: $!";
        print FILE $file_v;
        close(FILE) || die "Error closing file: $!";
 
 
 
 
        # copy all files in project work directory
        my $dir = Cwd::getcwd();
        #make target dir
        my $project_dir   = abs_path("$dir/../../");
        my $target_dir  = "$project_dir/mpsoc_work/MPSOC/$mpsoc_name";
        mkpath("$target_dir/src_verilog/lib/",1,0755);
        mkpath("$target_dir/src_verilog/tiles/",1,0755);
        mkpath("$target_dir/sw",1,0755);
 
    #copy hdl codes in src_verilog
 
    my ($hdl_ref,$warnings)= get_all_files_list($soc,"hdl_files");
    foreach my $f(@{$hdl_ref}){
 
        my $n="$project_dir$f";
         if (-f "$n") {
                        copy ("$n","$target_dir/src_verilog/lib");
         }elsif(-f "$f" ){
                        copy ("$f","$target_dir/src_verilog/lib");
 
         }
 
 
    }
                        show_info(\$info,$warnings)                     if(defined $warnings);
 
 
                #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/");
                copy_noc_files($project_dir,"$target_dir/src_verilog/lib");
 
 
                # Write header file
                        generate_header_file($soc,$project_dir,$target_dir,$dir);
 
 
 
 
 
                        #use File::Copy::Recursive qw(dircopy);
                        #dircopy("$dir/../src_processor/aeMB/compiler","$target_dir/sw/") or die("$!\n");
 
 
                        my $msg="SoC \"$soc_name\" has been created successfully at $target_dir/ ";
 
 
 
 
return $msg;
}
 
 
################
#       generate_mpsoc
#################
 
sub generate_mpsoc{
        my ($mpsoc,$info)=@_;
        my $name=$mpsoc->object_get_attribute('mpsoc_name');
                my $size= (defined $name)? length($name) :0;
                if ($size >0){
                        gen_socs($mpsoc,$info);
                        my ($file_v,$tmp)=mpsoc_generate_verilog($mpsoc);
 
                        # Write object file
                        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: $!";
 
                        # Write verilog file
                        open(FILE,  ">lib/verilog/$name.v") || die "Can not open: $!";
                        print FILE $file_v;
                        close(FILE) || die "Error closing file: $!";
 
 
 
 
                        # copy all files in project work directory
                        my $dir = Cwd::getcwd();
                        #make target dir
                        my $project_dir   = abs_path("$dir/../../");
                        my $target_dir  = "$project_dir/mpsoc_work/MPSOC/$name";
                        mkpath("$target_dir/src_verilog/lib/",1,0755);
                        mkpath("$target_dir/sw",1,0755);
 
                #gen_socs($mpsoc,$info);
 
                move ("$dir/lib/verilog/$name.v","$target_dir/src_verilog/");
 
 
 
 
 
 
 
 
                        message_dialog("SoC \"$name\" has been created successfully at $target_dir/ " );
 
                }else {
                        message_dialog("Please define the MPSoC name!");
 
                }
 
return 1;
}
 
 
 
 
sub get_tile_LIST{
        my ($mpsoc,$x,$y,$soc_num,$row,$table)=@_;
        my $instance_name=$mpsoc->mpsoc_get_instance_info($soc_num);
        if(!defined $instance_name){
                $mpsoc->mpsoc_set_default_ip($soc_num);
                $instance_name=$mpsoc->mpsoc_get_instance_info($soc_num);
 
        }
 
        #ipname
        my $col=0;
        my $label=gen_label_in_left("IP_$soc_num($x,$y)");
        $table->attach_defaults ( $label, $col, $col+1 , $row, $row+1);$col+=2;
        #instance name
        my $entry=gen_entry($instance_name);
        $table->attach_defaults ( $entry, $col, $col+1 , $row, $row+1);$col+=2;
        $entry->signal_connect( 'changed'=> sub{
                my $new_instance=$entry->get_text();
                $mpsoc->mpsoc_set_ip_inst_name($soc_num,$new_instance);
                set_gui_status($mpsoc,"ref",20);
                print "changed to  $new_instance\n ";
 
        });
 
 
        #combo box
        my @list=('A','B');
        my $combo=gen_combo(\@list,0);
        $table->attach_defaults ( $combo, $col, $col+1 , $row, $row+1);$col+=2;
        #setting
        my $setting= def_image_button("icons/setting.png","Browse");
        $table->attach_defaults ( $setting, $col, $col+1 , $row, $row+1);$col+=2;
 
 
}
 
 
 
 
##########
#
#########
 
sub gen_tiles_LIST{
        my ($mpsoc)=@_;
 
        my $nx= $mpsoc->object_get_attribute('noc_param',"NX");
        my $ny= $mpsoc->object_get_attribute('noc_param',"NY");
 
        # print "($nx,$ny);\n";
        my $table=def_table($nx*$ny,4,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);
 
 
    my @titles=("IP_num(x,y)","Instance name","IP module name","setting");
        my $col=0;
    my $row=0;
        foreach my$p(@titles){
                my $label=gen_label_in_left($p);
            $table->attach_defaults ($label, $col, $col+1 , $row, $row+1);$col++;
                my $sepv = Gtk2::VSeparator->new;
                $table->attach_defaults ($sepv, $col , $col+1 ,0 , 2*($nx*$ny)+2 );$col++;
 
        }$row+=2;
 
 
        $col=0;
        for (my $y=0;$y<$ny;$y++){
 
 
 
                for (my $x=0; $x<$nx;$x++){
                        my $soc_num= $y*$nx+$x;
                        my $seph = Gtk2::HSeparator->new;
                        $table->attach_defaults ($seph, 0, 8 , $row, $row+1);$row++;
                        get_tile($mpsoc,$x,$y,$soc_num,$row,$table);$row++;
 
 
 
 
        }}
        my $seph = Gtk2::HSeparator->new;
        $table->attach_defaults ($seph, 0, 8 , $row, $row+1);$row++;
 
   while( $row<30){
                my $label=gen_label_in_left(' ');
            $table->attach_defaults ($label, $col, $col+1 , $row, $row+1);$row++;
 
 
 
        }
 
 
        return $scrolled_win;
}
 
 
 
 
 
 
 
 
 
sub get_tile{
        my ($mpsoc,$tile,$x,$y)=@_;
 
 
        my ($soc_name,$num)= $mpsoc->mpsoc_get_tile_soc_name($tile);
 
        my $button;
        if( defined $soc_name){
                my $setting=$mpsoc->mpsoc_get_tile_param_setting($tile);
                $button=($setting eq 'Custom')? def_colored_button("Tile $tile ($x,$y)*\n$soc_name",$num) :     def_colored_button("Tile $tile ($x,$y)\n$soc_name",$num) ;
        }else {
                $button =def_colored_button("Tile $tile ($x,$y)\n",50) if(! defined $soc_name);
        }
 
        $button->signal_connect("clicked" => sub{
                my $window = def_popwin_size(400,400,"Parameter setting for Tile $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();
                my @list=(' ',@socs);
                my $pos=(defined $soc_name)? get_scolar_pos($soc_name,@list): 0;
                my $combo=gen_combo(\@list, $pos);
                my $lable=gen_label_in_left("  SoC 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++;
 
                my $ok = def_image_button('icons/select.png','OK');
                my $okbox=def_hbox(TRUE,0);
                $okbox->pack_start($ok, FALSE, FALSE,0);
 
 
 
                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);
 
 
                });
 
 
 
 
 
                $combo->signal_connect('changed'=>sub{
                        my $new_soc=$combo->get_active_text();
                        if ($new_soc eq ' '){
                                #unconnect tile
                                $mpsoc->mpsoc_set_tile_free($tile);
                        }else {
                                $mpsoc->mpsoc_set_tile_soc_name($tile,$new_soc);
                        }
 
 
 
                });
 
 
 
 
 
 
                my $mtable = def_table(10, 1, TRUE);
 
                $mtable->attach_defaults($scrolled_win,0,1,0,9);
                $mtable->attach_defaults($okbox,0,1,9,10);
 
                $window->add ($mtable);
                $window->show_all();
 
                $ok-> signal_connect("clicked" => sub{
                        $window->destroy;
                        set_gui_status($mpsoc,"refresh_soc",1);
                        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);
 
                        }
                        #save new values 
                        #$top->top_add_default_soc_param(\%param_value);
                        #set_gui_status($mpsoc,"refresh_soc",1);
                        #$$refresh_soc->clicked;
 
                        });
 
        });
 
 
        #$button->show_all;
        return $button;
 
 
}
 
 
 
 
 
 
 
 
##########
#
#########
 
sub gen_tiles{
        my ($mpsoc)=@_;
 
        my $nx= $mpsoc->object_get_attribute('noc_param',"NX");
        my $ny= $mpsoc->object_get_attribute('noc_param',"NY");
 
        #print "($nx,$ny);\n";
        my $table=def_table($nx,$ny,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);
 
 
 
 
 
 
        for (my $y=0;$y<$ny;$y++){
                for (my $x=0; $x<$nx;$x++){
                        my $tile_num=($nx*$y)+ $x;
                        my $tile=get_tile($mpsoc,$tile_num,$x,$y);
                #print "($x,$y);\n";
                $table->attach_defaults ($tile, $x, $x+1 , $y, $y+1);
 
 
        }}
 
 
 
 
 
 
 
 
 
 
 
############
#    main
############
sub mpsocgen_main{
 
        my $infc = interface->interface_new();
        my $soc = ip->lib_new ();
        #my $soc = soc->soc_new();
 
        my $mpsoc= mpsoc->mpsoc_new();
 
        set_gui_status($mpsoc,"ideal",0);
 
        # main window
        #my $window = def_win_size(1000,800,"Top");
        #  The main table containg the lib tree, selected modules and info section 
        my $main_table = Gtk2::Table->new (25, 12, FALSE);
 
        # The box which holds the info, warning, error ...  mesages
        my ($infobox,$info)= create_text();
 
 
        my $refresh = Gtk2::Button->new_from_stock('ref');
 
 
        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  $device_win=show_active_dev($soc,$soc,$infc,\$refresh,$info);
 
 
        my $generate = def_image_button('icons/gen.png','Generate');
 
 
 
 
        my $open = def_image_button('icons/browse.png','Load MPSoC');
 
 
        my $entry=gen_entry_object($mpsoc,'mpsoc_name',undef,undef,undef,undef);
        my $entrybox=labele_widget_info(" MPSoC name:",$entry);
 
 
 
        #$table->attach_defaults ($event_box, $col, $col+1, $row, $row+1);
        $main_table->attach_defaults ($noc_conf_box , 0, 4, 0, 22);
        $main_table->attach_defaults ($noc_tiles , 4, 12, 0, 22);
        $main_table->attach_defaults ($infobox  , 0, 12, 22,24);
        $main_table->attach ($open,0, 3, 24,25,'expand','shrink',2,2);
        $main_table->attach_defaults ($entrybox,3, 7, 24,25);
 
        $main_table->attach ($generate, 10, 12, 24,25,'expand','shrink',2,2);
 
 
        #referesh the mpsoc generator 
        $refresh-> signal_connect("clicked" => sub{
                $noc_conf_box->destroy();
                $noc_conf_box=get_config ($mpsoc,$info);
                $main_table->attach_defaults ($noc_conf_box , 0, 4, 0, 22);
                $noc_conf_box->show_all();
 
 
 
                $noc_tiles->destroy();
                $noc_tiles=gen_tiles($mpsoc);
                $main_table->attach_defaults ($noc_tiles , 4, 12, 0, 22);
 
                $main_table->show_all();
 
 
        });
 
 
 
        #check soc status every 0.5 second. referesh device table if there is any changes 
        Glib::Timeout->add (100, sub{
                my ($state,$timeout)= get_gui_status($mpsoc);
 
 
                if ($timeout>0){
                        $timeout--;
                        set_gui_status($mpsoc,$state,$timeout);
                }
                elsif( $state ne "ideal" ){
                        $refresh->clicked;
                        my $saved_name=$mpsoc->object_get_attribute('mpsoc_name');
                        if(defined $saved_name) {$entry->set_text($saved_name);}
                        set_gui_status($mpsoc,"ideal",0);
 
 
                }
                return TRUE;
 
        } );
 
 
        $generate-> signal_connect("clicked" => sub{
                generate_mpsoc($mpsoc,$info);
                $refresh->clicked;
 
        });
 
#       $wb-> signal_connect("clicked" => sub{ 
#               wb_address_setting($mpsoc);
#       
#       });
 
        $open-> signal_connect("clicked" => sub{
                set_gui_status($mpsoc,"ref",5);
                load_mpsoc($mpsoc,$info);
 
        });
 
 
        my $sc_win = new Gtk2::ScrolledWindow (undef, undef);
                $sc_win->set_policy( "automatic", "automatic" );
                $sc_win->add_with_viewport($main_table);
 
        return $sc_win;
 
 
}
 
 
 
 
        return $scrolled_win;
}
 
 
 
 
#############
#       load_mpsoc
#############
 
sub load_mpsoc{
        my ($mpsoc,$info)=@_;
        my $file;
        my $dialog = Gtk2::FileChooserDialog->new(
                'Select a File', undef,
                'open',
                'gtk-cancel' => 'cancel',
                'gtk-ok'     => 'ok',
                );
 
        my $filter = Gtk2::FileFilter->new();
        $filter->set_name("MPSoC");
        $filter->add_pattern("*.MPSOC");
        $dialog->add_filter ($filter);
                my $dir = Cwd::getcwd();
        $dialog->set_current_folder ("$dir/lib/mpsoc")  ;
 
 
        if ( "ok" eq $dialog->run ) {
                $file = $dialog->get_filename;
                my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");
                if($suffix eq '.MPSOC'){
                        my $pp= eval { do $file };
                        if ($@ || !defined $pp){
                                show_info(\$info,"**Error reading  $file file: $@\n");
                                 $dialog->destroy;
                                return;
                        }
 
 
                        clone_obj($mpsoc,$pp);
                        set_gui_status($mpsoc,"load_file",0);
 
                }
     }
     $dialog->destroy;
 
 
 
 
 
}
 
##########
 
##########
sub copy_noc_files{
        my ($project_dir,$dest)=@_;
 
my @noc_files=(
    '/mpsoc/src_noc/arbiter.v',
        '/mpsoc/src_noc/baseline.v',
        '/mpsoc/src_noc/canonical_credit_count.v',
        '/mpsoc/src_noc/class_table.v',
        '/mpsoc/src_noc/combined_vc_sw_alloc.v',
        '/mpsoc/src_noc/comb_nonspec.v',
        '/mpsoc/src_noc/comb_spec2.v',
        '/mpsoc/src_noc/comb-spec1.v',
        '/mpsoc/src_noc/congestion_analyzer.v',
        '/mpsoc/src_noc/credit_count.v',
        '/mpsoc/src_noc/crossbar.v',
        '/mpsoc/src_noc/flit_buffer.v',
        '/mpsoc/src_noc/inout_ports.v',
        '/mpsoc/src_noc/inout_ports.v.classic',
        '/mpsoc/src_noc/input_ports.v',
        '/mpsoc/src_noc/main_comp.v',
        '/mpsoc/src_noc/noc.v',
        '/mpsoc/src_noc/route_mesh.v',
        '/mpsoc/src_noc/router.v',
        '/mpsoc/src_noc/route_torus.v',
        '/mpsoc/src_noc/routing.v',
        '/mpsoc/src_noc/vc_alloc_request_gen.v',
        '/mpsoc/src_noc/ss_allocator.v');
        foreach my $f (@noc_files){
                copy ("$project_dir$f",$dest);
 
        }
 
 
}

Line No.	Rev	Author	Line
1	16	alirezamon	`#! /usr/bin/perl -w`
2			`use Glib qw/TRUE FALSE/;`
3			`use strict;`
4			`use warnings;`
5
6			`use mpsoc;`
7			`use soc;`
8			`use ip;`
9			`use interface;`
10
11			`use POSIX 'strtol';`
12
13			`use File::Path;`
14			`use File::Find;`
15			`use File::Copy;`
16
17			`use Cwd 'abs_path';`
18
19
20			`use Gtk2;`
21			`use Gtk2::Pango;`
22
23
24
25
26			`require "widget.pl";`
27			`require "mpsoc_verilog_gen.pl";`
28	17	alirezamon	`require "hdr_file_gen.pl";`
29	25	alirezamon	`require "readme_gen.pl";`
30	16	alirezamon
31	22	alirezamon	`sub get_pos{`
32			`my ($item,@list)=@_;`
33			`my $pos=0;`
34			`foreach my $p (@list){`
35			`#print "$p eq $item\n";`
36			`if ($p eq $item){return $pos;}`
37			`$pos++;`
38			`}`
39			`return undef;`
40
41			`}`
42	16	alirezamon
43	22	alirezamon
44	16	alirezamon	`sub noc_param_widget{`
45	25	alirezamon	`my ($mpsoc,$name,$param, $default,$type,$content,$info, $table,$row,$show,$attribut1,$ref_delay)=@_;`
46	16	alirezamon	`my $label =gen_label_in_left(" $name");`
47			`my $widget;`
48	25	alirezamon	`my $value=$mpsoc->object_get_attribute($attribut1,$param);`
49	16	alirezamon	`if(! defined $value) {`
50	25	alirezamon	`$mpsoc->object_add_attribute($attribut1,$param,$default);`
51			`$mpsoc->object_add_attribute_order($attribut1,$param);`
52	16	alirezamon	`$value=$default;`
53			`}`
54	25	alirezamon	`if( ! defined $ref_delay){`
55			`$ref_delay=($type eq "Entry") ? 10 : 1;`
56
57			`}`
58	16	alirezamon	`if ($type eq "Entry"){`
59			`$widget=gen_entry($value);`
60			`$widget-> signal_connect("changed" => sub{`
61			`my $new_param_value=$widget->get_text();`
62	25	alirezamon	`$mpsoc->object_add_attribute($attribut1,$param,$new_param_value);`
63			`set_gui_status($mpsoc,"ref",$ref_delay);`
64
65	16	alirezamon
66			`});`
67
68
69			`}`
70			`elsif ($type eq "Combo-box"){`
71			`my @combo_list=split(",",$content);`
72	25	alirezamon	`my $pos=get_pos($value, @combo_list) if(defined $value);`
73	22	alirezamon	`if(!defined $pos){`
74	25	alirezamon	`$mpsoc->object_add_attribute($attribut1,$param,$default);`
75			`$pos=get_item_pos($default, @combo_list) if (defined $default);`
76	22	alirezamon
77			`}`
78	16	alirezamon	`#print " my $pos=get_item_pos($value, @combo_list);\n";`
79			`$widget=gen_combo(\@combo_list, $pos);`
80			`$widget-> signal_connect("changed" => sub{`
81			`my $new_param_value=$widget->get_active_text();`
82	25	alirezamon	`$mpsoc->object_add_attribute($attribut1,$param,$new_param_value);`
83			`set_gui_status($mpsoc,"ref",$ref_delay);`
84	16	alirezamon
85
86			`});`
87
88			`}`
89			`elsif ($type eq "Spin-button"){`
90			`my ($min,$max,$step)=split(",",$content);`
91			`$value=~ s/\D//g;`
92			`$min=~ s/\D//g;`
93			`$max=~ s/\D//g;`
94			`$step=~ s/\D//g;`
95			`$widget=gen_spin($min,$max,$step);`
96			`$widget->set_value($value);`
97	24	alirezamon	`$widget-> signal_connect("value_changed" => sub{`
98	16	alirezamon	`my $new_param_value=$widget->get_value_as_int();`
99	25	alirezamon	`$mpsoc->object_add_attribute($attribut1,$param,$new_param_value);`
100			`set_gui_status($mpsoc,"ref",$ref_delay);`
101	16	alirezamon
102			`});`
103
104			`# $box=def_label_spin_help_box ($param,$info, $value,$min,$max,$step, 2);`
105			`}`
106
107			`elsif ( $type eq "Check-box"){`
108			`$widget = def_hbox(FALSE,0);`
109			`my @check;`
110			`for (my $i=0;$i<$content;$i++){`
111			`$check[$i]= Gtk2::CheckButton->new;`
112			`}`
113			`for (my $i=0;$i<$content;$i++){`
114			`$widget->pack_end( $check[$i], FALSE, FALSE, 0);`
115
116			`my @chars = split("",$value);`
117			`#check if saved value match the size of check box`
118			`if($chars[0] ne $content ) {`
119	25	alirezamon	`$mpsoc->object_add_attribute($attribut1,$param,$default);`
120	16	alirezamon	`$value=$default;`
121			`@chars = split("",$value);`
122			`}`
123			`#set initial value`
124
125			`#print "\@chars=@chars\n";`
126			`for (my $i=0;$i<$content;$i++){`
127			`my $loc= (scalar @chars) -($i+1);`
128			`if( $chars[$loc] eq '1') {$check[$i]->set_active(TRUE);}`
129			`else {$check[$i]->set_active(FALSE);}`
130			`}`
131
132
133			`#get new value`
134			`$check[$i]-> signal_connect("toggled" => sub{`
135			`my $new_val="$content\'b";`
136
137			`for (my $i=$content-1; $i >= 0; $i--){`
138			`if($check[$i]->get_active()) {$new_val="${new_val}1" ;}`
139			`else {$new_val="${new_val}0" ;}`
140			`}`
141	25	alirezamon	`$mpsoc->object_add_attribute($attribut1,$param,$new_val);`
142	16	alirezamon	`#print "\$new_val=$new_val\n";`
143	25	alirezamon	`set_gui_status($mpsoc,"ref",$ref_delay);`
144	16	alirezamon	`});`
145			`}`
146
147
148
149
150			`}`
151	25	alirezamon	`elsif ( $type eq "DIR_path"){`
152			`$widget =get_dir_in_object ($mpsoc,$attribut1,$param,$value,'ref',10);`
153			`}`
154
155
156
157	16	alirezamon	`else {`
158			`$widget =gen_label_in_left("unsuported widget type!");`
159			`}`
160
161			`my $inf_bt= gen_button_message ($info,"icons/help.png");`
162			`if($show==1){`
163			`my $tmp=gen_label_in_left(" ");`
164			`$table->attach_defaults ($label , 0, 4, $row,$row+1);`
165			`$table->attach_defaults ($inf_bt , 4, 5, $row,$row+1);`
166			`$table->attach_defaults ($widget , 5, 9, $row,$row+1);`
167			`$table->attach_defaults ($tmp , 9, 10, $row,$row+1);`
168			`$row++;`
169			`}`
170			`return $row;`
171			`}`
172
173
174			`sub initial_default_param{`
175			`my $mpsoc=shift;`
176			`my @socs=$mpsoc->mpsoc_get_soc_list();`
177			`foreach my $soc_name (@socs){`
178			`my %param_value;`
179			`my $top=$mpsoc->mpsoc_get_soc($soc_name);`
180			`my @insts=$top->top_get_all_instances();`
181			`my @exceptions=('ni0');`
182			`@insts=get_diff_array(\@insts,\@exceptions);`
183			`foreach my $inst (@insts){`
184			`my @params=$top->top_get_parameter_list($inst);`
185			`foreach my $p (@params){`
186			`my ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);`
187			`$param_value{$p}=$default;`
188			`}`
189			`}`
190			`$top->top_add_default_soc_param(\%param_value);`
191			`}`
192
193			`}`
194
195			`#############`
196			`# get_soc_lists`
197			`############`
198
199			`sub get_soc_list {`
200	25	alirezamon	`my ($mpsoc,$info)=@_;`
201	16	alirezamon
202	25	alirezamon
203			`my $path=$mpsoc->object_get_attribute('setting','soc_path');`
204
205	18	alirezamon	`$path =~ s/ /\\ /g;`
206			`my @socs;`
207	16	alirezamon	`my @files = glob "$path/*.SOC";`
208			`for my $p (@files){`
209
210			`# Read`
211			`my $soc = eval { do $p };`
212	25	alirezamon	`if ($@ \|\| !defined $soc){`
213			`add_info(\$info,"**Error reading $p file: $@\n");`
214			`next;`
215			`}`
216	16	alirezamon	`my $top=$soc->soc_get_top();`
217			`if (defined $top){`
218			`my @instance_list=$top->top_get_all_instances();`
219			`#check if the soc has ni port`
220			`foreach my $instanc(@instance_list){`
221			`my $module=$top->top_get_def_of_instance($instanc,'module');`
222			`if($module eq 'ni')`
223			`{`
224	25	alirezamon	`my $name=$soc->object_get_attribute('soc_name');`
225	16	alirezamon	`$mpsoc->mpsoc_add_soc($name,$top);`
226			`#print" $name\n";`
227			`}`
228			`}`
229
230			`}`
231
232
233
234
235
236
237
238
239			`}#files`
240
241			`# initial default soc parameter`
242			`initial_default_param($mpsoc);`
243
244
245
246			`return $mpsoc->mpsoc_get_soc_list;`
247
248
249
250			`}`
251			`####################`
252			`# get_conflict_decision`
253			`###########################`
254			`sub b_box{`
255			`# create a new button`
256			`my @label=@_;`
257			`my $button = Gtk2::Button->new_from_stock(@label);`
258			`my $box=def_vbox(FALSE,5);`
259			`$box->pack_start($button, FALSE, FALSE,0);`
260
261			`return ($box,$button);`
262
263			`}`
264
265			`sub get_conflict_decision{`
266	25	alirezamon	`my ($mpsoc,$name,$inserted,$conflicts,$msg)=@_;`
267	17	alirezamon	`$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? ";`
268	16	alirezamon
269			`my $wind=def_popwin_size(100,300,"warning");`
270			`my $label= gen_label_in_left($msg);`
271			`my $table=def_table(2,6,FALSE);`
272			`$table->attach_defaults ($label , 0, 6, 0,1);`
273			`$wind->add($table);`
274
275			`my ($box1,$b1)= b_box("Remove Previous");`
276			`my ($box2,$b2)= b_box("Remove Current");`
277			`my ($box3,$b3)= b_box("Cancel");`
278
279			`$table->attach_defaults ($box1 , 0, 1, 1,2);`
280			`$table->attach_defaults ($box2 , 3, 4, 1,2);`
281			`$table->attach_defaults ($box3 , 5, 6, 1,2);`
282
283			`$wind->show_all();`
284
285			`$b1->signal_connect( "clicked"=> sub{ #Remove Previous`
286			`my @socs=$mpsoc->mpsoc_get_soc_list();`
287			`foreach my $p (@socs){`
288			`if($p ne $name){`
289			`my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);`
290			`my @diff=get_diff_array(\@taken_tiles,$inserted);`
291			`$mpsoc->mpsoc_add_soc_tiles_num($p,\@diff) if(scalar @diff );`
292			`$mpsoc->mpsoc_add_soc_tiles_num($p,undef) if(scalar @diff ==0 );`
293			`}`
294			`}`
295			`$mpsoc->mpsoc_add_soc_tiles_num($name,$inserted) if(defined $inserted );`
296	25	alirezamon	`set_gui_status($mpsoc,"ref",1);`
297	16	alirezamon	`$wind->destroy();`
298
299			`});`
300
301			`$b2->signal_connect( "clicked"=> sub{#Remove Current`
302			`my @new= get_diff_array($inserted,$conflicts);`
303			`$mpsoc->mpsoc_add_soc_tiles_num($name,\@new) if(scalar @new );`
304			`$mpsoc->mpsoc_add_soc_tiles_num($name,undef) if(scalar @new ==0 );`
305	25	alirezamon	`set_gui_status($mpsoc,"ref",1);`
306	16	alirezamon	`$wind->destroy();`
307
308			`});`
309
310			`$b3->signal_connect( "clicked"=> sub{`
311			`$wind->destroy();`
312
313			`});`
314
315			`}`
316
317
318
319			`#############`
320			`# check_inserted_ip_nums`
321			`##########`
322
323
324			`sub check_inserted_ip_nums{`
325	25	alirezamon	`my ($mpsoc,$name,$str)=@_;`
326	16	alirezamon	`my @all_num=();`
327			`$str= remove_all_white_spaces ($str);`
328
329			`if($str !~ /^[0-9.:,]+$/){ message_dialog ("The Ip numbers contains invalid character" ); return; }`
330			`my @chunks=split(',',$str);`
331			`foreach my $p (@chunks){`
332			`my @range=split(':',$p);`
333			`my $size= scalar @range;`
334			`if($size==1){ # its a number`
335			`if ( grep( /^$range[0]$/, @all_num ) ) { message_dialog ("Multiple definition for Ip number $range[0]" ); return; }`
336			`push(@all_num,$range[0]);`
337			`}elsif($size ==2){# its a range`
338			`my($min,$max)=@range;`
339			`if($min>$max) {message_dialog ("invalid range: [$p]" ); return;}`
340			`for (my $i=$min; $i<=$max; $i++){`
341			`if ( grep( /^$i$/, @all_num ) ) { message_dialog ("Multiple definition for Ip number $i in $p" ); return; }`
342			`push(@all_num,$i);`
343
344			`}`
345
346			`}else{message_dialog ("invalid range: [$p]" ); return; }`
347
348			`}`
349			`#check if range does not exceed the tile numbers`
350	25	alirezamon	`my $nx= $mpsoc->object_get_attribute('noc_param',"NX");`
351			`my $ny= $mpsoc->object_get_attribute('noc_param',"NY");`
352	16	alirezamon
353			`my $max_tile_num=$nx*$ny;`
354			`my @f=sort { $a <=> $b } @all_num;`
355			`my @l;`
356			`foreach my $num (@f){`
357			`push(@l,$num) if($num<$max_tile_num);`
358
359			`}`
360			`@all_num=@l;`
361
362			`#check if any ip number exists in the rest`
363			`my $conflicts_msg;`
364			`my @conflicts;`
365
366
367			`my @socs=$mpsoc->mpsoc_get_soc_list();`
368			`foreach my $p (@socs){`
369			`if($p ne $name){`
370			`my @taken_tiles=$mpsoc->mpsoc_get_soc_tiles_num($p);`
371			`my @c=get_common_array(\@all_num,\@taken_tiles);`
372			`if (scalar @c) {`
373			`my $str=join(',', @c);`
374	17	alirezamon	`$conflicts_msg = (defined $conflicts_msg)? "$conflicts_msg\n\t\t $str->$p" : "$str->$p";`
375	16	alirezamon	`@conflicts= (defined $conflicts_msg)? (@conflicts,@c): @c;`
376			`}`
377			`}#if`
378			`}`
379			`if (defined $conflicts_msg) {`
380	25	alirezamon	`get_conflict_decision($mpsoc,$name,\@all_num,\@conflicts,$conflicts_msg);`
381	16	alirezamon
382			`}else {`
383			`#save the entered ips`
384			`if( scalar @all_num>0){ $mpsoc->mpsoc_add_soc_tiles_num($name,\@all_num);}`
385			`else {$mpsoc->mpsoc_add_soc_tiles_num($name,undef);}`
386	25	alirezamon	`set_gui_status($mpsoc,"ref",1);`
387	16	alirezamon	`}`
388
389
390
391			`}`
392
393
394
395
396			`#################`
397			`# get_soc_parameter_setting`
398			`################`
399
400			`sub get_soc_parameter_setting{`
401	25	alirezamon	`my ($mpsoc,$soc_name,$tile)=@_;`
402	16	alirezamon
403			`my $window = (defined $tile)? def_popwin_size(600,400,"Parameter setting for $soc_name located in tile($tile) "):def_popwin_size(600,400,"Default Parameter setting for $soc_name ");`
404			`my $table = def_table(10, 7, TRUE);`
405
406			`my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);`
407			`$scrolled_win->set_policy( "automatic", "automatic" );`
408			`$scrolled_win->add_with_viewport($table);`
409			`my $row=0;`
410
411			`my $top=$mpsoc->mpsoc_get_soc($soc_name);`
412
413			`#read soc parameters`
414			`my %param_value=(defined $tile) ? $top->top_get_custom_soc_param($tile) : $top->top_get_default_soc_param();`
415
416
417
418			`my @insts=$top->top_get_all_instances();`
419			`my @exceptions=('ni0');`
420			`@insts=get_diff_array(\@insts,\@exceptions);`
421			`foreach my $inst (@insts){`
422			`my @params=$top->top_get_parameter_list($inst);`
423			`foreach my $p (@params){`
424			`my ($default,$type,$content,$info,$global_param,$redefine)=$top->top_get_parameter($inst,$p);`
425
426			`if ($type eq "Entry"){`
427			`my $entry=gen_entry($param_value{$p});`
428			`$table->attach_defaults ($entry, 3, 6, $row, $row+1);`
429			`$entry-> signal_connect("changed" => sub{$param_value{$p}=$entry->get_text();});`
430			`}`
431			`elsif ($type eq "Combo-box"){`
432			`my @combo_list=split(",",$content);`
433	25	alirezamon	`my $pos=get_item_pos($param_value{$p}, @combo_list) if(defined $param_value{$p});`
434	16	alirezamon	`my $combo=gen_combo(\@combo_list, $pos);`
435			`$table->attach_defaults ($combo, 3, 6, $row, $row+1);`
436			`$combo-> signal_connect("changed" => sub{$param_value{$p}=$combo->get_active_text();});`
437
438			`}`
439			`elsif ($type eq "Spin-button"){`
440			`my ($min,$max,$step)=split(",",$content);`
441			`$param_value{$p}=~ s/\D//g;`
442			`$min=~ s/\D//g;`
443			`$max=~ s/\D//g;`
444			`$step=~ s/\D//g;`
445			`my $spin=gen_spin($min,$max,$step);`
446			`$spin->set_value($param_value{$p});`
447			`$table->attach_defaults ($spin, 3, 4, $row, $row+1);`
448	24	alirezamon	`$spin-> signal_connect("value_changed" => sub{$param_value{$p}=$spin->get_value_as_int();});`
449	16	alirezamon
450			`# $box=def_label_spin_help_box ($param,$info, $value,$min,$max,$step, 2);`
451			`}`
452			`my $label =gen_label_in_center($p);`
453			`$table->attach_defaults ($label, 0, 3, $row, $row+1);`
454			`if (defined $info){`
455			`my $info_button=def_image_button('icons/help.png');`
456			`$table->attach_defaults ($info_button, 6, 7, $row, $row+1);`
457			`$info_button->signal_connect('clicked'=>sub{`
458			`message_dialog($info);`
459
460			`});`
461
462			`}`
463
464			`$row++;`
465
466
467			`}`
468			`}`
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490	25	alirezamon
491	16	alirezamon	`my $ok = def_image_button('icons/select.png','OK');`
492			`my $okbox=def_hbox(TRUE,0);`
493			`$okbox->pack_start($ok, FALSE, FALSE,0);`
494
495
496			`my $mtable = def_table(10, 1, TRUE);`
497
498			`$mtable->attach_defaults($scrolled_win,0,1,0,9);`
499			`$mtable->attach_defaults($okbox,0,1,9,10);`
500

Browse

Tools

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

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [mpsoc_gen.pl] - Blame information for rev 26