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 Data::Dumper;

use intfc_gen;

use rvp;

use Gtk2;

require "widget.pl";

sub read_file_modules{

        my ($file,$intfc_gen,$soc_state,$info)=@_;

        if (!defined $file) {return; }

        if (-e $file) {

                my $vdb =  read_file($file);

                my @modules=sort $vdb->get_modules($file);

                #foreach my $p(@module_list) {print "$p\n"}

                $intfc_gen->intfc_set_interface_file($file);

                $intfc_gen->intfc_set_module_name($modules[0]);

                $intfc_gen->intfc_add_module_list(@modules);

                set_state($soc_state,"file_selected",1);

                show_info(\$info,"Select the module which contain the interface ports\n ");

        }

        else {

                show_info(\$info,"File $file doese not exsit!\n ");

        }

}

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

#  check_input_intfc_file

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

sub check_input_intfc_file{

        my ($file,$intfc_gen,$soc_state,$info)=@_;

        my ($name,$path,$suffix) = fileparse("$file",qr"\..[^.]*$");

        if($suffix eq '.ITC'){

                $intfc_gen->intfc_set_interface_file($file);

                set_state($soc_state,"load_file",0);

        }else{

                read_file_modules($file,$intfc_gen,$soc_state,$info);

        }

}

sub file_box {

        my ($intfc_gen,$soc_state,$info,$table,$row)=@_;

        my $label = gen_label_in_left("Select file:");

        my $entry = Gtk2::Entry->new;

        my $open= def_image_button("icons/select.png","Open");

        my $browse= def_image_button("icons/browse.png","Browse");

        my $file= $intfc_gen->intfc_get_interface_file();

        my $intfc_info= def_image_button("icons/info.png","Description");

        $intfc_info->signal_connect("clicked"=> sub{

                get_intfc_description($intfc_gen,$soc_state,$info);

        });

        if(defined $file){$entry->set_text($file);}

        show_info(\$info,"Please select the verilog file containig the interface\n");

        $browse->signal_connect("clicked"=> sub{

                my $entry_ref=$_[1];

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

                        $filter->add_pattern("*.v");

                        my $filter2 = Gtk2::FileFilter->new();

                        $filter2->set_name("Interface");

                        $filter2->add_pattern("*.ITC");

                        $dialog->add_filter ($filter);

                        $dialog->add_filter ($filter2);

                if ( "ok" eq $dialog->run ) {

                        $file = $dialog->get_filename;

                                        $$entry_ref->set_text($file);

                                        check_input_intfc_file($file,$intfc_gen,$soc_state,$info);

                                        #read_file_modules($file,$intfc_gen,$soc_state,$info);

                        #print "file = $file\n";

                 }

                $dialog->destroy;

        } , \$entry);

        $open->signal_connect("clicked"=> sub{

                my $file_name=$entry->get_text();

                check_input_intfc_file($file,$intfc_gen,$soc_state,$info);

                #read_file_modules($file_name,$intfc_gen,$soc_state,$info);

                });

        $entry->signal_connect("activate"=>sub{

                my $file_name=$entry->get_text();

                read_file_modules($file_name,$intfc_gen,$soc_state,$info);

        });

        $entry->signal_connect("changed"=>sub{

                show_info(\$info,"Please select the verilog file containig the interface\n");

        });

        $table->attach_defaults ($label, 0, 1 , $row, $row+1);

        $table->attach_defaults ($entry, 1, 7 , $row, $row+1);

        $table->attach_defaults ($browse, 7, 8, $row, $row+1);

        $table->attach_defaults ($intfc_info, 8, 9 , $row, $row+1);

        #$table->attach_defaults ($open,  9, 10, $row, $row+1);

        #$table->attach_defaults ($entry, $col, $col+1, $row, $row+1);

        #return $table;

}

sub get_ports_type{

        my ($vdb,$top_module)=@_;

        my %ports;

        foreach my $sig (sort $vdb->get_modules_signals($top_module)) {

        my ($line,$a_line,$i_line,$type,$file,$posedge,$negedge,

         $type2,$s_file,$s_line,$range,$a_file,$i_file,$dims) =

           $vdb->get_module_signal($top_module,$sig);

                if($type eq "input" or $type eq "inout" or $type eq "output" ){

                        $ports{$sig}=$type;

                }

        }

        return %ports;

}

