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

Rev 24	Rev 25
Line 233...	Line 233...
`$connection_num=$self->{instances}{$instance_id}{plugs}{$plug}{connection_num};`	`$connection_num=$self->{instances}{$instance_id}{plugs}{$plug}{connection_num};`
`}`	`}`
`return ($type,$value,$connection_num);`	`return ($type,$value,$connection_num);`
`}`	`}`

`sub soc_set_soc_name{`
`my ($self,$name)=@_;`
`if(defined $name){$self->{soc_name}=$name;}`
`}`

`sub soc_get_soc_name{`
`my ($self)=@_;`
`my $name;`
`if(exists $self->{soc_name}){ $name=$self->{soc_name};}`
`return $name;`
`}`





Line 635...	Line 627...
`my @list= sort keys $self->{assigned_name};`	`my @list= sort keys $self->{assigned_name};`
`return @list;`	`return @list;`
`}`	`}`











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