1% ===================================================================
    2% File 'parser_CURT.pl'
    3% Purpose: English to KIF conversions from SWI-Prolog  
    4% This implementation is incomplete
    5% Maintainer: Douglas Miles
    6% Contact: $Author: dmiles $@users.sourceforge.net ;
    7% Version: 'parser_CURT.pl' 1.0.0
    8% Revision:  $Revision: 1.3 $
    9% Revised At:   $Date: 2002/06/06 15:43:15 $
   10% ===================================================================
   11
   12:-module(parser_CURT,[
   13         ]).   14
   15% ==============================================================================
   16:- include('../../ext/CURT/logicmooCURT2').   17% :- ['CURT/advertentCurt'].
   18
   19
   20
   21% ===========================================================
   22% CURT80 command
   23% ===========================================================
   24type_action_info(human_player,curt80(list(term)),"Development test CURT Text for a human.  Usage: CURT80 Cant i see the blue backpack?").
   25
   26agent_call_command(_Gent,curt80([])):- curt80.
   27agent_call_command(_Gent,curt80(StringM)):- curt80(StringM).  
   28
   29
   30% ===========================================================
   31% CURT80 REPL
   32% ===========================================================
   33:-thread_local t_l:curt80_interactive/0.   34curt80 :- locally(tracing80,
   35           locally(t_l:curt80_interactive,
   36            locally(t_l:useOnlyExternalDBs,
   37             locally(lmconf:use_cyc_database,
   38              (told, repeat, prompt_read('CURT80> ',U),  
   39                            to_word_list(U,WL),((WL==[bye];WL==[end,'_',of,'_',file];((mmake,curt80(WL,State),State==stop))))))))).
   40
   41curt80(Input,State):-  curtUpdate(Input,CurtsMoves,State), 
   42   curtPredicates:curtOutput(CurtsMoves)