sub get_ports_rang{

        my ($vdb,$top_module)=@_;

        my %ports;

        foreach my $sig (sort $vdb->get_modules_signals($top_module)) {

        my ($line,$a_line,$i_line,$type,$file,$posedge,$negedge,

         $type2,$s_file,$s_line,$range,$a_file,$i_file,$dims) =

           $vdb->get_module_signal($top_module,$sig);

                if($type eq "input" or $type eq "inout" or $type eq "output" ){

                        $ports{$sig}=remove_all_white_spaces($range);

                }

        }

        return %ports;

}

sub get_interface_ports {

        my ($infc_gen,$soc_state,$info)=@_;

        my $window=def_popwin_size(800,600,"Import Ports");

        my $file=$infc_gen->intfc_get_interface_file();

        if (!defined $file){show_info(\$info,"File name has not been defined yet!");  return;}

        my $module=$infc_gen->intfc_get_module_name();

        if (!defined $module){  show_info(\$info,"Module name has not been selected yet!");  return;}

        my $vdb=read_file($file);

        my %port_type=get_ports_type($vdb,$module);

        my %port_range=get_ports_rang($vdb,$module);

        my $table=def_table(8,8,TRUE);

        my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);

        $scrolled_win->set_policy( "automatic", "automatic" );

        $scrolled_win->add_with_viewport($table);

        my $title=gen_label_in_center("Select the ports included in the interface");

        my $title1=gen_label_in_center("Type");

        my $title2=gen_label_in_center("Range");

        my $title3=gen_label_in_center("Name");

        my $title4=gen_label_in_center("Select");

        my $row =0;

        $table->attach_defaults($title, 0,8, $row, $row+1);

        $row++;

        $table->attach_defaults($title1, 0,1, $row, $row+1);

        $table->attach_defaults($title2, 1,4, $row, $row+1);

        $table->attach_defaults($title3, 4,7, $row, $row+1);

        $table->attach_defaults($title4, 7,8, $row, $row+1);

        my $separator = Gtk2::HSeparator->new;

        $row++;

        $table->attach_defaults($separator, 0,8, $row, $row+1);

        $row++;

        $infc_gen->intfc_remove_ports();

        foreach my $p (sort keys %port_type){

                my $port_id= $p;

                my $porttype=$port_type{$p};

                my $label1= gen_label_in_center("$porttype");

                $table->attach_defaults($label1, 0,1, $row, $row+1);

                my $portrange=$port_range{$p};

                if (  $port_range{$p} ne ''){

                        my $label2= gen_label_in_center("\[$portrange\]");

                        $table->attach_defaults($label2, 1,4, $row, $row+1);

                }

                my $label3= gen_label_in_center($p);

                $table->attach_defaults($label3, 4,7, $row, $row+1);

                my $check= Gtk2::CheckButton->new;

                $table->attach_defaults($check, 7,8, $row, $row+1);

                $row++;

                if($row>8){$table->resize ($row, 8);}

                #print "$p\:$port_type{$p}\n";

                $check->signal_connect("toggled"=>sub{

                        my $widget=shift;

                        my $in=$widget->get_active();

                        if ($in eq 1){

                                my $connect_type=($porttype eq "input")? "output" : ($porttype eq "output")? "input" : $porttype;

                                $infc_gen->intfc_add_port($port_id,$porttype,$portrange,$p,$connect_type,$portrange,$p,"concatenate","Active low");

                                #print "chanhed to $in \n";

                        }else {

                                $infc_gen->intfc_remove_port($port_id);

                                #print "chanhed to 0 \n";

                        }

                });

        }

        my $ok= def_image_button("icons/select.png","ok");

        $table->attach_defaults($ok, 3,5, $row, $row+1);

        $ok->signal_connect("clicked"=>sub{

                $window->destroy;

                set_state($soc_state,"refresh",1);

                });

        $window->add($scrolled_win);

        $window->show_all();

}

