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

use interface;

use intfc_gen;

use ip_gen;

use rvp;

use Cwd 'abs_path';

use File::Basename;

use File::Path qw/make_path/;

use Gtk2;

require "widget.pl";

require "readme_gen.pl";

use constant DISPLY_COLUMN    => 0;

use constant CATGR_COLUMN    => 1;

use constant INTFC_COLUMN     => 2;

use constant ITAL_COLUMN   => 3;

use constant NUM_COLUMN     => 4;

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

#  check_input_file

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

sub check_input_file{

        my ($file,$ipgen,$info)=@_;

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

        if($suffix eq '.IP'){

                $ipgen->ipgen_add("file_name",$file);

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

        }else{

                read_all_module ($file,$ipgen,$info);

        }

}

sub read_all_module{

        my ($file,$ipgen,$info)=@_;

        if (!defined $file) {return; }

        if (-e $file) {

                my $vdb =  read_verilog_file($file);

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

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

                $ipgen->ipgen_add("file_name",$file);

                $ipgen->ipgen_add("module_name",$modules[0]);

                $ipgen->ipgen_set_module_list(@modules);

                load_default_setting($ipgen,$modules[0]);

                set_gui_status($ipgen,"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 ");

        }

}

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

#       create_interface_tree 

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

sub create_interface_tree {

   my ($info,$intfc,$ipgen)=@_;

   my $model = Gtk2::TreeStore->new ('Glib::String', 'Glib::String', 'Glib::Scalar', 'Glib::Boolean');

   my $tree_view = Gtk2::TreeView->new;

   $tree_view->set_model ($model);

   my $selection = $tree_view->get_selection;

   $selection->set_mode ('browse');

  # $tree_view->set_size_request (200, -1);

  # my @interface= $intfc->get_interfaces();

        my @categories= $intfc->get_categories();

   foreach my $p (@categories)

   {

        my @intfc_names=  $intfc->get_intfcs_of_category($p);

        #my @dev_entry=  @{$tree_entry{$p}};    

        my $iter = $model->append (undef);

        $model->set ($iter,

                   DISPLY_COLUMN,    $p,

                   CATGR_COLUMN, $p || '',

                   INTFC_COLUMN,     0     || '',

                   ITAL_COLUMN,   FALSE);

        next unless  @intfc_names;

        foreach my $v ( @intfc_names){

                 my $child_iter = $model->append ($iter);

                 my $entry= '';

                $model->set ($child_iter,

                                        DISPLY_COLUMN,    $v,

                        CATGR_COLUMN, $p|| '',

                        INTFC_COLUMN,     $v     || '',

                        ITAL_COLUMN,   FALSE);

        }

   }

   my $cell = Gtk2::CellRendererText->new;

   $cell->set ('style' => 'italic');

   my $column = Gtk2::TreeViewColumn->new_with_attributes

                                        ("Interfaces list",

                                        $cell,

                                        'text' => DISPLY_COLUMN,

                                        'style_set' => ITAL_COLUMN);

  $tree_view->append_column ($column);

  my @ll=($model,\$info);

#row selected

  $selection->signal_connect (changed =>sub {

        my ($selection, $ref) = @_;

        my ($model,$info)=@{$ref};

        my $iter = $selection->get_selected;

        return unless defined $iter;

        my ($category) = $model->get ($iter, CATGR_COLUMN);

        my ($name) = $model->get ($iter,INTFC_COLUMN );

        my $describ=$intfc->get_description($category,$name);

        if($describ){

                #print "$entry description is: $describ \n";

                show_info($info,$describ);

        }

}, \@ll);

#  row_activated 

  $tree_view->signal_connect (row_activated => sub{

        my ($tree_view, $path, $column) = @_;

        my $model = $tree_view->get_model;

        my $iter = $model->get_iter ($path);

        my ($category) = $model->get ($iter, CATGR_COLUMN);

        my ($name) = $model->get ($iter,INTFC_COLUMN );

        if($name){

                #print "$infc_name-$infc_type  is selected via row activaton!\n";

                add_intfc_to_ip($intfc,$ipgen,$name,'plug',\$info);

        }

}, \@ll);

  #$tree_view->expand_all;

  my $scrolled_window = Gtk2::ScrolledWindow->new;

  $scrolled_window->set_policy ('automatic', 'automatic');

  $scrolled_window->set_shadow_type ('in');

  $scrolled_window->add($tree_view);

  my $hbox = Gtk2::HBox->new (FALSE, 0);

  $hbox->pack_start ( $scrolled_window, TRUE, TRUE, 0);

  return $hbox;

}

