Line 527... |
Line 527... |
$self->{instance_ids}{$inst}{parameters}{$parameter}{info}=$info;
|
$self->{instance_ids}{$inst}{parameters}{$parameter}{info}=$info;
|
$self->{instance_ids}{$inst}{parameters}{$parameter}{global_param}=$global_param;
|
$self->{instance_ids}{$inst}{parameters}{$parameter}{global_param}=$global_param;
|
$self->{instance_ids}{$inst}{parameters}{$parameter}{redefine_param}=$redefine;
|
$self->{instance_ids}{$inst}{parameters}{$parameter}{redefine_param}=$redefine;
|
}
|
}
|
|
|
|
sub top_add_localparam{
|
|
my ($self,$inst,$parameter,$default,$type,$content,$info,$global_param,$redefine)=@_;
|
|
$self->{instance_ids}{$inst}{localparam}{$parameter}{"default"}=$default;
|
|
$self->{instance_ids}{$inst}{localparam}{$parameter}{type}=$type;
|
|
$self->{instance_ids}{$inst}{localparam}{$parameter}{content}=$content;
|
|
$self->{instance_ids}{$inst}{localparam}{$parameter}{info}=$info;
|
|
$self->{instance_ids}{$inst}{localparam}{$parameter}{global_param}=$global_param;
|
|
$self->{instance_ids}{$inst}{localparam}{$parameter}{redefine_param}=$redefine;
|
|
}
|
|
|
|
|
sub top_get_parameter{
|
sub top_get_parameter{
|
my ($self,$inst,$parameter)=@_;
|
my ($self,$inst,$parameter)=@_;
|
my ($default,$type,$content,$info,$global_param,$redefine);
|
my ($default,$type,$content,$info,$global_param,$redefine);
|
$default=$self->{instance_ids}{$inst}{parameters}{$parameter}{"default"};
|
$default=$self->{instance_ids}{$inst}{parameters}{$parameter}{"default"};
|
$type=$self->{instance_ids}{$inst}{parameters}{$parameter}{type};
|
$type=$self->{instance_ids}{$inst}{parameters}{$parameter}{type};
|
Line 548... |
Line 559... |
@l= sort keys %{$self->{instance_ids}{$inst}{parameters}};
|
@l= sort keys %{$self->{instance_ids}{$inst}{parameters}};
|
}
|
}
|
return @l;
|
return @l;
|
}
|
}
|
|
|
|
|
|
|
|
|
sub top_add_default_soc_param{
|
sub top_add_default_soc_param{
|
my ($self,$param_ref)=@_;
|
my ($self,$param_ref)=@_;
|
my %l=%{$param_ref};
|
my %l=%{$param_ref};
|
foreach my $p (sort keys %l){
|
foreach my $p (sort keys %l){
|
$self->{parameters}{$p}=$l{$p};
|
$self->{parameters}{$p}=$l{$p};
|
Line 586... |
Line 600... |
|
|
return @intfcs;
|
return @intfcs;
|
}
|
}
|
|
|
|
|
|
|
|
|
sub top_get_intfc_ports_list{
|
sub top_get_intfc_ports_list{
|
my($self,$intfc_name)=@_;
|
my($self,$intfc_name)=@_;
|
my @ports;
|
my @ports;
|
if( exists $self->{interface}{$intfc_name}{ports}){
|
if( exists $self->{interface}{$intfc_name}{ports}){
|
@ports= sort keys %{$self->{interface}{$intfc_name}{ports}};
|
@ports= sort keys %{$self->{interface}{$intfc_name}{ports}};
|