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

#!/usr/bin/perl

use strict;

use warnings;

use GD::Graph::bars3d;

use Glib qw/TRUE FALSE/;

sub gen_multiple_charts{

        my ($self,$pageref,$charts_ref)=@_;

        my @pages=@{$pageref};

        my @charts=@{$charts_ref};

        my $notebook = Gtk2::Notebook->new;

        $notebook->set_scrollable(TRUE);

        $notebook->can_focus(FALSE);

        foreach my $page (@pages){

                my @selects;

                my $page_id= "P$page->{page_num}";

                my $active = $self->object_get_attribute ($page_id,'active');

                foreach my $chart (@charts){

                        push (@selects,$chart->{graph_name})if($page->{page_num} == $chart->{page_num} );

                }

                $active =$selects[0] if (!defined $active);

                foreach my $chart (@charts){

                        my $graph_id= $page_id."$chart->{graph_name}";

                        if($active eq $chart->{graph_name} && $page->{page_num} == $chart->{page_num}){

                                my $p=  gen_graph  ($self,$chart,@selects);

                                $notebook->append_page ($p,Gtk2::Label->new_with_mnemonic ($page->{page_name}));

                                $self->object_add_attribute ($graph_id,'type',$chart->{type});

                        }

                }

                #print "$page->{page_name} : @selects \n";

        }

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

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

        $scrolled_win->add_with_viewport($notebook);

        $scrolled_win->show_all;

        my $page_num=$self->object_get_attribute ("chart_notebook","currentpage");

        $notebook->set_current_page ($page_num) if(defined $page_num);

        $notebook->signal_connect( 'switch-page'=> sub{

                $self->object_add_attribute ("chart_notebook","currentpage",$_[2]);     #save the new pagenumber

                #print "$self->object_add_attribute (\"chart_notebook\",\"currentpage\",$_[2]);\n";                     

        });

        #return ($scrolled_win,$set_win);

        return $scrolled_win;

}

sub get_uniq_keys {

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

        if(defined $ref) {

                                my %r=%$ref;

                                push(@x, sort {$a<=>$b} keys %r);

        my  @x2;

        @x2 =  uniq(sort {$a<=>$b} @x) if (scalar @x);

        return @x2;

        }

        return @x;

}

sub gen_graph {

        my ($self,$chart,@selects)=@_;

        if($chart->{type} eq '2D_line') {return gen_2D_line($self,$chart,@selects);}

        return  gen_3D_bar($self,$chart,@selects);

}

