OpenCores
URL https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk

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

[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [emulator.pm] - Diff between revs 25 and 38

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 25 Rev 38
Line 20... Line 20... 
    my $self;
 
    my $self;
 
 
 
 
 
 
 
 
 
    $self = {};
 
    $self = {};
 
    $self->{file_name}        = (); # information on each file
 
    $self->{file_name}        = (); # information on each file
 
 
 
    $self->{samples} = ();
 
    emulator_initial_setting($self);
 
    emulator_initial_setting($self);
 
 
 
 
 
 
 
 
 
    bless($self,$class);
 
    bless($self,$class);
 
 
 
 
Line 32... Line 33... 
}
 
}
 
 
 
 
 
sub emulator_initial_setting{
 
sub emulator_initial_setting{
 
        my $self=shift;
 
        my $self=shift;
 
        $self->{status}="ideal";
 
        $self->{status}="ideal";
 
        $self->{graph_scale}=5;
 
 
 
        $self->{setting}{show_noc_setting}=1;
 
        $self->{setting}{show_noc_setting}=1;
 
        $self->{setting}{show_adv_setting}=0;
 
        $self->{setting}{show_adv_setting}=0;
 
        $self->{setting}{show_tile_setting}=0;
 
        $self->{setting}{show_tile_setting}=0;
 
        $self->{setting}{soc_path}="lib/soc";
 
        $self->{setting}{soc_path}="lib/soc";
 
 
 
 
Line 73... Line 73... 
        }
 
        }
 
}
 
}
 
 
 
 
 
sub object_get_attribute_order{
 
sub object_get_attribute_order{
 
        my ($self,$attribute)=@_;
 
        my ($self,$attribute)=@_;
 
        return @{$self->{parameters_order}{$attribute}};
 
        my @array;
 
 
 
        @array =  @{$self->{parameters_order}{$attribute}} if (defined $self->{parameters_order}{$attribute});
 
 
 
        return @array;
 
}
 
}
 
 
 
 
 
 
 
 
 
 
 
sub object_delete_attribute_order{
 
 
 
        my ($self,$attribute,@param)=@_;
 
 
 
        my @array=object_get_attribute_order($self,$attribute);
 
 
 
        foreach my $p (@param){
 
 
 
                @array=remove_scolar_from_array(\@array,$p);
 
 
 
 
 
 
 
        }
 
 
 
        $self->{'parameters_order'}{$attribute}=[];
 
 
 
        object_add_attribute_order($self,$attribute,@array);
 
 
 
}
 
 
 
 
 
 
 
sub object_remove_attribute{
 
 
 
        my ($self,$attribute1,$attribute2)=@_;
 
 
 
        if(!defined $attribute2){
 
 
 
                delete $self->{$attribute1} if ( exists( $self->{$attribute1}));
 
 
 
        }
 
 
 
        else {
 
 
 
                delete $self->{$attribute1}{$attribute2} if ( exists( $self->{$attribute1}{$attribute2})); ;
 
 
 
 
 
 
 
        }
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
sub remove_scolar_from_array{
 
 
 
        my ($array_ref,$item)=@_;
 
 
 
        my @array=@{$array_ref};
 
 
 
        my @new;
 
 
 
        foreach my $p (@array){
 
 
 
                if($p ne $item ){
 
 
 
                        push(@new,$p);
 
 
 
                }
 
 
 
        }
 
 
 
        return @new;
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
1
 
1
 
 
 
 
 
 No newline at end of file
 
 No newline at end of file

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.