I am trying to clean up some very bloated code, and the section below is repeated in 7 other locations, but the only difference from one section to the next is the M8 pattern. So in another section, for example, all references to M8 are replaced with M7. And in another section all references to M8 are replaced with M6, and so on.
In the end, I would like this one section of code to be able to sweep through M1, M2, M3, M4, M5, M6, M7, and M8, but I really don't want to put a variable name in a variable name because, well, according to other postings that would make me an idiot.
So what is the most efficient way to exercise this code with the said M1, M2, etc. patterns in the variable names?
Any suggestions would be much appreciated!
Regards,
-Fiddler42
##### Start metal8 section... @M8TrackSummary = split (/\s+/,$M8TrackLocations); $M8GCellWidth = $M8TrackSummary[$#M8TrackSummary] - $M8TrackSummary[0] +; if (($M8StrapLocations[1] =~ /^0$/) && ($M8StrapWidths[1] =~ /^0$/)) { for ($y = $M8TrackSummary[0]; $y <= $NewBlockUY; $y = $y + $M8GCel +lWidth) { for ($m = 1; $m <= $#M8TrackSummary; $m++) { $M8CurrentTrackLoc = sprintf ("%0.3f", $M8TrackSummary[$m] + + $y); push (@AvailableM8TrackLocations, $M8CurrentTrackLoc); } } $NumAvailableM8Tracks = @AvailableM8TrackLocations; } else { $M8StrapSeries1Width = $M8StrapWidths[1]; @M8StrapSeries1Summary = split (/\s+/,$M8StrapLocations[1]); $M8StrapSeries1StartY = $M8StrapSeries1Summary[0]; $M8StrapSeries1PitchY = $M8StrapSeries1Summary[1]; $M8StrapSeries1StepY = $M8StrapSeries1Summary[2]; for ($y = $M8TrackSummary[0]; $y <= $NewBlockUY; $y = $y + $M8GCel +lWidth) { for ($m = 1; $m <= $#M8TrackSummary; $m++) { $M8CurrentTrackLoc = sprintf ("%0.3f", $M8TrackSummary[$m] + + $y); $NumM8Tracks++; for ($M8StrapSeries1Y = $M8StrapSeries1StartY; $M8StrapSer +ies1Y <= $NewBlockUY; $M8StrapSeries1Y = $M8StrapSeries1Y + $M8StrapS +eries1StepY) { if (($M8CurrentTrackLoc >= ($M8StrapSeries1Y - ($M8Str +apSeries1Width/2) - $M8Pitch)) && ($M8CurrentTrackLoc <= ($M8StrapSer +ies1Y + ($M8StrapSeries1Width/2) + $M8Pitch))) {push (@UnavailableM8T +rackLocations, $M8CurrentTrackLoc);} if (($M8CurrentTrackLoc >= ($M8StrapSeries1Y - ($M8Str +apSeries1Width/2) - $M8Pitch + $M8StrapSeries1PitchY)) && ($M8Current +TrackLoc <= ($M8StrapSeries1Y + ($M8StrapSeries1Width/2) + $M8Pitch + + $M8StrapSeries1PitchY))) {push (@UnavailableM8TrackLocations, $M8Cur +rentTrackLoc);} } } } $NumUnavailableM8Tracks = @UnavailableM8TrackLocations; $NumAvailableM8Tracks = $NumM8Tracks - $NumUnavailableM8Tracks; if ($NumUnavailableM8Tracks == 1) { print ("1 M8 track is blocked by a p/g strap.\n"); } elsif ($NumUnavailableM8Tracks > 1) { print ("$NumUnavailableM8Tracks M8 tracks are blocked by M8 p/ +g straps.\n"); } print ("$NumAvailableM8Tracks M8 tracks are available for M8 pin s +napping.\n"); for ($y = $M8TrackSummary[0]; $y <= $NewBlockUY; $y = $y + $M8GCel +lWidth) { for ($m = 1; $m <= $#M8TrackSummary; $m++) { $M8CurrentTrackLoc = sprintf ("%0.3f", $M8TrackSummary[$m] + + $y); $SkipM8Track = 0; foreach $UnavailableM8Track (@UnavailableM8TrackLocations) + { if ($M8CurrentTrackLoc == $UnavailableM8Track) { $SkipM8Track = 1; last; } } if ($SkipM8Track == 0) {push (@AvailableM8TrackLocations, +$M8CurrentTrackLoc);} } } } my @M8PinContentSorted = sort { $M8PinContentHash{$a} <=> $M8PinConten +tHash{$b} } keys %M8PinContentHash; $NumM8Pins = @M8PinContentSorted; if ($NumM8Pins == 0) { print ("No pins on layer M8.\n"); } elsif ($NumM8Pins == 1) { print ("1 pin on layer M8.\n"); if ($NumM8Pins > $NumAvailableM8Tracks) {die ("There are more M8 p +ins than available M8 tracks!\n");} } elsif ($NumM8Pins > 1) { print ("$NumM8Pins pins on layer M8.\n"); if ($NumM8Pins > $NumAvailableM8Tracks) {die ("There are more M8 p +ins than available M8 tracks!\n");} } if ($DebugMode == 1) { foreach $Entry (@M8PinContentSorted) { @EntryAL = split (/\s+/,$Entry); $PinName = $EntryAL[0]; print DEBUG ("$PinName\n"); } } foreach $M8Pin (@M8PinContentSorted) { @M8PinDetails = split (/\s+/,$M8Pin); $M8PinName = $M8PinDetails[0]; $M8OwnerPort = $M8PinDetails[1]; $M8LayerName = $M8PinDetails[2]; $M8LX = $M8PinDetails[3]; $M8LY = $M8PinDetails[4]; $M8UX = $M8PinDetails[5]; $M8UY = $M8PinDetails[6]; $M8Width = abs ($M8UY - $M8LY); #$M8Height = abs ($M8UX - $M8LX); $M8AccessDirection = $M8PinDetails[7]; $M8Direction = $M8PinDetails[8]; $c = 0; foreach $M8Track (@AvailableM8TrackLocations) { if ($M8Track >= $M8LY) { $M8Intervals = int ($M8Width/$M8Pitch); if ($M8Intervals < 1) { $NewM8LY = sprintf ("%0.3f", $M8Track - ($M8Width/2)); $NewM8UY = sprintf ("%0.3f", $M8Track + ($M8Width/2)); splice (@AvailableM8TrackLocations, $c, 1); } else { $M8SpliceWidth = $M8Intervals + 2; splice (@AvailableM8TrackLocations, $c, $M8SpliceWidth +); if (exists $AvailableM8TrackLocations[$c]) { $NewM8LY = sprintf ("%0.3f", $AvailableM8TrackLoca +tions[$c] - ($M8Width/2)); $NewM8UY = sprintf ("%0.3f", $AvailableM8TrackLoca +tions[$c] + ($M8Width/2)); } else { print ("ERROR: Problem processing pin $M8PinName!\ +n"); } } print OUT ("create_terminal \\\n"); print OUT ("-name {$M8PinName} \\\n"); print OUT ("-port $M8OwnerPort \\\n"); print OUT ("-layer $M8LayerName \\\n"); print OUT ("-bounding_box {{$M8LX $NewM8LY} {$M8UX $NewM8U +Y}}\n\n"); print OUT ("set obj [get_terminal {\"$M8PinName\"}]\n"); print OUT ("set_attribute -quiet \$obj layer $M8LayerName +\n"); print OUT ("set_attribute -quiet \$obj owner_port $M8Owne +rPort\n"); print OUT ("set_attribute -quiet \$obj bbox {{$M8LX $NewM8 +LY} {$M8UX $NewM8UY}}\n"); print OUT ("set_attribute -quiet \$obj status Placed\n"); print OUT ("set_attribute -quiet \$obj access_direction $M +8AccessDirection\n"); print OUT ("set_attribute -quiet \$obj direction $M8Direct +ion\n"); print OUT ("set_attribute -quiet \$obj eeq_class 0\n\n"); last; } $c++; } } ##### End metal8 section...
In reply to Trying to streamline repetitive code.... by fiddler42
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |