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

#!/usr/bin/perl -w

use strict;

use warnings;

use constant::boolean;

use FindBin;

use lib $FindBin::Bin;

use Data::Dumper;

use File::Which;

use File::Basename;

use IPC::Run qw( harness start pump finish timeout );

use Consts;

BEGIN {

    my $module = (Consts::GTK_VERSION==2) ? 'Gtk2' : 'Gtk3';

    my $file = $module;

    $file =~ s[::][/]g;

    $file .= '.pm';

    require $file;

    $module->import;

}

require "widget.pl";

require "uart.pl";

require "compile.pl";

use String::Scanf; # imports sscanf()

use constant JTAG_UPDATE_WB_ADDR => 7;

use constant JTAG_UPDATE_WB_WR_DATA=>  6;

use constant JTAG_UPDATE_WB_RD_DATA => 5;

use base 'Class::Accessor::Fast';

__PACKAGE__->mk_accessors(qw{

        window

        sourceview

});

my $NAME = 'Soure Probe';

my      $path = "";

our $FONT_SIZE='default';

our $ICON_SIZE='default';

my %memory;

my %status;

sub source_probe_stand_alone(){

        $path = "../../";

        set_path_env();

        my $project_dir   = get_project_dir(); #mpsoc dir addr

        my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";

        if (-f  $paths_file){#} && defined $ENV{PRONOC_WORK} ) {

                my $paths= do $paths_file;

                my %p=%{$paths};

                $FONT_SIZE= $p{'GUI_SETTING'}{'FONT_SIZE'} if (defined $p{'GUI_SETTING'}{'FONT_SIZE'});

                $ICON_SIZE= $p{'GUI_SETTING'}{'ICON_SIZE'} if (defined $p{'GUI_SETTING'}{'ICON_SIZE'});

        }

        set_defualt_font_size();

        my $window=source_probe_main();

        $window->signal_connect (destroy => sub { gui_quite();});

}

exit gtk_gui_run(\&source_probe_stand_alone) unless caller;

sub get_jtag_intfc_rst_cmd {

        my $self=shift;

        my $vendor = $self->object_get_attribute('CTRL','VENDOR');

        my $board  = $self->object_get_attribute('CTRL','Board_Name');

        my $chain  = $self->object_get_attribute('CTRL','RESET_CHAIN');

        my $index  = 127;

        my $pronoc = get_project_dir();

        my $intfc = "$pronoc/mpsoc/boards/$vendor/$board/jtag_intfc.sh";

        #my $script  = "$ENV{'PRONOC_WORK'}/tmp/script.bash";

        my $t = ($vendor eq 'Xilinx') ? "-t  $chain " : "";

        my $cmd = "bash -c \"source $intfc; \\\$JTAG_INTFC $t -n $index";

        return $cmd;

}

sub jtag_enable_cpus_func{

        my ($self,$new,$tview)=@_;

        my $intfc = get_jtag_intfc_rst_cmd($self);

    my $e = ($new eq 'Enabled')? 0 : 2;

        my $cmd =       "$intfc  -d   I:1,D:2:$e,I:0\"";

        add_info($tview,"$cmd\n");

        my $results =run_cmd_textview_errors($cmd,$tview);

        return 1 if(!defined $results);

}

sub jtag_reset_cpus_func {

        my ($self,$tview)=@_;

        my $intfc = get_jtag_intfc_rst_cmd($self);

        my $cmd =       "$intfc  -d   I:1,D:2:1,D:2:0,I:0\"";

        add_info($tview,"$cmd\n");

        my $results =run_cmd_textview_errors($cmd,$tview);

        return 1 if(!defined $results);

};

sub source_probe_ctrl {

        my ($self,$tview)=@_;

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

        my $vendor= $self->object_get_attribute('CTRL','VENDOR');

        $vendor= 'Xilinx' if(!defined $vendor);

        #get the list of boards located in "boards/*" folder

        my $pronoc = get_project_dir();

        my @dirs = grep {-d} glob("$pronoc/mpsoc/boards/$vendor/*");

        my ($fpgas,$init);

        foreach my $dir (@dirs) {

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

                $fpgas= (defined $fpgas)? "$fpgas,$name" : "$name";

                $init="$name";

        }

        my @info = (

        { label=>" FPGA Vendor name: ", param_name=>'VENDOR', type=>"Combo-box", default_val=>'Xilinx', content=>"Xilinx,Altera", info=>undef, param_parent=>'CTRL', ref_delay=> 1, new_status=>'ref_ctrl', loc=>'vertical'},

        { label=>" Board Name ", param_name=>'Board_Name', type=>"Combo-box", default_val=>$init, content=>$fpgas, info=>undef, param_parent=>'CTRL', ref_delay=> undef, new_status=>undef, loc=>'vertical'},

        { label=>" JTAG Index: ", param_name=>'JTAG_INDEX', type=>"Spin-button", default_val=>0, content=>"0,128,1", info=>undef, param_parent=>'CTRL', ref_delay=> undef, new_status=> undef, loc=>'vertical'}

        );

        if ($vendor eq "Xilinx" ) {

                push (@info,{ label=>" JTAG CHAIN ", param_name=>'JTAG_CHAIN', type=>"Combo-box", default_val=>4, content=>"1,2,3,4", info=>undef, param_parent=>'CTRL', ref_delay=> 0, new_status=>'ref_ctrl', loc=>'vertical'}) ;

        }

        my ($row,$col)=(0,6);

        foreach my $d (@info) {

                my $wiget;

                ($row,$col,$wiget)=add_param_widget  ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay}, $d->{new_status}, $d->{loc});

                my $sc=$col;

                if($d->{param_name} eq 'Board_Name'){

                        my $add=def_image_button("icons/plus.png");

                        $table->attach ($add,  $sc+4, $sc+5,$row-1,$row,'shrink','shrink',2,2);

                        set_tip($add, "Add new FPGA Board");

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

                                add_new_fpga_board($self,undef,undef,undef,undef,$vendor);

                        });

                }

        }

         $table->attach (  gen_Vsep(), 5, 6 , 0, $row+1,'fill','fill',2,2);

        #Column 2

        $row=0;$col=0;

        my $d={ label=>" Number of Sources/Probes:", param_name=>'SP_NUM', type=>"Spin-button", default_val=>1, content=>"1,128,1", info=>undef, param_parent=>'CTRL', ref_delay=> 1, new_status=>'ref_all', loc=>'vertical'};

        ($row,$col)=add_param_widget  ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay}, $d->{new_status}, $d->{loc});

        $d={ label=>" Address format: ", param_name=>'R_ADDR_FORMAT', type=>"Combo-box", default_val=>'Decimal', content=>"Decimal,Hexadecimal", info=>undef, param_parent=>'FILE_VIEW', ref_delay=> 1, new_status=>'ref_file_view', loc=>'vertical'},

        ($row,$col)=add_param_widget  ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay}, $d->{new_status}, $d->{loc});

        #enable

        my $en_state=$self->object_get_attribute("CTRL","enable");

        if (!defined $en_state){

                $en_state='Enabled' ;

                $self->object_add_attribute("CTRL","enable",$en_state);

        }

        my $enable= ($en_state eq 'Enabled')? def_colored_button('Enabled',17): def_colored_button('Disabled',4);

        my $reset= def_button('Reset');

        if ($vendor eq "Xilinx" ) {

                my $w=gen_combobox_object ($self,'CTRL','RESET_CHAIN',"4,3,2,1","4",undef,undef);

                my $h=gen_button_message ("The JTAG remote reset/enable is connected to the Jtag tab chain with the largest chain number in each tile.  ","icons/help.png");

                my $b= def_pack_hbox(FALSE,0,(gen_label_in_center  ("CPU(s) Chain:"),$w,$h));

                $table->attach ($b ,  $col, $col+1,$row,$row+1,'shrink','shrink',2,2); $col+=1;

        }else{

                $table->attach (gen_label_in_center  ("CPU(s)") ,  $col, $col+1,$row,$row+1,'shrink','shrink',2,2); $col+=1;

        }

        $table->attach ($reset ,  $col, $col+1,$row,$row+1,'shrink','shrink',2,2); $col+=1;

        $table->attach ($enable ,  $col, $col+1,$row,$row+1,'shrink','shrink',2,2); $row++;

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

                        my $en_state=$self->object_get_attribute("CTRL","enable");

                        my $new = ($en_state eq 'Enabled')? 'Disabled' : 'Enabled';

                        jtag_enable_cpus_func($self,$new,$tview);

                        $self->object_add_attribute("CTRL","enable",$new);

                        set_gui_status($self,"ref",1);

        });

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

                        jtag_reset_cpus_func($self,$tview);

        });

        my $scrolled_win=gen_scr_win_with_adjst ($self,"receive_box");

        add_widget_to_scrolled_win($table,$scrolled_win);

        return $scrolled_win;

}

