qi-hardware/eda-tools
1
0
Fork 0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-11-04 23:05:21 +02:00
Code

b2/extract-symbols: extract cref-symbol map from KiCad schematics

Browse Source
This commit is contained in:
Werner Almesberger 2012-05-23 23:24:38 -03:00
parent c582c47960
commit 7717e7fc3c
1 changed files with 82 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
b2/extract-symbols Executable file
View File

@ -0,0 +1,82 @@
#!/usr/bin/perl
#
# extract-symbols - Extract symbol names from KiCad schematics
#
# Written 2012 by Werner Almesberger
# Copyright 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.
#
sub usage
{
print STDERR "usage: $0 file.sch\n";
exit(1);
}
&usage if $#ARGV != 0;
push @f, $ARGV[0];
($dir = $ARGV[0]) =~ s|/[^/]*$||;
$dir = "." if $dir eq "";
while (@f) {
$file = pop @f;
$sheet = 0;
$comp = 0;
open(FILE, $file) || die "$file: $!";
while (<FILE>) {
if (/^\$Sheet/) {
$sheet = 1;
next;
}
if (/^\$EndSheet/) {
$sheet = 0;
next;
}
if (/^\$Comp/) {
$comp = 1;
undef $cref;
next;
}
if (/^\$EndComp/) {
$comp = 0;
next;
}
if (/^F1 "([^"]*)"/ && $sheet) {
if (-r "$1") {
push @f, $1;
} elsif (-r "$dir/$1") {
push @f, "$dir/$1";
} else {
die "don't know where to find $1";
}
next;
}
if (/^L\s+(\S+)\s+([^# \t\n]\S*)\s*$/ && $comp) {
die if defined $cref;
$cref = $2;
$sym = $1;
next;
}
if (/^U\s+1\s+/ && $comp) {
next unless defined $cref;
die "duplicate component reference \"$cref\" ($sym)" if
defined $sym{$cref};
$sym{$cref} = $sym;
undef $cref;
next;
}
}
close FILE;
}
for (sort keys %sym) {
print "$_ $sym{$_}\n" || die "print: $!";
}
close STDOUT || die "close: $!";