mirror of
git://projects.qi-hardware.com/wernermisc.git
synced 2024-12-23 07:31:11 +02:00
30 lines
489 B
Plaintext
30 lines
489 B
Plaintext
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# brdclw - Change line width in a specific module in a KiCAD .brd file
|
||
|
|
#
|
||
|
|
|
||
|
|
sub usage
|
||
|
|
{
|
||
|
|
print STDERR "usage: $0 module from to in-file\n";
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
&usage unless @ARGV == 4;
|
||
|
|
|
||
|
|
$mod = shift(@ARGV);
|
||
|
|
$from = shift(@ARGV);
|
||
|
|
$to = shift(@ARGV);
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
$this = $1 eq $mod if /^\$MODULE\s+(\S+)/;
|
||
|
|
$this = 0 if /^\$EndMODULE/;
|
||
|
|
if ($this && /^DS\s/) {
|
||
|
|
@ds = split(/\s+/);
|
||
|
|
if ($ds[5] == $from) {
|
||
|
|
$ds[5] = $to;
|
||
|
|
$_ = join(" ", @ds)."\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
print || die;
|
||
|
|
}
|