mirror of
git://projects.qi-hardware.com/eda-tools.git
synced 2024-11-26 07:54:06 +02:00
63 lines
1.2 KiB
Plaintext
63 lines
1.2 KiB
Plaintext
|
#!/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;
|
||
|
|
}
|