Root/
| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | require "parser.pl"; |
| 4 | require "match.pl"; |
| 5 | |
| 6 | |
| 7 | sub usage |
| 8 | { |
| 9 | print STDERR "usage: $0 [-d] file.sub|field ...\n\n"; |
| 10 | print STDERR " fields: ref value [footprint user-field ...]\n"; |
| 11 | } |
| 12 | |
| 13 | |
| 14 | for (@ARGV) { |
| 15 | if ($_ eq "-d") { |
| 16 | $debug = 1; |
| 17 | next; |
| 18 | } |
| 19 | &usage if /^-/; |
| 20 | if (/\.sub$/) { |
| 21 | &parse_one($_); |
| 22 | } else { |
| 23 | push(@f, $_); |
| 24 | } |
| 25 | } |
| 26 | |
| 27 | &usage unless @f >= 2; |
| 28 | |
| 29 | $field{"REF"} = shift @f; |
| 30 | $field{"VAL"} = shift @f; |
| 31 | $field{"FP"} = shift @f; |
| 32 | |
| 33 | for (my $i = 1; $i != 10; $i++) { |
| 34 | $field{"F$i"} = $f[$i-1]; |
| 35 | } |
| 36 | |
| 37 | &apply_rules; |
| 38 | |
| 39 | for (sort keys %field) { |
| 40 | if ($field{$_} =~ / /) { |
| 41 | print "$_ = \"$field{$_}\"\n"; |
| 42 | } else { |
| 43 | print "$_ = $field{$_}\n"; |
| 44 | } |
| 45 | } |
| 46 |
Branches:
master
