#!/usr/bin/perl -w

use strict;
use Opt;
use Common;
use Sch;
use Pcb;

package Geda;

sub get_files() {
    my ($sym_path, $sch_path) = Sch::read_gafrc();
    my $db_sym = Common::filedb_insert(undef, $sym_path);
    my $db_sch = Common::filedb_insert(undef, $sch_path);

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

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


1;
