#!/usr/local/bin/perl 

# this program makes all of the cell names lower case
# It should be run on the lef file output by the abstract generator

$flag = 0;

while (<>) {

    if ($_ =~ /^MACRO (.*)$/){
	print "MACRO ".lc($1)."\n";
	$former = $1;
        $flag = 1;
    }
    elsif ($_ =~ /FOREIGN \Q$former/ && $flag) {
	print "  FOREIGN ".lc($former)." 0.000 0.000 ;\n";
    }
    elsif ($_ =~ /ORIGIN/ && $flag) {
    	print "  ORIGIN 0.000 0.000 ;\n"; 
    }
    elsif ($_ =~ /^END .\Q$former/ && $flag) {
        print "END ".lc($former)."\n";
	$flag = 0;
    }
    else {
    	print $_;
    }
}