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/] [mpsoc.pm] - Diff between revs 16 and 25

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

Rev 16 Rev 25
Line 19... Line 19... 
 
 
 
 
    $self = {};
 
    $self = {};
 
    $self->{file_name}        = (); # information on each file
 
    $self->{file_name}        = (); # information on each file
 
    $self->{noc_param}=   {};
 
    $self->{noc_param}=   {};
 
    $self->{noc_indept_param}={};
 
    $self->{noc_indept_param}={};
 
    $self->{parameters_order}=[];
 
   # $self->{parameters_order}=[];
 
 
 
 
 
    $self->{setting}={};
 
    $self->{setting}={};
 
        $self->{socs}={};
 
        $self->{socs}={};
 
        mpsoc_initial_setting($self);
 
        mpsoc_initial_setting($self);
 
 
 
 
 
 
 
 
Line 39... Line 40... 
        $self->{setting}{show_adv_setting}=0;
 
        $self->{setting}{show_adv_setting}=0;
 
        $self->{setting}{show_tile_setting}=1;
 
        $self->{setting}{show_tile_setting}=1;
 
        $self->{setting}{soc_path}="lib/soc";
 
        $self->{setting}{soc_path}="lib/soc";
 
}
 
}
 
 
 
 
 
sub mpsoc_set_setting{
 
 
 
        my ($self,$name,$value)=@_;
 
 
 
        $self->{setting}{$name}=$value;
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
sub mpsoc_get_setting{
 
 
 
        my ($self,$name)=@_;
 
 
 
        return $self->{setting}{$name};
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub mpsoc_set_mpsoc_name{
 
 
 
        my ($self,$name)=@_;
 
 
 
        if(defined $name){$self->{mpsoc_name}=$name;}
 
 
 
}
 
 
 
 
 
 
 
sub mpsoc_get_mpsoc_name{
 
 
 
        my ($self)=@_;
 
 
 
        my $name;
 
 
 
        if(exists  $self->{mpsoc_name}){ $name=$self->{mpsoc_name};}
 
 
 
        return $name;
 
 
 
}
 
 
 
 
 
 
 
sub mpsoc_get_indept_params{
 
 
 
        my $self=shift;
 
 
 
        return  $self->{noc_indept_param};
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub mpsoc_add_param{
 
 
 
        my ($self,$param,$value)=@_;
 
 
 
        $self->{noc_param}{$param}=$value;
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
sub mpsoc_get_param{
 
 
 
        my ($self,$param)=@_;
 
 
 
        return $self->{noc_param}{$param};
 
 
 
 
 
 
 
}
 
 
 
sub mpsoc_add_param_order{
 
 
 
        my ($self,@param)=@_;
 
 
 
        foreach my $p (@param){
 
 
 
                push (@{$self->{parameters_order}},$p);
 
 
 
 
 
 
 
        }
 
 
 
}
 
 
 
sub mpsoc_get_param_order{
 
 
 
        my $self=shift;
 
 
 
        return @{$self->{parameters_order}};
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
sub mpsoc_get_instance_info{
 
sub mpsoc_get_instance_info{
 
        my ($self,$ip_num)=@_;
 
        my ($self,$ip_num)=@_;
Line 258... Line 205... 
        }
 
        }
 
        return $setting;
 
        return $setting;
 
}
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
sub object_add_attribute{
 
 
 
        my ($self,$attribute1,$attribute2,$value)=@_;
 
 
 
        if(!defined $attribute2){$self->{$attribute1}=$value;}
 
 
 
        else {$self->{$attribute1}{$attribute2}=$value;}
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
sub object_get_attribute{
 
 
 
        my ($self,$attribute1,$attribute2)=@_;
 
 
 
        if(!defined $attribute2) {return $self->{$attribute1};}
 
 
 
        return $self->{$attribute1}{$attribute2};
 
 
 
 
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub object_add_attribute_order{
 
 
 
        my ($self,$attribute,@param)=@_;
 
 
 
        $self->{'parameters_order'}{$attribute}=[] if (!defined $self->{parameters_order}{$attribute});
 
 
 
        foreach my $p (@param){
 
 
 
                push (@{$self->{parameters_order}{$attribute}},$p);
 
 
 
 
 
 
 
        }
 
 
 
}
 
 
 
sub object_get_attribute_order{
 
 
 
        my ($self,$attribute)=@_;
 
 
 
        return @{$self->{parameters_order}{$attribute}};
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
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.