1
0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-11-04 23:43:43 +02:00
eda-tools/schhist/sanitize-profile

102 lines
2.1 KiB
Plaintext
Raw Normal View History

#!/usr/bin/perl
#
# sanitize-profile - Remove items from a KiCad profile that may cause an upset
#
# Written 2010, 2012 by Werner Almesberger
# Copyright 2010, 2012 Werner Almesberger
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
@LIBS = ("/usr/share/kicad/library", "/usr/local/share/kicad/library");
sub rewrite
{
local ($s) = @_;
return $s if $section ne "eeschema/libraries";
return $s unless /^LibName(\d+)=(.*)\s*$/;
my $lib = $2;
delete $add{$lib};
if ($1 == $in_lib) {
$in_lib++;
} else {
print STDERR "LibName$1 when expecting LibName$in_lib. Renumbering.\n";
$in_lib = $1+1;
}
$out_lib++;
my $var = "LibName$out_lib";
if ($lib =~ /\//) {
return "$var=$lib\n" if -r "$lib.lib";
}
for (".", @libdir, @LIBS) {
return "$var=$lib\n" if -r "$_/$lib.lib";
}
print STDERR "cannot find $lib\n";
$out_lib--;
return undef;
}
sub complement
{
for (sort keys %add) {
print STDERR "adding $_\n";
$out_lib++;
push(@f, "LibName$out_lib=$_\n");
delete $add{$_};
}
}
sub usage
{
print STDERR "usage: $0 file.pro [outfile]\n";
exit(1);
}
for (split(",", $ENV{"SCHHIST_ADDLIBS"})) {
$add{$_} = 1 if $_ ne "";
}
($file, $out) = @ARGV;
&usage if $#ARGV > 1;
($dir = $file) =~ s|[^/]*$||;
$dir = "." if $dir eq "";
open(FILE, $file) || die "$file: $!";
while (<FILE>) {
if (/^\[(\S+)\]/) {
if ($1 eq "eeschema/libraries") {
$in_lib = 1;
$out_lib = 0;
} else {
&complement if $section eq "eeschema/libraries";
}
$section = $1;
}
if ($section eq "eeschema") {
@libdir = split(/;/, $1) if /^LibDir=(.*)\s*$/;
}
$s = &rewrite($_);
push(@f, $s) if defined $s;
}
close FILE;
&complement;
if (!defined $out) {
rename($file, "$file.bak");
$out= $file;
}
open(FILE, ">$out") || die "$out: $!";
print FILE join("", @f) || die "$out: $!";
close FILE || die "$out: $!";