#!perl -w

use strict;
use Seq;
use Data::Dumper;
use Time::HiRes qw( gettimeofday tv_interval );

my $indexname = $ARGV[0];
@ARGV = ();

my %terms = ();
my %docs = ();

print STDERR "Adding index $indexname...\n";
my $i = Seq->open_read( $indexname );
#my ( $nwords, $ndocs ) = $i->index_info();

while(<>){
    chomp;
    s|\cM||; # No CTRL-Ms please.
    s|\s+| |g;  # Squeeze multiple space chars to a space.
    $_ = lc $_;
    my($funcname, @args) = split(/,/, $_);

    #print STDERR chr(13), $term;

    my $t0 = [gettimeofday];
    my $result = eval { $i->$funcname( @args ) };
    my $interval = tv_interval( $t0 );
    #print STDERR "Found ", scalar @$result, " docs, $interval secs\n";
    print STDERR "Elapsed: $interval secs\n";
    print Dumper $result;
}


#print STDERR "Found ", 
#             scalar keys %terms, 
#             " distinct terms in ", 
#             scalar keys %docs, 
#             " documents.\n";
#
#for my $d (keys %docs){
#    print "<DOCNO value=\"$d\">\n";
#    print "    <t o=\"", 
#        join("\" />\n    <t o=\"", map {$$_} @{ $docs{$d} }),
#        "\" />\n</DOCNO>\n";
#    print "$d\n";
#}


exit 0;




