Add related_pg_pin into liberty model

#!/usr/bin/perl -w
($pg_pin, $file_name) = @ARGV;
open(H1, $file_name);
open(H2,">$file_name.pg");
print "PG pin is : ".$pg_pin."\n" ;
print "Fine name is : ".$file_name."\n" ;
while(<H1>){
        chop $_;
print H2 $_ ;
print H2 "\n" ;
if (/internal_power()/) {
print H2  "        related_pg_pin : "."\"".$pg_pin."\""." ;" ;
print H2 "\n";
}
}
close(H1);
close(H2);

使用方式:

./add_pg.pl 要加入的PG liberty_model_name

範例:

./add_pg.pl VCC new_WCCOM.lib