sub save_ports_all{

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

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

                        $ipgen->ipgen_add_port($sig,$range,$type,'IO','IO');

                        #print "$sig,$range,$type,'IO','IO'\n";

                }

        }

}

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

#       file_info

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

sub ip_file_box {

        my ($ipgen,$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= $ipgen->ipgen_get("file_name");

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

        my $entry2=labele_widget_info(" IP name:",gen_entry_object($ipgen,'ip_name',undef,undef,undef,undef));

        show_info(\$info,"Please select the verilog file containig the ip module\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("IP");

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

                        $dialog->add_filter ($filter);

                        $dialog->add_filter ($filter2);

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

                        $file = $dialog->get_filename;

                                        $$entry_ref->set_text($file);

                                        check_input_file($file,$ipgen,$info);

                        #print "file = $file\n";

                 }

                $dialog->destroy;

        } , \$entry);

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

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

                check_input_file($file_name,$ipgen,$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, 8 , $row, $row+1);

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

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

}

sub select_module{

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

        my @modules= $ipgen->ipgen_get_module_list();

        my $saved_module=$ipgen->ipgen_get("module_name");

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

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

        my $top_module=labele_widget_info("  Select\n module:",$combo);

        my $param= def_image_button("icons/setting.png","Parameter\n   setting");

        my $def= def_image_button("icons/setting.png","Definition\n file setting");

        #Category       

        my $ip = ip->lib_new ();

        my @categories= $ip->ip_get_categories();

        $ip =undef;

        my $saved_category=$ipgen->ipgen_get("category");

        if(defined $saved_category ){   push(@categories,$saved_category) if(!( grep /^$saved_category$/, @categories ));}

        my $content=join( ',', @categories);

        my $combentry=gen_comboentry_object ($ipgen,'category',undef,$content,$saved_category,undef,undef);

        my $category=labele_widget_info("  Select\n Category:",$combentry,"Select the IP category form the given list or you can add a new category.");

        my $ipinfo= def_image_button("icons/add_info.png","    IP\n Description");

        my $header_h= def_image_button("icons/h_file.png","Add Software\n      files");

        my $lib_hdl= def_image_button("icons/add-notes.png","Add HDL\n     files");

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

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

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

        $table->attach ($category, 6, 8 , $row, $row+1,'expand','shrink',2,2);

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

        $table->attach ($header_h, 9, 10 , $row, $row+1,'expand','shrink',2,2);

        $table->attach ($lib_hdl, 10, 11 , $row, $row+1,'expand','shrink',2,2);

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

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

                load_default_setting($ipgen,$module);

                set_gui_status($ipgen,'intfc_changed',0);

        });

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

                get_parameter_setting($ipgen,$info);

        });

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

                get_def_setting($ipgen,$info);

        });

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

                get_Description($ipgen,$info);

        });

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

                my %page_info;

                my $help1="The files and folder that selected here will be copied in genertated processing tile SW folder.";

                my $help2="The file listed here can contain some variable with \${var_name} format. The file genertor will replace them with their values during file generation. The variable can be selected from above listed global vairables";

                my $help3='Define the header file for this peripheral device. You can use global vriables listed at the top.

