输入流 - 关闭

Question

如何使用<CTRL>+<D>组合关闭SWI-Prolog中的输入流？

bot:- 
    repeat, 
    write('>'), 
    readln(X), nl, 
    answer(X, Answer), 
    write(Answer), nl, 
    end(X). 

end(X):-member('end',X). 

Where X is a list of keywords to that bot 

我该如何修改源代码以获得该结果？

Answer 1

我已经找到了解决方案。 为了得到这个结果，我必须应用at_end_of_stream并剪切“！”。

bot:- 
    write('Hello'), 
    nl, 
    write('>'), 
    repeat, 
    readln(X), 
    answer(X, Answer), 
    write(Answer), 
    nl, 
    write('>'), 
    at_end_of_stream, !. 

最后两行代码使它按照我的预期工作。 现在，当使用组合Ctrl+D时，我们可以阻止它（关闭流与关闭bot的功能相同）。

@larsmans：很高兴知道readln不好或者不是最佳。也许下次我会使用这个提示。 :)

Answer 2

由于SWI-Prolog的开发铅一月Wielemaker recommends：

[readln是来自多年的实践的东西。它没有很好的定义。使用library(readutil)谓词。这些记录和方式设计得更好。