#!/usr/bin/perl -w

use strict;
use lib '.';
use Opt;
use Common;
use Sch;
use Pcb;

package Geda;

use Data::Dumper;

sub get_files() {
    my ( $sym_dir, $sym_dir_r, $src_dir, $src_dir_r ) = Sch::read_gafrc();
    my $db_sym = Common::filedb_insert(undef, '\*.sym', $sym_dir, $sym_dir_r);
    my $db_sch = Common::filedb_insert(undef, '\*.sch', $src_dir, $src_dir_r);

    my %settings = Pcb::settings();
    my @fp_dir = Pcb::newlib_dir(%settings);
    my $db_fp  = Common::filedb_insert(undef, '\*.fp' , [], \@fp_dir);
    my $db_pcb = Common::filedb_insert(undef, '\*.pcb', $src_dir, $src_dir_r );

    ($db_sym, $db_sch, $db_fp, $db_pcb);
}


1;