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/] [ip_gen.pm] - Diff between revs 17 and 24

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

Rev 17 Rev 24
Line 32... Line 32... 
 
 
 
 
 
 
 
 
    return $self;
 
    return $self;
 
}
 
}
 
 
 
 
 
sub ipgen_set_file{
 
 
 
        my ($self,$file)=@_;
 
 
 
          $self->{file_name}=$file;
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_get_file{
 
 
 
        my $self=shift;
 
 
 
        return   $self->{file_name};
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_set_module_name{
 
 
 
        my ($self,$module)=@_;
 
 
 
        $self->{module_name}=$module;
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_get_module_name{
 
 
 
        my ($self)=@_;
 
 
 
        return $self->{module_name};
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_set_ip_name{
 
 
 
        my ($self,$name)=@_;
 
 
 
        $self->{ip_name}=$name;
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_get_ip_name{
 
 
 
        my ($self)=@_;
 
 
 
        return  $self->{ip_name};
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_set_module_list{
 
sub ipgen_set_module_list{
 
        my ($self,@list)=@_;
 
        my ($self,@list)=@_;
 
        $self->{modules}={};
 
        $self->{modules}={};
Line 99... Line 68... 
        $self->{parameters}{$parameter}{redefine_param}=$redefine;
 
        $self->{parameters}{$parameter}{redefine_param}=$redefine;
 
}
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_add_parameters_order{
 
 
 
        my ($self,@parameters_order)=@_;
 
 
 
        $self->{parameters_order}=\@parameters_order;
 
 
 
 
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_get_parameters_order{
 
 
 
        my $self=shift;
 
 
 
        my @r;
 
 
 
        @r =    @{$self->{parameters_order}} if (defined $self->{parameters_order});
 
 
 
        return @r;
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_push_parameters_order{
 
sub ipgen_push_parameters_order{
 
        my ($self,$param)=@_;
 
        my ($self,$param)=@_;
 
        if(defined $param){
 
        if(defined $param){
 
                push(@{$self->{parameters_order}},$param);
 
                push(@{$self->{parameters_order}},$param);
Line 376... Line 333... 
        }
 
        }
 
        return ($intfc_port);
 
        return ($intfc_port);
 
}
 
}
 
 
 
 
 
 
 
 
 
sub ipgen_set_category{
 
 
 
        my ($self,$category)=@_;
 
 
 
        if(defined $category){
 
 
 
                $self->{category}=$category;
 
 
 
 
 
 
 
        }
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_get_category{
 
 
 
        my ($self)=@_;
 
 
 
        my $category;
 
 
 
        if(exists ($self->{category})){
 
 
 
                $category=$self->{category};
 
 
 
        }
 
 
 
        return  $category;
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_get_description{
 
 
 
        my ($self)=@_;
 
 
 
        my $description;
 
 
 
        if(exists ($self->{description})){
 
 
 
                $description=$self->{description};
 
 
 
        }
 
 
 
        return $description;
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_set_description{
 
 
 
        my ($self,$description)=@_;
 
 
 
                $self->{description}=$description;
 
 
 
 
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_save_wb_addr{
 
sub ipgen_save_wb_addr{
 
        my ($self,$plug,$num,$addr,$width)=@_;
 
        my ($self,$plug,$num,$addr,$width)=@_;
 
        $self->{plugs}{$plug}{$num}{addr}=$addr;
 
        $self->{plugs}{$plug}{$num}{addr}=$addr;
Line 471... Line 395... 
        }
 
        }
 
        return $name;
 
        return $name;
 
 
 
 
 
}
 
}
 
 
 
 
 
sub ipgen_set_hdr{
 
 
 
        my ($self,$hdr)=@_;
 
 
 
        $self->{header}=$hdr;
 
sub ipgen_add_unused_intfc_port{
 
 
 
        my ($self,$intfc_name,$port)=@_;
 
 
 
        push(@{$self->{unused}{$intfc_name}},$port);
 
}
 
}
 
 
 
 
 
 
 
 
 
sub ipgen_get_hdr{
 
 
 
        my ($self)=@_;
 
 
 
        my $hdr;
 
 
 
        if(exists ($self->{header})){
 
 
 
                $hdr=$self->{header};
 
 
 
 
 
 
 
        }
 
 
 
        return $hdr;
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
 
 
#add,read,remove object fileds
 
 
 
 
 
 
 
sub ipgen_add{
 
 
 
        my ($self,$filed_name,$filed_data)=@_;
 
 
 
        $self->{$filed_name}=$filed_data;
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_remove{
 
 
 
        my ($self,$filed_name)=@_;
 
 
 
        $self->{$filed_name}=undef;
 
 
 
}
 
 
 
 
 
sub ipgen_get_files_list{
 
sub ipgen_get{
 
 
 
        my ($self,$filed_name)=@_;
 
 
 
        return $self->{$filed_name}
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_get_list{
 
        my ($self,$list_name)=@_;
 
        my ($self,$list_name)=@_;
 
        my @l;
 
        my @l;
 
        if ( defined $self->{$list_name} ){
 
        if ( defined $self->{$list_name} ){
 
                @l=@{$self->{$list_name}};
 
                @l=@{$self->{$list_name}};
 
        }
 
        }
 
 
 
 
 
        return @l;
 
        return @l;
 
}
 
}
 
 
 
 
 
 
 
 
 
sub ipgen_set_files_list{
 
 
 
        my ($self,$list_name,$ref)=@_;
 
 
 
        $self->{$list_name}=    $ref;
 
 
 
}
 
 
 
 
 
 
 
 
 
 
 
sub ipgen_add_unused_intfc_port{
 
 
 
        my ($self,$intfc_name,$port)=@_;
 
 
 
        push(@{$self->{unused}{$intfc_name}},$port);
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_get_unused_intfc_ports{
 
 
 
        my $self=shift;
 
 
 
        return $self->{unused};
 
 
 
 
 
 
 
}
 
 
 
 
 
 
 
sub ipgen_remove_unused_intfc_port{
 
 
 
        my $self=shift;
 
 
 
        $self->{unused}=undef;
 
 
 
}
 
 
 
 
 
 
 
######################################
 
######################################
 
 
 
 
 
 
 
 
 
 
 
 

powered by: WebSVN 2.1.0

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