cells/mag/fixup.pl

#!/usr/bin/perl -w
use strict;

foreach my $mag (<*.mag>)
{
  my $name=$mag; $name=~s/\.mag$//;
  next if($mag=~m/^sky130_/);
  next if($mag=~m/^demo/);
  system "cp $mag $mag.beforemagic";

  my $width=150;
  my $min=100;
  my $max=200;

  open IN,"<$mag.beforemagic";
  open OUT,">$mag";
  my $currentlayer="";
  while(<IN>)
  {
    if(m/<< (\w+) >>/)
    {
      $currentlayer=$1;	      
    }
    if(m/rect (-?\d+) (-?\d+) (-?\d+) (-?\d+)/ && $currentlayer eq "viali")
    {
      if($2<0 || $2>640)
      {
        print OUT "<< locali >>\n$_";
        print OUT "<< metal1 >>\n$_";
        print OUT "<< viali >>\n";
	next;
      }
    }
    s/\bVDD\b/VPWR/g;
    s/\bGND\b/VGND/g;
    print OUT $_;
    if(m/string FIXED_BBOX 0 0 (\d+) (\d+)/)
    {
      $width=$1; $min=$1-31; $max=$min+31;
      print "min: $min max: $max\nmagic $mag\nbox $min 17 $max 649\n";
      print OUT "<< viali >>\n";
      foreach(0 .. ($max /96)-3)
      {
        print OUT "rect ".(127+$_*96)." -17 ".(161+$_*96)." 17\n";
        print OUT "rect ".(127+$_*96)." 649 ".(161+$_*96)." 683\n";
      }
    }

  }

  close IN;
  close OUT;

my $cmd=<<EOF
snap internal

box 0 683 10000 778
erase locali

box 0 -114 10000 -17
erase locali

box 0 17 31 649
erase locali

box $min 17 $max 649
erase locali

box 0 -17 $width 17
label VGND se locali
port make
port use ground
port shape abutment

box 31 17 $min 48
label VGND se locali
port make
port use ground
port shape abutment

box 0 649 $width 683
label VPWR se locali
port make
port use power
port shape abutment

box 31 618 $min 649
label VGND se locali
port make
port use power
port shape abutment

port renumber
save
gds
property LEFsite unit
property LEFsymmetry "X Y"
property LEFclass CORE
lef write -toplayer
quit
EOF
;
  #print $cmd;
  open MAGIC,"|magic -dnull -noconsole -T sky130A $mag";
  print MAGIC $cmd;
  close MAGIC;
  system "mv $name.gds ../gds/$name.gds";
  #system "mv $name.lef ../lef/$name.lef";
}