Subversion Repositories OpenARM Single-board Computer

#!/usr/bin/perl -w

use strict;

# Thu, 13 Nov 2008 21:06:23 +0100

# Maciej 'agaran' Pijanka <agaran@pld-linux.org>

# for OpenARM SBC Project

# license: gpl v3

use Getopt::Long qw//;

# ITS UNFINISHED

# idea/todo

# -v for verbose (muiltiple for more)

# -q for quiet or -s for silent?

#

# some file with definitions of required fields

# if not present (default) then hardcoded data will

# be used

#

# split elements by types so defaults/required-fields

# different for different types could be applied

#

# first stage is build list of all data found (no caching concept yet)

# then find all sch and make bom? or find already done boms?

sub dbg_printf($$@) {

        my ($lvl, $format, @args) = @_;

        return if ($lvl >= 3) ;

        printf STDERR $format, @args;

}

sub parse_ifile($) {

        my ($filepath) =