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,$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_gui_status($intfc_gen,"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,$info)=@_;

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

        if($suffix eq '.ITC'){

                $intfc_gen->intfc_set_interface_file($file);

                set_gui_status($intfc_gen,"load_file",0);

        }else{

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

        }

}

sub file_box {

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

        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/add_info.png","Description");

        my $table = def_table(1,10,TRUE);

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

                get_intfc_description($intfc_gen,$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,$info);

                                        #read_file_modules($file,$intfc_gen,$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,$info);

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

                });

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

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

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

        });

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

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

        });

        my $row=0;

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

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

        $table->attach ($browse, 7, 8, $row, $row+1,'shrink','shrink',2,2);

        $table->attach ($intfc_info, 8, 9 , $row, $row+1,'shrink','shrink',2,2);

        #$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 ($intfc_gen,$info)=@_;

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

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

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

        my $module=$intfc_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++;

        $intfc_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;

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

                                #print "chanhed to $in \n";

                        }else {

                                $intfc_gen->intfc_remove_port($port_id);

                                #print "chanhed to 0 \n";

                        }

                });

        }

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

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

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

                $window->destroy;

                set_gui_status($intfc_gen,"refresh",1);

                });

        $window->add($scrolled_win);

        $window->show_all();

}

sub module_select{

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

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

        my $table = def_table(1,10,TRUE);

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

        my $combo=gen_combobox_object($intfc_gen,'module_name',undef,join(',', @modules),undef,'refresh',1);

        my $modul_name=labele_widget_info(" Select module:",$combo);

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

        my $category_entry=gen_entry_object($intfc_gen,'category',undef,undef,undef,undef);

        my $category=labele_widget_info(" Select Category:",$category_entry,'Define the Interface category:e.g RAM, wishbone,...');

        my $row=0;

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

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

        $table->attach ($port, 4, 6 , $row, $row+1,'shrink','shrink',2,2);

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

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

                get_interface_ports($intfc_gen,$info);

        });

        return $table;

}

sub interface_type_select {

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

        my $entry=gen_entry_object($intfc_gen,'name',undef,undef,"refresh",50);

        my $entrybox=labele_widget_info(" Interface name:",$entry);

        my $combo=gen_combobox_object($intfc_gen,'connection_num',undef,"single connection,multi connection","single connection",'refresh',1);

        my $combo_box=labele_widget_info(" Select soket type:",$combo,'Define the soket as multi connection if only all interfaces ports all output and they can feed more than one plug connection');

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

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

}

sub port_select{

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

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

        $intfc_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=$intfc_gen->intfc_get_interface_type();

                        if($type eq 'plug'){

                                        $intfc_gen->intfc_set_interface_type('socket');

                        }

                        else {

                                        $intfc_gen->intfc_set_interface_type('plug');

                        }

                        set_gui_status($intfc_gen,"refresh",1);

                });

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

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

                if (!defined $inttype){

                        $inttype='plug';

                        $intfc_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 ($lab1, 1, 2 , $row, $row+1,'shrink','shrink',2,2);

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

                $table->attach ($lab2, 5, 6 , $row, $row+1,'shrink','shrink',2,2);      $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");

                                $intfc_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);

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

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

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

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

                                my $new_type=$combo1->get_active_text();

                                my $new_connect_type=($new_type eq "input")? "output" : ($new_type eq "output")? "input" : $new_type;

                                $intfc_gen->intfc_add_port($id,$new_type,$range,$name,$new_connect_type,$connect_range,$connect_name,$outport_type,$default_out);

                                set_gui_status($intfc_gen,"refresh",1);

                        });

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

                                $range=$entry2->get_text();

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

                                set_gui_status($intfc_gen,"refresh",50);

                        });

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

                                $name=$entry3->get_text();

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

                                set_gui_status($intfc_gen,"refresh",50);

                        });

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

                                $connect_range=$entry4->get_text();

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

                                set_gui_status($intfc_gen,"refresh",50);

                        });

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

                                $connect_name=$entry5->get_text();

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

                                set_gui_status($intfc_gen,"refresh",50);

                        });

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

                                my $new_outport_type=$combo2->get_active_text();