Subversion Repositories OpenARM Single-board Computer

Rev

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) =