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


foreach my $mag (<*.mag>)
{
  my $name=$mag; $name=~s/\.mag$//;
  system "cp $mag $mag.beforemagic";

  open MAGIC,"|magic -dnull -noconsole -T sky130A $mag";
print MAGIC <<EOF
box -10 683 5210 778
erase locali
box -49 -114 5210 -17
erase locali
save
gds
quit
EOF
;
  close MAGIC;
  system "mv $name.gds ../gds/$name.gds";
}