header file example

 #define ${IP}_REG_0   (*((volatile unsigned int *) ($BASE)))

 #define ${IP}_REG_1   (*((volatile unsigned int *) ($BASE+4)))

 #define ${IP}_WRITE_REG1(value)  ${IP}_REG_1=value

 #define ${IP}_READ_REG1()      ${IP}_REG_1

  ';

                $page_info{0}{page_name} = "_Add exsiting file/folder";

                $page_info{0}{filed_name}= "sw_files";

                $page_info{0}{filed_type}= "exsiting_file/folder";

                $page_info{0}{rename_file}=undef;

                $page_info{0}{folder_en}=1;

                $page_info{0}{help}=$help1;

                $page_info{1}{page_name} = "_Add files contain variables";

                $page_info{1}{filed_name}= "gen_sw_files";

                $page_info{1}{filed_type}= "file_with_variables";

                $page_info{1}{rename_file}=1;

                $page_info{1}{folder_en}=0;

                $page_info{1}{help}=$help2;

                $page_info{2}{page_name} = "_Add to tile.h";

                $page_info{2}{filed_name}= "system_h";

                $page_info{2}{filed_type}= "file_content";

                $page_info{2}{rename_file}=undef;

                $page_info{2}{folder_en}=0;

                $page_info{2}{help}=$help3;

                get_source_file($ipgen,$info,0,"Add software file(s)","SW",\%page_info);

                #get_software_file($ipgen,$info,0);             

        });

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

                my $help1="The files and folder that selected here will be copied in genertated processing tile RTL  folder.";

                my $help2="The file listed here can contain some variable with \${var_name} format. The file genertor will replace them with their values during file generation. The variable can be selected from above listed global vairables";

                my $help3='The content here will be added to the generated tile.v file. You can define functions/ tasks etc...';

                my %page_info;

                $page_info{0}{page_name} = "_Add exsiting HDL file/folder";

                $page_info{0}{filed_name}= "hdl_files";

                $page_info{0}{filed_type}= "exsiting_file/folder";

                $page_info{0}{rename_file}=undef;

                $page_info{0}{folder_en}=1;

                $page_info{0}{help}=$help1;

                $page_info{1}{page_name} = "_Add files contain variables";

                $page_info{1}{filed_name}= "gen_hw_files";

                $page_info{1}{filed_type}= "file_with_variables";

                $page_info{1}{rename_file}=1;

                $page_info{1}{folder_en}=0;

                $page_info{1}{help}=$help2;

                $page_info{2}{page_name} = "_Add to tile.v";

                $page_info{2}{filed_name}= "system_v";

                $page_info{2}{filed_type}= "file_content";

                $page_info{2}{rename_file}=undef;

                $page_info{2}{folder_en}=0;

                $page_info{2}{help}=$help3;

                get_source_file($ipgen,$info,0,"Add HDL file(s)", "hw",\%page_info);

                #get_hdl_file($ipgen,$info);

        });

}

sub load_default_setting{

        my ($ipgen,$module)=@_;

        my $file= $ipgen->ipgen_get("file_name");

        $ipgen->ipgen_add("module_name",$module);

        my $vdb =read_verilog_file($file);

        my %parameters = $vdb->get_modules_parameters_not_local($module);

        my @parameters_order= $vdb->get_modules_parameters_not_local_order($module);

        my @ports_order=$vdb->get_module_ports_order($module);

        #print "@port_order\n";

        #add default parameter setting

        $ipgen->ipgen_remove_all_parameters();

        foreach my $p (keys %parameters){

                        #print "$p\n";

                        my $v = $parameters{$p};

                        $v =~s/[\n]//gs;

                        $ipgen->ipgen_add_parameter($p,$v,'Fixed','','Parameter',1);

        }

        #add parameter order. 

        $ipgen->ipgen_add("parameters_order",\@parameters_order);

        #add port order.

        $ipgen->ipgen_add_ports_order(@ports_order);

        #add ports 

        $ipgen->ipgen_remove_all_ports();

        save_ports_all($ipgen,$vdb,$module);

}

sub file_info_box {

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

        my $table=def_table(2,11,FALSE);

        my $table1=def_table(1,11,FALSE);

        my $table2=def_table(1,11,FALSE);

        ip_file_box ($ipgen,$info,$table1,0);

        select_module($ipgen,$info,$table2,0);

        $table->attach_defaults($table1,0,11,0,1);

        $table->attach_defaults($table2,0,11,1,2);

        return $table;

}

sub show_file_info{

        my($ipgen,$info,$refresh_ref)=@_;

        my $table = file_info_box($ipgen,$info,$info);

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

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

        $scrolled_win->add_with_viewport($table);

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

                $table->destroy;

                $table = file_info_box($ipgen,$info,$info);

                $scrolled_win->add_with_viewport($table);

                $table->show;

                $scrolled_win->show_all;

        });

        return $scrolled_win;

}

sub show_port_info{

        my($intfc,$ipgen,$info,$refresh_ref)=@_;

        my $table = port_info_box($intfc,$ipgen,$info,$info);

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

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

        $scrolled_win->add_with_viewport($table);

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

                $table->destroy;

                $table = port_info_box($intfc,$ipgen,$info,$info);

                $scrolled_win->add_with_viewport($table);

                $table->show;

                $scrolled_win->show_all;

        });

        return $scrolled_win;

}

sub show_interface_info{

        my($intfc,$ipgen,$info,$refresh_ref)=@_;

        my $table = interface_info_box($intfc,$ipgen,$info,$info);

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

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

        $scrolled_win->add_with_viewport($table);

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