sub module_select{

        my ($infc_gen,$soc_state,$info,$table,$row)=@_;

        my $file= $infc_gen->intfc_get_interface_file();

        my $label = gen_label_in_left("Select module:");

        my @modules= $infc_gen->intfc_get_module_list();

        my $saved_module=$infc_gen->intfc_get_module_name();

        my $pos=(defined $saved_module ) ? get_scolar_pos( $saved_module,@modules) : 0;

        my $combo = gen_combo(\@modules, $pos);

        my $port= def_image_button("icons/import.png","Import Ports");

        my $label2= gen_label_in_left(" Select Category:");

        my ($category,$category_entry)=gen_entry_help('Define the Interface category:e.g RAM, wishbone,...');

        my $saved_category=$infc_gen->intfc_get_category();

        if(defined $saved_category){$category_entry->set_text($saved_category);}

        $table->attach_defaults ($label, 0, 1 , $row, $row+1);

        $table->attach_defaults ($combo, 1, 3 , $row,$row+1);

        $table->attach_defaults ($port, 3, 4 , $row, $row+1);

        $table->attach_defaults ($label2, 4, 5 , $row, $row+1);

        $table->attach_defaults ($category, 5, 6 , $row, $row+1);

        $combo->signal_connect("changed"=> sub{

                my $module= $combo->get_active_text();

                $infc_gen->intfc_set_module_name($module);

        });

        $port->signal_connect("clicked"=> sub{

                get_interface_ports($infc_gen,$soc_state,$info);

        });

        $category_entry->signal_connect("changed"=> sub{

                my $name=$category_entry->get_text();

                $infc_gen->intfc_set_category($name);

        });

}

sub interface_type_select {

        my ($infc_gen,$soc_state,$info,$table,$row)=@_;

        my $saved_intfc_type= $infc_gen->intfc_get_interface_type();

        my $label = gen_label_in_left("Interface name:");

        my $saved_name=$infc_gen->intfc_get_interface_name();

        my $entry=gen_entry($saved_name);

        $entry->signal_connect("changed"=>sub{

                my $widget=shift;

                my $name=$widget->get_text();

                $infc_gen->intfc_set_interface_name($name);

                set_state($soc_state,"refresh",50);

        }

        );

        my $saved_connection_num= $infc_gen->intfc_get_connection_num();

        my $label2 = gen_label_in_left("Select soket type:");

        my @connection_nums=("single connection","multi connection");

        my $pos;

        if(defined $saved_connection_num){

                $pos= get_scolar_pos( $saved_connection_num,@connection_nums);

        }

        else {

                $pos= 0;

                $infc_gen->intfc_set_connection_num($connection_nums[0]);

        }

        my $combo=gen_combo(\@connection_nums,$pos);

        $combo->signal_connect("changed"=>sub{

                my $widget=shift;

                my $connection_num=$widget->get_active_text();

                $infc_gen->intfc_set_connection_num($connection_num);

                set_state($soc_state,"refresh",1);

        });

        $table->attach_defaults ($label, 0, 1 , $row, $row+1);

        $table->attach_defaults ($entry, 1, 2 , $row, $row+1);

        $table->attach_defaults ($label2, 2, 3 , $row, $row+1);

        $table->attach_defaults ($combo, 3, 4 , $row, $row+1);

}

sub port_width_repeat{

        my ($range,$value)=@_;

        $range=remove_all_white_spaces($range);

        my ($h,$l)=split(':',$range);

        return "$value" if(!defined $h ) ; # port width is 1

        return "$value" if($h eq "0" && "$l" eq "0"); # port width is 1

        $h=$l if($h eq "0" && "$l" ne "0");

        if($h =~ /-1$/){ # the address ranged is endup with -1 

                $h =~ s/-1$//; # remove -1

                return "\{$h\{$value\}\}"  if($h =~ /\)$/);

                return "\{($h)\{$value\}\}" if($h =~ /[\*\.\+\-\^\%\&]/);

                return "\{$h\{$value\}\}";

        }

        return "\{($h+1){$value}}";

}

