Rev 281 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
280 | agaran | 1 | #!/usr/bin/perl -w |
2 | use strict; |
||
3 | # Thu, 13 Nov 2008 21:06:23 +0100 |
||
4 | # Maciej 'agaran' Pijanka <agaran@pld-linux.org> |
||
5 | # for OpenARM SBC Project |
||
6 | # license: gpl v3 |
||
7 | |||
8 | use Getopt::Long qw//; |
||
9 | |||
10 | # ITS UNFINISHED |
||
11 | |||
12 | # idea/todo |
||
13 | # -v for verbose (muiltiple for more) |
||
14 | # -q for quiet or -s for silent? |
||
15 | # |
||
16 | # some file with definitions of required fields |
||
17 | # if not present (default) then hardcoded data will |
||
18 | # be used |
||
19 | # |
||
20 | # split elements by types so defaults/required-fields |
||
21 | # different for different types could be applied |
||
22 | # |
||
23 | |||
24 | # first stage is build list of all data found (no caching concept yet) |
||
25 | # then find all sch and make bom? or find already done boms? |
||
26 | |||
27 | |||
28 | sub dbg_printf($$@) { |
||
29 | my ($lvl, $format, @args) = @_; |
||
30 | |||
31 | return if ($lvl >= 3) ; |
||
32 | |||
33 | printf STDERR $format, @args; |
||
34 | } |
||
35 | |||
36 | sub parse_ifile($) { |
||
37 | my ($filepath) = |