1
0
mirror of git://projects.qi-hardware.com/eda-tools.git synced 2024-12-24 15:22:24 +02:00
eda-tools/old-boom/testsub

46 lines
648 B
Plaintext
Raw Normal View History

2012-05-02 05:09:24 +03:00
#!/usr/bin/perl
require "parser.pl";
require "match.pl";
sub usage
{
print STDERR "usage: $0 [-d] file.sub|field ...\n\n";
print STDERR " fields: ref value [footprint user-field ...]\n";
}
for (@ARGV) {
if ($_ eq "-d") {
$debug = 1;
next;
}
&usage if /^-/;
if (/\.sub$/) {
&parse_one($_);
} else {
push(@f, $_);
}
}
&usage unless @f >= 2;
$field{"REF"} = shift @f;
$field{"VAL"} = shift @f;
$field{"FP"} = shift @f;
for (my $i = 1; $i != 10; $i++) {
$field{"F$i"} = $f[$i-1];
}
&apply_rules;
for (sort keys %field) {
if ($field{$_} =~ / /) {
print "$_ = \"$field{$_}\"\n";
} else {
print "$_ = $field{$_}\n";
}
}