% file: process.p
% desc:

:- consult('io.p').

% -----------------------------------------------------------
% processing of queries
% -----------------------------------------------------------

% -----------------------------------------------------------
% doit/1
%
doit(F) :-
   process_queries(F).

% doit/0
%
doit :-
   do_process_queries.

% -----------------------------------------------------------
% process_queries/1(+QueryFile)

process_queries(QueryFile) :-
   seeing(Input),
   see(QueryFile),
   do_process_queries,
   seen,
   see(Input).

% -----------------------------------------------------------
% do_process_queries/0

do_process_queries :-
   write('Query> '),
   read_sentence(S),
   nl, nl, write_string("DEBUG: read sentence - "), write(S), nl,
   S \== [quit, '!'],
   simplify(S,Q),
   write_string("DEBUG: simplified to - "), write(Q), nl,
   !,
   interpret(Q),
   do_process_queries.

do_process_queries.