Line 42... |
Line 42... |
return $self;
|
return $self;
|
}
|
}
|
|
|
|
|
sub ip_add_parameter {
|
sub ip_add_parameter {
|
my ($self,$category,$module,$parameter,$deafult,$type,$content,$info,$glob_param,$redefine_param)=@_;
|
my ($self,$category,$module,$parameter,$default,$type,$content,$info,$glob_param,$redefine_param)=@_;
|
if (!defined($category) ) {return 0;}
|
if (!defined($category) ) {return 0;}
|
if ( exists ($self->{categories}{$category}{names}{$module}) ){
|
if ( exists ($self->{categories}{$category}{names}{$module}) ){
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}={};
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}={};
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{deafult}=$deafult;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{"default"}=$default;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{type}=$type;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{type}=$type;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{content}=$content;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{content}=$content;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{info}=$info;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{info}=$info;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{glob_param}=$glob_param;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{glob_param}=$glob_param;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{redefine_param}=$redefine_param;
|
$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{redefine_param}=$redefine_param;
|
Line 70... |
Line 70... |
|
|
|
|
|
|
sub ip_get_parameter {
|
sub ip_get_parameter {
|
my ($self,$category,$module,$parameter)=@_;
|
my ($self,$category,$module,$parameter)=@_;
|
my ($deafult,$type,$content,$info,$glob_param,$redefine_param);
|
my ($default,$type,$content,$info,$glob_param,$redefine_param);
|
if ( exists ($self->{categories}{$category}{names}{$module}) ){
|
if ( exists ($self->{categories}{$category}{names}{$module}) ){
|
$deafult =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{deafult};
|
$default =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{"default"};
|
$type =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{type};
|
$type =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{type};
|
$content =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{content};
|
$content =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{content};
|
$info =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{info};
|
$info =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{info};
|
$glob_param =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{glob_param};
|
$glob_param =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{glob_param};
|
$redefine_param =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{redefine_param};
|
$redefine_param =$self->{categories}{$category}{names}{$module}{parameters}{$parameter}{redefine_param};
|
}
|
}
|
return ($deafult,$type,$content,$info,$glob_param,$redefine_param);
|
return ($default,$type,$content,$info,$glob_param,$redefine_param);
|
}
|
}
|
|
|
|
|
sub ip_add_socket {
|
sub ip_add_socket {
|
my ($self,$category,$module,$interface,$type,$value,$connection_num)=@_;
|
my ($self,$category,$module,$interface,$type,$value,$connection_num)=@_;
|
Line 224... |
Line 224... |
sub get_param_default{
|
sub get_param_default{
|
my ($self,$category,$module)=@_;
|
my ($self,$category,$module)=@_;
|
my %r;
|
my %r;
|
if (!defined($module) ) {return %r;}
|
if (!defined($module) ) {return %r;}
|
foreach my $p (sort keys %{$self->{categories}{$category}{names}{$module}{parameters}}){
|
foreach my $p (sort keys %{$self->{categories}{$category}{names}{$module}{parameters}}){
|
$r{$p}=$self->{categories}{$category}{names}{$module}{parameters}{$p}{deafult};
|
$r{$p}=$self->{categories}{$category}{names}{$module}{parameters}{$p}{"default"};
|
#print "$p=$r{$p}\n";
|
#print "$p=$r{$p}\n";
|
}
|
}
|
return %r;
|
return %r;
|
|
|
}
|
}
|
Line 423... |
Line 423... |
ip_add_socket($self,$category,$module, $socket,$type,$value,$connection_num);
|
ip_add_socket($self,$category,$module, $socket,$type,$value,$connection_num);
|
ip_add_socket_names($self,$ipgen,$category,$module, $socket);
|
ip_add_socket_names($self,$ipgen,$category,$module, $socket);
|
}
|
}
|
my @parameters= $ipgen->ipgen_get_all_parameters_list();
|
my @parameters= $ipgen->ipgen_get_all_parameters_list();
|
foreach my $param (@parameters){
|
foreach my $param (@parameters){
|
my ($deafult,$type,$content,$info,$glob_param,$redefine_param)=$ipgen->ipgen_get_parameter_detail($param);
|
my ($default,$type,$content,$info,$glob_param,$redefine_param)=$ipgen->ipgen_get_parameter_detail($param);
|
ip_add_parameter($self,$category,$module,$param,$deafult,$type,$content,$info,$glob_param,$redefine_param);
|
ip_add_parameter($self,$category,$module,$param,$default,$type,$content,$info,$glob_param,$redefine_param);
|
|
|
}
|
}
|
|
|
my @ports= $ipgen->ipgen_list_ports();
|
my @ports= $ipgen->ipgen_list_ports();
|
foreach my $port (@ports){
|
foreach my $port (@ports){
|
my($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($port);
|
my($range,$type,$intfc_name,$intfc_port)=$ipgen->ipgen_get_port($port);
|
ip_add_port($self,$category,$module,$port,$type,$range,$intfc_name,$intfc_port);
|
ip_add_port($self,$category,$module,$port,$type,$range,$intfc_name,$intfc_port);
|
}
|
}
|
|
|
my @fileds =("system_h","hdl_files","sw_files","gen_sw_files","sw_params_list","unused","parameters_order","description","version",'description_pdf');
|
my @fileds =("system_h","hdl_files","sw_files","gen_sw_files","gen_hw_files","sw_params_list","unused","parameters_order","description","version",'description_pdf');
|
foreach my $p (@fileds){
|
foreach my $p (@fileds){
|
my $val=$ipgen->ipgen_get($p);
|
my $val=$ipgen->ipgen_get($p);
|
$self->{categories}{$category}{names}{$module}{$p}=$ipgen->ipgen_get($p) if(defined $val );
|
$self->{categories}{$category}{names}{$module}{$p}=$ipgen->ipgen_get($p) if(defined $val );
|
}
|
}
|
|
|