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

Rev 17	Rev 25
Line 196...	Line 196...
`}`	`}`
`return $connection_num;`	`return $connection_num;`
`}`	`}`


`sub intfc_set_category{`
`my ($self,$category)=@_;`
`$self->{category}=$category;`
`}`


`sub intfc_get_category{`
`my ($self)=@_;`
`my $category;`
`if(exists ($self->{category})){`
`$category=$self->{category};`
`}`
`return $category;`
`}`

`sub intfc_set_description{`	`sub intfc_set_description{`
`my ($self,$description)=@_;`	`my ($self,$description)=@_;`
`$self->{description}=$description;`	`$self->{description}=$description;`
`}`	`}`
Line 229...	Line 217...
`return $des;`	`return $des;`
`}`	`}`




	`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`