#!/usr/bin/perl
# This version of add_ports is used only with EDIF files

#A component of the add-ports script, used to split an EDIF file
#somewhere in its interface list

  $s = 0;




open(IN1,  "<test.acf");
#open(IN,   "<test.edf");
#open(OUT1, ">outp.edf");
$entity=@ARGV[0];
print "looking for '$entity'\n";
$s=0;
$cnt = 0;
while( <IN1> ) {
  if (/$entity/) {
    $s=1;
    break;
    }
  if($s==1 && /END;/)
    {
    $s=0;
    break;
    }

  if( $s==1 && /(rsv[0-9]+z)/ ) {
    @rsv[$cnt++] = $1;
    }
  }

for ($i=0;$i<$cnt;$i++) {
  print @rsv[$i],"\n";
  }