mirror of
git://projects.qi-hardware.com/eda-tools.git
synced 2024-11-22 15:10:38 +02:00
fpdoc: new utility to generate a PDF with the footprints used in a project
- 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
This commit is contained in:
parent
5cb1aed21c
commit
47b53c8ef3
10
fab/pos2fab
10
fab/pos2fab
@ -19,10 +19,12 @@ sub usage
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
&usage unless @ARGV == 2;
|
if (!defined caller) {
|
||||||
|
&usage unless @ARGV == 2;
|
||||||
|
|
||||||
$pos = $ARGV[0];
|
$pos = $ARGV[0];
|
||||||
$cmp = $ARGV[1];
|
$cmp = $ARGV[1];
|
||||||
|
}
|
||||||
|
|
||||||
open(FILE, $pos) || die "$pos: $!";
|
open(FILE, $pos) || die "$pos: $!";
|
||||||
while (<FILE>) {
|
while (<FILE>) {
|
||||||
@ -55,6 +57,8 @@ while (<FILE>) {
|
|||||||
}
|
}
|
||||||
close FILE;
|
close FILE;
|
||||||
|
|
||||||
|
return 1 if defined caller;
|
||||||
|
|
||||||
print "\"Ref\",\"Footprint\",\"PosX(in)\",\"PosY(in)\",\"Rot(ccw)\"\n" || die;
|
print "\"Ref\",\"Footprint\",\"PosX(in)\",\"PosY(in)\",\"Rot(ccw)\"\n" || die;
|
||||||
for (@order) {
|
for (@order) {
|
||||||
print "\"$_\",\"$fp{$_}\",$pos{$_}[0],$pos{$_}[1],$pos{$_}[2]\n" ||
|
print "\"$_\",\"$fp{$_}\",$pos{$_}[0],$pos{$_}[1],$pos{$_}[2]\n" ||
|
||||||
|
@ -15,7 +15,7 @@
|
|||||||
usage()
|
usage()
|
||||||
{
|
{
|
||||||
cat <<EOF 1>&2
|
cat <<EOF 1>&2
|
||||||
usage: $0 [-a] [-o out.pdf] [-P] file.fpd ...
|
usage: $0 [-a] [-o out.pdf] [-P] file.fpd[:package] ...
|
||||||
|
|
||||||
-a also include files whose name contains a tilde (backup files)
|
-a also include files whose name contains a tilde (backup files)
|
||||||
-o out.pdf write to the specified file (default: standard output)
|
-o out.pdf write to the specified file (default: standard output)
|
||||||
@ -47,4 +47,7 @@ done
|
|||||||
|
|
||||||
eval gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=$out -f \
|
eval gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=$out -f \
|
||||||
`for n in "$@"; do $all || [ "$n" = "${n/\~/}" ] && \
|
`for n in "$@"; do $all || [ "$n" = "${n/\~/}" ] && \
|
||||||
echo "<(fped $p_opt \"$n\" -)"; done`
|
echo "<(fped $p_opt \
|
||||||
|
\"\`echo \\"$n\\" | sed 's/:.*//'\`\" \
|
||||||
|
\`echo \"$n\" | sed 's/.*:/-1/p;d'\` \
|
||||||
|
-)"; done`
|
||||||
|
69
fpd2pdf/fpdoc
Executable file
69
fpd2pdf/fpdoc
Executable file
@ -0,0 +1,69 @@
|
|||||||
|
#!/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;
|
Loading…
Reference in New Issue
Block a user