qi-hardware/eda-tools
1
0
Fork 0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-09-30 02:19:27 +03:00
Code

schhist/sanitize-profile: treat LibDir as a list

Browse Source
This commit is contained in:
Werner Almesberger 2012-05-11 00:53:05 -03:00
parent 881bf33be0
commit 9365a23f7c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
schhist/sanitize-profile
View File

@ -2,8 +2,8 @@
# #
# sanitize-profile - Remove items from a KiCad profile that may cause an upset # sanitize-profile - Remove items from a KiCad profile that may cause an upset
# #
# Written 2010 by Werner Almesberger # Written 2010, 2012 by Werner Almesberger
# Copyright 2010 Werner Almesberger # Copyright 2010, 2012 Werner Almesberger
# #
# This program is free software; you can redistribute it and/or modify # 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 # it under the terms of the GNU General Public License as published by
@ -34,7 +34,7 @@ sub rewrite
if ($lib =~ /\//) { if ($lib =~ /\//) {
return "$var=$lib\n" if -r "$lib.lib"; return "$var=$lib\n" if -r "$lib.lib";
} }
for (".", $libdir, @LIBS) { for (".", @libdir, @LIBS) {
return "$var=$lib\n" if -r "$_/$lib.lib"; return "$var=$lib\n" if -r "$_/$lib.lib";
} }
print STDERR "cannot find $lib\n"; print STDERR "cannot find $lib\n";
@ -83,7 +83,7 @@ while (<FILE>) {
$section = $1; $section = $1;
} }
if ($section eq "eeschema") { if ($section eq "eeschema") {
$libdir = $1 if /^LibDir=(.*)\s*$/; @libdir = split(/;/, $1) if /^LibDir=(.*)\s*$/;
} }
$s = &rewrite($_); $s = &rewrite($_);
push(@f, $s) if defined $s; push(@f, $s) if defined $s;