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 25 and 38

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

Browse

Tools

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 25 and 38

Rev 25	Rev 38
Line 57...	Line 57...
`}`	`}`



`sub ipgen_add_parameter{`	`sub ipgen_add_parameter{`
`my ($self,$parameter,$deafult,$type,$content,$info,$global_param,$redefine)=@_;`	`my ($self,$parameter,$default,$type,$content,$info,$global_param,$redefine)=@_;`
`$self->{parameters}{$parameter}{deafult}=$deafult;`	`$self->{parameters}{$parameter}{"default"}=$default;`
`$self->{parameters}{$parameter}{type}=$type;`	`$self->{parameters}{$parameter}{type}=$type;`
`$self->{parameters}{$parameter}{content}=$content;`	`$self->{parameters}{$parameter}{content}=$content;`
`$self->{parameters}{$parameter}{info}=$info;`	`$self->{parameters}{$parameter}{info}=$info;`
`$self->{parameters}{$parameter}{global_param}=$global_param;`	`$self->{parameters}{$parameter}{global_param}=$global_param;`
`$self->{parameters}{$parameter}{redefine_param}=$redefine;`	`$self->{parameters}{$parameter}{redefine_param}=$redefine;`
Line 117...	Line 117...
`}`	`}`
`}`	`}`

`sub ipgen_get_parameter_detail{`	`sub ipgen_get_parameter_detail{`
`my ($self,$parameter)=@_;`	`my ($self,$parameter)=@_;`
`my ($deafult,$type,$content,$info,$global_param,$redefine);`	`my ($default,$type,$content,$info,$global_param,$redefine);`
`if(exists ($self->{parameters}{$parameter})){`	`if(exists ($self->{parameters}{$parameter})){`
`$deafult =$self->{parameters}{$parameter}{deafult};`	`$default =$self->{parameters}{$parameter}{"default"};`
`$type =$self->{parameters}{$parameter}{type};`	`$type =$self->{parameters}{$parameter}{type};`
`$content =$self->{parameters}{$parameter}{content};`	`$content =$self->{parameters}{$parameter}{content};`
`$info =$self->{parameters}{$parameter}{info};`	`$info =$self->{parameters}{$parameter}{info};`
`$global_param =$self->{parameters}{$parameter}{global_param};`	`$global_param =$self->{parameters}{$parameter}{global_param};`
`$redefine =$self->{parameters}{$parameter}{redefine_param};`	`$redefine =$self->{parameters}{$parameter}{redefine_param};`

`}`	`}`
`return ($deafult,$type,$content,$info,$global_param,$redefine);`	`return ($default,$type,$content,$info,$global_param,$redefine);`
`}`	`}`

`sub ipgen_get_all_parameters_list{`	`sub ipgen_get_all_parameters_list{`
`my ($self)=@_;`	`my ($self)=@_;`
`my @parameters;`	`my @parameters;`
Line 518...	Line 518...
`}`	`}`



`sub top_add_parameter{`	`sub top_add_parameter{`
`my ($self,$inst,$parameter,$deafult,$type,$content,$info,$global_param,$redefine)=@_;`	`my ($self,$inst,$parameter,$default,$type,$content,$info,$global_param,$redefine)=@_;`
`$self->{instance_ids}{$inst}{parameters}{$parameter}{deafult}=$deafult;`	`$self->{instance_ids}{$inst}{parameters}{$parameter}{"default"}=$default;`
`$self->{instance_ids}{$inst}{parameters}{$parameter}{type}=$type;`	`$self->{instance_ids}{$inst}{parameters}{$parameter}{type}=$type;`
`$self->{instance_ids}{$inst}{parameters}{$parameter}{content}=$content;`	`$self->{instance_ids}{$inst}{parameters}{$parameter}{content}=$content;`
`$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_get_parameter{`	`sub top_get_parameter{`
`my ($self,$inst,$parameter)=@_;`	`my ($self,$inst,$parameter)=@_;`
`my ($deafult,$type,$content,$info,$global_param,$redefine);`	`my ($default,$type,$content,$info,$global_param,$redefine);`
`$deafult=$self->{instance_ids}{$inst}{parameters}{$parameter}{deafult};`	`$default=$self->{instance_ids}{$inst}{parameters}{$parameter}{"default"};`
`$type=$self->{instance_ids}{$inst}{parameters}{$parameter}{type};`	`$type=$self->{instance_ids}{$inst}{parameters}{$parameter}{type};`
`$content=$self->{instance_ids}{$inst}{parameters}{$parameter}{content};`	`$content=$self->{instance_ids}{$inst}{parameters}{$parameter}{content};`
`$info=$self->{instance_ids}{$inst}{parameters}{$parameter}{info};`	`$info=$self->{instance_ids}{$inst}{parameters}{$parameter}{info};`
`$global_param=$self->{instance_ids}{$inst}{parameters}{$parameter}{global_param};`	`$global_param=$self->{instance_ids}{$inst}{parameters}{$parameter}{global_param};`
`$redefine=$self->{instance_ids}{$inst}{parameters}{$parameter}{redefine_param};`	`$redefine=$self->{instance_ids}{$inst}{parameters}{$parameter}{redefine_param};`
`return ($deafult,$type,$content,$info,$global_param,$redefine);`	`return ($default,$type,$content,$info,$global_param,$redefine);`
`}`	`}`

`sub top_get_parameter_list{`	`sub top_get_parameter_list{`
`my($self,$inst)=@_;`	`my($self,$inst)=@_;`
`my @l;`	`my @l;`