qi-hardware/wernermisc
1
0
Fork 0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-11-21 16:35:20 +02:00
Code

hacks/brdclw: change (silk screen) line width in a component

Browse Source
This commit is contained in:
Werner Almesberger 2011-03-22 04:06:18 -03:00
parent 3d61f78fe7
commit c481702b70
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
hacks/brdclw Executable file
View File

@ -0,0 +1,29 @@
#!/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;
}