mirror of
git://projects.qi-hardware.com/eda-tools.git
synced 2024-11-22 20:14:04 +02:00
47b53c8ef3
- fab/pos2fab: can be called with "do", to read .pos and .cmp file - fpd2pdf/fpd2pdf: added syntax extension file.fpd:package to allow selection of a single package - fpd2pdf/fpdoc: generate a PDF with the footprints used in a specific project
70 lines
1.3 KiB
Perl
Executable File
70 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# fpdoc - Generate a PDF with the footprints used in a specific project
|
|
#
|
|
# Written 2011 by Werner Almesberger
|
|
# Copyright 2011 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 pro-file pdf-file\n";
|
|
exit(1);
|
|
}
|
|
|
|
|
|
&usage unless @ARGV == 2;
|
|
|
|
$pro = $ARGV[0];
|
|
$out = $ARGV[1];
|
|
|
|
($base = $pro) =~ s|\.pro$||;
|
|
|
|
$pos = "${base}Front.pos";
|
|
$cmp = "$base.cmp";
|
|
|
|
my $on = 0;
|
|
open(FILE, $pro) || die "$pro: $!";
|
|
while (<FILE>) {
|
|
chop;
|
|
if (m|^\[pcbnew/libraries\]|) {
|
|
$on = 1;
|
|
next;
|
|
}
|
|
$on = 0 if /^\[/;
|
|
next unless $on;
|
|
next unless /LibName\d+=/;
|
|
my $mod = "$'.mod";
|
|
my $fpd = "$'.fpd";
|
|
open(MOD, $mod) || die "$mod: $!";
|
|
while (<MOD>) {
|
|
chop;
|
|
next unless /^\$MODULE\s+/;
|
|
$fpd{$'} = $fpd;
|
|
}
|
|
close MOD;
|
|
}
|
|
close FILE;
|
|
|
|
push(@INC, split(":", $ENV{"PATH"}));
|
|
do "pos2fab" || die "pos2fab: $!";
|
|
|
|
#
|
|
# We iterate over the items in the .pos file so that we skip NC and virtual
|
|
# components.
|
|
#
|
|
|
|
for (@order) {
|
|
my $fp = $fp{$_};
|
|
die "don't have $fp" unless defined $fpd{$fp};
|
|
$need{$fp} = 1;
|
|
}
|
|
|
|
exec "fpd2pdf", "-o", $out, map { "$fpd{$_}:$_" } sort keys %need;
|