#!/usr/local/bin/perl


if ($#ARGV != 0) {
    print STDERR "Usage: compute_version <version>\n";
    exit 1;
}

open(MAP, "version_map");

$version = $ARGV[0];

sub snarf {
    for ($i = 1; $i <= $#_; $i++) {
	$options{$_[$i]} = 1;
	print STDERR "fe option ".$_[$i]."\n";
    }
};

while (<MAP>) {
    chomp; split;
    if ("default" eq $_[0]) {
	@default = @_;
    }
    if ($version eq $_[0]) {
	$got_one = 1;
	&snarf(@_);
	last;
    }
}

if (!$got_one)  {
    print STDERR "Using default fe options\n";
    &snarf(@default);
}

close(MAP);

open(OPTS, "options");


while (<OPTS>) {
    chomp;
    ($flag, $dir, $lib) = split;
    if ($options{$flag}) {
	$vdirs = "$vdirs $dir";
	$vlibs = "$vlibs $dir/$lib";
    }
}

close(OPTS);

print "FE_VDIRS=\"$vdirs\"\n";
print "FE_VLIBS=\"$vlibs\"\n";
