pt2edi.pl

#!/usr/bin/perl -w
my $now = `date +%y_%m_%d_%Hh%Mm`;
open(FH, "<./eco_changes.tcl") or die "Cant open file $!";
open (OUT,">tempus_from_pt.tcl");
print OUT "report_resource\n";
print OUT "setEcoMode -updateTiming false\n";
print OUT "setEcoMode -refinePlace false -prefixName ECO_FIX_group5 -batchMode true -honorDontUse false -honorFixedStatus false\n";my $flag = 0;
my $hinst = "";while (<FH>) {chomp;my $line = $_;next if $line =~ /^#/;next if $line =~ /^\s*$/;if ($line =~ /^current_instance$/) {$flag = 1;$hinst = "";} elsif ($line =~ /^current_instance\s\{(\S+)\}$/) {$flag = 0;$hinst = $1;} elsif ($flag == 1 || $hinst ne "") {if ($line =~ /^insert_buffer \[get_pins \{(\S+)\}\] (\S+) -new_net_names \{(\S+)\} -new_cell_names \{(\S+)\}/) {my $term = $1;my $cell = $2;my $new_net = $3;my $new_inst = $4;if ($hinst ne "") {$term = "$hinst/$term";#$new_net = "$hinst/$new_net";#$new_inst = "$hinst/$new_inst";print OUT "ecoAddRepeater -cell $cell -term $term -name $new_inst -hinstGuide $hinst -newNetName $new_net\n";} else {print OUT "ecoAddRepeater -cell $cell -term $term -name $new_inst -newNetName $new_net\n";}} elsif ($line =~ /^size_cell\s+\{(\S+)\} \{(\S+)\}/) {my $inst = $1;my $cell = $2;if ($hinst ne "") {$inst = "$hinst/$inst";print OUT "## module: $hinst\n";print OUT "ecoChangeCell -inst $inst -cell $cell\n";} else {print OUT "ecoChangeCell -inst $inst -cell $cell\n";}} elsif ($line =~ /^insert_buffer \[get_pins \{(\S+)\}\] (\S+) -inverter_pair -new_net_names \{(\S+) (\S+)\} -new_cell_names \{(\S+) (\S+)\}/) {my $term = $1;my $cell = $2;my $new_net1 = $3;my $new_net2 = $4;my $new_inst1 = $5;my $new_inst2 = $6;if ($hinst ne "") {$term = "$hinst/$term";print OUT "ecoAddRepeater -cell $cell -term $term -name {{ $new_inst1 $new_inst2}} -hinstGuide $hinst -newNetName {{$new_net1 $new_net2}}\n";#print OUT "ecoAddRepeater -cell $cell -term $term -name $new_inst2 -hinstGuide $hinst -newNetName $new_net2\n";} else {print OUT "ecoAddRepeater -cell $cell -term $term -name {{ $new_inst1 $new_inst2}}  -newNetName {{$new_net1 $new_net2}}\n";#print OUT "ecoAddRepeater -cell $cell -term $term -name $new_inst2 -newNetName $new_net2\n";}} elsif ($line =~ /^add_buffer_on_route \[get_net -of \{(\S+)\}\] -user_specified_buffers \{ (.*)\} -no_legalize/) {my $term = $1;my $buffer_tmp = $2;$buffer_tmp =~ s/\s0//g;my @buffers = reverse split (/ /,$buffer_tmp);if ($hinst ne "") {$term = "$hinst/$term";}foreach my $b (@buffers) {push @tmp, $b;if ($b =~ /PhyEco.*/) {if ($hinst ne "") {print OUT "ecoAddRepeater -cell $tmp[2] -name $tmp[3] -net \[get_object_name \[get_net -of $term\]\] -loc $tmp[1] $tmp[0] -hinstGuide $hinst\n";} else {print OUT "ecoAddRepeater -cell $tmp[2] -name $tmp[3] -net \[get_object_name \[get_net -of $term\]\] -loc $tmp[1] $tmp[0]\n";}@tmp = qw//;}}} else {print "## exceptions: $line\n";}} else {print "## exceptions: $line\n";}
}print OUT "report_resource\n";
print OUT "setEcoMode -reset\n";
print OUT "report_resource\n";close FH;
close OUT;