mirror of
git://projects.qi-hardware.com/eda-tools.git
synced 2024-08-25 18:28:04 +03:00
46 lines
648 B
Perl
Executable File
46 lines
648 B
Perl
Executable File
#!/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";
|
|
}
|
|
}
|