abc/src/phys/place/hpwl

#! /usr/bin/perl

$netsfile = shift;
$plfile = shift;

# ------------------------------ read placement

open FILE, $plfile;
while (<FILE>) {
  chop;
  if (/(\w+)\s+([\-\d\.]+)\s+([\-\d\.]+)\s+\:/) {
    $loc{$1} = "$2 $3";
  }
}
close FILE;

open FILE, $netsfile;
while (<FILE>) {
  chop;
  $net = $2 if /NetDegree\s+\:\s+(\d+)\s+(\w+)/;
  if (/(\w+)\s+(\w+)\s+\:/) {
    $netconn{$net} .= "$1 ";
    $cellconn{$1} .= "$net ";
  }
}
close FILE;

# ----------------------------- compute HPWL

$hpwl = 0;
foreach $net (keys %netconn) {
  @conns = split ' ',$netconn{$net};
  $min_x = $min_y = 1e12;
  $max_x = $max_y = -1e12;
  foreach $cell (@conns) {
    if (!exists $loc{$cell}) {
      print "WARNING: Unknown cell location: $cell\n";
    } else {
      ($x, $y) = split ' ',$loc{$cell};
      $min_x = $x if $x < $min_x;
      $min_y = $y if $y < $min_y;
      $max_x = $x if $x > $max_x;
      $max_y = $y if $y > $max_y;
    }
  }
  
  if ($min_x eq 1e12 or $min_y eq 1e12 or
      $max_x eq -1e12 or $max_y eq -1e12) {
    print "WARNING: Unbounded box\n";
  } else {
    $hpwl = $hpwl + $max_x - $min_x + $max_y - $min_y;
  }
}

print "HPWL = ";
printf "%e",$hpwl;
print "\n";