sub soure_probe_widgets_old {

        my $self=shift;

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

        my $scrolled_win=gen_scr_win_with_adjst ($self,"receive_box");

        add_widget_to_scrolled_win($table,$scrolled_win);

        my $num = $self->object_get_attribute('CTRL','SP_NUM');

        my $y= 0;

        my $x= 0;

        $table->attach (gen_label_in_center(" Source "), 0, 3 , $y, $y+1,'shrink','shrink',2,2);

        $table->attach (gen_label_in_center(" Probe  "), 4, 7 , $y, $y+1,'shrink','shrink',2,2);

        $y++;

        $table->attach ( gen_Hsep(), 0, 7 , $y, $y+1, 'fill','shrink',2,2);

        $y++;

        my @sources;

        for (my $i=0; $i<$num; $i+=1){

                        my $n=$i+1;

                        $table->attach (gen_label_in_left("  $n- "), $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++;

                        my $entry=gen_entry( );

                        $table->attach ($entry, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++;

                my $enter=def_image_button("icons/write.png","Write");

                $table->attach ($enter, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++;

                $x++; #sep

                #probe 

                #$table->attach (gen_label_in_left(" Probe:  " )        , $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++; 

                my $probe_val = $self-> object_get_attribute('SP','PROBE_$n');

                my $probe_label= gen_label_in_left(" ");

                ${probe_val}=25 if ($n ==1);

                $probe_label->set_markup("<span  foreground= 'red' ><b>XXXX</b></span>") if(!defined $probe_val );

                $probe_label->set_markup("<span  foreground= 'blue' ><b></b>    ${probe_val}   </span>") unless(!defined $probe_val );

                my $frame = gen_frame();

                        $frame->set_shadow_type ('in');

                        # Animation

                        $frame->add ($probe_label);

                $table->attach ($frame, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++;

                my $read=def_image_button("icons/simulator.png","Read");

                $table->attach ($read, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++;

                $y++; $x=0;

                $table->attach (gen_Hsep(), 0, 7 , $y, $y+1, 'fill','shrink',2,2);

                $y++;

        }

          $table->attach ( gen_Vsep(), 3, 4 , 0, $y+1,'fill','fill',2,2);

          $table->attach ( gen_Vsep(), 6, 7 , 0, $y+1,'fill','fill',2,2);

        return ($scrolled_win,\@sources);

}

sub read_mem_specefic_addr{

        my ($self,$addr,$tview)=@_;

        add_info($tview,"Read addr: $addr\n");

        my $intfc = get_jtag_intfc_cmd($self);

        $addr=($addr>>2);

        $addr=sprintf("%x",$addr);

        my $cmd =       "$intfc -d  I:${\JTAG_UPDATE_WB_RD_DATA},R:32:$addr,I:0\"";

        add_info($tview,"$cmd\n");

        my $results =run_cmd_textview_errors($cmd,$tview);

        return 1 if(!defined $results);

        my ($hex)= sscanf("###read data#0x%s###read data#", $results);

        ###read data#0x18000000###read data#

        #add_info($tview," $results \n");       

        #add_info($tview," $hex \n");   

        return $hex;

}

sub write_mem_specefic_addr {

        my ($self,$addr,$value,$tview)=@_;

        my $intfc = get_jtag_intfc_cmd($self);

        $addr=($addr>>2);

        $addr=sprintf("%x",$addr);

        my $cmd =       "$intfc -d  I:${\JTAG_UPDATE_WB_ADDR},D:32:$addr,I:${\JTAG_UPDATE_WB_WR_DATA},D:32:$value,I:0\"";

        add_info($tview,"$cmd\n");

        my $results =run_cmd_textview_errors($cmd,$tview);

        return 1 if(!defined $results);

}

sub soure_probe_widgets {

        my ($self,$tview)=@_;

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

        my $scrolled_win=gen_scr_win_with_adjst ($self,"receive_box");

        add_widget_to_scrolled_win($table,$scrolled_win);

        my $num = $self->object_get_attribute('CTRL','SP_NUM');

        $num = 1 if (!defined $num);

        my $y= 0;

        my $x= 0;

        $table->attach (gen_label_in_center(" Address (in byte)"), 0, 1 , $y, $y+1,'shrink','shrink',2,2);

        $table->attach (gen_label_in_center(" Memory Content  "), 2, 3 , $y, $y+1,'shrink','shrink',2,2);

        $table->attach (gen_label_in_center(" Action "), 4, 6 , $y, $y+1,'shrink','shrink',2,2);

        $y++;

        $table->attach ( gen_Hsep(), 0, 6 , $y, $y+1, 'fill','shrink',2,2);

        $y++;

        $x= 0;

        for (my $i=0; $i<$num; $i+=1){

                        my $n=$i+1;

                        my $status=0;

                        #$table->attach (gen_label_in_left("  $n-address "), $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++;

                #       ($y,$x,$addr)=add_param_widget  ($self,"$n-", "$n-address", 0, "Spin-button", "0,99999999,1", undef, $table,$y,$x,1, "JTAG_WB", undef, undef, 'horizontal');

                   # ($y,$x,$entry)=add_param_widget  ($self,undef, "$n-value", 0, "Entry", undef, undef, $table,$y,$x,1, "JTAG_WB", undef, undef, 'horizontal');

                    my $addr = gen_entry(0);

                    my $entry =gen_entry('xxxxxxxx');

                    my $read=def_image_button($path."icons/simulator.png","Read");

                    my $write=def_image_button($path."icons/write.png","Write");

                    $entry->set_max_length (8);

                        $entry->set_width_chars(8);

                        $table->attach ($addr, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x+=2;

                    $table->attach ($entry, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x+=2;

                $table->attach ($read, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2);  $x++;

                        $table->attach ($write, $x, $x+1 , $y, $y+1,'shrink','shrink',2,2); $x++;

                        my $sy= $y;

                        my $sx=7;

                $y++; $x=0;

                $table->attach ( gen_Hsep(), 0, $sx , $y, $y+1, 'fill','shrink',2,2);

                $y++;

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

                        my $address=$addr->get_text();

                        my $format =$self->     object_get_attribute('FILE_VIEW','R_ADDR_FORMAT');

                                $format= 'Decimal' if (!defined $format);

                        $address = hex($address) unless($format eq 'Decimal');

                        my $load= show_gif("icons/load.gif");

                                $table->attach ($load,$sx, $sx+1 , $sy, $sy+1,'shrink','shrink',0,0);

                                $table->show_all();

                        my $val =read_mem_specefic_addr($self,$address,$tview);

                        $entry->set_text($val) if (defined $val);

                        $status =1;

                        entry_set_text_color($entry,-1);

                        $load->destroy;

                });

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

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

                        my $address=$addr->get_text();

                        my $format =$self->     object_get_attribute('FILE_VIEW','R_ADDR_FORMAT');

                                $format= 'Decimal' if (!defined $format);

                        $address = hex($address) unless($format eq 'Decimal');

                        my $load= show_gif("icons/load.gif");

                                $table->attach ($load,$sx, $sx+1 , $sy, $sy+1,'shrink','shrink',0,0);

                                $table->show_all();

                        write_mem_specefic_addr($self,$address,$value,$tview);

                        $status =1;

                        entry_set_text_color($entry,-1);

                        $load->destroy;

                });

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

                                if($status==0 || $status==1 ){

                                        $status =2;#modified

                                        #change color to red

                                        entry_set_text_color($entry,11);

                                }

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

                                $entry->set_text(remove_not_hex($in));

                        });

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

                                my $format =$self->     object_get_attribute('FILE_VIEW','R_ADDR_FORMAT');

                                $format= 'Decimal' if (!defined $format);

                                my $in = $addr->get_text();

                                $addr->set_text(remove_not_hex($in)) if ($format ne 'Decimal' );

                                $addr->set_text(remove_not_number($in)) if ($format eq 'Decimal' );

                        });

        }

        $table->attach ( gen_Vsep(), 1, 2 , 0, $y+1,'fill','fill',2,2);

        $table->attach ( gen_Vsep(), 3, 4 , 0, $y+1,'fill','fill',2,2);

        $table->attach ( gen_Vsep(), 6, 7 , 0, $y+1,'fill','fill',2,2);

        return $scrolled_win;

}

sub get_file_b_setting{

        my($self)=@_;

        my $window = def_popwin_size (30,30,'Source Probe','percent');

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

    my @info = (

        #{ label=>" Address format: ", param_name=>'R_ADDR_FORMAT', type=>"Combo-box", default_val=>'Decimal', content=>"Decimal,Hexadecimal", info=>undef, param_parent=>'FILE_VIEW', ref_delay=> 1, new_status=>'ref_file_view', loc=>'vertical'},

        { label=>" Page row number: ", param_name=>'PAGE_MAX_X', type=>"Spin-button", default_val=>10, content=>"0,128,1", info=>undef, param_parent=>'FILE_VIEW', ref_delay=> 1, new_status=>'ref_file_view', loc=>'vertical'},

        { label=>" Page column number:", param_name=>'PAGE_MAX_Y', type=>"Spin-button", default_val=>10, content=>"1,128,1", info=>undef, param_parent=>'FILE_VIEW', ref_delay=> 1, new_status=>'ref_file_view', loc=>'vertical'}

        );

        my $row=0;

        my $col=0;

        foreach my $d (@info) {

                ($row,$col)=add_param_widget  ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay}, $d->{new_status}, $d->{loc});

        }

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

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

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

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