#!/usr/bin/perl

use utf8;

$index_folder = "../../ereuna/index/";
$q = 'trog';

use KinoSearch::Searcher;
my $searcher = KinoSearch::Searcher->new(
	index => $index_folder
);

# parse the query
{
 package MyQueryParser;
 @ISA='KinoSearch::QueryParser';
 require KinoSearch::QueryParser;
 use KSx::Search::WildCardQuery 0.03;
 sub make_termquery {
  shift;
  new KSx::Search::WildCardQuery @_
 }
}

#use KSx::Analysis::StripAccents;

warn "parsing $q";
my $query = new MyQueryParser
 schema => $searcher->get_schema,
# analyzer => $analyser,
 fields => [qw[ title urltokens content ]],
=>->parse($q);
warn "parsed";


# perform the actual search
my $hits = $searcher->hits(
	query => $query,
	num_wanted => 10000,
);
warn "searched";