| #!/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"; | |
| } |