Line 49... |
Line 49... |
}
|
}
|
my @plugs=$ip->ip_get_module_plugs_list($category,$module);
|
my @plugs=$ip->ip_get_module_plugs_list($category,$module);
|
foreach my $plug(@plugs){
|
foreach my $plug(@plugs){
|
my ($type,$value,$connection_num)=$ip->ip_get_plug ($category,$module,$plug);
|
my ($type,$value,$connection_num)=$ip->ip_get_plug ($category,$module,$plug);
|
soc_add_plug_to_instance($self,$instance_id,$plug,$type,$value,$connection_num);
|
soc_add_plug_to_instance($self,$instance_id,$plug,$type,$value,$connection_num);
|
#add plug names anf deafult connection as IO
|
#add plug names anf Default connection as IO
|
my $int_num=($type eq 'num')? $value :1;
|
my $int_num=($type eq 'num')? $value :1;
|
for (my $i=0;$i<$int_num;$i++){
|
for (my $i=0;$i<$int_num;$i++){
|
my $name=$ip->ip_get_plug_name($category,$module, $plug,$i);
|
my $name=$ip->ip_get_plug_name($category,$module, $plug,$i);
|
$self->{instances}{$instance_id}{plugs}{$plug}{nums}{$i}{name}=$name;
|
$self->{instances}{$instance_id}{plugs}{$plug}{nums}{$i}{name}=$name;
|
soc_add_instance_plug_conection($self,$instance_id,$plug,$i,"IO");
|
soc_add_instance_plug_conection($self,$instance_id,$plug,$i,"IO");
|