sub port_select{

        my ($infc_gen,$soc_state,$info,$table,$row)=@_;

        my(%types,%ranges,%names,%connect_types,%connect_ranges,%connect_names,%outport_types,%default_outs);

        $infc_gen->intfc_get_ports(\%types,\%ranges,\%names,\%connect_types,\%connect_ranges,\%connect_names,\%outport_types,\%default_outs);

        my $size = keys %types;

        if($size >0){

                my $sep = Gtk2::HSeparator->new;

                $table->attach_defaults ($sep, 0, 10 , $row, $row+1);    $row++;

                my $swap= def_image_button("icons/swap.png","swap");

                $swap->signal_connect('clicked'=>sub{

                        my $type=$infc_gen->intfc_get_interface_type();

                        if($type eq 'plug'){

                                        $infc_gen->intfc_set_interface_type('socket');

                        }

                        else {

                                        $infc_gen->intfc_set_interface_type('plug');

                        }

                        set_state($soc_state,"refresh",1);

                });

                my @intfcs=("plug","socket");

                my $inttype=$infc_gen->intfc_get_interface_type();

                if (!defined $inttype){

                        $inttype='plug';

                        $infc_gen->intfc_set_interface_type($inttype);

                }

                #my $lab1= gen_label_in_center($inttype);

                my ($lab1,$lab2);

                if ($inttype eq 'plug'){

                        $lab1=def_image_label('icons/plug.png'  ,'plug  ');

                        $lab2=def_image_label('icons/socket.png','socket');

                }else {

                        $lab2=def_image_label('icons/plug.png','plug');

                        $lab1=def_image_label('icons/socket.png','socket');

                }

                my $sep2 = Gtk2::HSeparator->new;

                $table->attach_defaults ($lab1, 1, 2 , $row, $row+1);

                $table->attach_defaults ($swap, 3, 4 , $row, $row+1);

                $table->attach_defaults ($lab2, 5, 6 , $row, $row+1);   $row++;

                $table->attach_defaults ($sep2, 0, 9 , $row, $row+1);    $row++;

                my $lab3= gen_label_in_center("Type");

                my $lab4= gen_label_in_center("Range");

                my $lab5= gen_label_in_center("Name");

                $table->attach_defaults ($lab3, 0, 1 , $row, $row+1);

                $table->attach_defaults ($lab4, 1, 2 , $row, $row+1);

                $table->attach_defaults ($lab5, 2, 3 , $row, $row+1);

                my $lab6= gen_label_in_center("Type");

                my $lab7= gen_label_in_center("Range");

                my $lab8= gen_label_in_center("Name");

                $table->attach_defaults ($lab6, 4, 5 , $row, $row+1);

                $table->attach_defaults ($lab7, 5, 6 , $row, $row+1);

                $table->attach_defaults ($lab8, 6, 7 , $row, $row+1);

                my $lab9= gen_label_help ("When an IP core does not have any of interface output port, the default value will be send to the IP core's input port which is supposed to be connected to that port","Output port Default ");

                $table->attach_defaults ($lab9, 8, 9 , $row, $row+1);

                $row++;

                foreach my $id (sort keys %ranges){

                        my $type=$types{$id};

                        my $range=$ranges{$id};

                        my $name=$names{$id};

                        my $connect_type=$connect_types{$id};

                        my $connect_range=$connect_ranges{$id};

                        my $connect_name=$connect_names{$id};

                        my $outport_type=$outport_types{$id};

                        my $default_out=$default_outs{$id};

                        if(! defined $default_out){

                                $default_out = "Active low"; # port_width_repeat($connect_range,"1\'b0");

                                $infc_gen->intfc_add_port($id,$type,$range,$name,$connect_type,$connect_range,$connect_name,$outport_type,$default_out);

                                print "\$default_out is set to: $default_out\n ";

                        }

                        #my $box=def_hbox(FALSE,0);

                        my @ports_type=("input","output","inout");

                        my $pos=get_scolar_pos($type,@ports_type);

                        my $combo1=gen_combo(\@ports_type,$pos);

                        my $entry2=gen_entry($range);

                        my $entry3=gen_entry($name);

                        my $separator = Gtk2::VSeparator->new;

                        my $connect_type_lable= gen_label_in_center($connect_type);

                        my $entry4=gen_entry($connect_range);

                        my $entry5=gen_entry($connect_name);

                        my @outport_types=("shared","concatenate");

                        my $pos2=get_scolar_pos($outport_type,@outport_types);

                        my $combo2=gen_combo(\@outport_types,$pos2);

                        #my @list=(port_width_repeat($range,"1\'b0"),port_width_repeat($range,"1\'b1"),port_width_repeat($range,"1\'bx"));

                        my @list=("Active low","Active high","Don't care");

                        my $combentry=gen_combo_entry(\@list);

                        $pos2=get_scolar_pos($default_out,@list);

                        if( defined $pos2){

                                $combentry->set_active($pos2);

                        } else {

                                ($combentry->child)->set_text($default_out);

                        }

                        #$box->pack_start($entry3,TRUE,FALSE,3);

                        #$box->pack_start($separator,TRUE,FALSE,3);

                        $table->attach_defaults ($combo1, 0, 1 , $row, $row+1);

                        $table->attach_defaults ($entry2, 1, 2 , $row, $row+1);

                        $table->attach_defaults ($entry3, 2, 3 , $row, $row+1);

                        $table->attach_defaults ($connect_type_lable, 4, 5 , $row, $row+1);