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

fab/pos2fab: condition a KiCAD .pos file for SMT fab use

Browse Source
This commit is contained in:
Werner Almesberger 2011-03-22 21:57:57 -03:00
parent 0f20739519
commit 5cb1aed21c
1 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
fab/pos2fab Executable file
View File

@ -0,0 +1,62 @@
#!/usr/bin/perl
#
# pos2fab - Condition a KiCAD .pos file for SMT fab use
#
# 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 pos-file cmp-file\n";
exit(1);
}
&usage unless @ARGV == 2;
$pos = $ARGV[0];
$cmp = $ARGV[1];
open(FILE, $pos) || die "$pos: $!";
while (<FILE>) {
chop;
next if /^#/;
my @f = split(/\s+/);
$pos{$f[0]} = [ $f[2], -$f[3]+0, $f[4] ];
push(@order, $f[0]);
}
close FILE;
open(FILE, $cmp) || die "$cmp: $!";
while (<FILE>) {
chop;
if (/^BeginCmp/) {
undef $ref;
undef $mod;
next;
}
if (/^Reference\s*=\s*(\S+)\s*;/) {
$ref = $1;
next;
}
if (/^IdModule\s*=\s*(\S+)\s*;/) {
$mod = $1;
next;
}
next unless /^EndCmp/;
$fp{$ref} = $mod;
}
close FILE;
print "\"Ref\",\"Footprint\",\"PosX(in)\",\"PosY(in)\",\"Rot(ccw)\"\n" || die;
for (@order) {
print "\"$_\",\"$fp{$_}\",$pos{$_}[0],$pos{$_}[1],$pos{$_}[2]\n" ||
die;
}