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

#! /usr/bin/perl -w

use Glib qw/TRUE FALSE/;

use strict;

use warnings;

use FindBin;

use lib $FindBin::Bin;

use mpsoc;

use soc;

use ip;

use interface;

use POSIX 'strtol';

use File::Path;

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";

require "soc_gen.pl";

require "diagram.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{

    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=get_NI_instance_list($top);

        @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);

      #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

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

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){

       my ($soc,$r,$err) = regen_object($p);

        # Read       

         if ($r){

            add_info(\$info,"**Error reading  $p file: $err\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 $category=$top->top_get_def_of_instance($instanc,'category');

                if($category eq 'NoC')

                {

                    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;

}

sub get_NI_instance_list {

    my $top=shift;

    my @nis;

    my @instance_list=$top->top_get_all_instances();

    #check if the soc has ni port

    foreach my $instanc(@instance_list){

            my $category=$top->top_get_def_of_instance($instanc,'category');

             push(@nis,$instanc) if($category eq 'NoC') ;

    }

    return @nis;

}

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

# 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(10,30,"warning",'percent');

    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 ($max_tile_num)=get_topology_info($mpsoc);

    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(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);

    $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=get_NI_instance_list($top);

    @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);

            $mpsoc->object_add_attribute("soc_params_${soc_name}","default",\%param_value);

        }

        else {

            $top->top_add_custom_soc_param(\%param_value,$tile);

            $mpsoc->object_add_attribute("soc_params_${soc_name}","$tile",\%param_value);

        }

        #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 ( $button, 0, 1, $row,$row+1,'fill','fill',2,2);

    $table->attach ( $remove, 1, 2, $row,$row+1,'fill','shrink',2,2);

    $table->attach ( $entry , 2, 3, $row,$row+1,'fill','shrink',2,2);

    $table->attach ( $set, 3, 4, $row,$row+1,'fill','shrink',2,2);

    $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,4, $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  ($label, 0, 1 , $row,$row+1,'fill','shrink',2,2);

        $table->attach ($tmp, 1, 2 , $row,$row+1,'fill','shrink',2,2);

        $table->attach ($entry, 2, 3 , $row,$row+1,'fill','shrink',2,2);

        $table->attach ($browse, 3, 4, $row,$row+1,'fill','shrink',2,2);

        $row++;

    }