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)