# -*-mode: cperl; coding: iso-latin-1-unix; fill-column:100-*-
eval 'exec perl -S $0 ${1+"$@"}' if $running_under_some_shell;

=head1 NAME

dumprls -- Recompile Rlist file.

=head1 SYNOPSIS

	$ dumprls input-file [output-file]

=cut

# $Writestamp: 2007-11-30 19:05:44 spindlea$
# $Author: Andreas Spindler$
# $Compile: ./dumprls portfolio.mini.rls out.rls$

#use Data::Rlist;
BEGIN {
    $0 =~ /[^\/]+$/;
	push @INC, $`||'.', "$ENV{HOME}/bin";
	require Rlist;
	Data::Rlist->import();		# ...call the Exporter manually
	Data::Rlist->import(qw/:aux/);
}

my($infile, $outfile) = (shift, shift||'-');
my $copts = Data::Rlist::complete_options({ precision => 6, scientific => 1 }, 'default');
my $rlobj = new Data::Rlist(-input => $infile, -output => $outfile, -options => $copts);

print "$infile: reading...\n";
$rlobj->set(-data => $rlobj->read());
$rlobj->get(-data =>)->{'compile-options'} = $copts;

print "$outfile: writing...\n";
$rlobj->write;