#!/usr/bin/perl

use strict;
use warnings;

use Term::ReadLine;
use Term::ReadKey;
use File::Spec::Functions;
use IPC::Shareable;

require 'bean-query-daemon-lib.pl';

my $term = new Term::ReadLine 'bean-query-d';
my $prompt = 'bqd> ';

my $dir = $ENV{HOME};
$dir = "~$ENV{USER}" if not defined $dir and defined $ENV{USER};
$dir = "~$ENV{LOGNAME}" if not defined $dir and defined $ENV{LOGNAME};

my $pager = $ENV{PAGER} || '/usr/bin/less';
my ($isPaging, $saveOut) = (0, undef);
sub startpage {
  return if $isPaging;
  open($saveOut, '>&', STDOUT);
  open(STDOUT, "|-", $pager);
  $isPaging = 1;
}
sub endpage {
  return unless $isPaging;
  close(STDOUT);
  open(STDOUT, '>&', $saveOut);
  $isPaging = 0;
}
BeancountQueryInitialize();

my $histfile = catfile($dir, '.bean-shell-history');
$term->ReadHistory($histfile);

my $cmd = "";
while ( (defined ($cmd = $term->readline($prompt))) and $cmd ne 'exit') {
  next if $cmd =~ /^\s*$/;
  chomp $cmd;
  $term->AddHistory($cmd);
  $term->WriteHistory($histfile);

  my $fileName = BeancountQuerySubmit($cmd, 'text', 1);
  open(my $fh, "<", $fileName);
  my($beanOutput, $lineCount) = ("", 0);
  my($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
  while (my $line = <$fh>) { $beanOutput .= $line; $lineCount++; print STDERR ".";}
  close $fh;
  BeancountQueryComplete();
  startpage() if ($lineCount >= $hchar);
  print $beanOutput;
  endpage();
  }
print "\n";