Subversion Repositories Vertical

#!/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";

  }