mirror of
git://projects.qi-hardware.com/eda-tools.git
synced 2024-12-23 16:25:10 +02:00
66 lines
1.2 KiB
Perl
Executable File
66 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
sub usage
|
|
{
|
|
print STDERR "usage: $0 name=name ... [file ...]\n";
|
|
exit(1);
|
|
}
|
|
|
|
|
|
&usage if $ARGV[0] =~ /^-/;
|
|
&usage if !@ARGV;
|
|
|
|
while ($ARGV[0] =~ /=/) {
|
|
die "already renaming component $`" if defined $map{$`};
|
|
die "already renaming component $'" if defined $map{$'};
|
|
$map{$`} = $';
|
|
$map{$'} = $`;
|
|
shift @ARGV;
|
|
}
|
|
|
|
undef $mod;
|
|
while (<>) {
|
|
if (/^\$MODULE\s+(\S+)\s*$/) {
|
|
die "\$MODULE within \$MODULE" if $mod;
|
|
$mod = 1;
|
|
$fp = $1;
|
|
undef $name;
|
|
}
|
|
if (!$mod) {
|
|
print;
|
|
next;
|
|
}
|
|
if (/^(T0\s.*")([^"]+)("\s*)$/) {
|
|
die "duplicate name \"$name\" vs. \"$2\"" if defined $name;
|
|
$name = $2;
|
|
if (defined $map{$name}) {
|
|
print "$1$map{$name}$3";
|
|
} else {
|
|
print;
|
|
}
|
|
} else {
|
|
print;
|
|
}
|
|
if (/^\$EndMODULE/) {
|
|
die "module has no name" unless defined $name;
|
|
if (defined $map{$name}) {
|
|
if ($mod{$map{$name}}) {
|
|
die "footprint mismatch: $name/$fp vs. ".
|
|
$map{$name}."/".$fp{$map{$name}} unless
|
|
$fp eq $fp{$map{$name}};
|
|
delete $map{$map{$name}};
|
|
delete $map{$name};
|
|
} else {
|
|
$mod{$name} = 1;
|
|
$fp{$name} = $fp;
|
|
}
|
|
}
|
|
$mod = 0;
|
|
}
|
|
}
|
|
|
|
die "EOF within module" if $mod;
|
|
for (keys %map) {
|
|
die "not swapped: ".join(", ", sort keys %map);
|
|
}
|