sub gen_3D_bar{

        my ($self,$chart,@selects)=@_;

        my($width,$hight)=max_win_size();

        my $page_id= "P$chart->{page_num}";

        my $graph_id= $page_id."$chart->{graph_name}";

        #my $graph_name=$chart->{graph_name};

        my $result_name= $chart->{result_name};

        my @legend_keys;

        my @results;

        $results[0]= [0];

        $results[1]= [0];

        #$results[2]= [0];

        my $legend_info="This attribute controls placement of the legend within the graph image. The value is supplied as a two-letter string, where the first letter is placement (a B or an R for bottom or right, respectively) and the second is alignment (L, R, C, T, or B for left, right, center, top, or bottom, respectively). ";

my $fontsize="Tiny,Small,MediumBold,Large,Giant";

my @ginfo = (

#{ label=>"Graph Title", param_name=>"G_Title", type=>"Entry", default_val=>undef, content=>undef, info=>undef, param_parent=>"${graph_name}_param"    , ref_delay=>undef },  

{ label=>"Y Axix Title", param_name=>"Y_Title", type=>"Entry", default_val=>$chart->{"Y_Title"}, content=>undef, info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=>undef },

  { label=>"X Axix Title", param_name=>"X_Title", type=>"Entry", default_val=>$chart->{"X_Title"}, content=>undef, info=>undef, param_parent=>"${graph_id}_param"    ,ref_delay=>undef },

  { label=>"legend placement", param_name=>"legend_placement", type=>'Combo-box', default_val=>'BL', content=>"BL,BC,BR,RT,RC,RB", info=>$legend_info, param_parent=>"${graph_id}_param"    , ref_delay=>1},

 { label=>"Y min", param_name=>"Y_MIN", type=>'Spin-button', default_val=>0, content=>"0,1024,1", info=>"Y axix minimum value", param_parent=>"${graph_id}_param"    , ref_delay=> 5},

 { label=>"X min", param_name=>"X_MIN", type=>'Spin-button', default_val=>0, content=>"0,1024,1", info=>"X axix minimum value", param_parent=>"${graph_id}_param"    , ref_delay=> 5},

{ label=>"X max", param_name=>"X_MAX", type=>'Spin-button', default_val=>100, content=>"0,1024,1", info=>"X axix maximum value", param_parent=>"${graph_id}_param"    , ref_delay=> 5},

 { label=>"Line Width", param_name=>"LINEw", type=>'Spin-button', default_val=>3, content=>"1,20,1", info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=> 5},

#{ label=>"Y Axis Values", param_name=>"y_value", type=>'Combo-box', default_val=>'Original', content=>"Original,Normalized to 1,Normalized to 100", info=>undef, param_parent=>"${graph_name}_param"    , ref_delay=>1},

{ label=>"legend font size", param_name=>"legend_font", type=>'Combo-box', default_val=>'MediumBold', content=>$fontsize, info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=>1},

{ label=>"label font size", param_name=>"label_font", type=>'Combo-box', default_val=>'MediumBold', content=>$fontsize, info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=>1},

  { label=>"label font size", param_name=>"x_axis_font", type=>'Combo-box', default_val=>'MediumBold', content=>$fontsize, info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=>1},

);

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

my $dimention=gen_combobox_object ($self,$graph_id,"dimention","2D,3D","3D",'ref',2);

my $active_page=gen_combobox_object ($self,$page_id,"active",$content,$selects[0],'ref',2);

#print "${graph_name}_${dir}_result\n";         

                my @ratios;

                my @color;

                my $min_y=200;

                my $i=0;

                my @samples =$self->object_get_attribute_order("samples");

                @samples = ('no_name') if (scalar @samples == 0);

                foreach my $sample (@samples){

                        my $color_num=$self->object_get_attribute($sample,"color");

                        my $l_name= $self->object_get_attribute($sample,"line_name");

                        #push(@color, "my_color$color_num");

                        my $ref=$self->object_get_attribute ($sample,$result_name);

                        if(defined $ref){

                                $i++;

                                @ratios=get_uniq_keys($ref,@ratios);

                                $color_num=$i+1 if(!defined $color_num);

                                push(@color, "my_color$color_num");

                                $legend_keys[$i-1]= (defined $l_name)? $l_name : $sample;

                        }

                }#for

        $content = join(",", @ratios);

        my $ratio_combx=gen_combobox_object ($self,${graph_id},"ratio",$content,$ratios[0],'ref',2);

        @color= ("my_color0") if ((scalar @color) ==0);

        @legend_keys=("-")  if ((scalar @legend_keys) ==0);

        my $ymax=10;

        my $ratio = $self->object_get_attribute ($graph_id,"ratio");

        my @x;

        if (defined $ratio){

                foreach my $sample (@samples){

                        my $ref=$self->object_get_attribute ($sample,"$result_name");

                        if(defined $ref){

                                @x=get_uniq_keys($ref->{$ratio},@x);

                        }

                }

                my $i=1;

                foreach my $sample (@samples){

                        my @y;

                        my $ref=$self->object_get_attribute ($sample,"$result_name");

                        if(defined $ref){

                                foreach my $v (@x){

                                        my $w=$ref->{$ratio}->{$v};

                                        push(@y,$w);

                                        $ymax=$w+1 if($w>$ymax);

                                }

                                $results[$i]=\@y if(scalar @x);

                                $i++;

                        }

                }

        }

        $results[0]=\@x if(scalar @x);

        $i=1;

        # all results which is larger than ymax will be changed to ymax,

        $i=0;

        #foreach my $sample (@samples){

                #$i++;

                #for (my $j=1;$j<=$s; $j++) {

                #       $results[$i][$j]=($results[$i][$j]>$max_y)? $max_y: $results[$i][$j] if (defined $results[$i][$j]);

                #}      

        #}

        my $graphs_info;

        foreach my $d ( @ginfo){

                $graphs_info->{$d->{param_name}}=$self->object_get_attribute( "${graph_id}_param"    ,$d->{param_name});

                if(!defined $graphs_info->{$d->{param_name}}){

                        $graphs_info->{$d->{param_name}}= $d->{default_val};

                        $self->object_add_attribute( "${graph_id}_param"    ,$d->{param_name},$d->{default_val} );

                }

        }

        my $graph_w=$width/2.5;

        my $graph_h=$hight/2.5;

        my $graph = new GD::Graph::bars3d($graph_w, $graph_h);

        my $dim = $self->object_get_attribute (${graph_id},"dimention");

        #my $dir = $self->object_get_attribute ($graph_name,"direction"); 

        my $over= ($dim eq "2D")? 0 : 1;

        $graph->set(

            overwrite => $over,

            x_label => $graphs_info->{X_Title},

            y_label => $graphs_info->{Y_Title},

            title   => $graphs_info->{G_Title},

            y_max_value => $ymax,

            y_tick_number => 18,

            y_label_skip => 2,

            x_label_skip => 1,

            x_all_ticks => 1,

            x_labels_vertical => 1,

            box_axis => 0,

            y_long_ticks => 1,

            legend_placement => $graphs_info->{legend_placement},

                dclrs=>\@color,

                y_number_format=>"%.1f",

                transparent       => '0',

                bgclr             => 'white',

                boxclr            => 'white',

                fgclr             => 'black',

                textclr           => 'black',

                labelclr          => 'black',

                axislabelclr      => 'black',

                legendclr         =>  'black',

            #cycle_clrs        => '1',

                 # Draw bars with width 3 pixels

    bar_width   => 3,

    # Sepearte the bars with 4 pixels

    bar_spacing => 10,

    # Show the grid

    #long_ticks  => 1,

    # Show values on top of each bar

    #show_values => 1,

    );

        $graph->set_legend(@legend_keys);

        my $font;

        $font=  $self->object_get_attribute( "${graph_id}_param"    ,'label_font');

        $graph->set_x_label_font(GD::Font->$font);

        $graph->set_y_label_font(GD::Font->$font);

        $font=  $self->object_get_attribute( "${graph_id}_param"    ,'legend_font');

        $graph->set_legend_font(GD::Font->$font);

        $font=  $self->object_get_attribute( "${graph_id}_param"    ,'x_axis_font');

        #$graph->set_values_font(GD::gdGiantFont);

        $graph->set_x_axis_font(GD::Font->$font);

        $graph->set_y_axis_font(GD::Font->$font);

        #@results=reorder_result(@results);

        my $gd =  $graph->plot( \@results );

        my $loader = Gtk2::Gdk::PixbufLoader->new;

        $loader->write ($gd->png);

        $loader->close;

        my $image = Gtk2::Image->new_from_pixbuf($loader->get_pixbuf);

        write_image ($self,$graph_id,$gd);

        write_image_result      ($self,$graph_id,$graph,$result_name,$chart->{type},\@results);

   # my $image = my_get_image($self,$graph,$data,$graph_name);

      # print  Data::Dumper->Dump ([\@results],['ttt']); 

        my $table = Gtk2::Table->new (25, 10, FALSE);

                my $box = Gtk2::HBox->new (TRUE, 2);

                my $filename;

                $box->set_border_width (4);

                my   $align = Gtk2::Alignment->new (0.5, 0.5, 0, 0);

                my $frame = Gtk2::Frame->new;

                $frame->set_shadow_type ('in');

                $frame->add ($image);

                $align->add ($frame);

                my $plus = def_image_button('icons/plus.png',undef,TRUE);

                my $minues = def_image_button('icons/minus.png',undef,TRUE);

                my $setting = def_image_button('icons/setting.png',undef,TRUE);

                my $save = def_image_button('icons/save.png',undef,TRUE);

                my $scale= $self->object_get_attribute("${graph_id}_graph_scale",undef);

                $scale = 5 if(!defined $scale);

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

                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale*1.05);

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

                });

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

                        $self->object_add_attribute("${graph_id}_graph_scale",undef,$scale*0.95) if( $scale>0.5);

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

                });

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

                        get_graph_setting ($self,\@ginfo);

                });

                set_tip($setting, "Setting");

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

                        # my $G = $graph->{graph};

                         my @imags=$graph->export_format();

                         save_graph_as ($self,\@imags,$graph_id);

                });

                set_tip($save, "Save graph");

                $table->attach_defaults ($align , 0, 9, 0, 25);

                my $row=0;

                $table->attach (gen_label_in_center('Injection-Ratio'), 9, 10, $row, $row+1,'shrink','shrink',2,2); $row++;

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

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

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

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

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

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

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

                while ($row<10){

                        my $tmp=gen_label_in_left('');

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

                }

        return $table;

}

sub gen_2D_line {

        my ($self,$chart,@selects)=@_;

        my($width,$hight)=max_win_size();

        my $page_id= "P$chart->{page_num}";

        my $graph_id=  $page_id."$chart->{graph_name}";

        #my $graph_name=$chart->{graph_name};

        my $result_name= $chart->{result_name};

        my @x;

        my @legend_keys;

        my @results;

        $results[0]=[0];

        $results[1]= [0];

        my $legend_info="This attribute controls placement of the legend within the graph image. The value is supplied as a two-letter string, where the first letter is placement (a B or an R for bottom or right, respectively) and the second is alignment (L, R, C, T, or B for left, right, center, top, or bottom, respectively). ";

        my $fontsize="Tiny,Small,MediumBold,Large,Giant";

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

my $active_page=gen_combobox_object ($self,$page_id,"active",$content,$selects[0],'ref',2);

my @ginfo = (

#{ label=>"Graph Title", param_name=>"G_Title", type=>"Entry", default_val=>undef, content=>undef, info=>undef, param_parent=>"${graph_name}_param"    , ref_delay=>undef },  

{ label=>"Y Axis Title", param_name=>"Y_Title", type=>"Entry", default_val=>$chart->{"Y_Title"}, content=>undef, info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=>undef },

  { label=>"X Axis Title", param_name=>"X_Title", type=>"Entry", default_val=>$chart->{"X_Title"}, content=>undef, info=>undef, param_parent=>"${graph_id}_param"    ,ref_delay=>undef },

  { label=>"legend placement", param_name=>"legend_placement", type=>'Combo-box', default_val=>'BL', content=>"BL,BC,BR,RT,RC,RB", info=>$legend_info, param_parent=>"${graph_id}_param"    , ref_delay=>1},

 { label=>"Y min", param_name=>"Y_MIN", type=>'Spin-button', default_val=>0, content=>"0,1024,1", info=>"Y axis minimum value", param_parent=>"${graph_id}_param"    , ref_delay=> 5},

 { label=>"X min", param_name=>"X_MIN", type=>'Spin-button', default_val=>0, content=>"0,1024,1", info=>"X axis minimum value", param_parent=>"${graph_id}_param"    , ref_delay=> 5},

{ label=>"X max", param_name=>"X_MAX", type=>'Spin-button', default_val=>100, content=>"0,1024,1", info=>"X axis maximum value", param_parent=>"${graph_id}_param"    , ref_delay=> 5},

 { label=>"Line Width", param_name=>"LINEw", type=>'Spin-button', default_val=>3, content=>"1,20,1", info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=> 5},

#{ label=>"Y Axis Values", param_name=>"y_value", type=>'Combo-box', default_val=>'Original', content=>"Original,Normalized to 1,Normalized to 100", info=>undef, param_parent=>"${graph_name}_param"    , ref_delay=>1},

{ label=>"legend font size", param_name=>"legend_font", type=>'Combo-box', default_val=>'MediumBold', content=>$fontsize, info=>undef, param_parent=>"{$graph_id}_param"    , ref_delay=>1},

{ label=>"label font size", param_name=>"label_font", type=>'Combo-box', default_val=>'MediumBold', content=>$fontsize, info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=>1},

  { label=>"label font size", param_name=>"x_axis_font", type=>'Combo-box', default_val=>'MediumBold', content=>$fontsize, info=>undef, param_parent=>"${graph_id}_param"    , ref_delay=>1},

);

                my @color;

                my $min_y;#=200;

                my $i=0;

                my @samples =$self->object_get_attribute_order("samples");

                @samples = ('no_name') if (scalar @samples == 0);

                foreach my $sample (@samples){

                        my $ref=$self->object_get_attribute ($sample,$result_name);

                        $i++;

                        my $color_num=$self->object_get_attribute($sample,"color");

                        my $l_name= $self->object_get_attribute($sample,"line_name");

                        $legend_keys[$i-1]= (defined $l_name)? $l_name : $sample;

                        $color_num=$i+1 if(!defined $color_num);

                        push(@color, "my_color$color_num");

                        if(defined $ref) {

                                push(@x, sort {$a<=>$b} keys %{$ref});

                        }

                }#for

        my  @x2;

        @x2 =  uniq(sort {$a<=>$b} @x) if (scalar @x);

        my  @x1; #remove x values larger than x_max

        my $x_max= $self->object_get_attribute( "${graph_id}_param"    ,'X_MAX');

        foreach  my $p (@x2){

                if(defined $x_max) {push (@x1,$p) if($p<$x_max);}

                else {push (@x1,$p);}

        }

        #print "\@x1=@x1\n";

        if (scalar @x1){

                $results[0]=\@x1;

                $i=0;

                foreach my $sample (@samples){

                        $i++;

                        my $j=0;

                        my $ref=$self->object_get_attribute ($sample,$result_name);

                        if(defined $ref){

                                #print "$i\n";

                                my %line=%$ref;

                                foreach my $k (@x1){

                                        $results[$i][$j]=$line{$k};

                                        if(defined $line{$k}){

                                                $min_y = $line{$k} if (!defined $min_y);

                                                $min_y= $line{$k} if ($line{$k}!=0 && $min_y > $line{$k});

                                                $j++;

                                        }

                                }#$k

                        }#if

                        else {

                                $results[$i][$j]=undef;

                        }

                }#$i            

        }#if

        $min_y = 200 if (!defined $min_y);

        my $scale= $self->object_get_attribute("${graph_id}_graph_scale",undef);

        $scale = 5 if(!defined $scale);

        my $max_y=$min_y* $scale;

        my $s=scalar @x1;

        # all results which is larger than ymax will be changed to ymax,

        $i=0;

        foreach my $sample (@samples){

                $i++;

                for (my $j=1;$j<=$s; $j++) {

                        $results[$i][$j]=($results[$i][$j]>$max_y)? $max_y: $results[$i][$j] if (defined $results[$i][$j]);

                }

        }

        my $graphs_info;